1
0

Helios-Commands-Browser.deploy.js 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481
  1. smalltalk.addPackage('Helios-Commands-Browser');
  2. smalltalk.addClass('HLBrowserCommand', smalltalk.HLModelCommand, [], 'Helios-Commands-Browser');
  3. smalltalk.addMethod(
  4. "_for_",
  5. smalltalk.method({
  6. selector: "for:",
  7. fn: function (aBrowserModel){
  8. var self=this;
  9. return smalltalk.withContext(function($ctx1) { 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. "_key",
  21. smalltalk.method({
  22. selector: "key",
  23. fn: function (){
  24. var self=this;
  25. return smalltalk.withContext(function($ctx1) { return (71);
  26. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToCommand.klass)})},
  27. messageSends: []}),
  28. smalltalk.HLBrowserGoToCommand.klass);
  29. smalltalk.addMethod(
  30. "_label",
  31. smalltalk.method({
  32. selector: "label",
  33. fn: function (){
  34. var self=this;
  35. return smalltalk.withContext(function($ctx1) { return "Go to";
  36. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToCommand.klass)})},
  37. messageSends: []}),
  38. smalltalk.HLBrowserGoToCommand.klass);
  39. smalltalk.addClass('HLGoToClassesCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
  40. smalltalk.addMethod(
  41. "_execute",
  42. smalltalk.method({
  43. selector: "execute",
  44. fn: function (){
  45. var self=this;
  46. return smalltalk.withContext(function($ctx1) { _st(_st(self)._model())._focusOnClasses();
  47. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToClassesCommand)})},
  48. messageSends: ["focusOnClasses", "model"]}),
  49. smalltalk.HLGoToClassesCommand);
  50. smalltalk.addMethod(
  51. "_key",
  52. smalltalk.method({
  53. selector: "key",
  54. fn: function (){
  55. var self=this;
  56. return smalltalk.withContext(function($ctx1) { return (67);
  57. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToClassesCommand.klass)})},
  58. messageSends: []}),
  59. smalltalk.HLGoToClassesCommand.klass);
  60. smalltalk.addMethod(
  61. "_label",
  62. smalltalk.method({
  63. selector: "label",
  64. fn: function (){
  65. var self=this;
  66. return smalltalk.withContext(function($ctx1) { return "Classes";
  67. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToClassesCommand.klass)})},
  68. messageSends: []}),
  69. smalltalk.HLGoToClassesCommand.klass);
  70. smalltalk.addClass('HLGoToMethodsCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
  71. smalltalk.addMethod(
  72. "_execute",
  73. smalltalk.method({
  74. selector: "execute",
  75. fn: function (){
  76. var self=this;
  77. return smalltalk.withContext(function($ctx1) { _st(_st(self)._model())._focusOnMethods();
  78. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToMethodsCommand)})},
  79. messageSends: ["focusOnMethods", "model"]}),
  80. smalltalk.HLGoToMethodsCommand);
  81. smalltalk.addMethod(
  82. "_key",
  83. smalltalk.method({
  84. selector: "key",
  85. fn: function (){
  86. var self=this;
  87. return smalltalk.withContext(function($ctx1) { return (77);
  88. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToMethodsCommand.klass)})},
  89. messageSends: []}),
  90. smalltalk.HLGoToMethodsCommand.klass);
  91. smalltalk.addMethod(
  92. "_label",
  93. smalltalk.method({
  94. selector: "label",
  95. fn: function (){
  96. var self=this;
  97. return smalltalk.withContext(function($ctx1) { return "Methods";
  98. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToMethodsCommand.klass)})},
  99. messageSends: []}),
  100. smalltalk.HLGoToMethodsCommand.klass);
  101. smalltalk.addClass('HLGoToPackagesCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
  102. smalltalk.addMethod(
  103. "_execute",
  104. smalltalk.method({
  105. selector: "execute",
  106. fn: function (){
  107. var self=this;
  108. return smalltalk.withContext(function($ctx1) { _st(_st(self)._model())._focusOnPackages();
  109. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToPackagesCommand)})},
  110. messageSends: ["focusOnPackages", "model"]}),
  111. smalltalk.HLGoToPackagesCommand);
  112. smalltalk.addMethod(
  113. "_key",
  114. smalltalk.method({
  115. selector: "key",
  116. fn: function (){
  117. var self=this;
  118. return smalltalk.withContext(function($ctx1) { return (80);
  119. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToPackagesCommand.klass)})},
  120. messageSends: []}),
  121. smalltalk.HLGoToPackagesCommand.klass);
  122. smalltalk.addMethod(
  123. "_label",
  124. smalltalk.method({
  125. selector: "label",
  126. fn: function (){
  127. var self=this;
  128. return smalltalk.withContext(function($ctx1) { return "Packages";
  129. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToPackagesCommand.klass)})},
  130. messageSends: []}),
  131. smalltalk.HLGoToPackagesCommand.klass);
  132. smalltalk.addClass('HLGoToProtocolsCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
  133. smalltalk.addMethod(
  134. "_execute",
  135. smalltalk.method({
  136. selector: "execute",
  137. fn: function (){
  138. var self=this;
  139. return smalltalk.withContext(function($ctx1) { _st(_st(self)._model())._focusOnProtocols();
  140. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToProtocolsCommand)})},
  141. messageSends: ["focusOnProtocols", "model"]}),
  142. smalltalk.HLGoToProtocolsCommand);
  143. smalltalk.addMethod(
  144. "_key",
  145. smalltalk.method({
  146. selector: "key",
  147. fn: function (){
  148. var self=this;
  149. return smalltalk.withContext(function($ctx1) { return (84);
  150. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToProtocolsCommand.klass)})},
  151. messageSends: []}),
  152. smalltalk.HLGoToProtocolsCommand.klass);
  153. smalltalk.addMethod(
  154. "_label",
  155. smalltalk.method({
  156. selector: "label",
  157. fn: function (){
  158. var self=this;
  159. return smalltalk.withContext(function($ctx1) { return "Protocols";
  160. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToProtocolsCommand.klass)})},
  161. messageSends: []}),
  162. smalltalk.HLGoToProtocolsCommand.klass);
  163. smalltalk.addClass('HLGoToSourceCodeCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser');
  164. smalltalk.addMethod(
  165. "_execute",
  166. smalltalk.method({
  167. selector: "execute",
  168. fn: function (){
  169. var self=this;
  170. return smalltalk.withContext(function($ctx1) { _st(_st(self)._model())._focusOnSourceCode();
  171. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToSourceCodeCommand)})},
  172. messageSends: ["focusOnSourceCode", "model"]}),
  173. smalltalk.HLGoToSourceCodeCommand);
  174. smalltalk.addMethod(
  175. "_key",
  176. smalltalk.method({
  177. selector: "key",
  178. fn: function (){
  179. var self=this;
  180. return smalltalk.withContext(function($ctx1) { return (83);
  181. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToSourceCodeCommand.klass)})},
  182. messageSends: []}),
  183. smalltalk.HLGoToSourceCodeCommand.klass);
  184. smalltalk.addMethod(
  185. "_label",
  186. smalltalk.method({
  187. selector: "label",
  188. fn: function (){
  189. var self=this;
  190. return smalltalk.withContext(function($ctx1) { return "Source code";
  191. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToSourceCodeCommand.klass)})},
  192. messageSends: []}),
  193. smalltalk.HLGoToSourceCodeCommand.klass);
  194. smalltalk.addClass('HLMoveToCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
  195. smalltalk.addMethod(
  196. "_key",
  197. smalltalk.method({
  198. selector: "key",
  199. fn: function (){
  200. var self=this;
  201. return smalltalk.withContext(function($ctx1) { return (77);
  202. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveToCommand.klass)})},
  203. messageSends: []}),
  204. smalltalk.HLMoveToCommand.klass);
  205. smalltalk.addMethod(
  206. "_label",
  207. smalltalk.method({
  208. selector: "label",
  209. fn: function (){
  210. var self=this;
  211. return smalltalk.withContext(function($ctx1) { return "Move";
  212. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveToCommand.klass)})},
  213. messageSends: []}),
  214. smalltalk.HLMoveToCommand.klass);
  215. smalltalk.addClass('HLMoveMethodToCommand', smalltalk.HLMoveToCommand, [], 'Helios-Commands-Browser');
  216. smalltalk.addMethod(
  217. "_activeBlock",
  218. smalltalk.method({
  219. selector: "activeBlock",
  220. fn: function (){
  221. var self=this;
  222. return smalltalk.withContext(function($ctx1) { var $1;
  223. $1=(function(){
  224. return smalltalk.withContext(function($ctx2) { return _st(_st(_st(self)._model())._selectedMethod())._notNil();
  225. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})});
  226. return $1;
  227. }, function($ctx1) {$ctx1.fill(self,"activeBlock",{},smalltalk.HLMoveMethodToCommand)})},
  228. messageSends: ["notNil", "selectedMethod", "model"]}),
  229. smalltalk.HLMoveMethodToCommand);
  230. smalltalk.addMethod(
  231. "_key",
  232. smalltalk.method({
  233. selector: "key",
  234. fn: function (){
  235. var self=this;
  236. return smalltalk.withContext(function($ctx1) { return (77);
  237. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToCommand.klass)})},
  238. messageSends: []}),
  239. smalltalk.HLMoveMethodToCommand.klass);
  240. smalltalk.addMethod(
  241. "_label",
  242. smalltalk.method({
  243. selector: "label",
  244. fn: function (){
  245. var self=this;
  246. return smalltalk.withContext(function($ctx1) { return "Method";
  247. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToCommand.klass)})},
  248. messageSends: []}),
  249. smalltalk.HLMoveMethodToCommand.klass);
  250. smalltalk.addClass('HLMoveMethodToClassCommand', smalltalk.HLMoveMethodToCommand, [], 'Helios-Commands-Browser');
  251. smalltalk.addMethod(
  252. "_execute",
  253. smalltalk.method({
  254. selector: "execute",
  255. fn: function (){
  256. var self=this;
  257. return smalltalk.withContext(function($ctx1) { _st(_st(self)._model())._moveMethodToClass_ifAbsent_(_st(self)._input(),_st(self)._errorBlock());
  258. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLMoveMethodToClassCommand)})},
  259. messageSends: ["moveMethodToClass:ifAbsent:", "input", "errorBlock", "model"]}),
  260. smalltalk.HLMoveMethodToClassCommand);
  261. smalltalk.addMethod(
  262. "_inputLabel",
  263. smalltalk.method({
  264. selector: "inputLabel",
  265. fn: function (){
  266. var self=this;
  267. return smalltalk.withContext(function($ctx1) { return "Move method to class:";
  268. }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLMoveMethodToClassCommand)})},
  269. messageSends: []}),
  270. smalltalk.HLMoveMethodToClassCommand);
  271. smalltalk.addMethod(
  272. "_isInputRequired",
  273. smalltalk.method({
  274. selector: "isInputRequired",
  275. fn: function (){
  276. var self=this;
  277. return smalltalk.withContext(function($ctx1) { return true;
  278. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLMoveMethodToClassCommand)})},
  279. messageSends: []}),
  280. smalltalk.HLMoveMethodToClassCommand);
  281. smalltalk.addMethod(
  282. "_key",
  283. smalltalk.method({
  284. selector: "key",
  285. fn: function (){
  286. var self=this;
  287. return smalltalk.withContext(function($ctx1) { return (67);
  288. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToClassCommand.klass)})},
  289. messageSends: []}),
  290. smalltalk.HLMoveMethodToClassCommand.klass);
  291. smalltalk.addMethod(
  292. "_label",
  293. smalltalk.method({
  294. selector: "label",
  295. fn: function (){
  296. var self=this;
  297. return smalltalk.withContext(function($ctx1) { return "to class";
  298. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToClassCommand.klass)})},
  299. messageSends: []}),
  300. smalltalk.HLMoveMethodToClassCommand.klass);
  301. smalltalk.addClass('HLMoveMethodToProtocolCommand', smalltalk.HLMoveMethodToCommand, [], 'Helios-Commands-Browser');
  302. smalltalk.addMethod(
  303. "_execute",
  304. smalltalk.method({
  305. selector: "execute",
  306. fn: function (){
  307. var self=this;
  308. return smalltalk.withContext(function($ctx1) { _st(_st(self)._model())._moveMethodToProtocol();
  309. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLMoveMethodToProtocolCommand)})},
  310. messageSends: ["moveMethodToProtocol", "model"]}),
  311. smalltalk.HLMoveMethodToProtocolCommand);
  312. smalltalk.addMethod(
  313. "_key",
  314. smalltalk.method({
  315. selector: "key",
  316. fn: function (){
  317. var self=this;
  318. return smalltalk.withContext(function($ctx1) { return (84);
  319. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})},
  320. messageSends: []}),
  321. smalltalk.HLMoveMethodToProtocolCommand.klass);
  322. smalltalk.addMethod(
  323. "_label",
  324. smalltalk.method({
  325. selector: "label",
  326. fn: function (){
  327. var self=this;
  328. return smalltalk.withContext(function($ctx1) { return "to protocol";
  329. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})},
  330. messageSends: []}),
  331. smalltalk.HLMoveMethodToProtocolCommand.klass);
  332. smalltalk.addClass('HLToggleCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
  333. smalltalk.addMethod(
  334. "_key",
  335. smalltalk.method({
  336. selector: "key",
  337. fn: function (){
  338. var self=this;
  339. return smalltalk.withContext(function($ctx1) { return (84);
  340. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleCommand.klass)})},
  341. messageSends: []}),
  342. smalltalk.HLToggleCommand.klass);
  343. smalltalk.addMethod(
  344. "_label",
  345. smalltalk.method({
  346. selector: "label",
  347. fn: function (){
  348. var self=this;
  349. return smalltalk.withContext(function($ctx1) { return "Toggle";
  350. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleCommand.klass)})},
  351. messageSends: []}),
  352. smalltalk.HLToggleCommand.klass);
  353. smalltalk.addClass('HLToggleClassSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Browser');
  354. smalltalk.addMethod(
  355. "_execute",
  356. smalltalk.method({
  357. selector: "execute",
  358. fn: function (){
  359. var self=this;
  360. return smalltalk.withContext(function($ctx1) { _st(_st(self)._model())._showInstance_(false);
  361. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleClassSideCommand)})},
  362. messageSends: ["showInstance:", "model"]}),
  363. smalltalk.HLToggleClassSideCommand);
  364. smalltalk.addMethod(
  365. "_key",
  366. smalltalk.method({
  367. selector: "key",
  368. fn: function (){
  369. var self=this;
  370. return smalltalk.withContext(function($ctx1) { return (67);
  371. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleClassSideCommand.klass)})},
  372. messageSends: []}),
  373. smalltalk.HLToggleClassSideCommand.klass);
  374. smalltalk.addMethod(
  375. "_label",
  376. smalltalk.method({
  377. selector: "label",
  378. fn: function (){
  379. var self=this;
  380. return smalltalk.withContext(function($ctx1) { return "Class side";
  381. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleClassSideCommand.klass)})},
  382. messageSends: []}),
  383. smalltalk.HLToggleClassSideCommand.klass);
  384. smalltalk.addClass('HLToggleInstanceSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Browser');
  385. smalltalk.addMethod(
  386. "_execute",
  387. smalltalk.method({
  388. selector: "execute",
  389. fn: function (){
  390. var self=this;
  391. return smalltalk.withContext(function($ctx1) { _st(_st(self)._model())._showInstance_(true);
  392. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleInstanceSideCommand)})},
  393. messageSends: ["showInstance:", "model"]}),
  394. smalltalk.HLToggleInstanceSideCommand);
  395. smalltalk.addMethod(
  396. "_key",
  397. smalltalk.method({
  398. selector: "key",
  399. fn: function (){
  400. var self=this;
  401. return smalltalk.withContext(function($ctx1) { return (73);
  402. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleInstanceSideCommand.klass)})},
  403. messageSends: []}),
  404. smalltalk.HLToggleInstanceSideCommand.klass);
  405. smalltalk.addMethod(
  406. "_label",
  407. smalltalk.method({
  408. selector: "label",
  409. fn: function (){
  410. var self=this;
  411. return smalltalk.withContext(function($ctx1) { return "Instance side";
  412. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleInstanceSideCommand.klass)})},
  413. messageSends: []}),
  414. smalltalk.HLToggleInstanceSideCommand.klass);