1
0

Helios-Commands-Browser.deploy.js 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488
  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. "_isActive",
  218. smalltalk.method({
  219. selector: "isActive",
  220. fn: function (){
  221. var self=this;
  222. return smalltalk.withContext(function($ctx1) { var $1;
  223. $1=_st(_st(_st(self)._model())._selectedMethod())._notNil();
  224. return $1;
  225. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLMoveMethodToCommand)})},
  226. messageSends: ["notNil", "selectedMethod", "model"]}),
  227. smalltalk.HLMoveMethodToCommand);
  228. smalltalk.addMethod(
  229. "_key",
  230. smalltalk.method({
  231. selector: "key",
  232. fn: function (){
  233. var self=this;
  234. return smalltalk.withContext(function($ctx1) { return (77);
  235. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToCommand.klass)})},
  236. messageSends: []}),
  237. smalltalk.HLMoveMethodToCommand.klass);
  238. smalltalk.addMethod(
  239. "_label",
  240. smalltalk.method({
  241. selector: "label",
  242. fn: function (){
  243. var self=this;
  244. return smalltalk.withContext(function($ctx1) { return "Method";
  245. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToCommand.klass)})},
  246. messageSends: []}),
  247. smalltalk.HLMoveMethodToCommand.klass);
  248. smalltalk.addClass('HLMoveMethodToClassCommand', smalltalk.HLMoveMethodToCommand, [], 'Helios-Commands-Browser');
  249. smalltalk.addMethod(
  250. "_execute",
  251. smalltalk.method({
  252. selector: "execute",
  253. fn: function (){
  254. var self=this;
  255. var class_;
  256. return smalltalk.withContext(function($ctx1) { var $1;
  257. class_=_st(_st((smalltalk.Smalltalk || Smalltalk))._current())._at_(_st(self)._input());
  258. $1=class_;
  259. if(($receiver = $1) == nil || $receiver == undefined){
  260. _st(self)._commandError_(_st("No class named: ").__comma(_st(self)._input()));
  261. } else {
  262. $1;
  263. };
  264. _st(_st(self)._model())._moveMethodToClass_(class_);
  265. return self}, function($ctx1) {$ctx1.fill(self,"execute",{class_:class_},smalltalk.HLMoveMethodToClassCommand)})},
  266. messageSends: ["at:", "input", "current", "ifNil:", "commandError:", ",", "moveMethodToClass:", "model"]}),
  267. smalltalk.HLMoveMethodToClassCommand);
  268. smalltalk.addMethod(
  269. "_inputLabel",
  270. smalltalk.method({
  271. selector: "inputLabel",
  272. fn: function (){
  273. var self=this;
  274. return smalltalk.withContext(function($ctx1) { return "Move method to class:";
  275. }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLMoveMethodToClassCommand)})},
  276. messageSends: []}),
  277. smalltalk.HLMoveMethodToClassCommand);
  278. smalltalk.addMethod(
  279. "_isInputRequired",
  280. smalltalk.method({
  281. selector: "isInputRequired",
  282. fn: function (){
  283. var self=this;
  284. return smalltalk.withContext(function($ctx1) { return true;
  285. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLMoveMethodToClassCommand)})},
  286. messageSends: []}),
  287. smalltalk.HLMoveMethodToClassCommand);
  288. smalltalk.addMethod(
  289. "_key",
  290. smalltalk.method({
  291. selector: "key",
  292. fn: function (){
  293. var self=this;
  294. return smalltalk.withContext(function($ctx1) { return (67);
  295. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToClassCommand.klass)})},
  296. messageSends: []}),
  297. smalltalk.HLMoveMethodToClassCommand.klass);
  298. smalltalk.addMethod(
  299. "_label",
  300. smalltalk.method({
  301. selector: "label",
  302. fn: function (){
  303. var self=this;
  304. return smalltalk.withContext(function($ctx1) { return "to class";
  305. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToClassCommand.klass)})},
  306. messageSends: []}),
  307. smalltalk.HLMoveMethodToClassCommand.klass);
  308. smalltalk.addClass('HLMoveMethodToProtocolCommand', smalltalk.HLMoveMethodToCommand, [], 'Helios-Commands-Browser');
  309. smalltalk.addMethod(
  310. "_execute",
  311. smalltalk.method({
  312. selector: "execute",
  313. fn: function (){
  314. var self=this;
  315. return smalltalk.withContext(function($ctx1) { _st(_st(self)._model())._moveMethodToProtocol();
  316. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLMoveMethodToProtocolCommand)})},
  317. messageSends: ["moveMethodToProtocol", "model"]}),
  318. smalltalk.HLMoveMethodToProtocolCommand);
  319. smalltalk.addMethod(
  320. "_key",
  321. smalltalk.method({
  322. selector: "key",
  323. fn: function (){
  324. var self=this;
  325. return smalltalk.withContext(function($ctx1) { return (84);
  326. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})},
  327. messageSends: []}),
  328. smalltalk.HLMoveMethodToProtocolCommand.klass);
  329. smalltalk.addMethod(
  330. "_label",
  331. smalltalk.method({
  332. selector: "label",
  333. fn: function (){
  334. var self=this;
  335. return smalltalk.withContext(function($ctx1) { return "to protocol";
  336. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})},
  337. messageSends: []}),
  338. smalltalk.HLMoveMethodToProtocolCommand.klass);
  339. smalltalk.addClass('HLToggleCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser');
  340. smalltalk.addMethod(
  341. "_key",
  342. smalltalk.method({
  343. selector: "key",
  344. fn: function (){
  345. var self=this;
  346. return smalltalk.withContext(function($ctx1) { return (84);
  347. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleCommand.klass)})},
  348. messageSends: []}),
  349. smalltalk.HLToggleCommand.klass);
  350. smalltalk.addMethod(
  351. "_label",
  352. smalltalk.method({
  353. selector: "label",
  354. fn: function (){
  355. var self=this;
  356. return smalltalk.withContext(function($ctx1) { return "Toggle";
  357. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleCommand.klass)})},
  358. messageSends: []}),
  359. smalltalk.HLToggleCommand.klass);
  360. smalltalk.addClass('HLToggleClassSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Browser');
  361. smalltalk.addMethod(
  362. "_execute",
  363. smalltalk.method({
  364. selector: "execute",
  365. fn: function (){
  366. var self=this;
  367. return smalltalk.withContext(function($ctx1) { _st(_st(self)._model())._showInstance_(false);
  368. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleClassSideCommand)})},
  369. messageSends: ["showInstance:", "model"]}),
  370. smalltalk.HLToggleClassSideCommand);
  371. smalltalk.addMethod(
  372. "_key",
  373. smalltalk.method({
  374. selector: "key",
  375. fn: function (){
  376. var self=this;
  377. return smalltalk.withContext(function($ctx1) { return (67);
  378. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleClassSideCommand.klass)})},
  379. messageSends: []}),
  380. smalltalk.HLToggleClassSideCommand.klass);
  381. smalltalk.addMethod(
  382. "_label",
  383. smalltalk.method({
  384. selector: "label",
  385. fn: function (){
  386. var self=this;
  387. return smalltalk.withContext(function($ctx1) { return "Class side";
  388. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleClassSideCommand.klass)})},
  389. messageSends: []}),
  390. smalltalk.HLToggleClassSideCommand.klass);
  391. smalltalk.addClass('HLToggleInstanceSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Browser');
  392. smalltalk.addMethod(
  393. "_execute",
  394. smalltalk.method({
  395. selector: "execute",
  396. fn: function (){
  397. var self=this;
  398. return smalltalk.withContext(function($ctx1) { _st(_st(self)._model())._showInstance_(true);
  399. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleInstanceSideCommand)})},
  400. messageSends: ["showInstance:", "model"]}),
  401. smalltalk.HLToggleInstanceSideCommand);
  402. smalltalk.addMethod(
  403. "_key",
  404. smalltalk.method({
  405. selector: "key",
  406. fn: function (){
  407. var self=this;
  408. return smalltalk.withContext(function($ctx1) { return (73);
  409. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleInstanceSideCommand.klass)})},
  410. messageSends: []}),
  411. smalltalk.HLToggleInstanceSideCommand.klass);
  412. smalltalk.addMethod(
  413. "_label",
  414. smalltalk.method({
  415. selector: "label",
  416. fn: function (){
  417. var self=this;
  418. return smalltalk.withContext(function($ctx1) { return "Instance side";
  419. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleInstanceSideCommand.klass)})},
  420. messageSends: []}),
  421. smalltalk.HLToggleInstanceSideCommand.klass);