Helios-Commands.deploy.js 28 KB

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