Helios-Commands-Core.deploy.js 18 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633
  1. define("amber/Helios-Commands-Core", ["amber_vm/smalltalk","amber_vm/nil","amber_vm/_st"], function(smalltalk,nil,_st){
  2. smalltalk.addPackage('Helios-Commands-Core');
  3. smalltalk.packages["Helios-Commands-Core"].transport = {"type":"amd","amdNamespace":"amber"};
  4. smalltalk.addClass('HLCommand', smalltalk.Object, ['input'], 'Helios-Commands-Core');
  5. smalltalk.addMethod(
  6. smalltalk.method({
  7. selector: "asActionBinding",
  8. fn: function (){
  9. var self=this;
  10. function $HLBindingAction(){return smalltalk.HLBindingAction||(typeof HLBindingAction=="undefined"?nil:HLBindingAction)}
  11. return smalltalk.withContext(function($ctx1) {
  12. var $2,$3,$1;
  13. $2=_st($HLBindingAction())._on_labelled_(self._keyCode(),self._label());
  14. _st($2)._command_(self);
  15. $3=_st($2)._yourself();
  16. $1=$3;
  17. return $1;
  18. }, function($ctx1) {$ctx1.fill(self,"asActionBinding",{},smalltalk.HLCommand)})},
  19. messageSends: ["command:", "on:labelled:", "keyCode", "label", "yourself"]}),
  20. smalltalk.HLCommand);
  21. smalltalk.addMethod(
  22. smalltalk.method({
  23. selector: "asBinding",
  24. fn: function (){
  25. var self=this;
  26. return smalltalk.withContext(function($ctx1) {
  27. var $2,$1;
  28. $2=self._isBindingGroup();
  29. if(smalltalk.assert($2)){
  30. $1=self._asGroupBinding();
  31. } else {
  32. $1=self._asActionBinding();
  33. };
  34. return $1;
  35. }, function($ctx1) {$ctx1.fill(self,"asBinding",{},smalltalk.HLCommand)})},
  36. messageSends: ["ifTrue:ifFalse:", "asGroupBinding", "asActionBinding", "isBindingGroup"]}),
  37. smalltalk.HLCommand);
  38. smalltalk.addMethod(
  39. smalltalk.method({
  40. selector: "asGroupBinding",
  41. fn: function (){
  42. var self=this;
  43. function $HLBindingGroup(){return smalltalk.HLBindingGroup||(typeof HLBindingGroup=="undefined"?nil:HLBindingGroup)}
  44. return smalltalk.withContext(function($ctx1) {
  45. var $1;
  46. $1=_st($HLBindingGroup())._on_labelled_(self._keyCode(),self._label());
  47. return $1;
  48. }, function($ctx1) {$ctx1.fill(self,"asGroupBinding",{},smalltalk.HLCommand)})},
  49. messageSends: ["on:labelled:", "keyCode", "label"]}),
  50. smalltalk.HLCommand);
  51. smalltalk.addMethod(
  52. smalltalk.method({
  53. selector: "commandError:",
  54. fn: function (aString){
  55. var self=this;
  56. return smalltalk.withContext(function($ctx1) {
  57. self._error_(aString);
  58. return self}, function($ctx1) {$ctx1.fill(self,"commandError:",{aString:aString},smalltalk.HLCommand)})},
  59. messageSends: ["error:"]}),
  60. smalltalk.HLCommand);
  61. smalltalk.addMethod(
  62. smalltalk.method({
  63. selector: "defaultInput",
  64. fn: function (){
  65. var self=this;
  66. return smalltalk.withContext(function($ctx1) {
  67. return "";
  68. }, function($ctx1) {$ctx1.fill(self,"defaultInput",{},smalltalk.HLCommand)})},
  69. messageSends: []}),
  70. smalltalk.HLCommand);
  71. smalltalk.addMethod(
  72. smalltalk.method({
  73. selector: "documentation",
  74. fn: function (){
  75. var self=this;
  76. return smalltalk.withContext(function($ctx1) {
  77. var $1;
  78. $1=_st(self._class())._documentation();
  79. return $1;
  80. }, function($ctx1) {$ctx1.fill(self,"documentation",{},smalltalk.HLCommand)})},
  81. messageSends: ["documentation", "class"]}),
  82. smalltalk.HLCommand);
  83. smalltalk.addMethod(
  84. smalltalk.method({
  85. selector: "execute",
  86. fn: function (){
  87. var self=this;
  88. return smalltalk.withContext(function($ctx1) {
  89. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLCommand)})},
  90. messageSends: []}),
  91. smalltalk.HLCommand);
  92. smalltalk.addMethod(
  93. smalltalk.method({
  94. selector: "input",
  95. fn: function (){
  96. var self=this;
  97. return smalltalk.withContext(function($ctx1) {
  98. var $1;
  99. $1=self["@input"];
  100. return $1;
  101. }, function($ctx1) {$ctx1.fill(self,"input",{},smalltalk.HLCommand)})},
  102. messageSends: []}),
  103. smalltalk.HLCommand);
  104. smalltalk.addMethod(
  105. smalltalk.method({
  106. selector: "input:",
  107. fn: function (aString){
  108. var self=this;
  109. return smalltalk.withContext(function($ctx1) {
  110. var $1;
  111. self["@input"]=aString;
  112. $1=self["@input"];
  113. return $1;
  114. }, function($ctx1) {$ctx1.fill(self,"input:",{aString:aString},smalltalk.HLCommand)})},
  115. messageSends: []}),
  116. smalltalk.HLCommand);
  117. smalltalk.addMethod(
  118. smalltalk.method({
  119. selector: "inputCompletion",
  120. fn: function (){
  121. var self=this;
  122. return smalltalk.withContext(function($ctx1) {
  123. var $1;
  124. $1=[];
  125. return $1;
  126. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLCommand)})},
  127. messageSends: []}),
  128. smalltalk.HLCommand);
  129. smalltalk.addMethod(
  130. smalltalk.method({
  131. selector: "inputLabel",
  132. fn: function (){
  133. var self=this;
  134. return smalltalk.withContext(function($ctx1) {
  135. var $1;
  136. $1=self._label();
  137. return $1;
  138. }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLCommand)})},
  139. messageSends: ["label"]}),
  140. smalltalk.HLCommand);
  141. smalltalk.addMethod(
  142. smalltalk.method({
  143. selector: "isAction",
  144. fn: function (){
  145. var self=this;
  146. return smalltalk.withContext(function($ctx1) {
  147. var $1;
  148. $1=_st(self._isBindingGroup())._not();
  149. return $1;
  150. }, function($ctx1) {$ctx1.fill(self,"isAction",{},smalltalk.HLCommand)})},
  151. messageSends: ["not", "isBindingGroup"]}),
  152. smalltalk.HLCommand);
  153. smalltalk.addMethod(
  154. smalltalk.method({
  155. selector: "isActive",
  156. fn: function (){
  157. var self=this;
  158. return smalltalk.withContext(function($ctx1) {
  159. return true;
  160. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLCommand)})},
  161. messageSends: []}),
  162. smalltalk.HLCommand);
  163. smalltalk.addMethod(
  164. smalltalk.method({
  165. selector: "isBindingGroup",
  166. fn: function (){
  167. var self=this;
  168. return smalltalk.withContext(function($ctx1) {
  169. var $1;
  170. $1=_st(_st(_st(self._class())._methodDictionary())._includesKey_("execute"))._not();
  171. return $1;
  172. }, function($ctx1) {$ctx1.fill(self,"isBindingGroup",{},smalltalk.HLCommand)})},
  173. messageSends: ["not", "includesKey:", "methodDictionary", "class"]}),
  174. smalltalk.HLCommand);
  175. smalltalk.addMethod(
  176. smalltalk.method({
  177. selector: "isInputRequired",
  178. fn: function (){
  179. var self=this;
  180. return smalltalk.withContext(function($ctx1) {
  181. return false;
  182. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLCommand)})},
  183. messageSends: []}),
  184. smalltalk.HLCommand);
  185. smalltalk.addMethod(
  186. smalltalk.method({
  187. selector: "key",
  188. fn: function (){
  189. var self=this;
  190. return smalltalk.withContext(function($ctx1) {
  191. var $1;
  192. $1=_st(self._class())._key();
  193. return $1;
  194. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCommand)})},
  195. messageSends: ["key", "class"]}),
  196. smalltalk.HLCommand);
  197. smalltalk.addMethod(
  198. smalltalk.method({
  199. selector: "keyCode",
  200. fn: function (){
  201. var self=this;
  202. return smalltalk.withContext(function($ctx1) {
  203. var $1;
  204. $1=_st(_st(self._key())._asUppercase())._charCodeAt_((1));
  205. return $1;
  206. }, function($ctx1) {$ctx1.fill(self,"keyCode",{},smalltalk.HLCommand)})},
  207. messageSends: ["charCodeAt:", "asUppercase", "key"]}),
  208. smalltalk.HLCommand);
  209. smalltalk.addMethod(
  210. smalltalk.method({
  211. selector: "label",
  212. fn: function (){
  213. var self=this;
  214. return smalltalk.withContext(function($ctx1) {
  215. var $1;
  216. $1=_st(self._class())._label();
  217. return $1;
  218. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLCommand)})},
  219. messageSends: ["label", "class"]}),
  220. smalltalk.HLCommand);
  221. smalltalk.addMethod(
  222. smalltalk.method({
  223. selector: "menuLabel",
  224. fn: function (){
  225. var self=this;
  226. return smalltalk.withContext(function($ctx1) {
  227. var $1;
  228. $1=_st(self._class())._menuLabel();
  229. return $1;
  230. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLCommand)})},
  231. messageSends: ["menuLabel", "class"]}),
  232. smalltalk.HLCommand);
  233. smalltalk.addMethod(
  234. smalltalk.method({
  235. selector: "registerOn:",
  236. fn: function (aBinding){
  237. var self=this;
  238. return smalltalk.withContext(function($ctx1) {
  239. var $1;
  240. $1=_st(aBinding)._add_(self._asBinding());
  241. return $1;
  242. }, function($ctx1) {$ctx1.fill(self,"registerOn:",{aBinding:aBinding},smalltalk.HLCommand)})},
  243. messageSends: ["add:", "asBinding"]}),
  244. smalltalk.HLCommand);
  245. smalltalk.addMethod(
  246. smalltalk.method({
  247. selector: "concreteClasses",
  248. fn: function (){
  249. var self=this;
  250. var classes;
  251. function $OrderedCollection(){return smalltalk.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
  252. return smalltalk.withContext(function($ctx1) {
  253. var $1,$2;
  254. classes=_st($OrderedCollection())._new();
  255. $1=self._isConcrete();
  256. if(smalltalk.assert($1)){
  257. _st(classes)._add_(self);
  258. };
  259. _st(self._subclasses())._do_((function(each){
  260. return smalltalk.withContext(function($ctx2) {
  261. return _st(classes)._addAll_(_st(each)._concreteClasses());
  262. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
  263. $2=classes;
  264. return $2;
  265. }, function($ctx1) {$ctx1.fill(self,"concreteClasses",{classes:classes},smalltalk.HLCommand.klass)})},
  266. messageSends: ["new", "ifTrue:", "add:", "isConcrete", "do:", "addAll:", "concreteClasses", "subclasses"]}),
  267. smalltalk.HLCommand.klass);
  268. smalltalk.addMethod(
  269. smalltalk.method({
  270. selector: "documentation",
  271. fn: function (){
  272. var self=this;
  273. return smalltalk.withContext(function($ctx1) {
  274. return "";
  275. }, function($ctx1) {$ctx1.fill(self,"documentation",{},smalltalk.HLCommand.klass)})},
  276. messageSends: []}),
  277. smalltalk.HLCommand.klass);
  278. smalltalk.addMethod(
  279. smalltalk.method({
  280. selector: "isConcrete",
  281. fn: function (){
  282. var self=this;
  283. return smalltalk.withContext(function($ctx1) {
  284. var $1;
  285. $1=_st(self._key())._notNil();
  286. return $1;
  287. }, function($ctx1) {$ctx1.fill(self,"isConcrete",{},smalltalk.HLCommand.klass)})},
  288. messageSends: ["notNil", "key"]}),
  289. smalltalk.HLCommand.klass);
  290. smalltalk.addMethod(
  291. smalltalk.method({
  292. selector: "isValidFor:",
  293. fn: function (aModel){
  294. var self=this;
  295. return smalltalk.withContext(function($ctx1) {
  296. return true;
  297. }, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},smalltalk.HLCommand.klass)})},
  298. messageSends: []}),
  299. smalltalk.HLCommand.klass);
  300. smalltalk.addMethod(
  301. smalltalk.method({
  302. selector: "key",
  303. fn: function (){
  304. var self=this;
  305. return smalltalk.withContext(function($ctx1) {
  306. return nil;
  307. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCommand.klass)})},
  308. messageSends: []}),
  309. smalltalk.HLCommand.klass);
  310. smalltalk.addMethod(
  311. smalltalk.method({
  312. selector: "label",
  313. fn: function (){
  314. var self=this;
  315. return smalltalk.withContext(function($ctx1) {
  316. return "";
  317. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLCommand.klass)})},
  318. messageSends: []}),
  319. smalltalk.HLCommand.klass);
  320. smalltalk.addMethod(
  321. smalltalk.method({
  322. selector: "menuLabel",
  323. fn: function (){
  324. var self=this;
  325. return smalltalk.withContext(function($ctx1) {
  326. var $1;
  327. $1=self._label();
  328. return $1;
  329. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLCommand.klass)})},
  330. messageSends: ["label"]}),
  331. smalltalk.HLCommand.klass);
  332. smalltalk.addMethod(
  333. smalltalk.method({
  334. selector: "registerConcreteClassesOn:",
  335. fn: function (aBinding){
  336. var self=this;
  337. var newBinding;
  338. return smalltalk.withContext(function($ctx1) {
  339. var $1;
  340. $1=self._isConcrete();
  341. if(smalltalk.assert($1)){
  342. newBinding=self._registerOn_(aBinding);
  343. newBinding;
  344. } else {
  345. newBinding=aBinding;
  346. newBinding;
  347. };
  348. _st(self._subclasses())._do_((function(each){
  349. return smalltalk.withContext(function($ctx2) {
  350. return _st(each)._registerConcreteClassesOn_(newBinding);
  351. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
  352. return self}, function($ctx1) {$ctx1.fill(self,"registerConcreteClassesOn:",{aBinding:aBinding,newBinding:newBinding},smalltalk.HLCommand.klass)})},
  353. messageSends: ["ifTrue:ifFalse:", "registerOn:", "isConcrete", "do:", "registerConcreteClassesOn:", "subclasses"]}),
  354. smalltalk.HLCommand.klass);
  355. smalltalk.addMethod(
  356. smalltalk.method({
  357. selector: "registerOn:",
  358. fn: function (aBinding){
  359. var self=this;
  360. return smalltalk.withContext(function($ctx1) {
  361. var $1;
  362. $1=_st(self._new())._registerOn_(aBinding);
  363. return $1;
  364. }, function($ctx1) {$ctx1.fill(self,"registerOn:",{aBinding:aBinding},smalltalk.HLCommand.klass)})},
  365. messageSends: ["registerOn:", "new"]}),
  366. smalltalk.HLCommand.klass);
  367. smalltalk.addClass('HLCloseTabCommand', smalltalk.HLCommand, [], 'Helios-Commands-Core');
  368. smalltalk.addMethod(
  369. smalltalk.method({
  370. selector: "execute",
  371. fn: function (){
  372. var self=this;
  373. function $HLManager(){return smalltalk.HLManager||(typeof HLManager=="undefined"?nil:HLManager)}
  374. return smalltalk.withContext(function($ctx1) {
  375. _st(_st($HLManager())._current())._removeActiveTab();
  376. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLCloseTabCommand)})},
  377. messageSends: ["removeActiveTab", "current"]}),
  378. smalltalk.HLCloseTabCommand);
  379. smalltalk.addMethod(
  380. smalltalk.method({
  381. selector: "key",
  382. fn: function (){
  383. var self=this;
  384. return smalltalk.withContext(function($ctx1) {
  385. return "w";
  386. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCloseTabCommand.klass)})},
  387. messageSends: []}),
  388. smalltalk.HLCloseTabCommand.klass);
  389. smalltalk.addMethod(
  390. smalltalk.method({
  391. selector: "label",
  392. fn: function (){
  393. var self=this;
  394. return smalltalk.withContext(function($ctx1) {
  395. return "Close tab";
  396. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLCloseTabCommand.klass)})},
  397. messageSends: []}),
  398. smalltalk.HLCloseTabCommand.klass);
  399. smalltalk.addClass('HLModelCommand', smalltalk.HLCommand, ['model'], 'Helios-Commands-Core');
  400. smalltalk.addMethod(
  401. smalltalk.method({
  402. selector: "model",
  403. fn: function (){
  404. var self=this;
  405. return smalltalk.withContext(function($ctx1) {
  406. var $1;
  407. $1=self["@model"];
  408. return $1;
  409. }, function($ctx1) {$ctx1.fill(self,"model",{},smalltalk.HLModelCommand)})},
  410. messageSends: []}),
  411. smalltalk.HLModelCommand);
  412. smalltalk.addMethod(
  413. smalltalk.method({
  414. selector: "model:",
  415. fn: function (aModel){
  416. var self=this;
  417. return smalltalk.withContext(function($ctx1) {
  418. self["@model"]=aModel;
  419. return self}, function($ctx1) {$ctx1.fill(self,"model:",{aModel:aModel},smalltalk.HLModelCommand)})},
  420. messageSends: []}),
  421. smalltalk.HLModelCommand);
  422. smalltalk.addMethod(
  423. smalltalk.method({
  424. selector: "for:",
  425. fn: function (aModel){
  426. var self=this;
  427. return smalltalk.withContext(function($ctx1) {
  428. var $1;
  429. $1=self._new();
  430. return $1;
  431. }, function($ctx1) {$ctx1.fill(self,"for:",{aModel:aModel},smalltalk.HLModelCommand.klass)})},
  432. messageSends: ["new"]}),
  433. smalltalk.HLModelCommand.klass);
  434. smalltalk.addMethod(
  435. smalltalk.method({
  436. selector: "registerConcreteClassesOn:for:",
  437. fn: function (aBinding,aModel){
  438. var self=this;
  439. var newBinding;
  440. return smalltalk.withContext(function($ctx1) {
  441. var $1;
  442. $1=_st(self._isConcrete())._and_((function(){
  443. return smalltalk.withContext(function($ctx2) {
  444. return self._isValidFor_(aModel);
  445. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  446. if(smalltalk.assert($1)){
  447. newBinding=self._registerOn_for_(aBinding,aModel);
  448. newBinding;
  449. } else {
  450. newBinding=aBinding;
  451. newBinding;
  452. };
  453. _st(self._subclasses())._do_((function(each){
  454. return smalltalk.withContext(function($ctx2) {
  455. return _st(each)._registerConcreteClassesOn_for_(newBinding,aModel);
  456. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
  457. return self}, function($ctx1) {$ctx1.fill(self,"registerConcreteClassesOn:for:",{aBinding:aBinding,aModel:aModel,newBinding:newBinding},smalltalk.HLModelCommand.klass)})},
  458. messageSends: ["ifTrue:ifFalse:", "registerOn:for:", "and:", "isValidFor:", "isConcrete", "do:", "registerConcreteClassesOn:for:", "subclasses"]}),
  459. smalltalk.HLModelCommand.klass);
  460. smalltalk.addMethod(
  461. smalltalk.method({
  462. selector: "registerOn:for:",
  463. fn: function (aBinding,aModel){
  464. var self=this;
  465. return smalltalk.withContext(function($ctx1) {
  466. var $1;
  467. $1=_st(self._for_(aModel))._registerOn_(aBinding);
  468. return $1;
  469. }, function($ctx1) {$ctx1.fill(self,"registerOn:for:",{aBinding:aBinding,aModel:aModel},smalltalk.HLModelCommand.klass)})},
  470. messageSends: ["registerOn:", "for:"]}),
  471. smalltalk.HLModelCommand.klass);
  472. smalltalk.addClass('HLOpenCommand', smalltalk.HLCommand, [], 'Helios-Commands-Core');
  473. smalltalk.addMethod(
  474. smalltalk.method({
  475. selector: "key",
  476. fn: function (){
  477. var self=this;
  478. return smalltalk.withContext(function($ctx1) {
  479. return "o";
  480. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLOpenCommand.klass)})},
  481. messageSends: []}),
  482. smalltalk.HLOpenCommand.klass);
  483. smalltalk.addMethod(
  484. smalltalk.method({
  485. selector: "label",
  486. fn: function (){
  487. var self=this;
  488. return smalltalk.withContext(function($ctx1) {
  489. return "Open";
  490. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLOpenCommand.klass)})},
  491. messageSends: []}),
  492. smalltalk.HLOpenCommand.klass);
  493. smalltalk.addClass('HLOpenBrowserCommand', smalltalk.HLOpenCommand, [], 'Helios-Commands-Core');
  494. smalltalk.addMethod(
  495. smalltalk.method({
  496. selector: "execute",
  497. fn: function (){
  498. var self=this;
  499. function $HLBrowser(){return smalltalk.HLBrowser||(typeof HLBrowser=="undefined"?nil:HLBrowser)}
  500. return smalltalk.withContext(function($ctx1) {
  501. var $1;
  502. $1=_st($HLBrowser())._openAsTab();
  503. return $1;
  504. }, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLOpenBrowserCommand)})},
  505. messageSends: ["openAsTab"]}),
  506. smalltalk.HLOpenBrowserCommand);
  507. smalltalk.addMethod(
  508. smalltalk.method({
  509. selector: "key",
  510. fn: function (){
  511. var self=this;
  512. return smalltalk.withContext(function($ctx1) {
  513. return "b";
  514. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLOpenBrowserCommand.klass)})},
  515. messageSends: []}),
  516. smalltalk.HLOpenBrowserCommand.klass);
  517. smalltalk.addMethod(
  518. smalltalk.method({
  519. selector: "label",
  520. fn: function (){
  521. var self=this;
  522. return smalltalk.withContext(function($ctx1) {
  523. return "Browser";
  524. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLOpenBrowserCommand.klass)})},
  525. messageSends: []}),
  526. smalltalk.HLOpenBrowserCommand.klass);
  527. smalltalk.addClass('HLOpenWorkspaceCommand', smalltalk.HLOpenCommand, [], 'Helios-Commands-Core');
  528. smalltalk.addMethod(
  529. smalltalk.method({
  530. selector: "execute",
  531. fn: function (){
  532. var self=this;
  533. function $HLWorkspace(){return smalltalk.HLWorkspace||(typeof HLWorkspace=="undefined"?nil:HLWorkspace)}
  534. return smalltalk.withContext(function($ctx1) {
  535. var $1;
  536. $1=_st($HLWorkspace())._openAsTab();
  537. return $1;
  538. }, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLOpenWorkspaceCommand)})},
  539. messageSends: ["openAsTab"]}),
  540. smalltalk.HLOpenWorkspaceCommand);
  541. smalltalk.addMethod(
  542. smalltalk.method({
  543. selector: "key",
  544. fn: function (){
  545. var self=this;
  546. return smalltalk.withContext(function($ctx1) {
  547. return "w";
  548. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLOpenWorkspaceCommand.klass)})},
  549. messageSends: []}),
  550. smalltalk.HLOpenWorkspaceCommand.klass);
  551. smalltalk.addMethod(
  552. smalltalk.method({
  553. selector: "label",
  554. fn: function (){
  555. var self=this;
  556. return smalltalk.withContext(function($ctx1) {
  557. return "Workspace";
  558. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLOpenWorkspaceCommand.klass)})},
  559. messageSends: []}),
  560. smalltalk.HLOpenWorkspaceCommand.klass);
  561. smalltalk.addClass('HLViewCommand', smalltalk.HLCommand, [], 'Helios-Commands-Core');
  562. smalltalk.addMethod(
  563. smalltalk.method({
  564. selector: "label",
  565. fn: function (){
  566. var self=this;
  567. return smalltalk.withContext(function($ctx1) {
  568. return "View";
  569. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLViewCommand.klass)})},
  570. messageSends: []}),
  571. smalltalk.HLViewCommand.klass);
  572. });