2
0

Helios-Commands-Core.deploy.js 18 KB

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