Helios-Commands-Browser.js 50 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899
  1. smalltalk.addPackage('Helios-Commands-Browser');
  2. smalltalk.addClass('HLBrowserCommand', smalltalk.HLModelCommand, [], 'Helios-Commands-Browser');
  3. smalltalk.addMethod(
  4. smalltalk.method({
  5. selector: "category",
  6. category: 'accessing',
  7. fn: function (){
  8. var self=this;
  9. return smalltalk.withContext(function($ctx1) {
  10. return nil;
  11. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLBrowserCommand)})},
  12. args: [],
  13. source: "category\x0a\x09^ nil",
  14. messageSends: [],
  15. referencedClasses: []
  16. }),
  17. smalltalk.HLBrowserCommand);
  18. smalltalk.addMethod(
  19. smalltalk.method({
  20. selector: "for:",
  21. category: 'instance creation',
  22. fn: function (aBrowserModel){
  23. var self=this;
  24. return smalltalk.withContext(function($ctx1) {
  25. var $2,$3,$1;
  26. $2=_st(self)._new();
  27. _st($2)._model_(aBrowserModel);
  28. $3=_st($2)._yourself();
  29. $1=$3;
  30. return $1;
  31. }, function($ctx1) {$ctx1.fill(self,"for:",{aBrowserModel:aBrowserModel},smalltalk.HLBrowserCommand.klass)})},
  32. args: ["aBrowserModel"],
  33. source: "for: aBrowserModel\x0a\x09^ self new\x0a \x09model: aBrowserModel;\x0a yourself",
  34. messageSends: ["model:", "new", "yourself"],
  35. referencedClasses: []
  36. }),
  37. smalltalk.HLBrowserCommand.klass);
  38. smalltalk.addClass('HLBrowserGoToCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
  39. smalltalk.addMethod(
  40. smalltalk.method({
  41. selector: "key",
  42. category: 'accessing',
  43. fn: function (){
  44. var self=this;
  45. return smalltalk.withContext(function($ctx1) {
  46. return "g";
  47. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLBrowserGoToCommand.klass)})},
  48. args: [],
  49. source: "key\x0a\x09^ 'g'",
  50. messageSends: [],
  51. referencedClasses: []
  52. }),
  53. smalltalk.HLBrowserGoToCommand.klass);
  54. smalltalk.addMethod(
  55. smalltalk.method({
  56. selector: "label",
  57. category: 'accessing',
  58. fn: function (){
  59. var self=this;
  60. return smalltalk.withContext(function($ctx1) {
  61. return "Go to";
  62. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLBrowserGoToCommand.klass)})},
  63. args: [],
  64. source: "label\x0a\x09^ 'Go to'",
  65. messageSends: [],
  66. referencedClasses: []
  67. }),
  68. smalltalk.HLBrowserGoToCommand.klass);
  69. smalltalk.addClass('HLGoToClassesCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
  70. smalltalk.addMethod(
  71. smalltalk.method({
  72. selector: "execute",
  73. category: 'executing',
  74. fn: function (){
  75. var self=this;
  76. return smalltalk.withContext(function($ctx1) {
  77. _st(_st(self)._model())._focusOnClasses();
  78. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToClassesCommand)})},
  79. args: [],
  80. source: "execute\x0a\x09self model focusOnClasses",
  81. messageSends: ["focusOnClasses", "model"],
  82. referencedClasses: []
  83. }),
  84. smalltalk.HLGoToClassesCommand);
  85. smalltalk.addMethod(
  86. smalltalk.method({
  87. selector: "key",
  88. category: 'accessing',
  89. fn: function (){
  90. var self=this;
  91. return smalltalk.withContext(function($ctx1) {
  92. return "c";
  93. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToClassesCommand.klass)})},
  94. args: [],
  95. source: "key\x0a\x09^ 'c'",
  96. messageSends: [],
  97. referencedClasses: []
  98. }),
  99. smalltalk.HLGoToClassesCommand.klass);
  100. smalltalk.addMethod(
  101. smalltalk.method({
  102. selector: "label",
  103. category: 'accessing',
  104. fn: function (){
  105. var self=this;
  106. return smalltalk.withContext(function($ctx1) {
  107. return "Classes";
  108. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToClassesCommand.klass)})},
  109. args: [],
  110. source: "label\x0a\x09^ 'Classes'",
  111. messageSends: [],
  112. referencedClasses: []
  113. }),
  114. smalltalk.HLGoToClassesCommand.klass);
  115. smalltalk.addClass('HLGoToMethodsCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
  116. smalltalk.addMethod(
  117. smalltalk.method({
  118. selector: "execute",
  119. category: 'executing',
  120. fn: function (){
  121. var self=this;
  122. return smalltalk.withContext(function($ctx1) {
  123. _st(_st(self)._model())._focusOnMethods();
  124. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToMethodsCommand)})},
  125. args: [],
  126. source: "execute\x0a\x09self model focusOnMethods",
  127. messageSends: ["focusOnMethods", "model"],
  128. referencedClasses: []
  129. }),
  130. smalltalk.HLGoToMethodsCommand);
  131. smalltalk.addMethod(
  132. smalltalk.method({
  133. selector: "key",
  134. category: 'accessing',
  135. fn: function (){
  136. var self=this;
  137. return smalltalk.withContext(function($ctx1) {
  138. return "m";
  139. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToMethodsCommand.klass)})},
  140. args: [],
  141. source: "key\x0a\x09^ 'm'",
  142. messageSends: [],
  143. referencedClasses: []
  144. }),
  145. smalltalk.HLGoToMethodsCommand.klass);
  146. smalltalk.addMethod(
  147. smalltalk.method({
  148. selector: "label",
  149. category: 'accessing',
  150. fn: function (){
  151. var self=this;
  152. return smalltalk.withContext(function($ctx1) {
  153. return "Methods";
  154. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToMethodsCommand.klass)})},
  155. args: [],
  156. source: "label\x0a\x09^ 'Methods'",
  157. messageSends: [],
  158. referencedClasses: []
  159. }),
  160. smalltalk.HLGoToMethodsCommand.klass);
  161. smalltalk.addClass('HLGoToPackagesCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
  162. smalltalk.addMethod(
  163. smalltalk.method({
  164. selector: "execute",
  165. category: 'executing',
  166. fn: function (){
  167. var self=this;
  168. return smalltalk.withContext(function($ctx1) {
  169. _st(_st(self)._model())._focusOnPackages();
  170. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToPackagesCommand)})},
  171. args: [],
  172. source: "execute\x0a\x09self model focusOnPackages",
  173. messageSends: ["focusOnPackages", "model"],
  174. referencedClasses: []
  175. }),
  176. smalltalk.HLGoToPackagesCommand);
  177. smalltalk.addMethod(
  178. smalltalk.method({
  179. selector: "key",
  180. category: 'accessing',
  181. fn: function (){
  182. var self=this;
  183. return smalltalk.withContext(function($ctx1) {
  184. return "p";
  185. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToPackagesCommand.klass)})},
  186. args: [],
  187. source: "key\x0a\x09^ 'p'",
  188. messageSends: [],
  189. referencedClasses: []
  190. }),
  191. smalltalk.HLGoToPackagesCommand.klass);
  192. smalltalk.addMethod(
  193. smalltalk.method({
  194. selector: "label",
  195. category: 'accessing',
  196. fn: function (){
  197. var self=this;
  198. return smalltalk.withContext(function($ctx1) {
  199. return "Packages";
  200. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToPackagesCommand.klass)})},
  201. args: [],
  202. source: "label\x0a\x09^ 'Packages'",
  203. messageSends: [],
  204. referencedClasses: []
  205. }),
  206. smalltalk.HLGoToPackagesCommand.klass);
  207. smalltalk.addClass('HLGoToProtocolsCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
  208. smalltalk.addMethod(
  209. smalltalk.method({
  210. selector: "execute",
  211. category: 'executing',
  212. fn: function (){
  213. var self=this;
  214. return smalltalk.withContext(function($ctx1) {
  215. _st(_st(self)._model())._focusOnProtocols();
  216. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToProtocolsCommand)})},
  217. args: [],
  218. source: "execute\x0a\x09self model focusOnProtocols",
  219. messageSends: ["focusOnProtocols", "model"],
  220. referencedClasses: []
  221. }),
  222. smalltalk.HLGoToProtocolsCommand);
  223. smalltalk.addMethod(
  224. smalltalk.method({
  225. selector: "key",
  226. category: 'accessing',
  227. fn: function (){
  228. var self=this;
  229. return smalltalk.withContext(function($ctx1) {
  230. return "t";
  231. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToProtocolsCommand.klass)})},
  232. args: [],
  233. source: "key\x0a\x09^ 't'",
  234. messageSends: [],
  235. referencedClasses: []
  236. }),
  237. smalltalk.HLGoToProtocolsCommand.klass);
  238. smalltalk.addMethod(
  239. smalltalk.method({
  240. selector: "label",
  241. category: 'accessing',
  242. fn: function (){
  243. var self=this;
  244. return smalltalk.withContext(function($ctx1) {
  245. return "Protocols";
  246. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToProtocolsCommand.klass)})},
  247. args: [],
  248. source: "label\x0a\x09^ 'Protocols'",
  249. messageSends: [],
  250. referencedClasses: []
  251. }),
  252. smalltalk.HLGoToProtocolsCommand.klass);
  253. smalltalk.addClass('HLGoToSourceCodeCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
  254. smalltalk.addMethod(
  255. smalltalk.method({
  256. selector: "execute",
  257. category: 'executing',
  258. fn: function (){
  259. var self=this;
  260. return smalltalk.withContext(function($ctx1) {
  261. _st(_st(self)._model())._focusOnSourceCode();
  262. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToSourceCodeCommand)})},
  263. args: [],
  264. source: "execute\x0a\x09self model focusOnSourceCode",
  265. messageSends: ["focusOnSourceCode", "model"],
  266. referencedClasses: []
  267. }),
  268. smalltalk.HLGoToSourceCodeCommand);
  269. smalltalk.addMethod(
  270. smalltalk.method({
  271. selector: "key",
  272. category: 'accessing',
  273. fn: function (){
  274. var self=this;
  275. return smalltalk.withContext(function($ctx1) {
  276. return "s";
  277. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToSourceCodeCommand.klass)})},
  278. args: [],
  279. source: "key\x0a\x09^ 's'",
  280. messageSends: [],
  281. referencedClasses: []
  282. }),
  283. smalltalk.HLGoToSourceCodeCommand.klass);
  284. smalltalk.addMethod(
  285. smalltalk.method({
  286. selector: "label",
  287. category: 'accessing',
  288. fn: function (){
  289. var self=this;
  290. return smalltalk.withContext(function($ctx1) {
  291. return "Source code";
  292. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToSourceCodeCommand.klass)})},
  293. args: [],
  294. source: "label\x0a\x09^ 'Source code'",
  295. messageSends: [],
  296. referencedClasses: []
  297. }),
  298. smalltalk.HLGoToSourceCodeCommand.klass);
  299. smalltalk.addClass('HLCommitPackageCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
  300. smalltalk.addMethod(
  301. smalltalk.method({
  302. selector: "category",
  303. category: 'accessing',
  304. fn: function (){
  305. var self=this;
  306. return smalltalk.withContext(function($ctx1) {
  307. return "Packages";
  308. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLCommitPackageCommand)})},
  309. args: [],
  310. source: "category\x0a\x09^ 'Packages'",
  311. messageSends: [],
  312. referencedClasses: []
  313. }),
  314. smalltalk.HLCommitPackageCommand);
  315. smalltalk.addMethod(
  316. smalltalk.method({
  317. selector: "execute",
  318. category: 'executing',
  319. fn: function (){
  320. var self=this;
  321. return smalltalk.withContext(function($ctx1) {
  322. _st(_st(self)._model())._commitPackage();
  323. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLCommitPackageCommand)})},
  324. args: [],
  325. source: "execute\x0a\x09self model commitPackage",
  326. messageSends: ["commitPackage", "model"],
  327. referencedClasses: []
  328. }),
  329. smalltalk.HLCommitPackageCommand);
  330. smalltalk.addMethod(
  331. smalltalk.method({
  332. selector: "isActive",
  333. category: 'testing',
  334. fn: function (){
  335. var self=this;
  336. return smalltalk.withContext(function($ctx1) {
  337. return true;
  338. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLCommitPackageCommand)})},
  339. args: [],
  340. source: "isActive\x0a\x09^ true\x0a\x09\x22 slf model isPackageDirty\x22",
  341. messageSends: [],
  342. referencedClasses: []
  343. }),
  344. smalltalk.HLCommitPackageCommand);
  345. smalltalk.addMethod(
  346. smalltalk.method({
  347. selector: "key",
  348. category: 'accessing',
  349. fn: function (){
  350. var self=this;
  351. return smalltalk.withContext(function($ctx1) {
  352. return "k";
  353. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCommitPackageCommand.klass)})},
  354. args: [],
  355. source: "key\x0a\x09^ 'k'",
  356. messageSends: [],
  357. referencedClasses: []
  358. }),
  359. smalltalk.HLCommitPackageCommand.klass);
  360. smalltalk.addMethod(
  361. smalltalk.method({
  362. selector: "label",
  363. category: 'accessing',
  364. fn: function (){
  365. var self=this;
  366. return smalltalk.withContext(function($ctx1) {
  367. return "Commit";
  368. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLCommitPackageCommand.klass)})},
  369. args: [],
  370. source: "label\x0a\x09^ 'Commit'",
  371. messageSends: [],
  372. referencedClasses: []
  373. }),
  374. smalltalk.HLCommitPackageCommand.klass);
  375. smalltalk.addClass('HLCopyCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
  376. smalltalk.addMethod(
  377. smalltalk.method({
  378. selector: "key",
  379. category: 'accessing',
  380. fn: function (){
  381. var self=this;
  382. return smalltalk.withContext(function($ctx1) {
  383. return "c";
  384. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCopyCommand.klass)})},
  385. args: [],
  386. source: "key\x0a\x09^ 'c'",
  387. messageSends: [],
  388. referencedClasses: []
  389. }),
  390. smalltalk.HLCopyCommand.klass);
  391. smalltalk.addMethod(
  392. smalltalk.method({
  393. selector: "label",
  394. category: 'accessing',
  395. fn: function (){
  396. var self=this;
  397. return smalltalk.withContext(function($ctx1) {
  398. return "Copy";
  399. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLCopyCommand.klass)})},
  400. args: [],
  401. source: "label\x0a\x09^ 'Copy'",
  402. messageSends: [],
  403. referencedClasses: []
  404. }),
  405. smalltalk.HLCopyCommand.klass);
  406. smalltalk.addClass('HLCopyClassCommand', smalltalk.HLCopyCommand, [], 'Helios-Commands-Browser');
  407. smalltalk.addMethod(
  408. smalltalk.method({
  409. selector: "category",
  410. category: 'accessing',
  411. fn: function (){
  412. var self=this;
  413. return smalltalk.withContext(function($ctx1) {
  414. return "Classes";
  415. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLCopyClassCommand)})},
  416. args: [],
  417. source: "category\x0a\x09^ 'Classes'",
  418. messageSends: [],
  419. referencedClasses: []
  420. }),
  421. smalltalk.HLCopyClassCommand);
  422. smalltalk.addMethod(
  423. smalltalk.method({
  424. selector: "displayLabel",
  425. category: 'accessing',
  426. fn: function (){
  427. var self=this;
  428. return smalltalk.withContext(function($ctx1) {
  429. return "New class name:";
  430. }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLCopyClassCommand)})},
  431. args: [],
  432. source: "displayLabel\x0a\x09^ 'New class name:'",
  433. messageSends: [],
  434. referencedClasses: []
  435. }),
  436. smalltalk.HLCopyClassCommand);
  437. smalltalk.addMethod(
  438. smalltalk.method({
  439. selector: "execute",
  440. category: 'executing',
  441. fn: function (){
  442. var self=this;
  443. return smalltalk.withContext(function($ctx1) {
  444. _st(_st(self)._model())._copyClassTo_(_st(self)._input());
  445. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLCopyClassCommand)})},
  446. args: [],
  447. source: "execute\x0a\x09self model copyClassTo: self input",
  448. messageSends: ["copyClassTo:", "input", "model"],
  449. referencedClasses: []
  450. }),
  451. smalltalk.HLCopyClassCommand);
  452. smalltalk.addMethod(
  453. smalltalk.method({
  454. selector: "isActive",
  455. category: 'testing',
  456. fn: function (){
  457. var self=this;
  458. return smalltalk.withContext(function($ctx1) {
  459. var $1;
  460. $1=_st(_st(_st(self)._model())._selectedClass())._notNil();
  461. return $1;
  462. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLCopyClassCommand)})},
  463. args: [],
  464. source: "isActive\x0a\x09^ self model selectedClass notNil",
  465. messageSends: ["notNil", "selectedClass", "model"],
  466. referencedClasses: []
  467. }),
  468. smalltalk.HLCopyClassCommand);
  469. smalltalk.addMethod(
  470. smalltalk.method({
  471. selector: "isInputRequired",
  472. category: 'testing',
  473. fn: function (){
  474. var self=this;
  475. return smalltalk.withContext(function($ctx1) {
  476. return true;
  477. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLCopyClassCommand)})},
  478. args: [],
  479. source: "isInputRequired\x0a\x09^ true",
  480. messageSends: [],
  481. referencedClasses: []
  482. }),
  483. smalltalk.HLCopyClassCommand);
  484. smalltalk.addMethod(
  485. smalltalk.method({
  486. selector: "key",
  487. category: 'accessing',
  488. fn: function (){
  489. var self=this;
  490. return smalltalk.withContext(function($ctx1) {
  491. return "c";
  492. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCopyClassCommand.klass)})},
  493. args: [],
  494. source: "key\x0a\x09^ 'c'",
  495. messageSends: [],
  496. referencedClasses: []
  497. }),
  498. smalltalk.HLCopyClassCommand.klass);
  499. smalltalk.addMethod(
  500. smalltalk.method({
  501. selector: "label",
  502. category: 'accessing',
  503. fn: function (){
  504. var self=this;
  505. return smalltalk.withContext(function($ctx1) {
  506. return "Class";
  507. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLCopyClassCommand.klass)})},
  508. args: [],
  509. source: "label\x0a\x09^ 'Class'",
  510. messageSends: [],
  511. referencedClasses: []
  512. }),
  513. smalltalk.HLCopyClassCommand.klass);
  514. smalltalk.addMethod(
  515. smalltalk.method({
  516. selector: "menuLabel",
  517. category: 'accessing',
  518. fn: function (){
  519. var self=this;
  520. return smalltalk.withContext(function($ctx1) {
  521. return "Copy class...";
  522. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLCopyClassCommand.klass)})},
  523. args: [],
  524. source: "menuLabel\x0a\x09^ 'Copy class...'",
  525. messageSends: [],
  526. referencedClasses: []
  527. }),
  528. smalltalk.HLCopyClassCommand.klass);
  529. smalltalk.addClass('HLFindCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
  530. smalltalk.addMethod(
  531. smalltalk.method({
  532. selector: "key",
  533. category: 'accessing',
  534. fn: function (){
  535. var self=this;
  536. return smalltalk.withContext(function($ctx1) {
  537. return "f";
  538. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLFindCommand.klass)})},
  539. args: [],
  540. source: "key\x0a\x09^ 'f'",
  541. messageSends: [],
  542. referencedClasses: []
  543. }),
  544. smalltalk.HLFindCommand.klass);
  545. smalltalk.addMethod(
  546. smalltalk.method({
  547. selector: "label",
  548. category: 'accessing',
  549. fn: function (){
  550. var self=this;
  551. return smalltalk.withContext(function($ctx1) {
  552. return "Find";
  553. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLFindCommand.klass)})},
  554. args: [],
  555. source: "label\x0a\x09^ 'Find'",
  556. messageSends: [],
  557. referencedClasses: []
  558. }),
  559. smalltalk.HLFindCommand.klass);
  560. smalltalk.addClass('HLFindClassCommand', smalltalk.HLFindCommand, [], 'Helios-Commands-Browser');
  561. smalltalk.addMethod(
  562. smalltalk.method({
  563. selector: "displayLabel",
  564. category: 'accessing',
  565. fn: function (){
  566. var self=this;
  567. return smalltalk.withContext(function($ctx1) {
  568. return "select a class";
  569. }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLFindClassCommand)})},
  570. args: [],
  571. source: "displayLabel\x0a\x09^ 'select a class'",
  572. messageSends: [],
  573. referencedClasses: []
  574. }),
  575. smalltalk.HLFindClassCommand);
  576. smalltalk.addMethod(
  577. smalltalk.method({
  578. selector: "execute",
  579. category: 'executing',
  580. fn: function (){
  581. var self=this;
  582. return smalltalk.withContext(function($ctx1) {
  583. _st(_st(self)._model())._openClassNamed_(_st(self)._input());
  584. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLFindClassCommand)})},
  585. args: [],
  586. source: "execute\x0a\x09self model openClassNamed: self input",
  587. messageSends: ["openClassNamed:", "input", "model"],
  588. referencedClasses: []
  589. }),
  590. smalltalk.HLFindClassCommand);
  591. smalltalk.addMethod(
  592. smalltalk.method({
  593. selector: "inputCompletion",
  594. category: 'accessing',
  595. fn: function (){
  596. var self=this;
  597. return smalltalk.withContext(function($ctx1) {
  598. var $1;
  599. $1=_st(_st(self)._model())._availableClassNames();
  600. return $1;
  601. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLFindClassCommand)})},
  602. args: [],
  603. source: "inputCompletion\x0a\x09^ self model availableClassNames",
  604. messageSends: ["availableClassNames", "model"],
  605. referencedClasses: []
  606. }),
  607. smalltalk.HLFindClassCommand);
  608. smalltalk.addMethod(
  609. smalltalk.method({
  610. selector: "inputLabel",
  611. category: 'accessing',
  612. fn: function (){
  613. var self=this;
  614. return smalltalk.withContext(function($ctx1) {
  615. return "Find a class";
  616. }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLFindClassCommand)})},
  617. args: [],
  618. source: "inputLabel\x0a\x09^ 'Find a class'",
  619. messageSends: [],
  620. referencedClasses: []
  621. }),
  622. smalltalk.HLFindClassCommand);
  623. smalltalk.addMethod(
  624. smalltalk.method({
  625. selector: "isInputRequired",
  626. category: 'testing',
  627. fn: function (){
  628. var self=this;
  629. return smalltalk.withContext(function($ctx1) {
  630. return true;
  631. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLFindClassCommand)})},
  632. args: [],
  633. source: "isInputRequired\x0a\x09^ true",
  634. messageSends: [],
  635. referencedClasses: []
  636. }),
  637. smalltalk.HLFindClassCommand);
  638. smalltalk.addMethod(
  639. smalltalk.method({
  640. selector: "key",
  641. category: 'accessing',
  642. fn: function (){
  643. var self=this;
  644. return smalltalk.withContext(function($ctx1) {
  645. return "c";
  646. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLFindClassCommand.klass)})},
  647. args: [],
  648. source: "key\x0a\x09^ 'c'",
  649. messageSends: [],
  650. referencedClasses: []
  651. }),
  652. smalltalk.HLFindClassCommand.klass);
  653. smalltalk.addMethod(
  654. smalltalk.method({
  655. selector: "label",
  656. category: 'accessing',
  657. fn: function (){
  658. var self=this;
  659. return smalltalk.withContext(function($ctx1) {
  660. return "Class";
  661. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLFindClassCommand.klass)})},
  662. args: [],
  663. source: "label\x0a\x09^ 'Class'",
  664. messageSends: [],
  665. referencedClasses: []
  666. }),
  667. smalltalk.HLFindClassCommand.klass);
  668. smalltalk.addClass('HLMoveToCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
  669. smalltalk.addMethod(
  670. smalltalk.method({
  671. selector: "key",
  672. category: 'accessing',
  673. fn: function (){
  674. var self=this;
  675. return smalltalk.withContext(function($ctx1) {
  676. return "m";
  677. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveToCommand.klass)})},
  678. args: [],
  679. source: "key\x0a\x09^ 'm'",
  680. messageSends: [],
  681. referencedClasses: []
  682. }),
  683. smalltalk.HLMoveToCommand.klass);
  684. smalltalk.addMethod(
  685. smalltalk.method({
  686. selector: "label",
  687. category: 'accessing',
  688. fn: function (){
  689. var self=this;
  690. return smalltalk.withContext(function($ctx1) {
  691. return "Move";
  692. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveToCommand.klass)})},
  693. args: [],
  694. source: "label\x0a\x09^ 'Move'",
  695. messageSends: [],
  696. referencedClasses: []
  697. }),
  698. smalltalk.HLMoveToCommand.klass);
  699. smalltalk.addClass('HLMoveClassToCommand', smalltalk.HLMoveToCommand, [], 'Helios-Commands-Browser');
  700. smalltalk.addMethod(
  701. smalltalk.method({
  702. selector: "isActive",
  703. category: 'testing',
  704. fn: function (){
  705. var self=this;
  706. return smalltalk.withContext(function($ctx1) {
  707. var $1;
  708. $1=_st(_st(_st(self)._model())._selectedClass())._notNil();
  709. return $1;
  710. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLMoveClassToCommand)})},
  711. args: [],
  712. source: "isActive\x0a\x09^ self model selectedClass notNil",
  713. messageSends: ["notNil", "selectedClass", "model"],
  714. referencedClasses: []
  715. }),
  716. smalltalk.HLMoveClassToCommand);
  717. smalltalk.addMethod(
  718. smalltalk.method({
  719. selector: "key",
  720. category: 'accessing',
  721. fn: function (){
  722. var self=this;
  723. return smalltalk.withContext(function($ctx1) {
  724. return "c";
  725. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveClassToCommand.klass)})},
  726. args: [],
  727. source: "key\x0a\x09^ 'c'",
  728. messageSends: [],
  729. referencedClasses: []
  730. }),
  731. smalltalk.HLMoveClassToCommand.klass);
  732. smalltalk.addMethod(
  733. smalltalk.method({
  734. selector: "label",
  735. category: 'accessing',
  736. fn: function (){
  737. var self=this;
  738. return smalltalk.withContext(function($ctx1) {
  739. return "Class";
  740. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveClassToCommand.klass)})},
  741. args: [],
  742. source: "label\x0a\x09^ 'Class'",
  743. messageSends: [],
  744. referencedClasses: []
  745. }),
  746. smalltalk.HLMoveClassToCommand.klass);
  747. smalltalk.addClass('HLMoveClassToPackageCommand', smalltalk.HLMoveClassToCommand, [], 'Helios-Commands-Browser');
  748. smalltalk.addMethod(
  749. smalltalk.method({
  750. selector: "category",
  751. category: 'accessing',
  752. fn: function (){
  753. var self=this;
  754. return smalltalk.withContext(function($ctx1) {
  755. return "Classes";
  756. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLMoveClassToPackageCommand)})},
  757. args: [],
  758. source: "category\x0a\x09^ 'Classes'",
  759. messageSends: [],
  760. referencedClasses: []
  761. }),
  762. smalltalk.HLMoveClassToPackageCommand);
  763. smalltalk.addMethod(
  764. smalltalk.method({
  765. selector: "displayLabel",
  766. category: 'accessing',
  767. fn: function (){
  768. var self=this;
  769. return smalltalk.withContext(function($ctx1) {
  770. return "select a package";
  771. }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLMoveClassCommand)})},
  772. args: [],
  773. source: "displayLabel\x0a\x09^ 'select a package'",
  774. messageSends: [],
  775. referencedClasses: []
  776. }),
  777. smalltalk.HLMoveClassToPackageCommand);
  778. smalltalk.addMethod(
  779. smalltalk.method({
  780. selector: "execute",
  781. category: 'executing',
  782. fn: function (){
  783. var self=this;
  784. return smalltalk.withContext(function($ctx1) {
  785. _st(_st(self)._model())._moveClassToPackage_(_st(self)._input());
  786. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLMoveClassCommand)})},
  787. args: [],
  788. source: "execute\x0a\x09self model moveClassToPackage: self input",
  789. messageSends: ["moveClassToPackage:", "input", "model"],
  790. referencedClasses: []
  791. }),
  792. smalltalk.HLMoveClassToPackageCommand);
  793. smalltalk.addMethod(
  794. smalltalk.method({
  795. selector: "inputCompletion",
  796. category: 'accessing',
  797. fn: function (){
  798. var self=this;
  799. return smalltalk.withContext(function($ctx1) {
  800. var $1;
  801. $1=_st(_st(self)._model())._availablePackageNames();
  802. return $1;
  803. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLMoveClassCommand)})},
  804. args: [],
  805. source: "inputCompletion\x0a\x09^ self model availablePackageNames",
  806. messageSends: ["availablePackageNames", "model"],
  807. referencedClasses: []
  808. }),
  809. smalltalk.HLMoveClassToPackageCommand);
  810. smalltalk.addMethod(
  811. smalltalk.method({
  812. selector: "inputLabel",
  813. category: 'accessing',
  814. fn: function (){
  815. var self=this;
  816. return smalltalk.withContext(function($ctx1) {
  817. return "Move class to package:";
  818. }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLMoveClassCommand)})},
  819. args: [],
  820. source: "inputLabel\x0a\x09^ 'Move class to package:'",
  821. messageSends: [],
  822. referencedClasses: []
  823. }),
  824. smalltalk.HLMoveClassToPackageCommand);
  825. smalltalk.addMethod(
  826. smalltalk.method({
  827. selector: "isInputRequired",
  828. category: 'testing',
  829. fn: function (){
  830. var self=this;
  831. return smalltalk.withContext(function($ctx1) {
  832. return true;
  833. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLMoveClassCommand)})},
  834. args: [],
  835. source: "isInputRequired\x0a\x09^ true",
  836. messageSends: [],
  837. referencedClasses: []
  838. }),
  839. smalltalk.HLMoveClassToPackageCommand);
  840. smalltalk.addMethod(
  841. smalltalk.method({
  842. selector: "key",
  843. category: 'accessing',
  844. fn: function (){
  845. var self=this;
  846. return smalltalk.withContext(function($ctx1) {
  847. return "p";
  848. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveClassCommand.klass)})},
  849. args: [],
  850. source: "key\x0a\x09^ 'p'",
  851. messageSends: [],
  852. referencedClasses: []
  853. }),
  854. smalltalk.HLMoveClassToPackageCommand.klass);
  855. smalltalk.addMethod(
  856. smalltalk.method({
  857. selector: "label",
  858. category: 'accessing',
  859. fn: function (){
  860. var self=this;
  861. return smalltalk.withContext(function($ctx1) {
  862. return "to package";
  863. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveClassCommand.klass)})},
  864. args: [],
  865. source: "label\x0a\x09^ 'to package'",
  866. messageSends: [],
  867. referencedClasses: []
  868. }),
  869. smalltalk.HLMoveClassToPackageCommand.klass);
  870. smalltalk.addMethod(
  871. smalltalk.method({
  872. selector: "menuLabel",
  873. category: 'accessing',
  874. fn: function (){
  875. var self=this;
  876. return smalltalk.withContext(function($ctx1) {
  877. return "Move to package...";
  878. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLMoveClassCommand.klass)})},
  879. args: [],
  880. source: "menuLabel\x09\x0a\x09^ 'Move to package...'",
  881. messageSends: [],
  882. referencedClasses: []
  883. }),
  884. smalltalk.HLMoveClassToPackageCommand.klass);
  885. smalltalk.addClass('HLMoveMethodToCommand', smalltalk.HLMoveToCommand, [], 'Helios-Commands-Browser');
  886. smalltalk.addMethod(
  887. smalltalk.method({
  888. selector: "category",
  889. category: 'accessing',
  890. fn: function (){
  891. var self=this;
  892. return smalltalk.withContext(function($ctx1) {
  893. return "Methods";
  894. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLMoveMethodToCommand)})},
  895. args: [],
  896. source: "category\x0a\x09^ 'Methods'",
  897. messageSends: [],
  898. referencedClasses: []
  899. }),
  900. smalltalk.HLMoveMethodToCommand);
  901. smalltalk.addMethod(
  902. smalltalk.method({
  903. selector: "isActive",
  904. category: 'testing',
  905. fn: function (){
  906. var self=this;
  907. return smalltalk.withContext(function($ctx1) {
  908. var $1;
  909. $1=_st(_st(_st(self)._model())._selectedMethod())._notNil();
  910. return $1;
  911. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLMoveMethodToCommand)})},
  912. args: [],
  913. source: "isActive\x0a\x09^ self model selectedMethod notNil",
  914. messageSends: ["notNil", "selectedMethod", "model"],
  915. referencedClasses: []
  916. }),
  917. smalltalk.HLMoveMethodToCommand);
  918. smalltalk.addMethod(
  919. smalltalk.method({
  920. selector: "key",
  921. category: 'accessing',
  922. fn: function (){
  923. var self=this;
  924. return smalltalk.withContext(function($ctx1) {
  925. return "m";
  926. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToCommand.klass)})},
  927. args: [],
  928. source: "key\x0a\x09^ 'm'",
  929. messageSends: [],
  930. referencedClasses: []
  931. }),
  932. smalltalk.HLMoveMethodToCommand.klass);
  933. smalltalk.addMethod(
  934. smalltalk.method({
  935. selector: "label",
  936. category: 'accessing',
  937. fn: function (){
  938. var self=this;
  939. return smalltalk.withContext(function($ctx1) {
  940. return "Method";
  941. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToCommand.klass)})},
  942. args: [],
  943. source: "label\x0a\x09^ 'Method'",
  944. messageSends: [],
  945. referencedClasses: []
  946. }),
  947. smalltalk.HLMoveMethodToCommand.klass);
  948. smalltalk.addClass('HLMoveMethodToClassCommand', smalltalk.HLMoveMethodToCommand, [], 'Helios-Commands-Browser');
  949. smalltalk.addMethod(
  950. smalltalk.method({
  951. selector: "displayLabel",
  952. category: 'accessing',
  953. fn: function (){
  954. var self=this;
  955. return smalltalk.withContext(function($ctx1) {
  956. return "select a class";
  957. }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLMoveMethodToClassCommand)})},
  958. args: [],
  959. source: "displayLabel\x0a\x09^ 'select a class'",
  960. messageSends: [],
  961. referencedClasses: []
  962. }),
  963. smalltalk.HLMoveMethodToClassCommand);
  964. smalltalk.addMethod(
  965. smalltalk.method({
  966. selector: "execute",
  967. category: 'executing',
  968. fn: function (){
  969. var self=this;
  970. return smalltalk.withContext(function($ctx1) {
  971. _st(_st(self)._model())._moveMethodToClass_(_st(self)._input());
  972. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLMoveMethodToClassCommand)})},
  973. args: [],
  974. source: "execute\x0a\x09self model moveMethodToClass: self input",
  975. messageSends: ["moveMethodToClass:", "input", "model"],
  976. referencedClasses: []
  977. }),
  978. smalltalk.HLMoveMethodToClassCommand);
  979. smalltalk.addMethod(
  980. smalltalk.method({
  981. selector: "inputCompletion",
  982. category: 'accessing',
  983. fn: function (){
  984. var self=this;
  985. return smalltalk.withContext(function($ctx1) {
  986. var $1;
  987. $1=_st(_st(self)._model())._availableClassNames();
  988. return $1;
  989. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLMoveMethodToClassCommand)})},
  990. args: [],
  991. source: "inputCompletion\x0a\x09^ self model availableClassNames",
  992. messageSends: ["availableClassNames", "model"],
  993. referencedClasses: []
  994. }),
  995. smalltalk.HLMoveMethodToClassCommand);
  996. smalltalk.addMethod(
  997. smalltalk.method({
  998. selector: "inputLabel",
  999. category: 'accessing',
  1000. fn: function (){
  1001. var self=this;
  1002. return smalltalk.withContext(function($ctx1) {
  1003. return "Move method to class:";
  1004. }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLMoveMethodToClassCommand)})},
  1005. args: [],
  1006. source: "inputLabel\x0a\x09^ 'Move method to class:'",
  1007. messageSends: [],
  1008. referencedClasses: []
  1009. }),
  1010. smalltalk.HLMoveMethodToClassCommand);
  1011. smalltalk.addMethod(
  1012. smalltalk.method({
  1013. selector: "isInputRequired",
  1014. category: 'testing',
  1015. fn: function (){
  1016. var self=this;
  1017. return smalltalk.withContext(function($ctx1) {
  1018. return true;
  1019. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLMoveMethodToClassCommand)})},
  1020. args: [],
  1021. source: "isInputRequired\x0a\x09^ true",
  1022. messageSends: [],
  1023. referencedClasses: []
  1024. }),
  1025. smalltalk.HLMoveMethodToClassCommand);
  1026. smalltalk.addMethod(
  1027. smalltalk.method({
  1028. selector: "key",
  1029. category: 'accessing',
  1030. fn: function (){
  1031. var self=this;
  1032. return smalltalk.withContext(function($ctx1) {
  1033. return "c";
  1034. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToClassCommand.klass)})},
  1035. args: [],
  1036. source: "key\x0a\x09^ 'c'",
  1037. messageSends: [],
  1038. referencedClasses: []
  1039. }),
  1040. smalltalk.HLMoveMethodToClassCommand.klass);
  1041. smalltalk.addMethod(
  1042. smalltalk.method({
  1043. selector: "label",
  1044. category: 'accessing',
  1045. fn: function (){
  1046. var self=this;
  1047. return smalltalk.withContext(function($ctx1) {
  1048. return "to class";
  1049. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToClassCommand.klass)})},
  1050. args: [],
  1051. source: "label\x09\x0a\x09^ 'to class'",
  1052. messageSends: [],
  1053. referencedClasses: []
  1054. }),
  1055. smalltalk.HLMoveMethodToClassCommand.klass);
  1056. smalltalk.addMethod(
  1057. smalltalk.method({
  1058. selector: "menuLabel",
  1059. category: 'accessing',
  1060. fn: function (){
  1061. var self=this;
  1062. return smalltalk.withContext(function($ctx1) {
  1063. return "Move to class...";
  1064. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLMoveMethodToClassCommand.klass)})},
  1065. args: [],
  1066. source: "menuLabel\x09\x0a\x09^ 'Move to class...'",
  1067. messageSends: [],
  1068. referencedClasses: []
  1069. }),
  1070. smalltalk.HLMoveMethodToClassCommand.klass);
  1071. smalltalk.addClass('HLMoveMethodToProtocolCommand', smalltalk.HLMoveMethodToCommand, [], 'Helios-Commands-Browser');
  1072. smalltalk.addMethod(
  1073. smalltalk.method({
  1074. selector: "displayLabel",
  1075. category: 'accessing',
  1076. fn: function (){
  1077. var self=this;
  1078. return smalltalk.withContext(function($ctx1) {
  1079. return "select a protocol";
  1080. }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLMoveMethodToProtocolCommand)})},
  1081. args: [],
  1082. source: "displayLabel\x0a\x09^ 'select a protocol'",
  1083. messageSends: [],
  1084. referencedClasses: []
  1085. }),
  1086. smalltalk.HLMoveMethodToProtocolCommand);
  1087. smalltalk.addMethod(
  1088. smalltalk.method({
  1089. selector: "execute",
  1090. category: 'executing',
  1091. fn: function (){
  1092. var self=this;
  1093. return smalltalk.withContext(function($ctx1) {
  1094. _st(_st(self)._model())._moveMethodToProtocol_(_st(self)._input());
  1095. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLMoveMethodToProtocolCommand)})},
  1096. args: [],
  1097. source: "execute\x0a\x09self model moveMethodToProtocol: self input",
  1098. messageSends: ["moveMethodToProtocol:", "input", "model"],
  1099. referencedClasses: []
  1100. }),
  1101. smalltalk.HLMoveMethodToProtocolCommand);
  1102. smalltalk.addMethod(
  1103. smalltalk.method({
  1104. selector: "inputCompletion",
  1105. category: 'accessing',
  1106. fn: function (){
  1107. var self=this;
  1108. return smalltalk.withContext(function($ctx1) {
  1109. var $1;
  1110. $1=_st(_st(self)._model())._availableProtocols();
  1111. return $1;
  1112. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLMoveMethodToProtocolCommand)})},
  1113. args: [],
  1114. source: "inputCompletion\x0a\x09^ self model availableProtocols",
  1115. messageSends: ["availableProtocols", "model"],
  1116. referencedClasses: []
  1117. }),
  1118. smalltalk.HLMoveMethodToProtocolCommand);
  1119. smalltalk.addMethod(
  1120. smalltalk.method({
  1121. selector: "inputLabel",
  1122. category: 'accessing',
  1123. fn: function (){
  1124. var self=this;
  1125. return smalltalk.withContext(function($ctx1) {
  1126. return "Move method to a protocol:";
  1127. }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLMoveMethodToProtocolCommand)})},
  1128. args: [],
  1129. source: "inputLabel\x0a\x09^ 'Move method to a protocol:'",
  1130. messageSends: [],
  1131. referencedClasses: []
  1132. }),
  1133. smalltalk.HLMoveMethodToProtocolCommand);
  1134. smalltalk.addMethod(
  1135. smalltalk.method({
  1136. selector: "isInputRequired",
  1137. category: 'testing',
  1138. fn: function (){
  1139. var self=this;
  1140. return smalltalk.withContext(function($ctx1) {
  1141. return true;
  1142. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLMoveMethodToProtocolCommand)})},
  1143. args: [],
  1144. source: "isInputRequired\x0a\x09^ true",
  1145. messageSends: [],
  1146. referencedClasses: []
  1147. }),
  1148. smalltalk.HLMoveMethodToProtocolCommand);
  1149. smalltalk.addMethod(
  1150. smalltalk.method({
  1151. selector: "key",
  1152. category: 'accessing',
  1153. fn: function (){
  1154. var self=this;
  1155. return smalltalk.withContext(function($ctx1) {
  1156. return "t";
  1157. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})},
  1158. args: [],
  1159. source: "key\x0a\x09^ 't'",
  1160. messageSends: [],
  1161. referencedClasses: []
  1162. }),
  1163. smalltalk.HLMoveMethodToProtocolCommand.klass);
  1164. smalltalk.addMethod(
  1165. smalltalk.method({
  1166. selector: "label",
  1167. category: 'accessing',
  1168. fn: function (){
  1169. var self=this;
  1170. return smalltalk.withContext(function($ctx1) {
  1171. return "to protocol";
  1172. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})},
  1173. args: [],
  1174. source: "label\x0a\x09^ 'to protocol'",
  1175. messageSends: [],
  1176. referencedClasses: []
  1177. }),
  1178. smalltalk.HLMoveMethodToProtocolCommand.klass);
  1179. smalltalk.addMethod(
  1180. smalltalk.method({
  1181. selector: "menuLabel",
  1182. category: 'accessing',
  1183. fn: function (){
  1184. var self=this;
  1185. return smalltalk.withContext(function($ctx1) {
  1186. return "Move to protocol...";
  1187. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})},
  1188. args: [],
  1189. source: "menuLabel\x0a\x09^ 'Move to protocol...'",
  1190. messageSends: [],
  1191. referencedClasses: []
  1192. }),
  1193. smalltalk.HLMoveMethodToProtocolCommand.klass);
  1194. smalltalk.addClass('HLRemoveCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
  1195. smalltalk.addMethod(
  1196. smalltalk.method({
  1197. selector: "key",
  1198. category: 'accessing',
  1199. fn: function (){
  1200. var self=this;
  1201. return smalltalk.withContext(function($ctx1) {
  1202. return "x";
  1203. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveCommand.klass)})},
  1204. args: [],
  1205. source: "key\x0a\x09^ 'x'",
  1206. messageSends: [],
  1207. referencedClasses: []
  1208. }),
  1209. smalltalk.HLRemoveCommand.klass);
  1210. smalltalk.addMethod(
  1211. smalltalk.method({
  1212. selector: "label",
  1213. category: 'accessing',
  1214. fn: function (){
  1215. var self=this;
  1216. return smalltalk.withContext(function($ctx1) {
  1217. return "Remove";
  1218. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRemoveCommand.klass)})},
  1219. args: [],
  1220. source: "label\x0a\x09^ 'Remove'",
  1221. messageSends: [],
  1222. referencedClasses: []
  1223. }),
  1224. smalltalk.HLRemoveCommand.klass);
  1225. smalltalk.addClass('HLRemoveClassCommand', smalltalk.HLRemoveCommand, [], 'Helios-Commands-Browser');
  1226. smalltalk.addMethod(
  1227. smalltalk.method({
  1228. selector: "category",
  1229. category: 'accessing',
  1230. fn: function (){
  1231. var self=this;
  1232. return smalltalk.withContext(function($ctx1) {
  1233. return "Classes";
  1234. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLRemoveClassCommand)})},
  1235. args: [],
  1236. source: "category\x0a\x09^ 'Classes'",
  1237. messageSends: [],
  1238. referencedClasses: []
  1239. }),
  1240. smalltalk.HLRemoveClassCommand);
  1241. smalltalk.addMethod(
  1242. smalltalk.method({
  1243. selector: "execute",
  1244. category: 'executing',
  1245. fn: function (){
  1246. var self=this;
  1247. return smalltalk.withContext(function($ctx1) {
  1248. _st(_st(self)._model())._removeClass();
  1249. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLRemoveClassCommand)})},
  1250. args: [],
  1251. source: "execute\x0a\x09self model removeClass",
  1252. messageSends: ["removeClass", "model"],
  1253. referencedClasses: []
  1254. }),
  1255. smalltalk.HLRemoveClassCommand);
  1256. smalltalk.addMethod(
  1257. smalltalk.method({
  1258. selector: "isActive",
  1259. category: 'testing',
  1260. fn: function (){
  1261. var self=this;
  1262. return smalltalk.withContext(function($ctx1) {
  1263. var $1;
  1264. $1=_st(_st(_st(self)._model())._selectedClass())._notNil();
  1265. return $1;
  1266. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLRemoveClassCommand)})},
  1267. args: [],
  1268. source: "isActive\x0a\x09^ self model selectedClass notNil",
  1269. messageSends: ["notNil", "selectedClass", "model"],
  1270. referencedClasses: []
  1271. }),
  1272. smalltalk.HLRemoveClassCommand);
  1273. smalltalk.addMethod(
  1274. smalltalk.method({
  1275. selector: "key",
  1276. category: 'accessing',
  1277. fn: function (){
  1278. var self=this;
  1279. return smalltalk.withContext(function($ctx1) {
  1280. return "c";
  1281. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveClassCommand.klass)})},
  1282. args: [],
  1283. source: "key\x0a\x09^ 'c'",
  1284. messageSends: [],
  1285. referencedClasses: []
  1286. }),
  1287. smalltalk.HLRemoveClassCommand.klass);
  1288. smalltalk.addMethod(
  1289. smalltalk.method({
  1290. selector: "label",
  1291. category: 'accessing',
  1292. fn: function (){
  1293. var self=this;
  1294. return smalltalk.withContext(function($ctx1) {
  1295. return "Class";
  1296. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRemoveClassCommand.klass)})},
  1297. args: [],
  1298. source: "label\x0a\x09^ 'Class'",
  1299. messageSends: [],
  1300. referencedClasses: []
  1301. }),
  1302. smalltalk.HLRemoveClassCommand.klass);
  1303. smalltalk.addMethod(
  1304. smalltalk.method({
  1305. selector: "menuLabel",
  1306. category: 'accessing',
  1307. fn: function (){
  1308. var self=this;
  1309. return smalltalk.withContext(function($ctx1) {
  1310. return "Remove class";
  1311. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLRemoveClassCommand.klass)})},
  1312. args: [],
  1313. source: "menuLabel\x0a\x09^ 'Remove class'",
  1314. messageSends: [],
  1315. referencedClasses: []
  1316. }),
  1317. smalltalk.HLRemoveClassCommand.klass);
  1318. smalltalk.addClass('HLRemoveMethodCommand', smalltalk.HLRemoveCommand, [], 'Helios-Commands-Browser');
  1319. smalltalk.addMethod(
  1320. smalltalk.method({
  1321. selector: "category",
  1322. category: 'accessing',
  1323. fn: function (){
  1324. var self=this;
  1325. return smalltalk.withContext(function($ctx1) {
  1326. return "Methods";
  1327. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLRemoveMethodCommand)})},
  1328. args: [],
  1329. source: "category\x0a\x09^ 'Methods'",
  1330. messageSends: [],
  1331. referencedClasses: []
  1332. }),
  1333. smalltalk.HLRemoveMethodCommand);
  1334. smalltalk.addMethod(
  1335. smalltalk.method({
  1336. selector: "execute",
  1337. category: 'executing',
  1338. fn: function (){
  1339. var self=this;
  1340. return smalltalk.withContext(function($ctx1) {
  1341. _st(_st(self)._model())._removeMethod();
  1342. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLRemoveMethodCommand)})},
  1343. args: [],
  1344. source: "execute\x0a\x09self model removeMethod",
  1345. messageSends: ["removeMethod", "model"],
  1346. referencedClasses: []
  1347. }),
  1348. smalltalk.HLRemoveMethodCommand);
  1349. smalltalk.addMethod(
  1350. smalltalk.method({
  1351. selector: "isActive",
  1352. category: 'testing',
  1353. fn: function (){
  1354. var self=this;
  1355. return smalltalk.withContext(function($ctx1) {
  1356. var $1;
  1357. $1=_st(_st(_st(self)._model())._selectedMethod())._notNil();
  1358. return $1;
  1359. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLRemoveMethodCommand)})},
  1360. args: [],
  1361. source: "isActive\x0a\x09^ self model selectedMethod notNil",
  1362. messageSends: ["notNil", "selectedMethod", "model"],
  1363. referencedClasses: []
  1364. }),
  1365. smalltalk.HLRemoveMethodCommand);
  1366. smalltalk.addMethod(
  1367. smalltalk.method({
  1368. selector: "key",
  1369. category: 'accessing',
  1370. fn: function (){
  1371. var self=this;
  1372. return smalltalk.withContext(function($ctx1) {
  1373. return "m";
  1374. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveMethodCommand.klass)})},
  1375. args: [],
  1376. source: "key\x0a\x09^ 'm'",
  1377. messageSends: [],
  1378. referencedClasses: []
  1379. }),
  1380. smalltalk.HLRemoveMethodCommand.klass);
  1381. smalltalk.addMethod(
  1382. smalltalk.method({
  1383. selector: "label",
  1384. category: 'accessing',
  1385. fn: function (){
  1386. var self=this;
  1387. return smalltalk.withContext(function($ctx1) {
  1388. return "Method";
  1389. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRemoveMethodCommand.klass)})},
  1390. args: [],
  1391. source: "label\x0a\x09^ 'Method'",
  1392. messageSends: [],
  1393. referencedClasses: []
  1394. }),
  1395. smalltalk.HLRemoveMethodCommand.klass);
  1396. smalltalk.addMethod(
  1397. smalltalk.method({
  1398. selector: "menuLabel",
  1399. category: 'accessing',
  1400. fn: function (){
  1401. var self=this;
  1402. return smalltalk.withContext(function($ctx1) {
  1403. return "Remove method";
  1404. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLRemoveMethodCommand.klass)})},
  1405. args: [],
  1406. source: "menuLabel\x0a\x09^ 'Remove method'",
  1407. messageSends: [],
  1408. referencedClasses: []
  1409. }),
  1410. smalltalk.HLRemoveMethodCommand.klass);
  1411. smalltalk.addClass('HLRenameCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
  1412. smalltalk.addMethod(
  1413. smalltalk.method({
  1414. selector: "key",
  1415. category: 'accessing',
  1416. fn: function (){
  1417. var self=this;
  1418. return smalltalk.withContext(function($ctx1) {
  1419. return "r";
  1420. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRenameCommand.klass)})},
  1421. args: [],
  1422. source: "key\x0a\x09^ 'r'",
  1423. messageSends: [],
  1424. referencedClasses: []
  1425. }),
  1426. smalltalk.HLRenameCommand.klass);
  1427. smalltalk.addMethod(
  1428. smalltalk.method({
  1429. selector: "label",
  1430. category: 'accessing',
  1431. fn: function (){
  1432. var self=this;
  1433. return smalltalk.withContext(function($ctx1) {
  1434. return "Rename";
  1435. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRenameCommand.klass)})},
  1436. args: [],
  1437. source: "label\x0a\x09^ 'Rename'",
  1438. messageSends: [],
  1439. referencedClasses: []
  1440. }),
  1441. smalltalk.HLRenameCommand.klass);
  1442. smalltalk.addClass('HLRenameClassCommand', smalltalk.HLRenameCommand, [], 'Helios-Commands-Browser');
  1443. smalltalk.addMethod(
  1444. smalltalk.method({
  1445. selector: "category",
  1446. category: 'accessing',
  1447. fn: function (){
  1448. var self=this;
  1449. return smalltalk.withContext(function($ctx1) {
  1450. return "Classes";
  1451. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLRenameClassCommand)})},
  1452. args: [],
  1453. source: "category\x0a\x09^ 'Classes'",
  1454. messageSends: [],
  1455. referencedClasses: []
  1456. }),
  1457. smalltalk.HLRenameClassCommand);
  1458. smalltalk.addMethod(
  1459. smalltalk.method({
  1460. selector: "displayLabel",
  1461. category: 'accessing',
  1462. fn: function (){
  1463. var self=this;
  1464. return smalltalk.withContext(function($ctx1) {
  1465. return "Rename class to:";
  1466. }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLRenameClassCommand)})},
  1467. args: [],
  1468. source: "displayLabel\x0a\x09^ 'Rename class to:'",
  1469. messageSends: [],
  1470. referencedClasses: []
  1471. }),
  1472. smalltalk.HLRenameClassCommand);
  1473. smalltalk.addMethod(
  1474. smalltalk.method({
  1475. selector: "execute",
  1476. category: 'executing',
  1477. fn: function (){
  1478. var self=this;
  1479. return smalltalk.withContext(function($ctx1) {
  1480. _st(_st(self)._model())._renameClassTo_(_st(self)._input());
  1481. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLRenameClassCommand)})},
  1482. args: [],
  1483. source: "execute\x0a\x09self model renameClassTo: self input",
  1484. messageSends: ["renameClassTo:", "input", "model"],
  1485. referencedClasses: []
  1486. }),
  1487. smalltalk.HLRenameClassCommand);
  1488. smalltalk.addMethod(
  1489. smalltalk.method({
  1490. selector: "isActive",
  1491. category: 'testing',
  1492. fn: function (){
  1493. var self=this;
  1494. return smalltalk.withContext(function($ctx1) {
  1495. var $1;
  1496. $1=_st(_st(_st(self)._model())._selectedClass())._notNil();
  1497. return $1;
  1498. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLRenameClassCommand)})},
  1499. args: [],
  1500. source: "isActive\x0a\x09^ self model selectedClass notNil",
  1501. messageSends: ["notNil", "selectedClass", "model"],
  1502. referencedClasses: []
  1503. }),
  1504. smalltalk.HLRenameClassCommand);
  1505. smalltalk.addMethod(
  1506. smalltalk.method({
  1507. selector: "isInputRequired",
  1508. category: 'testing',
  1509. fn: function (){
  1510. var self=this;
  1511. return smalltalk.withContext(function($ctx1) {
  1512. return true;
  1513. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLRenameClassCommand)})},
  1514. args: [],
  1515. source: "isInputRequired\x0a\x09^ true",
  1516. messageSends: [],
  1517. referencedClasses: []
  1518. }),
  1519. smalltalk.HLRenameClassCommand);
  1520. smalltalk.addMethod(
  1521. smalltalk.method({
  1522. selector: "key",
  1523. category: 'accessing',
  1524. fn: function (){
  1525. var self=this;
  1526. return smalltalk.withContext(function($ctx1) {
  1527. return "m";
  1528. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRenameClassCommand.klass)})},
  1529. args: [],
  1530. source: "key\x0a\x09^ 'm'",
  1531. messageSends: [],
  1532. referencedClasses: []
  1533. }),
  1534. smalltalk.HLRenameClassCommand.klass);
  1535. smalltalk.addMethod(
  1536. smalltalk.method({
  1537. selector: "label",
  1538. category: 'accessing',
  1539. fn: function (){
  1540. var self=this;
  1541. return smalltalk.withContext(function($ctx1) {
  1542. return "Class";
  1543. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRenameClassCommand.klass)})},
  1544. args: [],
  1545. source: "label\x0a\x09^ 'Class'",
  1546. messageSends: [],
  1547. referencedClasses: []
  1548. }),
  1549. smalltalk.HLRenameClassCommand.klass);
  1550. smalltalk.addMethod(
  1551. smalltalk.method({
  1552. selector: "menuLabel",
  1553. category: 'accessing',
  1554. fn: function (){
  1555. var self=this;
  1556. return smalltalk.withContext(function($ctx1) {
  1557. return "Rename class...";
  1558. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLRenameClassCommand.klass)})},
  1559. args: [],
  1560. source: "menuLabel\x0a\x09^ 'Rename class...'",
  1561. messageSends: [],
  1562. referencedClasses: []
  1563. }),
  1564. smalltalk.HLRenameClassCommand.klass);
  1565. smalltalk.addClass('HLToggleCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
  1566. smalltalk.addMethod(
  1567. smalltalk.method({
  1568. selector: "key",
  1569. category: 'accessing',
  1570. fn: function (){
  1571. var self=this;
  1572. return smalltalk.withContext(function($ctx1) {
  1573. return "t";
  1574. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleCommand.klass)})},
  1575. args: [],
  1576. source: "key\x0a\x09^ 't'",
  1577. messageSends: [],
  1578. referencedClasses: []
  1579. }),
  1580. smalltalk.HLToggleCommand.klass);
  1581. smalltalk.addMethod(
  1582. smalltalk.method({
  1583. selector: "label",
  1584. category: 'accessing',
  1585. fn: function (){
  1586. var self=this;
  1587. return smalltalk.withContext(function($ctx1) {
  1588. return "Toggle";
  1589. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleCommand.klass)})},
  1590. args: [],
  1591. source: "label\x0a\x09^ 'Toggle'",
  1592. messageSends: [],
  1593. referencedClasses: []
  1594. }),
  1595. smalltalk.HLToggleCommand.klass);
  1596. smalltalk.addClass('HLToggleClassCommentCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Browser');
  1597. smalltalk.addMethod(
  1598. smalltalk.method({
  1599. selector: "execute",
  1600. category: 'executing',
  1601. fn: function (){
  1602. var self=this;
  1603. return smalltalk.withContext(function($ctx1) {
  1604. _st(_st(self)._model())._showComment_(true);
  1605. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleClassCommentCommand)})},
  1606. args: [],
  1607. source: "execute\x0a\x09self model showComment: true",
  1608. messageSends: ["showComment:", "model"],
  1609. referencedClasses: []
  1610. }),
  1611. smalltalk.HLToggleClassCommentCommand);
  1612. smalltalk.addMethod(
  1613. smalltalk.method({
  1614. selector: "key",
  1615. category: 'accessing',
  1616. fn: function (){
  1617. var self=this;
  1618. return smalltalk.withContext(function($ctx1) {
  1619. return "d";
  1620. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleClassCommentCommand.klass)})},
  1621. args: [],
  1622. source: "key\x0a\x09^ 'd'",
  1623. messageSends: [],
  1624. referencedClasses: []
  1625. }),
  1626. smalltalk.HLToggleClassCommentCommand.klass);
  1627. smalltalk.addMethod(
  1628. smalltalk.method({
  1629. selector: "label",
  1630. category: 'accessing',
  1631. fn: function (){
  1632. var self=this;
  1633. return smalltalk.withContext(function($ctx1) {
  1634. return "Documentation";
  1635. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleClassCommentCommand.klass)})},
  1636. args: [],
  1637. source: "label\x0a\x09^ 'Documentation'",
  1638. messageSends: [],
  1639. referencedClasses: []
  1640. }),
  1641. smalltalk.HLToggleClassCommentCommand.klass);
  1642. smalltalk.addClass('HLToggleClassSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Browser');
  1643. smalltalk.addMethod(
  1644. smalltalk.method({
  1645. selector: "execute",
  1646. category: 'executing',
  1647. fn: function (){
  1648. var self=this;
  1649. return smalltalk.withContext(function($ctx1) {
  1650. _st(_st(self)._model())._showInstance_(false);
  1651. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleClassSideCommand)})},
  1652. args: [],
  1653. source: "execute\x0a\x09self model showInstance: false",
  1654. messageSends: ["showInstance:", "model"],
  1655. referencedClasses: []
  1656. }),
  1657. smalltalk.HLToggleClassSideCommand);
  1658. smalltalk.addMethod(
  1659. smalltalk.method({
  1660. selector: "key",
  1661. category: 'accessing',
  1662. fn: function (){
  1663. var self=this;
  1664. return smalltalk.withContext(function($ctx1) {
  1665. return "c";
  1666. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleClassSideCommand.klass)})},
  1667. args: [],
  1668. source: "key\x0a\x09^ 'c'",
  1669. messageSends: [],
  1670. referencedClasses: []
  1671. }),
  1672. smalltalk.HLToggleClassSideCommand.klass);
  1673. smalltalk.addMethod(
  1674. smalltalk.method({
  1675. selector: "label",
  1676. category: 'accessing',
  1677. fn: function (){
  1678. var self=this;
  1679. return smalltalk.withContext(function($ctx1) {
  1680. return "Class side";
  1681. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleClassSideCommand.klass)})},
  1682. args: [],
  1683. source: "label\x0a\x09^ 'Class side'",
  1684. messageSends: [],
  1685. referencedClasses: []
  1686. }),
  1687. smalltalk.HLToggleClassSideCommand.klass);
  1688. smalltalk.addClass('HLToggleInstanceSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Browser');
  1689. smalltalk.addMethod(
  1690. smalltalk.method({
  1691. selector: "execute",
  1692. category: 'executing',
  1693. fn: function (){
  1694. var self=this;
  1695. return smalltalk.withContext(function($ctx1) {
  1696. _st(_st(self)._model())._showInstance_(true);
  1697. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleInstanceSideCommand)})},
  1698. args: [],
  1699. source: "execute\x0a\x09self model showInstance: true",
  1700. messageSends: ["showInstance:", "model"],
  1701. referencedClasses: []
  1702. }),
  1703. smalltalk.HLToggleInstanceSideCommand);
  1704. smalltalk.addMethod(
  1705. smalltalk.method({
  1706. selector: "key",
  1707. category: 'accessing',
  1708. fn: function (){
  1709. var self=this;
  1710. return smalltalk.withContext(function($ctx1) {
  1711. return "i";
  1712. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleInstanceSideCommand.klass)})},
  1713. args: [],
  1714. source: "key\x0a\x09^ 'i'",
  1715. messageSends: [],
  1716. referencedClasses: []
  1717. }),
  1718. smalltalk.HLToggleInstanceSideCommand.klass);
  1719. smalltalk.addMethod(
  1720. smalltalk.method({
  1721. selector: "label",
  1722. category: 'accessing',
  1723. fn: function (){
  1724. var self=this;
  1725. return smalltalk.withContext(function($ctx1) {
  1726. return "Instance side";
  1727. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleInstanceSideCommand.klass)})},
  1728. args: [],
  1729. source: "label\x0a\x09^ 'Instance side'",
  1730. messageSends: [],
  1731. referencedClasses: []
  1732. }),
  1733. smalltalk.HLToggleInstanceSideCommand.klass);