2
0

Helios-Commands-Browser.js 22 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767
  1. define("amber_core/Helios-Commands-Browser", ["amber_vm/smalltalk", "amber_vm/nil", "amber_vm/_st", "amber_core/Helios-Commands-Tools"], function(smalltalk,nil,_st){
  2. smalltalk.addPackage('Helios-Commands-Browser');
  3. smalltalk.packages["Helios-Commands-Browser"].transport = {"type":"amd","amdNamespace":"amber_core"};
  4. smalltalk.addClass('HLBrowserCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Browser');
  5. smalltalk.addMethod(
  6. smalltalk.method({
  7. selector: "isValidFor:",
  8. protocol: 'testing',
  9. fn: function (aModel){
  10. var self=this;
  11. return smalltalk.withContext(function($ctx1) {
  12. var $1;
  13. $1=_st(aModel)._isBrowserModel();
  14. return $1;
  15. }, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},smalltalk.HLBrowserCommand.klass)})},
  16. args: ["aModel"],
  17. source: "isValidFor: aModel\x0a\x09^ aModel isBrowserModel",
  18. messageSends: ["isBrowserModel"],
  19. referencedClasses: []
  20. }),
  21. smalltalk.HLBrowserCommand.klass);
  22. smalltalk.addClass('HLBrowserGoToCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
  23. smalltalk.addMethod(
  24. smalltalk.method({
  25. selector: "isValidFor:",
  26. protocol: 'testing',
  27. fn: function (aModel){
  28. var self=this;
  29. return smalltalk.withContext(function($ctx1) {
  30. var $1;
  31. $1=_st(aModel)._isBrowserModel();
  32. return $1;
  33. }, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},smalltalk.HLBrowserGoToCommand.klass)})},
  34. args: ["aModel"],
  35. source: "isValidFor: aModel\x0a\x09^ aModel isBrowserModel",
  36. messageSends: ["isBrowserModel"],
  37. referencedClasses: []
  38. }),
  39. smalltalk.HLBrowserGoToCommand.klass);
  40. smalltalk.addMethod(
  41. smalltalk.method({
  42. selector: "key",
  43. protocol: 'accessing',
  44. fn: function (){
  45. var self=this;
  46. return smalltalk.withContext(function($ctx1) {
  47. return "g";
  48. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLBrowserGoToCommand.klass)})},
  49. args: [],
  50. source: "key\x0a\x09^ 'g'",
  51. messageSends: [],
  52. referencedClasses: []
  53. }),
  54. smalltalk.HLBrowserGoToCommand.klass);
  55. smalltalk.addMethod(
  56. smalltalk.method({
  57. selector: "label",
  58. protocol: 'accessing',
  59. fn: function (){
  60. var self=this;
  61. return smalltalk.withContext(function($ctx1) {
  62. return "Go to";
  63. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLBrowserGoToCommand.klass)})},
  64. args: [],
  65. source: "label\x0a\x09^ 'Go to'",
  66. messageSends: [],
  67. referencedClasses: []
  68. }),
  69. smalltalk.HLBrowserGoToCommand.klass);
  70. smalltalk.addClass('HLGoToClassesCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
  71. smalltalk.addMethod(
  72. smalltalk.method({
  73. selector: "execute",
  74. protocol: 'executing',
  75. fn: function (){
  76. var self=this;
  77. return smalltalk.withContext(function($ctx1) {
  78. _st(self._model())._focusOnClasses();
  79. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToClassesCommand)})},
  80. args: [],
  81. source: "execute\x0a\x09self model focusOnClasses",
  82. messageSends: ["focusOnClasses", "model"],
  83. referencedClasses: []
  84. }),
  85. smalltalk.HLGoToClassesCommand);
  86. smalltalk.addMethod(
  87. smalltalk.method({
  88. selector: "key",
  89. protocol: 'accessing',
  90. fn: function (){
  91. var self=this;
  92. return smalltalk.withContext(function($ctx1) {
  93. return "c";
  94. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToClassesCommand.klass)})},
  95. args: [],
  96. source: "key\x0a\x09^ 'c'",
  97. messageSends: [],
  98. referencedClasses: []
  99. }),
  100. smalltalk.HLGoToClassesCommand.klass);
  101. smalltalk.addMethod(
  102. smalltalk.method({
  103. selector: "label",
  104. protocol: 'accessing',
  105. fn: function (){
  106. var self=this;
  107. return smalltalk.withContext(function($ctx1) {
  108. return "Classes";
  109. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToClassesCommand.klass)})},
  110. args: [],
  111. source: "label\x0a\x09^ 'Classes'",
  112. messageSends: [],
  113. referencedClasses: []
  114. }),
  115. smalltalk.HLGoToClassesCommand.klass);
  116. smalltalk.addClass('HLGoToMethodsCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
  117. smalltalk.addMethod(
  118. smalltalk.method({
  119. selector: "execute",
  120. protocol: 'executing',
  121. fn: function (){
  122. var self=this;
  123. return smalltalk.withContext(function($ctx1) {
  124. _st(self._model())._focusOnMethods();
  125. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToMethodsCommand)})},
  126. args: [],
  127. source: "execute\x0a\x09self model focusOnMethods",
  128. messageSends: ["focusOnMethods", "model"],
  129. referencedClasses: []
  130. }),
  131. smalltalk.HLGoToMethodsCommand);
  132. smalltalk.addMethod(
  133. smalltalk.method({
  134. selector: "key",
  135. protocol: 'accessing',
  136. fn: function (){
  137. var self=this;
  138. return smalltalk.withContext(function($ctx1) {
  139. return "m";
  140. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToMethodsCommand.klass)})},
  141. args: [],
  142. source: "key\x0a\x09^ 'm'",
  143. messageSends: [],
  144. referencedClasses: []
  145. }),
  146. smalltalk.HLGoToMethodsCommand.klass);
  147. smalltalk.addMethod(
  148. smalltalk.method({
  149. selector: "label",
  150. protocol: 'accessing',
  151. fn: function (){
  152. var self=this;
  153. return smalltalk.withContext(function($ctx1) {
  154. return "Methods";
  155. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToMethodsCommand.klass)})},
  156. args: [],
  157. source: "label\x0a\x09^ 'Methods'",
  158. messageSends: [],
  159. referencedClasses: []
  160. }),
  161. smalltalk.HLGoToMethodsCommand.klass);
  162. smalltalk.addClass('HLGoToPackagesCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
  163. smalltalk.addMethod(
  164. smalltalk.method({
  165. selector: "execute",
  166. protocol: 'executing',
  167. fn: function (){
  168. var self=this;
  169. return smalltalk.withContext(function($ctx1) {
  170. _st(self._model())._focusOnPackages();
  171. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToPackagesCommand)})},
  172. args: [],
  173. source: "execute\x0a\x09self model focusOnPackages",
  174. messageSends: ["focusOnPackages", "model"],
  175. referencedClasses: []
  176. }),
  177. smalltalk.HLGoToPackagesCommand);
  178. smalltalk.addMethod(
  179. smalltalk.method({
  180. selector: "key",
  181. protocol: 'accessing',
  182. fn: function (){
  183. var self=this;
  184. return smalltalk.withContext(function($ctx1) {
  185. return "p";
  186. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToPackagesCommand.klass)})},
  187. args: [],
  188. source: "key\x0a\x09^ 'p'",
  189. messageSends: [],
  190. referencedClasses: []
  191. }),
  192. smalltalk.HLGoToPackagesCommand.klass);
  193. smalltalk.addMethod(
  194. smalltalk.method({
  195. selector: "label",
  196. protocol: 'accessing',
  197. fn: function (){
  198. var self=this;
  199. return smalltalk.withContext(function($ctx1) {
  200. return "Packages";
  201. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToPackagesCommand.klass)})},
  202. args: [],
  203. source: "label\x0a\x09^ 'Packages'",
  204. messageSends: [],
  205. referencedClasses: []
  206. }),
  207. smalltalk.HLGoToPackagesCommand.klass);
  208. smalltalk.addClass('HLGoToProtocolsCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
  209. smalltalk.addMethod(
  210. smalltalk.method({
  211. selector: "execute",
  212. protocol: 'executing',
  213. fn: function (){
  214. var self=this;
  215. return smalltalk.withContext(function($ctx1) {
  216. _st(self._model())._focusOnProtocols();
  217. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToProtocolsCommand)})},
  218. args: [],
  219. source: "execute\x0a\x09self model focusOnProtocols",
  220. messageSends: ["focusOnProtocols", "model"],
  221. referencedClasses: []
  222. }),
  223. smalltalk.HLGoToProtocolsCommand);
  224. smalltalk.addMethod(
  225. smalltalk.method({
  226. selector: "key",
  227. protocol: 'accessing',
  228. fn: function (){
  229. var self=this;
  230. return smalltalk.withContext(function($ctx1) {
  231. return "t";
  232. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToProtocolsCommand.klass)})},
  233. args: [],
  234. source: "key\x0a\x09^ 't'",
  235. messageSends: [],
  236. referencedClasses: []
  237. }),
  238. smalltalk.HLGoToProtocolsCommand.klass);
  239. smalltalk.addMethod(
  240. smalltalk.method({
  241. selector: "label",
  242. protocol: 'accessing',
  243. fn: function (){
  244. var self=this;
  245. return smalltalk.withContext(function($ctx1) {
  246. return "Protocols";
  247. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToProtocolsCommand.klass)})},
  248. args: [],
  249. source: "label\x0a\x09^ 'Protocols'",
  250. messageSends: [],
  251. referencedClasses: []
  252. }),
  253. smalltalk.HLGoToProtocolsCommand.klass);
  254. smalltalk.addClass('HLGoToSourceCodeCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
  255. smalltalk.addMethod(
  256. smalltalk.method({
  257. selector: "execute",
  258. protocol: 'executing',
  259. fn: function (){
  260. var self=this;
  261. return smalltalk.withContext(function($ctx1) {
  262. _st(self._model())._focusOnSourceCode();
  263. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToSourceCodeCommand)})},
  264. args: [],
  265. source: "execute\x0a\x09self model focusOnSourceCode",
  266. messageSends: ["focusOnSourceCode", "model"],
  267. referencedClasses: []
  268. }),
  269. smalltalk.HLGoToSourceCodeCommand);
  270. smalltalk.addMethod(
  271. smalltalk.method({
  272. selector: "key",
  273. protocol: 'accessing',
  274. fn: function (){
  275. var self=this;
  276. return smalltalk.withContext(function($ctx1) {
  277. return "s";
  278. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToSourceCodeCommand.klass)})},
  279. args: [],
  280. source: "key\x0a\x09^ 's'",
  281. messageSends: [],
  282. referencedClasses: []
  283. }),
  284. smalltalk.HLGoToSourceCodeCommand.klass);
  285. smalltalk.addMethod(
  286. smalltalk.method({
  287. selector: "label",
  288. protocol: 'accessing',
  289. fn: function (){
  290. var self=this;
  291. return smalltalk.withContext(function($ctx1) {
  292. return "Source code";
  293. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToSourceCodeCommand.klass)})},
  294. args: [],
  295. source: "label\x0a\x09^ 'Source code'",
  296. messageSends: [],
  297. referencedClasses: []
  298. }),
  299. smalltalk.HLGoToSourceCodeCommand.klass);
  300. smalltalk.addClass('HLEditCommentCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
  301. smalltalk.addMethod(
  302. smalltalk.method({
  303. selector: "execute",
  304. protocol: 'executing',
  305. fn: function (){
  306. var self=this;
  307. return smalltalk.withContext(function($ctx1) {
  308. _st(self._model())._editComment();
  309. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLEditCommentCommand)})},
  310. args: [],
  311. source: "execute\x0a\x09self model editComment",
  312. messageSends: ["editComment", "model"],
  313. referencedClasses: []
  314. }),
  315. smalltalk.HLEditCommentCommand);
  316. smalltalk.addMethod(
  317. smalltalk.method({
  318. selector: "isActive",
  319. protocol: 'testing',
  320. fn: function (){
  321. var self=this;
  322. return smalltalk.withContext(function($ctx1) {
  323. var $3,$2,$1;
  324. $3=self._model();
  325. $ctx1.sendIdx["model"]=1;
  326. $2=_st($3)._showComment();
  327. $1=_st($2)._and_((function(){
  328. return smalltalk.withContext(function($ctx2) {
  329. return _st(_st(self._model())._selectedClass())._notNil();
  330. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
  331. return $1;
  332. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLEditCommentCommand)})},
  333. args: [],
  334. source: "isActive\x0a\x09^ self model showComment and: [ self model selectedClass notNil ]",
  335. messageSends: ["and:", "showComment", "model", "notNil", "selectedClass"],
  336. referencedClasses: []
  337. }),
  338. smalltalk.HLEditCommentCommand);
  339. smalltalk.addMethod(
  340. smalltalk.method({
  341. selector: "key",
  342. protocol: 'accessing',
  343. fn: function (){
  344. var self=this;
  345. return smalltalk.withContext(function($ctx1) {
  346. return "d";
  347. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLEditCommentCommand.klass)})},
  348. args: [],
  349. source: "key\x0a\x09^ 'd'",
  350. messageSends: [],
  351. referencedClasses: []
  352. }),
  353. smalltalk.HLEditCommentCommand.klass);
  354. smalltalk.addMethod(
  355. smalltalk.method({
  356. selector: "label",
  357. protocol: 'accessing',
  358. fn: function (){
  359. var self=this;
  360. return smalltalk.withContext(function($ctx1) {
  361. return "Edit documentation";
  362. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLEditCommentCommand.klass)})},
  363. args: [],
  364. source: "label\x0a\x09^ 'Edit documentation'",
  365. messageSends: [],
  366. referencedClasses: []
  367. }),
  368. smalltalk.HLEditCommentCommand.klass);
  369. smalltalk.addClass('HLGenerateCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
  370. smalltalk.HLGenerateCommand.comment="I am a group command used to gather all the commands generating code (`accessors`, `initialize`, etc)";
  371. smalltalk.addMethod(
  372. smalltalk.method({
  373. selector: "key",
  374. protocol: 'accessing',
  375. fn: function (){
  376. var self=this;
  377. return smalltalk.withContext(function($ctx1) {
  378. return "h";
  379. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGenerateCommand.klass)})},
  380. args: [],
  381. source: "key\x0a\x09^ 'h'",
  382. messageSends: [],
  383. referencedClasses: []
  384. }),
  385. smalltalk.HLGenerateCommand.klass);
  386. smalltalk.addMethod(
  387. smalltalk.method({
  388. selector: "label",
  389. protocol: 'accessing',
  390. fn: function (){
  391. var self=this;
  392. return smalltalk.withContext(function($ctx1) {
  393. return "Generate";
  394. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGenerateCommand.klass)})},
  395. args: [],
  396. source: "label\x0a\x09^ 'Generate'",
  397. messageSends: [],
  398. referencedClasses: []
  399. }),
  400. smalltalk.HLGenerateCommand.klass);
  401. smalltalk.addClass('HLGenerateAccessorsCommand', smalltalk.HLGenerateCommand, [], 'Helios-Commands-Browser');
  402. smalltalk.HLGenerateAccessorsCommand.comment="I am the command used to generate the `getter` and the `setter` methods depending of the selected class";
  403. smalltalk.addMethod(
  404. smalltalk.method({
  405. selector: "execute",
  406. protocol: 'executing',
  407. fn: function (){
  408. var self=this;
  409. var targetClass,output,first;
  410. function $HLInitializeGenerator(){return smalltalk.HLInitializeGenerator||(typeof HLInitializeGenerator=="undefined"?nil:HLInitializeGenerator)}
  411. return smalltalk.withContext(function($ctx1) {
  412. var $1,$2,$3,$4,$5;
  413. $1=self._model();
  414. $ctx1.sendIdx["model"]=1;
  415. targetClass=_st($1)._selectedClass();
  416. $2=_st($HLInitializeGenerator())._new();
  417. _st($2)._class_(targetClass);
  418. _st($2)._generate();
  419. $3=_st($2)._output();
  420. output=$3;
  421. _st(output)._compile();
  422. first=_st(_st(output)._sourceCodes())._first();
  423. $4=self._model();
  424. _st($4)._selectedProtocol_(_st(output)._protocol());
  425. _st($4)._selectedMethod_(_st(targetClass).__gt_gt(_st(first)._selector()));
  426. $5=_st($4)._focusOnSourceCode();
  427. return self}, function($ctx1) {$ctx1.fill(self,"execute",{targetClass:targetClass,output:output,first:first},smalltalk.HLGenerateAccessorsCommand)})},
  428. args: [],
  429. source: "execute\x0a\x09| targetClass output first |\x0a\x09targetClass := self model selectedClass.\x0a\x0a\x09output := HLInitializeGenerator new\x0a\x09\x09class: targetClass;\x0a\x09\x09generate;\x0a\x09\x09output.\x0a\x09\x09\x0a\x09output compile.\x0a\x09first := output sourceCodes first.\x0a\x09self model\x0a\x09\x09selectedProtocol: output protocol;\x0a\x09\x09selectedMethod:(targetClass>>first selector);\x0a\x09\x09focusOnSourceCode",
  430. messageSends: ["selectedClass", "model", "class:", "new", "generate", "output", "compile", "first", "sourceCodes", "selectedProtocol:", "protocol", "selectedMethod:", ">>", "selector", "focusOnSourceCode"],
  431. referencedClasses: ["HLInitializeGenerator"]
  432. }),
  433. smalltalk.HLGenerateAccessorsCommand);
  434. smalltalk.addMethod(
  435. smalltalk.method({
  436. selector: "key",
  437. protocol: 'accessing',
  438. fn: function (){
  439. var self=this;
  440. return smalltalk.withContext(function($ctx1) {
  441. return "i";
  442. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGenerateAccessorsCommand.klass)})},
  443. args: [],
  444. source: "key\x0a\x09^ 'i'",
  445. messageSends: [],
  446. referencedClasses: []
  447. }),
  448. smalltalk.HLGenerateAccessorsCommand.klass);
  449. smalltalk.addMethod(
  450. smalltalk.method({
  451. selector: "label",
  452. protocol: 'accessing',
  453. fn: function (){
  454. var self=this;
  455. return smalltalk.withContext(function($ctx1) {
  456. return "Initialize";
  457. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGenerateAccessorsCommand.klass)})},
  458. args: [],
  459. source: "label\x0a\x09^ 'Initialize'",
  460. messageSends: [],
  461. referencedClasses: []
  462. }),
  463. smalltalk.HLGenerateAccessorsCommand.klass);
  464. smalltalk.addClass('HLGenerateInitializeCommand', smalltalk.HLGenerateCommand, [], 'Helios-Commands-Browser');
  465. smalltalk.HLGenerateInitializeCommand.comment="I am the command used to generate the `initialize` method depending of the selected class";
  466. smalltalk.addMethod(
  467. smalltalk.method({
  468. selector: "execute",
  469. protocol: 'executing',
  470. fn: function (){
  471. var self=this;
  472. var targetClass,output;
  473. function $HLAccessorsGenerator(){return smalltalk.HLAccessorsGenerator||(typeof HLAccessorsGenerator=="undefined"?nil:HLAccessorsGenerator)}
  474. return smalltalk.withContext(function($ctx1) {
  475. var $1,$2,$3;
  476. $1=self._model();
  477. $ctx1.sendIdx["model"]=1;
  478. targetClass=_st($1)._selectedClass();
  479. $2=_st($HLAccessorsGenerator())._new();
  480. _st($2)._class_(targetClass);
  481. _st($2)._generate();
  482. $3=_st($2)._output();
  483. output=$3;
  484. _st(output)._compile();
  485. _st(self._model())._selectedProtocol_(_st(output)._protocol());
  486. return self}, function($ctx1) {$ctx1.fill(self,"execute",{targetClass:targetClass,output:output},smalltalk.HLGenerateInitializeCommand)})},
  487. args: [],
  488. source: "execute\x0a\x09| targetClass output |\x0a\x09targetClass := self model selectedClass.\x0a\x0a\x09output := HLAccessorsGenerator new\x0a\x09\x09class: targetClass;\x0a\x09\x09generate;\x0a\x09\x09output.\x0a\x09\x09\x0a\x09output compile.\x0a\x09self model selectedProtocol: output protocol",
  489. messageSends: ["selectedClass", "model", "class:", "new", "generate", "output", "compile", "selectedProtocol:", "protocol"],
  490. referencedClasses: ["HLAccessorsGenerator"]
  491. }),
  492. smalltalk.HLGenerateInitializeCommand);
  493. smalltalk.addMethod(
  494. smalltalk.method({
  495. selector: "key",
  496. protocol: 'accessing',
  497. fn: function (){
  498. var self=this;
  499. return smalltalk.withContext(function($ctx1) {
  500. return "a";
  501. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGenerateInitializeCommand.klass)})},
  502. args: [],
  503. source: "key\x0a\x09^ 'a'",
  504. messageSends: [],
  505. referencedClasses: []
  506. }),
  507. smalltalk.HLGenerateInitializeCommand.klass);
  508. smalltalk.addMethod(
  509. smalltalk.method({
  510. selector: "label",
  511. protocol: 'accessing',
  512. fn: function (){
  513. var self=this;
  514. return smalltalk.withContext(function($ctx1) {
  515. return "Accessors";
  516. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGenerateInitializeCommand.klass)})},
  517. args: [],
  518. source: "label\x0a\x09^ 'Accessors'",
  519. messageSends: [],
  520. referencedClasses: []
  521. }),
  522. smalltalk.HLGenerateInitializeCommand.klass);
  523. smalltalk.addClass('HLToggleCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
  524. smalltalk.addMethod(
  525. smalltalk.method({
  526. selector: "key",
  527. protocol: 'accessing',
  528. fn: function (){
  529. var self=this;
  530. return smalltalk.withContext(function($ctx1) {
  531. return "t";
  532. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleCommand.klass)})},
  533. args: [],
  534. source: "key\x0a\x09^ 't'",
  535. messageSends: [],
  536. referencedClasses: []
  537. }),
  538. smalltalk.HLToggleCommand.klass);
  539. smalltalk.addMethod(
  540. smalltalk.method({
  541. selector: "label",
  542. protocol: 'accessing',
  543. fn: function (){
  544. var self=this;
  545. return smalltalk.withContext(function($ctx1) {
  546. return "Toggle";
  547. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleCommand.klass)})},
  548. args: [],
  549. source: "label\x0a\x09^ 'Toggle'",
  550. messageSends: [],
  551. referencedClasses: []
  552. }),
  553. smalltalk.HLToggleCommand.klass);
  554. smalltalk.addClass('HLToggleClassCommentCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Browser');
  555. smalltalk.addMethod(
  556. smalltalk.method({
  557. selector: "execute",
  558. protocol: 'executing',
  559. fn: function (){
  560. var self=this;
  561. return smalltalk.withContext(function($ctx1) {
  562. var $1;
  563. $1=self._model();
  564. $ctx1.sendIdx["model"]=1;
  565. _st($1)._showComment_(_st(_st(self._model())._showComment())._not());
  566. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleClassCommentCommand)})},
  567. args: [],
  568. source: "execute\x0a\x09self model showComment: self model showComment not",
  569. messageSends: ["showComment:", "model", "not", "showComment"],
  570. referencedClasses: []
  571. }),
  572. smalltalk.HLToggleClassCommentCommand);
  573. smalltalk.addMethod(
  574. smalltalk.method({
  575. selector: "key",
  576. protocol: 'accessing',
  577. fn: function (){
  578. var self=this;
  579. return smalltalk.withContext(function($ctx1) {
  580. return "d";
  581. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleClassCommentCommand.klass)})},
  582. args: [],
  583. source: "key\x0a\x09^ 'd'",
  584. messageSends: [],
  585. referencedClasses: []
  586. }),
  587. smalltalk.HLToggleClassCommentCommand.klass);
  588. smalltalk.addMethod(
  589. smalltalk.method({
  590. selector: "label",
  591. protocol: 'accessing',
  592. fn: function (){
  593. var self=this;
  594. return smalltalk.withContext(function($ctx1) {
  595. return "Documentation";
  596. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleClassCommentCommand.klass)})},
  597. args: [],
  598. source: "label\x0a\x09^ 'Documentation'",
  599. messageSends: [],
  600. referencedClasses: []
  601. }),
  602. smalltalk.HLToggleClassCommentCommand.klass);
  603. smalltalk.addClass('HLToggleClassSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Browser');
  604. smalltalk.addMethod(
  605. smalltalk.method({
  606. selector: "execute",
  607. protocol: 'executing',
  608. fn: function (){
  609. var self=this;
  610. return smalltalk.withContext(function($ctx1) {
  611. _st(self._model())._showInstance_(false);
  612. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleClassSideCommand)})},
  613. args: [],
  614. source: "execute\x0a\x09self model showInstance: false",
  615. messageSends: ["showInstance:", "model"],
  616. referencedClasses: []
  617. }),
  618. smalltalk.HLToggleClassSideCommand);
  619. smalltalk.addMethod(
  620. smalltalk.method({
  621. selector: "key",
  622. protocol: 'accessing',
  623. fn: function (){
  624. var self=this;
  625. return smalltalk.withContext(function($ctx1) {
  626. return "c";
  627. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleClassSideCommand.klass)})},
  628. args: [],
  629. source: "key\x0a\x09^ 'c'",
  630. messageSends: [],
  631. referencedClasses: []
  632. }),
  633. smalltalk.HLToggleClassSideCommand.klass);
  634. smalltalk.addMethod(
  635. smalltalk.method({
  636. selector: "label",
  637. protocol: 'accessing',
  638. fn: function (){
  639. var self=this;
  640. return smalltalk.withContext(function($ctx1) {
  641. return "Class side";
  642. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleClassSideCommand.klass)})},
  643. args: [],
  644. source: "label\x0a\x09^ 'Class side'",
  645. messageSends: [],
  646. referencedClasses: []
  647. }),
  648. smalltalk.HLToggleClassSideCommand.klass);
  649. smalltalk.addClass('HLToggleInstanceSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Browser');
  650. smalltalk.addMethod(
  651. smalltalk.method({
  652. selector: "execute",
  653. protocol: 'executing',
  654. fn: function (){
  655. var self=this;
  656. return smalltalk.withContext(function($ctx1) {
  657. _st(self._model())._showInstance_(true);
  658. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleInstanceSideCommand)})},
  659. args: [],
  660. source: "execute\x0a\x09self model showInstance: true",
  661. messageSends: ["showInstance:", "model"],
  662. referencedClasses: []
  663. }),
  664. smalltalk.HLToggleInstanceSideCommand);
  665. smalltalk.addMethod(
  666. smalltalk.method({
  667. selector: "key",
  668. protocol: 'accessing',
  669. fn: function (){
  670. var self=this;
  671. return smalltalk.withContext(function($ctx1) {
  672. return "i";
  673. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleInstanceSideCommand.klass)})},
  674. args: [],
  675. source: "key\x0a\x09^ 'i'",
  676. messageSends: [],
  677. referencedClasses: []
  678. }),
  679. smalltalk.HLToggleInstanceSideCommand.klass);
  680. smalltalk.addMethod(
  681. smalltalk.method({
  682. selector: "label",
  683. protocol: 'accessing',
  684. fn: function (){
  685. var self=this;
  686. return smalltalk.withContext(function($ctx1) {
  687. return "Instance side";
  688. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleInstanceSideCommand.klass)})},
  689. args: [],
  690. source: "label\x0a\x09^ 'Instance side'",
  691. messageSends: [],
  692. referencedClasses: []
  693. }),
  694. smalltalk.HLToggleInstanceSideCommand.klass);
  695. });