Helios-Commands-Browser.deploy.js 25 KB

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