2
0

Helios-Commands.deploy.js 27 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922
  1. smalltalk.addPackage('Helios-Commands');
  2. smalltalk.addClass('HLCommand', smalltalk.Object, [], 'Helios-Commands');
  3. smalltalk.addMethod(
  4. "_asActionBinding",
  5. smalltalk.method({
  6. selector: "asActionBinding",
  7. fn: function (){
  8. var self=this;
  9. return smalltalk.withContext(function($ctx1) { var $1;
  10. $1=_st(_st((smalltalk.HLBindingAction || HLBindingAction))._on_labelled_(_st(self)._key(),_st(self)._label()))._callback_((function(){
  11. return smalltalk.withContext(function($ctx2) { return _st(self)._execute();
  12. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  13. return $1;
  14. }, function($ctx1) {$ctx1.fill(self,"asActionBinding",{},smalltalk.HLCommand)})},
  15. messageSends: ["callback:", "execute", "on:labelled:", "key", "label"]}),
  16. smalltalk.HLCommand);
  17. smalltalk.addMethod(
  18. "_asBinding",
  19. smalltalk.method({
  20. selector: "asBinding",
  21. fn: function (){
  22. var self=this;
  23. return smalltalk.withContext(function($ctx1) { var $2,$1;
  24. $2=_st(self)._isBindingGroup();
  25. if(smalltalk.assert($2)){
  26. $1=_st(self)._asGroupBinding();
  27. } else {
  28. $1=_st(self)._asActionBinding();
  29. };
  30. return $1;
  31. }, function($ctx1) {$ctx1.fill(self,"asBinding",{},smalltalk.HLCommand)})},
  32. messageSends: ["ifTrue:ifFalse:", "asGroupBinding", "asActionBinding", "isBindingGroup"]}),
  33. smalltalk.HLCommand);
  34. smalltalk.addMethod(
  35. "_asGroupBinding",
  36. smalltalk.method({
  37. selector: "asGroupBinding",
  38. fn: function (){
  39. var self=this;
  40. return smalltalk.withContext(function($ctx1) { var $1;
  41. $1=_st((smalltalk.HLBindingGroup || HLBindingGroup))._on_labelled_(_st(self)._key(),_st(self)._label());
  42. return $1;
  43. }, function($ctx1) {$ctx1.fill(self,"asGroupBinding",{},smalltalk.HLCommand)})},
  44. messageSends: ["on:labelled:", "key", "label"]}),
  45. smalltalk.HLCommand);
  46. smalltalk.addMethod(
  47. "_documentation",
  48. smalltalk.method({
  49. selector: "documentation",
  50. fn: function (){
  51. var self=this;
  52. return smalltalk.withContext(function($ctx1) { var $1;
  53. $1=_st(_st(self)._class())._documentation();
  54. return $1;
  55. }, function($ctx1) {$ctx1.fill(self,"documentation",{}, smalltalk.HLCommand)})},
  56. messageSends: ["documentation", "class"]}),
  57. smalltalk.HLCommand);
  58. smalltalk.addMethod(
  59. "_execute",
  60. smalltalk.method({
  61. selector: "execute",
  62. fn: function (){
  63. var self=this;
  64. return smalltalk.withContext(function($ctx1) { return self}, function($ctx1) {$ctx1.fill(self,"execute",{}, smalltalk.HLCommand)})},
  65. messageSends: []}),
  66. smalltalk.HLCommand);
  67. smalltalk.addMethod(
  68. "_isBindingGroup",
  69. smalltalk.method({
  70. selector: "isBindingGroup",
  71. fn: function (){
  72. var self=this;
  73. return smalltalk.withContext(function($ctx1) { var $1;
  74. $1=_st(_st(_st(_st(self)._class())._methodDictionary())._includesKey_("execute"))._not();
  75. return $1;
  76. }, function($ctx1) {$ctx1.fill(self,"isBindingGroup",{},smalltalk.HLCommand)})},
  77. messageSends: ["not", "includesKey:", "methodDictionary", "class"]}),
  78. smalltalk.HLCommand);
  79. smalltalk.addMethod(
  80. "_key",
  81. smalltalk.method({
  82. selector: "key",
  83. fn: function (){
  84. var self=this;
  85. return smalltalk.withContext(function($ctx1) { var $1;
  86. $1=_st(_st(self)._class())._key();
  87. return $1;
  88. }, function($ctx1) {$ctx1.fill(self,"key",{}, smalltalk.HLCommand)})},
  89. messageSends: ["key", "class"]}),
  90. smalltalk.HLCommand);
  91. smalltalk.addMethod(
  92. "_label",
  93. smalltalk.method({
  94. selector: "label",
  95. fn: function (){
  96. var self=this;
  97. return smalltalk.withContext(function($ctx1) { var $1;
  98. $1=_st(_st(self)._class())._label();
  99. return $1;
  100. }, function($ctx1) {$ctx1.fill(self,"label",{}, smalltalk.HLCommand)})},
  101. messageSends: ["label", "class"]}),
  102. smalltalk.HLCommand);
  103. smalltalk.addMethod(
  104. "_registerOn_",
  105. smalltalk.method({
  106. selector: "registerOn:",
  107. fn: function (aBinding){
  108. var self=this;
  109. return smalltalk.withContext(function($ctx1) { var $1;
  110. $1=_st(aBinding)._add_(_st(self)._asBinding());
  111. return $1;
  112. }, function($ctx1) {$ctx1.fill(self,"registerOn:",{aBinding:aBinding},smalltalk.HLCommand)})},
  113. messageSends: ["add:", "asBinding"]}),
  114. smalltalk.HLCommand);
  115. smalltalk.addMethod(
  116. "_concreteSubclasses",
  117. smalltalk.method({
  118. selector: "concreteSubclasses",
  119. fn: function (){
  120. var self=this;
  121. return smalltalk.withContext(function($ctx1) { var $1;
  122. $1=_st(_st(self)._subclasses())._select_((function(each){
  123. return smalltalk.withContext(function($ctx2) { return _st(each)._isConcrete();
  124. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
  125. return $1;
  126. }, function($ctx1) {$ctx1.fill(self,"concreteSubclasses",{},smalltalk.HLCommand.klass)})},
  127. messageSends: ["select:", "isConcrete", "subclasses"]}),
  128. smalltalk.HLCommand.klass);
  129. smalltalk.addMethod(
  130. "_documentation",
  131. smalltalk.method({
  132. selector: "documentation",
  133. fn: function (){
  134. var self=this;
  135. return smalltalk.withContext(function($ctx1) { return "";
  136. }, function($ctx1) {$ctx1.fill(self,"documentation",{}, smalltalk.HLCommand.klass)})},
  137. messageSends: []}),
  138. smalltalk.HLCommand.klass);
  139. smalltalk.addMethod(
  140. "_isConcrete",
  141. smalltalk.method({
  142. selector: "isConcrete",
  143. fn: function (){
  144. var self=this;
  145. return smalltalk.withContext(function($ctx1) { var $1;
  146. $1=_st(_st(self)._key())._notNil();
  147. return $1;
  148. }, function($ctx1) {$ctx1.fill(self,"isConcrete",{},smalltalk.HLCommand.klass)})},
  149. messageSends: ["notNil", "key"]}),
  150. smalltalk.HLCommand.klass);
  151. smalltalk.addMethod(
  152. "_key",
  153. smalltalk.method({
  154. selector: "key",
  155. fn: function (){
  156. var self=this;
  157. return smalltalk.withContext(function($ctx1) { return nil;
  158. }, function($ctx1) {$ctx1.fill(self,"key",{}, smalltalk.HLCommand.klass)})},
  159. messageSends: []}),
  160. smalltalk.HLCommand.klass);
  161. smalltalk.addMethod(
  162. "_label",
  163. smalltalk.method({
  164. selector: "label",
  165. fn: function (){
  166. var self=this;
  167. return smalltalk.withContext(function($ctx1) { return "";
  168. }, function($ctx1) {$ctx1.fill(self,"label",{}, smalltalk.HLCommand.klass)})},
  169. messageSends: []}),
  170. smalltalk.HLCommand.klass);
  171. smalltalk.addMethod(
  172. "_registerConcreteClassesOn_",
  173. smalltalk.method({
  174. selector: "registerConcreteClassesOn:",
  175. fn: function (aBinding){
  176. var self=this;
  177. return smalltalk.withContext(function($ctx1) { var $1;
  178. _st(_st(self)._concreteSubclasses())._do_((function(each){
  179. var binding;
  180. return smalltalk.withContext(function($ctx2) { binding=_st(each)._registerOn_(aBinding);
  181. binding;
  182. $1=_st(binding)._isBindingGroup();
  183. if(smalltalk.assert($1)){
  184. return _st(each)._registerConcreteClassesOn_(binding);
  185. };
  186. }, function($ctx2) {$ctx2.fillBlock({each:each,binding:binding},$ctx1)})}));
  187. return self}, function($ctx1) {$ctx1.fill(self,"registerConcreteClassesOn:",{aBinding:aBinding},smalltalk.HLCommand.klass)})},
  188. messageSends: ["do:", "registerOn:", "ifTrue:", "registerConcreteClassesOn:", "isBindingGroup", "concreteSubclasses"]}),
  189. smalltalk.HLCommand.klass);
  190. smalltalk.addMethod(
  191. "_registerOn_",
  192. smalltalk.method({
  193. selector: "registerOn:",
  194. fn: function (aBinding){
  195. var self=this;
  196. return smalltalk.withContext(function($ctx1) { var $1;
  197. $1=_st(_st(self)._new())._registerOn_(aBinding);
  198. return $1;
  199. }, function($ctx1) {$ctx1.fill(self,"registerOn:",{aBinding:aBinding},smalltalk.HLCommand.klass)})},
  200. messageSends: ["registerOn:", "new"]}),
  201. smalltalk.HLCommand.klass);
  202. smalltalk.addClass('HLCloseTabCommand', smalltalk.HLCommand, [], 'Helios-Commands');
  203. smalltalk.addMethod(
  204. "_execute",
  205. smalltalk.method({
  206. selector: "execute",
  207. fn: function (){
  208. var self=this;
  209. return smalltalk.withContext(function($ctx1) { _st(_st((smalltalk.HLManager || HLManager))._current())._removeActiveTab();
  210. return self}, function($ctx1) {$ctx1.fill(self,"execute",{}, smalltalk.HLCloseTabCommand)})},
  211. messageSends: ["removeActiveTab", "current"]}),
  212. smalltalk.HLCloseTabCommand);
  213. smalltalk.addMethod(
  214. "_key",
  215. smalltalk.method({
  216. selector: "key",
  217. fn: function (){
  218. var self=this;
  219. return smalltalk.withContext(function($ctx1) { return (87);
  220. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCloseTabCommand.klass)})},
  221. messageSends: []}),
  222. smalltalk.HLCloseTabCommand.klass);
  223. smalltalk.addMethod(
  224. "_label",
  225. smalltalk.method({
  226. selector: "label",
  227. fn: function (){
  228. var self=this;
  229. return smalltalk.withContext(function($ctx1) { return "Close tab";
  230. }, function($ctx1) {$ctx1.fill(self,"label",{}, smalltalk.HLCloseTabCommand.klass)})},
  231. messageSends: []}),
  232. smalltalk.HLCloseTabCommand.klass);
  233. smalltalk.addClass('HLModelCommand', smalltalk.HLCommand, ['model'], 'Helios-Commands');
  234. smalltalk.addMethod(
  235. "_model",
  236. smalltalk.method({
  237. selector: "model",
  238. fn: function (){
  239. var self=this;
  240. return smalltalk.withContext(function($ctx1) { var $1;
  241. $1=self["@model"];
  242. return $1;
  243. }, function($ctx1) {$ctx1.fill(self,"model",{},smalltalk.HLModelCommand)})},
  244. messageSends: []}),
  245. smalltalk.HLModelCommand);
  246. smalltalk.addMethod(
  247. "_model_",
  248. smalltalk.method({
  249. selector: "model:",
  250. fn: function (aModel){
  251. var self=this;
  252. return smalltalk.withContext(function($ctx1) { self["@model"]=aModel;
  253. return self}, function($ctx1) {$ctx1.fill(self,"model:",{aModel:aModel},smalltalk.HLModelCommand)})},
  254. messageSends: []}),
  255. smalltalk.HLModelCommand);
  256. smalltalk.addMethod(
  257. "_for_",
  258. smalltalk.method({
  259. selector: "for:",
  260. fn: function (aModel){
  261. var self=this;
  262. return smalltalk.withContext(function($ctx1) { var $1;
  263. $1=_st(self)._new();
  264. return $1;
  265. }, function($ctx1) {$ctx1.fill(self,"for:",{aModel:aModel},smalltalk.HLModelCommand.klass)})},
  266. messageSends: ["new"]}),
  267. smalltalk.HLModelCommand.klass);
  268. smalltalk.addMethod(
  269. "_registerConcreteClassesOn_for_",
  270. smalltalk.method({
  271. selector: "registerConcreteClassesOn:for:",
  272. fn: function (aBinding,aModel){
  273. var self=this;
  274. return smalltalk.withContext(function($ctx1) { var $1;
  275. _st(_st(self)._concreteSubclasses())._do_((function(each){
  276. var binding;
  277. return smalltalk.withContext(function($ctx2) { binding=_st(each)._registerOn_for_(aBinding,aModel);
  278. binding;
  279. $1=_st(binding)._isBindingGroup();
  280. if(smalltalk.assert($1)){
  281. return _st(each)._registerConcreteClassesOn_for_(binding,aModel);
  282. };
  283. }, function($ctx2) {$ctx2.fillBlock({each:each,binding:binding},$ctx1)})}));
  284. return self}, function($ctx1) {$ctx1.fill(self,"registerConcreteClassesOn:for:",{aBinding:aBinding,aModel:aModel},smalltalk.HLModelCommand.klass)})},
  285. messageSends: ["do:", "registerOn:for:", "ifTrue:", "registerConcreteClassesOn:for:", "isBindingGroup", "concreteSubclasses"]}),
  286. smalltalk.HLModelCommand.klass);
  287. smalltalk.addMethod(
  288. "_registerOn_for_",
  289. smalltalk.method({
  290. selector: "registerOn:for:",
  291. fn: function (aBinding,aModel){
  292. var self=this;
  293. return smalltalk.withContext(function($ctx1) { var $1;
  294. $1=_st(_st(self)._for_(aModel))._registerOn_(aBinding);
  295. return $1;
  296. }, function($ctx1) {$ctx1.fill(self,"registerOn:for:",{aBinding:aBinding,aModel:aModel},smalltalk.HLModelCommand.klass)})},
  297. messageSends: ["registerOn:", "for:"]}),
  298. smalltalk.HLModelCommand.klass);
  299. smalltalk.addClass('HLBrowserCommand', smalltalk.HLModelCommand, [], 'Helios-Commands');
  300. smalltalk.addMethod(
  301. "_for_",
  302. smalltalk.method({
  303. selector: "for:",
  304. fn: function (aBrowserModel){
  305. var self=this;
  306. return smalltalk.withContext(function($ctx1) { var $2,$3,$1;
  307. $2=_st(self)._new();
  308. _st($2)._model_(aBrowserModel);
  309. $3=_st($2)._yourself();
  310. $1=$3;
  311. return $1;
  312. }, function($ctx1) {$ctx1.fill(self,"for:",{aBrowserModel:aBrowserModel},smalltalk.HLBrowserCommand.klass)})},
  313. messageSends: ["model:", "new", "yourself"]}),
  314. smalltalk.HLBrowserCommand.klass);
  315. smalltalk.addClass('HLGoToCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands');
  316. smalltalk.addMethod(
  317. "_key",
  318. smalltalk.method({
  319. selector: "key",
  320. fn: function (){
  321. var self=this;
  322. return smalltalk.withContext(function($ctx1) { return (71);
  323. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToCommand.klass)})},
  324. messageSends: []}),
  325. smalltalk.HLGoToCommand.klass);
  326. smalltalk.addMethod(
  327. "_label",
  328. smalltalk.method({
  329. selector: "label",
  330. fn: function (){
  331. var self=this;
  332. return smalltalk.withContext(function($ctx1) { return "Go to";
  333. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToCommand.klass)})},
  334. messageSends: []}),
  335. smalltalk.HLGoToCommand.klass);
  336. smalltalk.addClass('HLGoToClassesCommand', smalltalk.HLGoToCommand, [], 'Helios-Commands');
  337. smalltalk.addMethod(
  338. "_execute",
  339. smalltalk.method({
  340. selector: "execute",
  341. fn: function (){
  342. var self=this;
  343. return smalltalk.withContext(function($ctx1) { _st(_st(self)._model())._focusOnClasses();
  344. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToClassesCommand)})},
  345. messageSends: ["focusOnClasses", "model"]}),
  346. smalltalk.HLGoToClassesCommand);
  347. smalltalk.addMethod(
  348. "_key",
  349. smalltalk.method({
  350. selector: "key",
  351. fn: function (){
  352. var self=this;
  353. return smalltalk.withContext(function($ctx1) { return (67);
  354. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToClassesCommand.klass)})},
  355. messageSends: []}),
  356. smalltalk.HLGoToClassesCommand.klass);
  357. smalltalk.addMethod(
  358. "_label",
  359. smalltalk.method({
  360. selector: "label",
  361. fn: function (){
  362. var self=this;
  363. return smalltalk.withContext(function($ctx1) { return "Classes";
  364. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToClassesCommand.klass)})},
  365. messageSends: []}),
  366. smalltalk.HLGoToClassesCommand.klass);
  367. smalltalk.addClass('HLGoToMethodsCommand', smalltalk.HLGoToCommand, [], 'Helios-Commands');
  368. smalltalk.addMethod(
  369. "_execute",
  370. smalltalk.method({
  371. selector: "execute",
  372. fn: function (){
  373. var self=this;
  374. return smalltalk.withContext(function($ctx1) { _st(_st(self)._model())._focusOnMethods();
  375. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToMethodsCommand)})},
  376. messageSends: ["focusOnMethods", "model"]}),
  377. smalltalk.HLGoToMethodsCommand);
  378. smalltalk.addMethod(
  379. "_key",
  380. smalltalk.method({
  381. selector: "key",
  382. fn: function (){
  383. var self=this;
  384. return smalltalk.withContext(function($ctx1) { return (77);
  385. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToMethodsCommand.klass)})},
  386. messageSends: []}),
  387. smalltalk.HLGoToMethodsCommand.klass);
  388. smalltalk.addMethod(
  389. "_label",
  390. smalltalk.method({
  391. selector: "label",
  392. fn: function (){
  393. var self=this;
  394. return smalltalk.withContext(function($ctx1) { return "Methods";
  395. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToMethodsCommand.klass)})},
  396. messageSends: []}),
  397. smalltalk.HLGoToMethodsCommand.klass);
  398. smalltalk.addClass('HLGoToPackagesCommand', smalltalk.HLGoToCommand, [], 'Helios-Commands');
  399. smalltalk.addMethod(
  400. "_execute",
  401. smalltalk.method({
  402. selector: "execute",
  403. fn: function (){
  404. var self=this;
  405. return smalltalk.withContext(function($ctx1) { _st(_st(self)._model())._focusOnPackages();
  406. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToPackagesCommand)})},
  407. messageSends: ["focusOnPackages", "model"]}),
  408. smalltalk.HLGoToPackagesCommand);
  409. smalltalk.addMethod(
  410. "_key",
  411. smalltalk.method({
  412. selector: "key",
  413. fn: function (){
  414. var self=this;
  415. return smalltalk.withContext(function($ctx1) { return (80);
  416. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToPackagesCommand.klass)})},
  417. messageSends: []}),
  418. smalltalk.HLGoToPackagesCommand.klass);
  419. smalltalk.addMethod(
  420. "_label",
  421. smalltalk.method({
  422. selector: "label",
  423. fn: function (){
  424. var self=this;
  425. return smalltalk.withContext(function($ctx1) { return "Packages";
  426. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToPackagesCommand.klass)})},
  427. messageSends: []}),
  428. smalltalk.HLGoToPackagesCommand.klass);
  429. smalltalk.addClass('HLGoToProtocolsCommand', smalltalk.HLGoToCommand, [], 'Helios-Commands');
  430. smalltalk.addMethod(
  431. "_execute",
  432. smalltalk.method({
  433. selector: "execute",
  434. fn: function (){
  435. var self=this;
  436. return smalltalk.withContext(function($ctx1) { _st(_st(self)._model())._focusOnProtocols();
  437. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToProtocolsCommand)})},
  438. messageSends: ["focusOnProtocols", "model"]}),
  439. smalltalk.HLGoToProtocolsCommand);
  440. smalltalk.addMethod(
  441. "_key",
  442. smalltalk.method({
  443. selector: "key",
  444. fn: function (){
  445. var self=this;
  446. return smalltalk.withContext(function($ctx1) { return (84);
  447. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToProtocolsCommand.klass)})},
  448. messageSends: []}),
  449. smalltalk.HLGoToProtocolsCommand.klass);
  450. smalltalk.addMethod(
  451. "_label",
  452. smalltalk.method({
  453. selector: "label",
  454. fn: function (){
  455. var self=this;
  456. return smalltalk.withContext(function($ctx1) { return "Protocols";
  457. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToProtocolsCommand.klass)})},
  458. messageSends: []}),
  459. smalltalk.HLGoToProtocolsCommand.klass);
  460. smalltalk.addClass('HLGoToSourceCodeCommand', smalltalk.HLGoToCommand, [], 'Helios-Commands');
  461. smalltalk.addMethod(
  462. "_execute",
  463. smalltalk.method({
  464. selector: "execute",
  465. fn: function (){
  466. var self=this;
  467. return smalltalk.withContext(function($ctx1) { _st(_st(self)._model())._focusOnSourceCode();
  468. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToSourceCodeCommand)})},
  469. messageSends: ["focusOnSourceCode", "model"]}),
  470. smalltalk.HLGoToSourceCodeCommand);
  471. smalltalk.addMethod(
  472. "_key",
  473. smalltalk.method({
  474. selector: "key",
  475. fn: function (){
  476. var self=this;
  477. return smalltalk.withContext(function($ctx1) { return (83);
  478. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToSourceCodeCommand.klass)})},
  479. messageSends: []}),
  480. smalltalk.HLGoToSourceCodeCommand.klass);
  481. smalltalk.addMethod(
  482. "_label",
  483. smalltalk.method({
  484. selector: "label",
  485. fn: function (){
  486. var self=this;
  487. return smalltalk.withContext(function($ctx1) { return "Source code";
  488. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToSourceCodeCommand.klass)})},
  489. messageSends: []}),
  490. smalltalk.HLGoToSourceCodeCommand.klass);
  491. smalltalk.addClass('HLMoveToCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands');
  492. smalltalk.addMethod(
  493. "_key",
  494. smalltalk.method({
  495. selector: "key",
  496. fn: function (){
  497. var self=this;
  498. return smalltalk.withContext(function($ctx1) { return (77);
  499. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveToCommand.klass)})},
  500. messageSends: []}),
  501. smalltalk.HLMoveToCommand.klass);
  502. smalltalk.addMethod(
  503. "_label",
  504. smalltalk.method({
  505. selector: "label",
  506. fn: function (){
  507. var self=this;
  508. return smalltalk.withContext(function($ctx1) { return "Move";
  509. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveToCommand.klass)})},
  510. messageSends: []}),
  511. smalltalk.HLMoveToCommand.klass);
  512. smalltalk.addClass('HLMoveMethodToCommand', smalltalk.HLMoveToCommand, [], 'Helios-Commands');
  513. smalltalk.addMethod(
  514. "_key",
  515. smalltalk.method({
  516. selector: "key",
  517. fn: function (){
  518. var self=this;
  519. return smalltalk.withContext(function($ctx1) { return (77);
  520. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToCommand.klass)})},
  521. messageSends: []}),
  522. smalltalk.HLMoveMethodToCommand.klass);
  523. smalltalk.addMethod(
  524. "_label",
  525. smalltalk.method({
  526. selector: "label",
  527. fn: function (){
  528. var self=this;
  529. return smalltalk.withContext(function($ctx1) { return "Method";
  530. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToCommand.klass)})},
  531. messageSends: []}),
  532. smalltalk.HLMoveMethodToCommand.klass);
  533. smalltalk.addClass('HLMoveMethodToClassCommand', smalltalk.HLMoveMethodToCommand, [], 'Helios-Commands');
  534. smalltalk.addMethod(
  535. "_execute",
  536. smalltalk.method({
  537. selector: "execute",
  538. fn: function (){
  539. var self=this;
  540. return smalltalk.withContext(function($ctx1) { return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLMoveMethodToClassCommand)})},
  541. messageSends: []}),
  542. smalltalk.HLMoveMethodToClassCommand);
  543. smalltalk.addMethod(
  544. "_key",
  545. smalltalk.method({
  546. selector: "key",
  547. fn: function (){
  548. var self=this;
  549. return smalltalk.withContext(function($ctx1) { return (67);
  550. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToClassCommand.klass)})},
  551. messageSends: []}),
  552. smalltalk.HLMoveMethodToClassCommand.klass);
  553. smalltalk.addMethod(
  554. "_label",
  555. smalltalk.method({
  556. selector: "label",
  557. fn: function (){
  558. var self=this;
  559. return smalltalk.withContext(function($ctx1) { return "to class";
  560. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToClassCommand.klass)})},
  561. messageSends: []}),
  562. smalltalk.HLMoveMethodToClassCommand.klass);
  563. smalltalk.addClass('HLMoveMethodToProtocolCommand', smalltalk.HLMoveMethodToCommand, [], 'Helios-Commands');
  564. smalltalk.addMethod(
  565. "_execute",
  566. smalltalk.method({
  567. selector: "execute",
  568. fn: function (){
  569. var self=this;
  570. return smalltalk.withContext(function($ctx1) { return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLMoveMethodToProtocolCommand)})},
  571. messageSends: []}),
  572. smalltalk.HLMoveMethodToProtocolCommand);
  573. smalltalk.addMethod(
  574. "_key",
  575. smalltalk.method({
  576. selector: "key",
  577. fn: function (){
  578. var self=this;
  579. return smalltalk.withContext(function($ctx1) { return (84);
  580. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})},
  581. messageSends: []}),
  582. smalltalk.HLMoveMethodToProtocolCommand.klass);
  583. smalltalk.addMethod(
  584. "_label",
  585. smalltalk.method({
  586. selector: "label",
  587. fn: function (){
  588. var self=this;
  589. return smalltalk.withContext(function($ctx1) { return "to protocol";
  590. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})},
  591. messageSends: []}),
  592. smalltalk.HLMoveMethodToProtocolCommand.klass);
  593. smalltalk.addClass('HLToggleCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands');
  594. smalltalk.addMethod(
  595. "_key",
  596. smalltalk.method({
  597. selector: "key",
  598. fn: function (){
  599. var self=this;
  600. return smalltalk.withContext(function($ctx1) { return (84);
  601. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleCommand.klass)})},
  602. messageSends: []}),
  603. smalltalk.HLToggleCommand.klass);
  604. smalltalk.addMethod(
  605. "_label",
  606. smalltalk.method({
  607. selector: "label",
  608. fn: function (){
  609. var self=this;
  610. return smalltalk.withContext(function($ctx1) { return "Toggle";
  611. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleCommand.klass)})},
  612. messageSends: []}),
  613. smalltalk.HLToggleCommand.klass);
  614. smalltalk.addClass('HLToggleClassSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands');
  615. smalltalk.addMethod(
  616. "_execute",
  617. smalltalk.method({
  618. selector: "execute",
  619. fn: function (){
  620. var self=this;
  621. return smalltalk.withContext(function($ctx1) { _st(_st(self)._model())._showInstance_(false);
  622. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleClassSideCommand)})},
  623. messageSends: ["showInstance:", "model"]}),
  624. smalltalk.HLToggleClassSideCommand);
  625. smalltalk.addMethod(
  626. "_key",
  627. smalltalk.method({
  628. selector: "key",
  629. fn: function (){
  630. var self=this;
  631. return smalltalk.withContext(function($ctx1) { return (67);
  632. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleClassSideCommand.klass)})},
  633. messageSends: []}),
  634. smalltalk.HLToggleClassSideCommand.klass);
  635. smalltalk.addMethod(
  636. "_label",
  637. smalltalk.method({
  638. selector: "label",
  639. fn: function (){
  640. var self=this;
  641. return smalltalk.withContext(function($ctx1) { return "Class side";
  642. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleClassSideCommand.klass)})},
  643. messageSends: []}),
  644. smalltalk.HLToggleClassSideCommand.klass);
  645. smalltalk.addClass('HLToggleInstanceSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands');
  646. smalltalk.addMethod(
  647. "_execute",
  648. smalltalk.method({
  649. selector: "execute",
  650. fn: function (){
  651. var self=this;
  652. return smalltalk.withContext(function($ctx1) { _st(_st(self)._model())._showInstance_(true);
  653. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleInstanceSideCommand)})},
  654. messageSends: ["showInstance:", "model"]}),
  655. smalltalk.HLToggleInstanceSideCommand);
  656. smalltalk.addMethod(
  657. "_key",
  658. smalltalk.method({
  659. selector: "key",
  660. fn: function (){
  661. var self=this;
  662. return smalltalk.withContext(function($ctx1) { return (73);
  663. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleInstanceSideCommand.klass)})},
  664. messageSends: []}),
  665. smalltalk.HLToggleInstanceSideCommand.klass);
  666. smalltalk.addMethod(
  667. "_label",
  668. smalltalk.method({
  669. selector: "label",
  670. fn: function (){
  671. var self=this;
  672. return smalltalk.withContext(function($ctx1) { return "Instance side";
  673. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleInstanceSideCommand.klass)})},
  674. messageSends: []}),
  675. smalltalk.HLToggleInstanceSideCommand.klass);
  676. smalltalk.addClass('HLOpenCommand', smalltalk.HLCommand, [], 'Helios-Commands');
  677. smalltalk.addMethod(
  678. "_key",
  679. smalltalk.method({
  680. selector: "key",
  681. fn: function (){
  682. var self=this;
  683. return smalltalk.withContext(function($ctx1) { return (79);
  684. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLOpenCommand.klass)})},
  685. messageSends: []}),
  686. smalltalk.HLOpenCommand.klass);
  687. smalltalk.addMethod(
  688. "_label",
  689. smalltalk.method({
  690. selector: "label",
  691. fn: function (){
  692. var self=this;
  693. return smalltalk.withContext(function($ctx1) { return "Open";
  694. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLOpenCommand.klass)})},
  695. messageSends: []}),
  696. smalltalk.HLOpenCommand.klass);
  697. smalltalk.addClass('HLOpenBrowserCommand', smalltalk.HLOpenCommand, [], 'Helios-Commands');
  698. smalltalk.addMethod(
  699. "_execute",
  700. smalltalk.method({
  701. selector: "execute",
  702. fn: function (){
  703. var self=this;
  704. return smalltalk.withContext(function($ctx1) { var $1;
  705. $1=_st((smalltalk.HLBrowser || HLBrowser))._openAsTab();
  706. return $1;
  707. }, function($ctx1) {$ctx1.fill(self,"execute",{}, smalltalk.HLOpenBrowserCommand)})},
  708. messageSends: ["openAsTab"]}),
  709. smalltalk.HLOpenBrowserCommand);
  710. smalltalk.addMethod(
  711. "_key",
  712. smalltalk.method({
  713. selector: "key",
  714. fn: function (){
  715. var self=this;
  716. return smalltalk.withContext(function($ctx1) { return (66);
  717. }, function($ctx1) {$ctx1.fill(self,"key",{}, smalltalk.HLOpenBrowserCommand.klass)})},
  718. messageSends: []}),
  719. smalltalk.HLOpenBrowserCommand.klass);
  720. smalltalk.addMethod(
  721. "_label",
  722. smalltalk.method({
  723. selector: "label",
  724. fn: function (){
  725. var self=this;
  726. return smalltalk.withContext(function($ctx1) { return "Browser";
  727. }, function($ctx1) {$ctx1.fill(self,"label",{}, smalltalk.HLOpenBrowserCommand.klass)})},
  728. messageSends: []}),
  729. smalltalk.HLOpenBrowserCommand.klass);
  730. smalltalk.addClass('HLOpenTranscriptCommand', smalltalk.HLOpenCommand, [], 'Helios-Commands');
  731. smalltalk.addMethod(
  732. "_execute",
  733. smalltalk.method({
  734. selector: "execute",
  735. fn: function (){
  736. var self=this;
  737. return smalltalk.withContext(function($ctx1) { var $1;
  738. $1=_st((smalltalk.HLTranscript || HLTranscript))._openAsTab();
  739. return $1;
  740. }, function($ctx1) {$ctx1.fill(self,"execute",{}, smalltalk.HLOpenTranscriptCommand)})},
  741. messageSends: ["openAsTab"]}),
  742. smalltalk.HLOpenTranscriptCommand);
  743. smalltalk.addMethod(
  744. "_key",
  745. smalltalk.method({
  746. selector: "key",
  747. fn: function (){
  748. var self=this;
  749. return smalltalk.withContext(function($ctx1) { return (84);
  750. }, function($ctx1) {$ctx1.fill(self,"key",{}, smalltalk.HLOpenTranscriptCommand.klass)})},
  751. messageSends: []}),
  752. smalltalk.HLOpenTranscriptCommand.klass);
  753. smalltalk.addMethod(
  754. "_label",
  755. smalltalk.method({
  756. selector: "label",
  757. fn: function (){
  758. var self=this;
  759. return smalltalk.withContext(function($ctx1) { return "Transcript";
  760. }, function($ctx1) {$ctx1.fill(self,"label",{}, smalltalk.HLOpenTranscriptCommand.klass)})},
  761. messageSends: []}),
  762. smalltalk.HLOpenTranscriptCommand.klass);
  763. smalltalk.addClass('HLOpenWorkspaceCommand', smalltalk.HLOpenCommand, [], 'Helios-Commands');
  764. smalltalk.addMethod(
  765. "_execute",
  766. smalltalk.method({
  767. selector: "execute",
  768. fn: function (){
  769. var self=this;
  770. return smalltalk.withContext(function($ctx1) { var $1;
  771. $1=_st((smalltalk.HLCodeWidget || HLCodeWidget))._openAsTab();
  772. return $1;
  773. }, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLOpenWorkspaceCommand)})},
  774. messageSends: ["openAsTab"]}),
  775. smalltalk.HLOpenWorkspaceCommand);
  776. smalltalk.addMethod(
  777. "_key",
  778. smalltalk.method({
  779. selector: "key",
  780. fn: function (){
  781. var self=this;
  782. return smalltalk.withContext(function($ctx1) { return (87);
  783. }, function($ctx1) {$ctx1.fill(self,"key",{}, smalltalk.HLOpenWorkspaceCommand.klass)})},
  784. messageSends: []}),
  785. smalltalk.HLOpenWorkspaceCommand.klass);
  786. smalltalk.addMethod(
  787. "_label",
  788. smalltalk.method({
  789. selector: "label",
  790. fn: function (){
  791. var self=this;
  792. return smalltalk.withContext(function($ctx1) { return "Workspace";
  793. }, function($ctx1) {$ctx1.fill(self,"label",{}, smalltalk.HLOpenWorkspaceCommand.klass)})},
  794. messageSends: []}),
  795. smalltalk.HLOpenWorkspaceCommand.klass);
  796. smalltalk.addClass('HLViewCommand', smalltalk.HLCommand, [], 'Helios-Commands');
  797. smalltalk.addMethod(
  798. "_label",
  799. smalltalk.method({
  800. selector: "label",
  801. fn: function (){
  802. var self=this;
  803. return smalltalk.withContext(function($ctx1) { return "View";
  804. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLViewCommand.klass)})},
  805. messageSends: []}),
  806. smalltalk.HLViewCommand.klass);