2
0

Helios-Commands-Tools.js 50 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906
  1. define("amber_core/Helios-Commands-Tools", ["amber_vm/smalltalk", "amber_vm/nil", "amber_vm/_st", "amber_core/Helios-Commands-Core"], function(smalltalk,nil,_st){
  2. smalltalk.addPackage('Helios-Commands-Tools');
  3. smalltalk.packages["Helios-Commands-Tools"].transport = {"type":"amd","amdNamespace":"amber_core"};
  4. smalltalk.addClass('HLToolCommand', smalltalk.HLModelCommand, [], 'Helios-Commands-Tools');
  5. smalltalk.addMethod(
  6. smalltalk.method({
  7. selector: "category",
  8. protocol: 'accessing',
  9. fn: function (){
  10. var self=this;
  11. return smalltalk.withContext(function($ctx1) {
  12. return nil;
  13. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLToolCommand)})},
  14. args: [],
  15. source: "category\x0a\x09^ nil",
  16. messageSends: [],
  17. referencedClasses: []
  18. }),
  19. smalltalk.HLToolCommand);
  20. smalltalk.addMethod(
  21. smalltalk.method({
  22. selector: "for:",
  23. protocol: 'instance creation',
  24. fn: function (aToolModel){
  25. var self=this;
  26. return smalltalk.withContext(function($ctx1) {
  27. var $2,$3,$1;
  28. $2=self._new();
  29. _st($2)._model_(aToolModel);
  30. $3=_st($2)._yourself();
  31. $1=$3;
  32. return $1;
  33. }, function($ctx1) {$ctx1.fill(self,"for:",{aToolModel:aToolModel},smalltalk.HLToolCommand.klass)})},
  34. args: ["aToolModel"],
  35. source: "for: aToolModel\x0a\x09^ self new\x0a \x09model: aToolModel;\x0a yourself",
  36. messageSends: ["model:", "new", "yourself"],
  37. referencedClasses: []
  38. }),
  39. smalltalk.HLToolCommand.klass);
  40. smalltalk.addMethod(
  41. smalltalk.method({
  42. selector: "isValidFor:",
  43. protocol: 'testing',
  44. fn: function (aModel){
  45. var self=this;
  46. return smalltalk.withContext(function($ctx1) {
  47. var $1;
  48. $1=_st(aModel)._isToolModel();
  49. return $1;
  50. }, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},smalltalk.HLToolCommand.klass)})},
  51. args: ["aModel"],
  52. source: "isValidFor: aModel\x0a\x09^ aModel isToolModel",
  53. messageSends: ["isToolModel"],
  54. referencedClasses: []
  55. }),
  56. smalltalk.HLToolCommand.klass);
  57. smalltalk.addClass('HLCommitPackageCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools');
  58. smalltalk.addMethod(
  59. smalltalk.method({
  60. selector: "category",
  61. protocol: 'accessing',
  62. fn: function (){
  63. var self=this;
  64. return smalltalk.withContext(function($ctx1) {
  65. return "Packages";
  66. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLCommitPackageCommand)})},
  67. args: [],
  68. source: "category\x0a\x09^ 'Packages'",
  69. messageSends: [],
  70. referencedClasses: []
  71. }),
  72. smalltalk.HLCommitPackageCommand);
  73. smalltalk.addMethod(
  74. smalltalk.method({
  75. selector: "execute",
  76. protocol: 'executing',
  77. fn: function (){
  78. var self=this;
  79. return smalltalk.withContext(function($ctx1) {
  80. _st(self._model())._commitPackage();
  81. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLCommitPackageCommand)})},
  82. args: [],
  83. source: "execute\x0a\x09self model commitPackage",
  84. messageSends: ["commitPackage", "model"],
  85. referencedClasses: []
  86. }),
  87. smalltalk.HLCommitPackageCommand);
  88. smalltalk.addMethod(
  89. smalltalk.method({
  90. selector: "isActive",
  91. protocol: 'testing',
  92. fn: function (){
  93. var self=this;
  94. return smalltalk.withContext(function($ctx1) {
  95. return true;
  96. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLCommitPackageCommand)})},
  97. args: [],
  98. source: "isActive\x0a\x09^ true\x0a\x09\x22 slf model isPackageDirty\x22",
  99. messageSends: [],
  100. referencedClasses: []
  101. }),
  102. smalltalk.HLCommitPackageCommand);
  103. smalltalk.addMethod(
  104. smalltalk.method({
  105. selector: "key",
  106. protocol: 'accessing',
  107. fn: function (){
  108. var self=this;
  109. return smalltalk.withContext(function($ctx1) {
  110. return "k";
  111. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCommitPackageCommand.klass)})},
  112. args: [],
  113. source: "key\x0a\x09^ 'k'",
  114. messageSends: [],
  115. referencedClasses: []
  116. }),
  117. smalltalk.HLCommitPackageCommand.klass);
  118. smalltalk.addMethod(
  119. smalltalk.method({
  120. selector: "label",
  121. protocol: 'accessing',
  122. fn: function (){
  123. var self=this;
  124. return smalltalk.withContext(function($ctx1) {
  125. return "Commit";
  126. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLCommitPackageCommand.klass)})},
  127. args: [],
  128. source: "label\x0a\x09^ 'Commit'",
  129. messageSends: [],
  130. referencedClasses: []
  131. }),
  132. smalltalk.HLCommitPackageCommand.klass);
  133. smalltalk.addClass('HLCopyCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools');
  134. smalltalk.addMethod(
  135. smalltalk.method({
  136. selector: "key",
  137. protocol: 'accessing',
  138. fn: function (){
  139. var self=this;
  140. return smalltalk.withContext(function($ctx1) {
  141. return "c";
  142. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCopyCommand.klass)})},
  143. args: [],
  144. source: "key\x0a\x09^ 'c'",
  145. messageSends: [],
  146. referencedClasses: []
  147. }),
  148. smalltalk.HLCopyCommand.klass);
  149. smalltalk.addMethod(
  150. smalltalk.method({
  151. selector: "label",
  152. protocol: 'accessing',
  153. fn: function (){
  154. var self=this;
  155. return smalltalk.withContext(function($ctx1) {
  156. return "Copy";
  157. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLCopyCommand.klass)})},
  158. args: [],
  159. source: "label\x0a\x09^ 'Copy'",
  160. messageSends: [],
  161. referencedClasses: []
  162. }),
  163. smalltalk.HLCopyCommand.klass);
  164. smalltalk.addClass('HLCopyClassCommand', smalltalk.HLCopyCommand, [], 'Helios-Commands-Tools');
  165. smalltalk.addMethod(
  166. smalltalk.method({
  167. selector: "category",
  168. protocol: 'accessing',
  169. fn: function (){
  170. var self=this;
  171. return smalltalk.withContext(function($ctx1) {
  172. return "Classes";
  173. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLCopyClassCommand)})},
  174. args: [],
  175. source: "category\x0a\x09^ 'Classes'",
  176. messageSends: [],
  177. referencedClasses: []
  178. }),
  179. smalltalk.HLCopyClassCommand);
  180. smalltalk.addMethod(
  181. smalltalk.method({
  182. selector: "defaultInput",
  183. protocol: 'defaults',
  184. fn: function (){
  185. var self=this;
  186. return smalltalk.withContext(function($ctx1) {
  187. var $1;
  188. $1=_st(_st(self._model())._selectedClass())._name();
  189. return $1;
  190. }, function($ctx1) {$ctx1.fill(self,"defaultInput",{},smalltalk.HLCopyClassCommand)})},
  191. args: [],
  192. source: "defaultInput\x0a\x09^ self model selectedClass name",
  193. messageSends: ["name", "selectedClass", "model"],
  194. referencedClasses: []
  195. }),
  196. smalltalk.HLCopyClassCommand);
  197. smalltalk.addMethod(
  198. smalltalk.method({
  199. selector: "displayLabel",
  200. protocol: 'accessing',
  201. fn: function (){
  202. var self=this;
  203. return smalltalk.withContext(function($ctx1) {
  204. return "New class name:";
  205. }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLCopyClassCommand)})},
  206. args: [],
  207. source: "displayLabel\x0a\x09^ 'New class name:'",
  208. messageSends: [],
  209. referencedClasses: []
  210. }),
  211. smalltalk.HLCopyClassCommand);
  212. smalltalk.addMethod(
  213. smalltalk.method({
  214. selector: "execute",
  215. protocol: 'executing',
  216. fn: function (){
  217. var self=this;
  218. return smalltalk.withContext(function($ctx1) {
  219. _st(self._model())._copyClassTo_(self._input());
  220. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLCopyClassCommand)})},
  221. args: [],
  222. source: "execute\x0a\x09self model copyClassTo: self input",
  223. messageSends: ["copyClassTo:", "model", "input"],
  224. referencedClasses: []
  225. }),
  226. smalltalk.HLCopyClassCommand);
  227. smalltalk.addMethod(
  228. smalltalk.method({
  229. selector: "isActive",
  230. protocol: 'testing',
  231. fn: function (){
  232. var self=this;
  233. return smalltalk.withContext(function($ctx1) {
  234. var $1;
  235. $1=_st(_st(self._model())._selectedClass())._notNil();
  236. return $1;
  237. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLCopyClassCommand)})},
  238. args: [],
  239. source: "isActive\x0a\x09^ self model selectedClass notNil",
  240. messageSends: ["notNil", "selectedClass", "model"],
  241. referencedClasses: []
  242. }),
  243. smalltalk.HLCopyClassCommand);
  244. smalltalk.addMethod(
  245. smalltalk.method({
  246. selector: "isInputRequired",
  247. protocol: 'testing',
  248. fn: function (){
  249. var self=this;
  250. return smalltalk.withContext(function($ctx1) {
  251. return true;
  252. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLCopyClassCommand)})},
  253. args: [],
  254. source: "isInputRequired\x0a\x09^ true",
  255. messageSends: [],
  256. referencedClasses: []
  257. }),
  258. smalltalk.HLCopyClassCommand);
  259. smalltalk.addMethod(
  260. smalltalk.method({
  261. selector: "key",
  262. protocol: 'accessing',
  263. fn: function (){
  264. var self=this;
  265. return smalltalk.withContext(function($ctx1) {
  266. return "c";
  267. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCopyClassCommand.klass)})},
  268. args: [],
  269. source: "key\x0a\x09^ 'c'",
  270. messageSends: [],
  271. referencedClasses: []
  272. }),
  273. smalltalk.HLCopyClassCommand.klass);
  274. smalltalk.addMethod(
  275. smalltalk.method({
  276. selector: "label",
  277. protocol: 'accessing',
  278. fn: function (){
  279. var self=this;
  280. return smalltalk.withContext(function($ctx1) {
  281. return "Class";
  282. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLCopyClassCommand.klass)})},
  283. args: [],
  284. source: "label\x0a\x09^ 'Class'",
  285. messageSends: [],
  286. referencedClasses: []
  287. }),
  288. smalltalk.HLCopyClassCommand.klass);
  289. smalltalk.addMethod(
  290. smalltalk.method({
  291. selector: "menuLabel",
  292. protocol: 'accessing',
  293. fn: function (){
  294. var self=this;
  295. return smalltalk.withContext(function($ctx1) {
  296. return "Copy class...";
  297. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLCopyClassCommand.klass)})},
  298. args: [],
  299. source: "menuLabel\x0a\x09^ 'Copy class...'",
  300. messageSends: [],
  301. referencedClasses: []
  302. }),
  303. smalltalk.HLCopyClassCommand.klass);
  304. smalltalk.addClass('HLFindCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools');
  305. smalltalk.addMethod(
  306. smalltalk.method({
  307. selector: "key",
  308. protocol: 'accessing',
  309. fn: function (){
  310. var self=this;
  311. return smalltalk.withContext(function($ctx1) {
  312. return "f";
  313. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLFindCommand.klass)})},
  314. args: [],
  315. source: "key\x0a\x09^ 'f'",
  316. messageSends: [],
  317. referencedClasses: []
  318. }),
  319. smalltalk.HLFindCommand.klass);
  320. smalltalk.addMethod(
  321. smalltalk.method({
  322. selector: "label",
  323. protocol: 'accessing',
  324. fn: function (){
  325. var self=this;
  326. return smalltalk.withContext(function($ctx1) {
  327. return "Find";
  328. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLFindCommand.klass)})},
  329. args: [],
  330. source: "label\x0a\x09^ 'Find'",
  331. messageSends: [],
  332. referencedClasses: []
  333. }),
  334. smalltalk.HLFindCommand.klass);
  335. smalltalk.addClass('HLFindClassCommand', smalltalk.HLFindCommand, [], 'Helios-Commands-Tools');
  336. smalltalk.addMethod(
  337. smalltalk.method({
  338. selector: "displayLabel",
  339. protocol: 'accessing',
  340. fn: function (){
  341. var self=this;
  342. return smalltalk.withContext(function($ctx1) {
  343. return "select a class";
  344. }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLFindClassCommand)})},
  345. args: [],
  346. source: "displayLabel\x0a\x09^ 'select a class'",
  347. messageSends: [],
  348. referencedClasses: []
  349. }),
  350. smalltalk.HLFindClassCommand);
  351. smalltalk.addMethod(
  352. smalltalk.method({
  353. selector: "execute",
  354. protocol: 'executing',
  355. fn: function (){
  356. var self=this;
  357. return smalltalk.withContext(function($ctx1) {
  358. _st(self._model())._openClassNamed_(self._input());
  359. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLFindClassCommand)})},
  360. args: [],
  361. source: "execute\x0a\x09self model openClassNamed: self input",
  362. messageSends: ["openClassNamed:", "model", "input"],
  363. referencedClasses: []
  364. }),
  365. smalltalk.HLFindClassCommand);
  366. smalltalk.addMethod(
  367. smalltalk.method({
  368. selector: "inputCompletion",
  369. protocol: 'accessing',
  370. fn: function (){
  371. var self=this;
  372. return smalltalk.withContext(function($ctx1) {
  373. var $1;
  374. $1=_st(self._model())._availableClassNames();
  375. return $1;
  376. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLFindClassCommand)})},
  377. args: [],
  378. source: "inputCompletion\x0a\x09^ self model availableClassNames",
  379. messageSends: ["availableClassNames", "model"],
  380. referencedClasses: []
  381. }),
  382. smalltalk.HLFindClassCommand);
  383. smalltalk.addMethod(
  384. smalltalk.method({
  385. selector: "inputLabel",
  386. protocol: 'accessing',
  387. fn: function (){
  388. var self=this;
  389. return smalltalk.withContext(function($ctx1) {
  390. return "Find a class";
  391. }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLFindClassCommand)})},
  392. args: [],
  393. source: "inputLabel\x0a\x09^ 'Find a class'",
  394. messageSends: [],
  395. referencedClasses: []
  396. }),
  397. smalltalk.HLFindClassCommand);
  398. smalltalk.addMethod(
  399. smalltalk.method({
  400. selector: "isInputRequired",
  401. protocol: 'testing',
  402. fn: function (){
  403. var self=this;
  404. return smalltalk.withContext(function($ctx1) {
  405. return true;
  406. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLFindClassCommand)})},
  407. args: [],
  408. source: "isInputRequired\x0a\x09^ true",
  409. messageSends: [],
  410. referencedClasses: []
  411. }),
  412. smalltalk.HLFindClassCommand);
  413. smalltalk.addMethod(
  414. smalltalk.method({
  415. selector: "isValidFor:",
  416. protocol: 'testing',
  417. fn: function (aModel){
  418. var self=this;
  419. return smalltalk.withContext(function($ctx1) {
  420. var $1;
  421. $1=_st(aModel)._isBrowserModel();
  422. return $1;
  423. }, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},smalltalk.HLFindClassCommand.klass)})},
  424. args: ["aModel"],
  425. source: "isValidFor: aModel\x0a\x09^ aModel isBrowserModel",
  426. messageSends: ["isBrowserModel"],
  427. referencedClasses: []
  428. }),
  429. smalltalk.HLFindClassCommand.klass);
  430. smalltalk.addMethod(
  431. smalltalk.method({
  432. selector: "key",
  433. protocol: 'accessing',
  434. fn: function (){
  435. var self=this;
  436. return smalltalk.withContext(function($ctx1) {
  437. return "c";
  438. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLFindClassCommand.klass)})},
  439. args: [],
  440. source: "key\x0a\x09^ 'c'",
  441. messageSends: [],
  442. referencedClasses: []
  443. }),
  444. smalltalk.HLFindClassCommand.klass);
  445. smalltalk.addMethod(
  446. smalltalk.method({
  447. selector: "label",
  448. protocol: 'accessing',
  449. fn: function (){
  450. var self=this;
  451. return smalltalk.withContext(function($ctx1) {
  452. return "Class";
  453. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLFindClassCommand.klass)})},
  454. args: [],
  455. source: "label\x0a\x09^ 'Class'",
  456. messageSends: [],
  457. referencedClasses: []
  458. }),
  459. smalltalk.HLFindClassCommand.klass);
  460. smalltalk.addClass('HLFindReferencesCommand', smalltalk.HLFindCommand, [], 'Helios-Commands-Tools');
  461. smalltalk.addMethod(
  462. smalltalk.method({
  463. selector: "defaultInput",
  464. protocol: 'defaults',
  465. fn: function (){
  466. var self=this;
  467. return smalltalk.withContext(function($ctx1) {
  468. var $3,$2,$4,$1;
  469. $3=self._model();
  470. $ctx1.sendIdx["model"]=1;
  471. $2=_st($3)._selectedMethod();
  472. if(($receiver = $2) == nil || $receiver == null){
  473. $4=_st(self._model())._selectedClass();
  474. if(($receiver = $4) == nil || $receiver == null){
  475. $1="";
  476. } else {
  477. var class_;
  478. class_=$receiver;
  479. $1=_st(class_)._name();
  480. };
  481. } else {
  482. var method;
  483. method=$receiver;
  484. $1=_st(method)._selector();
  485. };
  486. return $1;
  487. }, function($ctx1) {$ctx1.fill(self,"defaultInput",{},smalltalk.HLFindReferencesCommand)})},
  488. args: [],
  489. source: "defaultInput\x0a\x09^ self model selectedMethod \x0a\x09\x09ifNil: [\x0a\x09\x09\x09self model selectedClass\x0a\x09\x09\x09\x09ifNil: [ '' ]\x0a\x09\x09\x09\x09ifNotNil: [ :class | class name ] ]\x0a\x09\x09ifNotNil: [ :method | method selector ]",
  490. messageSends: ["ifNil:ifNotNil:", "selectedMethod", "model", "selectedClass", "name", "selector"],
  491. referencedClasses: []
  492. }),
  493. smalltalk.HLFindReferencesCommand);
  494. smalltalk.addMethod(
  495. smalltalk.method({
  496. selector: "displayLabel",
  497. protocol: 'accessing',
  498. fn: function (){
  499. var self=this;
  500. return smalltalk.withContext(function($ctx1) {
  501. return "find references";
  502. }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLFindReferencesCommand)})},
  503. args: [],
  504. source: "displayLabel\x0a\x09^ 'find references'",
  505. messageSends: [],
  506. referencedClasses: []
  507. }),
  508. smalltalk.HLFindReferencesCommand);
  509. smalltalk.addMethod(
  510. smalltalk.method({
  511. selector: "execute",
  512. protocol: 'executing',
  513. fn: function (){
  514. var self=this;
  515. function $HLReferences(){return smalltalk.HLReferences||(typeof HLReferences=="undefined"?nil:HLReferences)}
  516. return smalltalk.withContext(function($ctx1) {
  517. var $1,$2;
  518. $1=_st($HLReferences())._new();
  519. _st($1)._openAsTab();
  520. $2=_st($1)._search_(self._input());
  521. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLFindReferencesCommand)})},
  522. args: [],
  523. source: "execute\x0a\x09HLReferences new \x0a\x09\x09openAsTab;\x0a\x09\x09search: self input",
  524. messageSends: ["openAsTab", "new", "search:", "input"],
  525. referencedClasses: ["HLReferences"]
  526. }),
  527. smalltalk.HLFindReferencesCommand);
  528. smalltalk.addMethod(
  529. smalltalk.method({
  530. selector: "inputCompletion",
  531. protocol: 'accessing',
  532. fn: function (){
  533. var self=this;
  534. return smalltalk.withContext(function($ctx1) {
  535. var $3,$2,$1;
  536. $3=self._model();
  537. $ctx1.sendIdx["model"]=1;
  538. $2=_st($3)._availableClassNames();
  539. $1=_st($2).__comma(_st(self._model())._allSelectors());
  540. return $1;
  541. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLFindReferencesCommand)})},
  542. args: [],
  543. source: "inputCompletion\x0a\x09^ self model availableClassNames, self model allSelectors",
  544. messageSends: [",", "availableClassNames", "model", "allSelectors"],
  545. referencedClasses: []
  546. }),
  547. smalltalk.HLFindReferencesCommand);
  548. smalltalk.addMethod(
  549. smalltalk.method({
  550. selector: "inputLabel",
  551. protocol: 'accessing',
  552. fn: function (){
  553. var self=this;
  554. return smalltalk.withContext(function($ctx1) {
  555. return "Find references of";
  556. }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLFindReferencesCommand)})},
  557. args: [],
  558. source: "inputLabel\x0a\x09^ 'Find references of'",
  559. messageSends: [],
  560. referencedClasses: []
  561. }),
  562. smalltalk.HLFindReferencesCommand);
  563. smalltalk.addMethod(
  564. smalltalk.method({
  565. selector: "isInputRequired",
  566. protocol: 'testing',
  567. fn: function (){
  568. var self=this;
  569. return smalltalk.withContext(function($ctx1) {
  570. return true;
  571. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLFindReferencesCommand)})},
  572. args: [],
  573. source: "isInputRequired\x0a\x09^ true",
  574. messageSends: [],
  575. referencedClasses: []
  576. }),
  577. smalltalk.HLFindReferencesCommand);
  578. smalltalk.addMethod(
  579. smalltalk.method({
  580. selector: "key",
  581. protocol: 'accessing',
  582. fn: function (){
  583. var self=this;
  584. return smalltalk.withContext(function($ctx1) {
  585. return "r";
  586. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLFindReferencesCommand.klass)})},
  587. args: [],
  588. source: "key\x0a\x09^ 'r'",
  589. messageSends: [],
  590. referencedClasses: []
  591. }),
  592. smalltalk.HLFindReferencesCommand.klass);
  593. smalltalk.addMethod(
  594. smalltalk.method({
  595. selector: "label",
  596. protocol: 'accessing',
  597. fn: function (){
  598. var self=this;
  599. return smalltalk.withContext(function($ctx1) {
  600. return "References";
  601. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLFindReferencesCommand.klass)})},
  602. args: [],
  603. source: "label\x0a\x09^ 'References'",
  604. messageSends: [],
  605. referencedClasses: []
  606. }),
  607. smalltalk.HLFindReferencesCommand.klass);
  608. smalltalk.addClass('HLMoveToCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools');
  609. smalltalk.addMethod(
  610. smalltalk.method({
  611. selector: "key",
  612. protocol: 'accessing',
  613. fn: function (){
  614. var self=this;
  615. return smalltalk.withContext(function($ctx1) {
  616. return "m";
  617. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveToCommand.klass)})},
  618. args: [],
  619. source: "key\x0a\x09^ 'm'",
  620. messageSends: [],
  621. referencedClasses: []
  622. }),
  623. smalltalk.HLMoveToCommand.klass);
  624. smalltalk.addMethod(
  625. smalltalk.method({
  626. selector: "label",
  627. protocol: 'accessing',
  628. fn: function (){
  629. var self=this;
  630. return smalltalk.withContext(function($ctx1) {
  631. return "Move";
  632. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveToCommand.klass)})},
  633. args: [],
  634. source: "label\x0a\x09^ 'Move'",
  635. messageSends: [],
  636. referencedClasses: []
  637. }),
  638. smalltalk.HLMoveToCommand.klass);
  639. smalltalk.addClass('HLMoveClassToCommand', smalltalk.HLMoveToCommand, [], 'Helios-Commands-Tools');
  640. smalltalk.addMethod(
  641. smalltalk.method({
  642. selector: "isActive",
  643. protocol: 'testing',
  644. fn: function (){
  645. var self=this;
  646. return smalltalk.withContext(function($ctx1) {
  647. var $1;
  648. $1=_st(_st(self._model())._selectedClass())._notNil();
  649. return $1;
  650. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLMoveClassToCommand)})},
  651. args: [],
  652. source: "isActive\x0a\x09^ self model selectedClass notNil",
  653. messageSends: ["notNil", "selectedClass", "model"],
  654. referencedClasses: []
  655. }),
  656. smalltalk.HLMoveClassToCommand);
  657. smalltalk.addMethod(
  658. smalltalk.method({
  659. selector: "key",
  660. protocol: 'accessing',
  661. fn: function (){
  662. var self=this;
  663. return smalltalk.withContext(function($ctx1) {
  664. return "c";
  665. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveClassToCommand.klass)})},
  666. args: [],
  667. source: "key\x0a\x09^ 'c'",
  668. messageSends: [],
  669. referencedClasses: []
  670. }),
  671. smalltalk.HLMoveClassToCommand.klass);
  672. smalltalk.addMethod(
  673. smalltalk.method({
  674. selector: "label",
  675. protocol: 'accessing',
  676. fn: function (){
  677. var self=this;
  678. return smalltalk.withContext(function($ctx1) {
  679. return "Class";
  680. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveClassToCommand.klass)})},
  681. args: [],
  682. source: "label\x0a\x09^ 'Class'",
  683. messageSends: [],
  684. referencedClasses: []
  685. }),
  686. smalltalk.HLMoveClassToCommand.klass);
  687. smalltalk.addClass('HLMoveClassToPackageCommand', smalltalk.HLMoveClassToCommand, [], 'Helios-Commands-Tools');
  688. smalltalk.addMethod(
  689. smalltalk.method({
  690. selector: "category",
  691. protocol: 'accessing',
  692. fn: function (){
  693. var self=this;
  694. return smalltalk.withContext(function($ctx1) {
  695. return "Classes";
  696. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLMoveClassToPackageCommand)})},
  697. args: [],
  698. source: "category\x0a\x09^ 'Classes'",
  699. messageSends: [],
  700. referencedClasses: []
  701. }),
  702. smalltalk.HLMoveClassToPackageCommand);
  703. smalltalk.addMethod(
  704. smalltalk.method({
  705. selector: "displayLabel",
  706. protocol: 'accessing',
  707. fn: function (){
  708. var self=this;
  709. return smalltalk.withContext(function($ctx1) {
  710. return "select a package";
  711. }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLMoveClassToPackageCommand)})},
  712. args: [],
  713. source: "displayLabel\x0a\x09^ 'select a package'",
  714. messageSends: [],
  715. referencedClasses: []
  716. }),
  717. smalltalk.HLMoveClassToPackageCommand);
  718. smalltalk.addMethod(
  719. smalltalk.method({
  720. selector: "execute",
  721. protocol: 'executing',
  722. fn: function (){
  723. var self=this;
  724. return smalltalk.withContext(function($ctx1) {
  725. _st(self._model())._moveClassToPackage_(self._input());
  726. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLMoveClassToPackageCommand)})},
  727. args: [],
  728. source: "execute\x0a\x09self model moveClassToPackage: self input",
  729. messageSends: ["moveClassToPackage:", "model", "input"],
  730. referencedClasses: []
  731. }),
  732. smalltalk.HLMoveClassToPackageCommand);
  733. smalltalk.addMethod(
  734. smalltalk.method({
  735. selector: "inputCompletion",
  736. protocol: 'accessing',
  737. fn: function (){
  738. var self=this;
  739. return smalltalk.withContext(function($ctx1) {
  740. var $1;
  741. $1=_st(self._model())._availablePackageNames();
  742. return $1;
  743. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLMoveClassToPackageCommand)})},
  744. args: [],
  745. source: "inputCompletion\x0a\x09^ self model availablePackageNames",
  746. messageSends: ["availablePackageNames", "model"],
  747. referencedClasses: []
  748. }),
  749. smalltalk.HLMoveClassToPackageCommand);
  750. smalltalk.addMethod(
  751. smalltalk.method({
  752. selector: "inputLabel",
  753. protocol: 'accessing',
  754. fn: function (){
  755. var self=this;
  756. return smalltalk.withContext(function($ctx1) {
  757. return "Move class to package:";
  758. }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLMoveClassToPackageCommand)})},
  759. args: [],
  760. source: "inputLabel\x0a\x09^ 'Move class to package:'",
  761. messageSends: [],
  762. referencedClasses: []
  763. }),
  764. smalltalk.HLMoveClassToPackageCommand);
  765. smalltalk.addMethod(
  766. smalltalk.method({
  767. selector: "isInputRequired",
  768. protocol: 'testing',
  769. fn: function (){
  770. var self=this;
  771. return smalltalk.withContext(function($ctx1) {
  772. return true;
  773. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLMoveClassToPackageCommand)})},
  774. args: [],
  775. source: "isInputRequired\x0a\x09^ true",
  776. messageSends: [],
  777. referencedClasses: []
  778. }),
  779. smalltalk.HLMoveClassToPackageCommand);
  780. smalltalk.addMethod(
  781. smalltalk.method({
  782. selector: "key",
  783. protocol: 'accessing',
  784. fn: function (){
  785. var self=this;
  786. return smalltalk.withContext(function($ctx1) {
  787. return "p";
  788. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveClassToPackageCommand.klass)})},
  789. args: [],
  790. source: "key\x0a\x09^ 'p'",
  791. messageSends: [],
  792. referencedClasses: []
  793. }),
  794. smalltalk.HLMoveClassToPackageCommand.klass);
  795. smalltalk.addMethod(
  796. smalltalk.method({
  797. selector: "label",
  798. protocol: 'accessing',
  799. fn: function (){
  800. var self=this;
  801. return smalltalk.withContext(function($ctx1) {
  802. return "to package";
  803. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveClassToPackageCommand.klass)})},
  804. args: [],
  805. source: "label\x0a\x09^ 'to package'",
  806. messageSends: [],
  807. referencedClasses: []
  808. }),
  809. smalltalk.HLMoveClassToPackageCommand.klass);
  810. smalltalk.addMethod(
  811. smalltalk.method({
  812. selector: "menuLabel",
  813. protocol: 'accessing',
  814. fn: function (){
  815. var self=this;
  816. return smalltalk.withContext(function($ctx1) {
  817. return "Move to package...";
  818. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLMoveClassToPackageCommand.klass)})},
  819. args: [],
  820. source: "menuLabel\x09\x0a\x09^ 'Move to package...'",
  821. messageSends: [],
  822. referencedClasses: []
  823. }),
  824. smalltalk.HLMoveClassToPackageCommand.klass);
  825. smalltalk.addClass('HLMoveMethodToCommand', smalltalk.HLMoveToCommand, [], 'Helios-Commands-Tools');
  826. smalltalk.addMethod(
  827. smalltalk.method({
  828. selector: "category",
  829. protocol: 'accessing',
  830. fn: function (){
  831. var self=this;
  832. return smalltalk.withContext(function($ctx1) {
  833. return "Methods";
  834. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLMoveMethodToCommand)})},
  835. args: [],
  836. source: "category\x0a\x09^ 'Methods'",
  837. messageSends: [],
  838. referencedClasses: []
  839. }),
  840. smalltalk.HLMoveMethodToCommand);
  841. smalltalk.addMethod(
  842. smalltalk.method({
  843. selector: "isActive",
  844. protocol: 'testing',
  845. fn: function (){
  846. var self=this;
  847. return smalltalk.withContext(function($ctx1) {
  848. var $1;
  849. $1=_st(_st(self._model())._selectedMethod())._notNil();
  850. return $1;
  851. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLMoveMethodToCommand)})},
  852. args: [],
  853. source: "isActive\x0a\x09^ self model selectedMethod notNil",
  854. messageSends: ["notNil", "selectedMethod", "model"],
  855. referencedClasses: []
  856. }),
  857. smalltalk.HLMoveMethodToCommand);
  858. smalltalk.addMethod(
  859. smalltalk.method({
  860. selector: "key",
  861. protocol: 'accessing',
  862. fn: function (){
  863. var self=this;
  864. return smalltalk.withContext(function($ctx1) {
  865. return "m";
  866. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToCommand.klass)})},
  867. args: [],
  868. source: "key\x0a\x09^ 'm'",
  869. messageSends: [],
  870. referencedClasses: []
  871. }),
  872. smalltalk.HLMoveMethodToCommand.klass);
  873. smalltalk.addMethod(
  874. smalltalk.method({
  875. selector: "label",
  876. protocol: 'accessing',
  877. fn: function (){
  878. var self=this;
  879. return smalltalk.withContext(function($ctx1) {
  880. return "Method";
  881. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToCommand.klass)})},
  882. args: [],
  883. source: "label\x0a\x09^ 'Method'",
  884. messageSends: [],
  885. referencedClasses: []
  886. }),
  887. smalltalk.HLMoveMethodToCommand.klass);
  888. smalltalk.addClass('HLMoveMethodToClassCommand', smalltalk.HLMoveMethodToCommand, [], 'Helios-Commands-Tools');
  889. smalltalk.addMethod(
  890. smalltalk.method({
  891. selector: "displayLabel",
  892. protocol: 'accessing',
  893. fn: function (){
  894. var self=this;
  895. return smalltalk.withContext(function($ctx1) {
  896. return "select a class";
  897. }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLMoveMethodToClassCommand)})},
  898. args: [],
  899. source: "displayLabel\x0a\x09^ 'select a class'",
  900. messageSends: [],
  901. referencedClasses: []
  902. }),
  903. smalltalk.HLMoveMethodToClassCommand);
  904. smalltalk.addMethod(
  905. smalltalk.method({
  906. selector: "execute",
  907. protocol: 'executing',
  908. fn: function (){
  909. var self=this;
  910. return smalltalk.withContext(function($ctx1) {
  911. _st(self._model())._moveMethodToClass_(self._input());
  912. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLMoveMethodToClassCommand)})},
  913. args: [],
  914. source: "execute\x0a\x09self model moveMethodToClass: self input",
  915. messageSends: ["moveMethodToClass:", "model", "input"],
  916. referencedClasses: []
  917. }),
  918. smalltalk.HLMoveMethodToClassCommand);
  919. smalltalk.addMethod(
  920. smalltalk.method({
  921. selector: "inputCompletion",
  922. protocol: 'accessing',
  923. fn: function (){
  924. var self=this;
  925. return smalltalk.withContext(function($ctx1) {
  926. var $1;
  927. $1=_st(self._model())._availableClassNames();
  928. return $1;
  929. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLMoveMethodToClassCommand)})},
  930. args: [],
  931. source: "inputCompletion\x0a\x09^ self model availableClassNames",
  932. messageSends: ["availableClassNames", "model"],
  933. referencedClasses: []
  934. }),
  935. smalltalk.HLMoveMethodToClassCommand);
  936. smalltalk.addMethod(
  937. smalltalk.method({
  938. selector: "inputLabel",
  939. protocol: 'accessing',
  940. fn: function (){
  941. var self=this;
  942. return smalltalk.withContext(function($ctx1) {
  943. return "Move method to class:";
  944. }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLMoveMethodToClassCommand)})},
  945. args: [],
  946. source: "inputLabel\x0a\x09^ 'Move method to class:'",
  947. messageSends: [],
  948. referencedClasses: []
  949. }),
  950. smalltalk.HLMoveMethodToClassCommand);
  951. smalltalk.addMethod(
  952. smalltalk.method({
  953. selector: "isInputRequired",
  954. protocol: 'testing',
  955. fn: function (){
  956. var self=this;
  957. return smalltalk.withContext(function($ctx1) {
  958. return true;
  959. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLMoveMethodToClassCommand)})},
  960. args: [],
  961. source: "isInputRequired\x0a\x09^ true",
  962. messageSends: [],
  963. referencedClasses: []
  964. }),
  965. smalltalk.HLMoveMethodToClassCommand);
  966. smalltalk.addMethod(
  967. smalltalk.method({
  968. selector: "key",
  969. protocol: 'accessing',
  970. fn: function (){
  971. var self=this;
  972. return smalltalk.withContext(function($ctx1) {
  973. return "c";
  974. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToClassCommand.klass)})},
  975. args: [],
  976. source: "key\x0a\x09^ 'c'",
  977. messageSends: [],
  978. referencedClasses: []
  979. }),
  980. smalltalk.HLMoveMethodToClassCommand.klass);
  981. smalltalk.addMethod(
  982. smalltalk.method({
  983. selector: "label",
  984. protocol: 'accessing',
  985. fn: function (){
  986. var self=this;
  987. return smalltalk.withContext(function($ctx1) {
  988. return "to class";
  989. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToClassCommand.klass)})},
  990. args: [],
  991. source: "label\x09\x0a\x09^ 'to class'",
  992. messageSends: [],
  993. referencedClasses: []
  994. }),
  995. smalltalk.HLMoveMethodToClassCommand.klass);
  996. smalltalk.addMethod(
  997. smalltalk.method({
  998. selector: "menuLabel",
  999. protocol: 'accessing',
  1000. fn: function (){
  1001. var self=this;
  1002. return smalltalk.withContext(function($ctx1) {
  1003. return "Move to class...";
  1004. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLMoveMethodToClassCommand.klass)})},
  1005. args: [],
  1006. source: "menuLabel\x09\x0a\x09^ 'Move to class...'",
  1007. messageSends: [],
  1008. referencedClasses: []
  1009. }),
  1010. smalltalk.HLMoveMethodToClassCommand.klass);
  1011. smalltalk.addClass('HLMoveMethodToProtocolCommand', smalltalk.HLMoveMethodToCommand, [], 'Helios-Commands-Tools');
  1012. smalltalk.addMethod(
  1013. smalltalk.method({
  1014. selector: "displayLabel",
  1015. protocol: 'accessing',
  1016. fn: function (){
  1017. var self=this;
  1018. return smalltalk.withContext(function($ctx1) {
  1019. return "select a protocol";
  1020. }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLMoveMethodToProtocolCommand)})},
  1021. args: [],
  1022. source: "displayLabel\x0a\x09^ 'select a protocol'",
  1023. messageSends: [],
  1024. referencedClasses: []
  1025. }),
  1026. smalltalk.HLMoveMethodToProtocolCommand);
  1027. smalltalk.addMethod(
  1028. smalltalk.method({
  1029. selector: "execute",
  1030. protocol: 'executing',
  1031. fn: function (){
  1032. var self=this;
  1033. return smalltalk.withContext(function($ctx1) {
  1034. _st(self._model())._moveMethodToProtocol_(self._input());
  1035. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLMoveMethodToProtocolCommand)})},
  1036. args: [],
  1037. source: "execute\x0a\x09self model moveMethodToProtocol: self input",
  1038. messageSends: ["moveMethodToProtocol:", "model", "input"],
  1039. referencedClasses: []
  1040. }),
  1041. smalltalk.HLMoveMethodToProtocolCommand);
  1042. smalltalk.addMethod(
  1043. smalltalk.method({
  1044. selector: "inputCompletion",
  1045. protocol: 'accessing',
  1046. fn: function (){
  1047. var self=this;
  1048. return smalltalk.withContext(function($ctx1) {
  1049. var $1;
  1050. $1=_st(self._model())._availableProtocols();
  1051. return $1;
  1052. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLMoveMethodToProtocolCommand)})},
  1053. args: [],
  1054. source: "inputCompletion\x0a\x09^ self model availableProtocols",
  1055. messageSends: ["availableProtocols", "model"],
  1056. referencedClasses: []
  1057. }),
  1058. smalltalk.HLMoveMethodToProtocolCommand);
  1059. smalltalk.addMethod(
  1060. smalltalk.method({
  1061. selector: "inputLabel",
  1062. protocol: 'accessing',
  1063. fn: function (){
  1064. var self=this;
  1065. return smalltalk.withContext(function($ctx1) {
  1066. return "Move method to a protocol:";
  1067. }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLMoveMethodToProtocolCommand)})},
  1068. args: [],
  1069. source: "inputLabel\x0a\x09^ 'Move method to a protocol:'",
  1070. messageSends: [],
  1071. referencedClasses: []
  1072. }),
  1073. smalltalk.HLMoveMethodToProtocolCommand);
  1074. smalltalk.addMethod(
  1075. smalltalk.method({
  1076. selector: "isInputRequired",
  1077. protocol: 'testing',
  1078. fn: function (){
  1079. var self=this;
  1080. return smalltalk.withContext(function($ctx1) {
  1081. return true;
  1082. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLMoveMethodToProtocolCommand)})},
  1083. args: [],
  1084. source: "isInputRequired\x0a\x09^ true",
  1085. messageSends: [],
  1086. referencedClasses: []
  1087. }),
  1088. smalltalk.HLMoveMethodToProtocolCommand);
  1089. smalltalk.addMethod(
  1090. smalltalk.method({
  1091. selector: "key",
  1092. protocol: 'accessing',
  1093. fn: function (){
  1094. var self=this;
  1095. return smalltalk.withContext(function($ctx1) {
  1096. return "t";
  1097. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})},
  1098. args: [],
  1099. source: "key\x0a\x09^ 't'",
  1100. messageSends: [],
  1101. referencedClasses: []
  1102. }),
  1103. smalltalk.HLMoveMethodToProtocolCommand.klass);
  1104. smalltalk.addMethod(
  1105. smalltalk.method({
  1106. selector: "label",
  1107. protocol: 'accessing',
  1108. fn: function (){
  1109. var self=this;
  1110. return smalltalk.withContext(function($ctx1) {
  1111. return "to protocol";
  1112. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})},
  1113. args: [],
  1114. source: "label\x0a\x09^ 'to protocol'",
  1115. messageSends: [],
  1116. referencedClasses: []
  1117. }),
  1118. smalltalk.HLMoveMethodToProtocolCommand.klass);
  1119. smalltalk.addMethod(
  1120. smalltalk.method({
  1121. selector: "menuLabel",
  1122. protocol: 'accessing',
  1123. fn: function (){
  1124. var self=this;
  1125. return smalltalk.withContext(function($ctx1) {
  1126. return "Move to protocol...";
  1127. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})},
  1128. args: [],
  1129. source: "menuLabel\x0a\x09^ 'Move to protocol...'",
  1130. messageSends: [],
  1131. referencedClasses: []
  1132. }),
  1133. smalltalk.HLMoveMethodToProtocolCommand.klass);
  1134. smalltalk.addClass('HLRemoveCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools');
  1135. smalltalk.addMethod(
  1136. smalltalk.method({
  1137. selector: "key",
  1138. protocol: 'accessing',
  1139. fn: function (){
  1140. var self=this;
  1141. return smalltalk.withContext(function($ctx1) {
  1142. return "x";
  1143. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveCommand.klass)})},
  1144. args: [],
  1145. source: "key\x0a\x09^ 'x'",
  1146. messageSends: [],
  1147. referencedClasses: []
  1148. }),
  1149. smalltalk.HLRemoveCommand.klass);
  1150. smalltalk.addMethod(
  1151. smalltalk.method({
  1152. selector: "label",
  1153. protocol: 'accessing',
  1154. fn: function (){
  1155. var self=this;
  1156. return smalltalk.withContext(function($ctx1) {
  1157. return "Remove";
  1158. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRemoveCommand.klass)})},
  1159. args: [],
  1160. source: "label\x0a\x09^ 'Remove'",
  1161. messageSends: [],
  1162. referencedClasses: []
  1163. }),
  1164. smalltalk.HLRemoveCommand.klass);
  1165. smalltalk.addClass('HLRemoveClassCommand', smalltalk.HLRemoveCommand, [], 'Helios-Commands-Tools');
  1166. smalltalk.addMethod(
  1167. smalltalk.method({
  1168. selector: "category",
  1169. protocol: 'accessing',
  1170. fn: function (){
  1171. var self=this;
  1172. return smalltalk.withContext(function($ctx1) {
  1173. return "Classes";
  1174. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLRemoveClassCommand)})},
  1175. args: [],
  1176. source: "category\x0a\x09^ 'Classes'",
  1177. messageSends: [],
  1178. referencedClasses: []
  1179. }),
  1180. smalltalk.HLRemoveClassCommand);
  1181. smalltalk.addMethod(
  1182. smalltalk.method({
  1183. selector: "execute",
  1184. protocol: 'executing',
  1185. fn: function (){
  1186. var self=this;
  1187. return smalltalk.withContext(function($ctx1) {
  1188. _st(self._model())._removeClass();
  1189. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLRemoveClassCommand)})},
  1190. args: [],
  1191. source: "execute\x0a\x09self model removeClass",
  1192. messageSends: ["removeClass", "model"],
  1193. referencedClasses: []
  1194. }),
  1195. smalltalk.HLRemoveClassCommand);
  1196. smalltalk.addMethod(
  1197. smalltalk.method({
  1198. selector: "isActive",
  1199. protocol: 'testing',
  1200. fn: function (){
  1201. var self=this;
  1202. return smalltalk.withContext(function($ctx1) {
  1203. var $1;
  1204. $1=_st(_st(self._model())._selectedClass())._notNil();
  1205. return $1;
  1206. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLRemoveClassCommand)})},
  1207. args: [],
  1208. source: "isActive\x0a\x09^ self model selectedClass notNil",
  1209. messageSends: ["notNil", "selectedClass", "model"],
  1210. referencedClasses: []
  1211. }),
  1212. smalltalk.HLRemoveClassCommand);
  1213. smalltalk.addMethod(
  1214. smalltalk.method({
  1215. selector: "key",
  1216. protocol: 'accessing',
  1217. fn: function (){
  1218. var self=this;
  1219. return smalltalk.withContext(function($ctx1) {
  1220. return "c";
  1221. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveClassCommand.klass)})},
  1222. args: [],
  1223. source: "key\x0a\x09^ 'c'",
  1224. messageSends: [],
  1225. referencedClasses: []
  1226. }),
  1227. smalltalk.HLRemoveClassCommand.klass);
  1228. smalltalk.addMethod(
  1229. smalltalk.method({
  1230. selector: "label",
  1231. protocol: 'accessing',
  1232. fn: function (){
  1233. var self=this;
  1234. return smalltalk.withContext(function($ctx1) {
  1235. return "Class";
  1236. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRemoveClassCommand.klass)})},
  1237. args: [],
  1238. source: "label\x0a\x09^ 'Class'",
  1239. messageSends: [],
  1240. referencedClasses: []
  1241. }),
  1242. smalltalk.HLRemoveClassCommand.klass);
  1243. smalltalk.addMethod(
  1244. smalltalk.method({
  1245. selector: "menuLabel",
  1246. protocol: 'accessing',
  1247. fn: function (){
  1248. var self=this;
  1249. return smalltalk.withContext(function($ctx1) {
  1250. return "Remove class";
  1251. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLRemoveClassCommand.klass)})},
  1252. args: [],
  1253. source: "menuLabel\x0a\x09^ 'Remove class'",
  1254. messageSends: [],
  1255. referencedClasses: []
  1256. }),
  1257. smalltalk.HLRemoveClassCommand.klass);
  1258. smalltalk.addClass('HLRemoveMethodCommand', smalltalk.HLRemoveCommand, [], 'Helios-Commands-Tools');
  1259. smalltalk.addMethod(
  1260. smalltalk.method({
  1261. selector: "category",
  1262. protocol: 'accessing',
  1263. fn: function (){
  1264. var self=this;
  1265. return smalltalk.withContext(function($ctx1) {
  1266. return "Methods";
  1267. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLRemoveMethodCommand)})},
  1268. args: [],
  1269. source: "category\x0a\x09^ 'Methods'",
  1270. messageSends: [],
  1271. referencedClasses: []
  1272. }),
  1273. smalltalk.HLRemoveMethodCommand);
  1274. smalltalk.addMethod(
  1275. smalltalk.method({
  1276. selector: "execute",
  1277. protocol: 'executing',
  1278. fn: function (){
  1279. var self=this;
  1280. return smalltalk.withContext(function($ctx1) {
  1281. _st(self._model())._removeMethod();
  1282. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLRemoveMethodCommand)})},
  1283. args: [],
  1284. source: "execute\x0a\x09self model removeMethod",
  1285. messageSends: ["removeMethod", "model"],
  1286. referencedClasses: []
  1287. }),
  1288. smalltalk.HLRemoveMethodCommand);
  1289. smalltalk.addMethod(
  1290. smalltalk.method({
  1291. selector: "isActive",
  1292. protocol: 'testing',
  1293. fn: function (){
  1294. var self=this;
  1295. return smalltalk.withContext(function($ctx1) {
  1296. var $1;
  1297. $1=_st(_st(self._model())._selectedMethod())._notNil();
  1298. return $1;
  1299. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLRemoveMethodCommand)})},
  1300. args: [],
  1301. source: "isActive\x0a\x09^ self model selectedMethod notNil",
  1302. messageSends: ["notNil", "selectedMethod", "model"],
  1303. referencedClasses: []
  1304. }),
  1305. smalltalk.HLRemoveMethodCommand);
  1306. smalltalk.addMethod(
  1307. smalltalk.method({
  1308. selector: "key",
  1309. protocol: 'accessing',
  1310. fn: function (){
  1311. var self=this;
  1312. return smalltalk.withContext(function($ctx1) {
  1313. return "m";
  1314. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveMethodCommand.klass)})},
  1315. args: [],
  1316. source: "key\x0a\x09^ 'm'",
  1317. messageSends: [],
  1318. referencedClasses: []
  1319. }),
  1320. smalltalk.HLRemoveMethodCommand.klass);
  1321. smalltalk.addMethod(
  1322. smalltalk.method({
  1323. selector: "label",
  1324. protocol: 'accessing',
  1325. fn: function (){
  1326. var self=this;
  1327. return smalltalk.withContext(function($ctx1) {
  1328. return "Method";
  1329. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRemoveMethodCommand.klass)})},
  1330. args: [],
  1331. source: "label\x0a\x09^ 'Method'",
  1332. messageSends: [],
  1333. referencedClasses: []
  1334. }),
  1335. smalltalk.HLRemoveMethodCommand.klass);
  1336. smalltalk.addMethod(
  1337. smalltalk.method({
  1338. selector: "menuLabel",
  1339. protocol: 'accessing',
  1340. fn: function (){
  1341. var self=this;
  1342. return smalltalk.withContext(function($ctx1) {
  1343. return "Remove method";
  1344. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLRemoveMethodCommand.klass)})},
  1345. args: [],
  1346. source: "menuLabel\x0a\x09^ 'Remove method'",
  1347. messageSends: [],
  1348. referencedClasses: []
  1349. }),
  1350. smalltalk.HLRemoveMethodCommand.klass);
  1351. smalltalk.addClass('HLRemoveProtocolCommand', smalltalk.HLRemoveCommand, [], 'Helios-Commands-Tools');
  1352. smalltalk.addMethod(
  1353. smalltalk.method({
  1354. selector: "category",
  1355. protocol: 'accessing',
  1356. fn: function (){
  1357. var self=this;
  1358. return smalltalk.withContext(function($ctx1) {
  1359. return "Protocols";
  1360. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLRemoveProtocolCommand)})},
  1361. args: [],
  1362. source: "category\x0a\x09^ 'Protocols'",
  1363. messageSends: [],
  1364. referencedClasses: []
  1365. }),
  1366. smalltalk.HLRemoveProtocolCommand);
  1367. smalltalk.addMethod(
  1368. smalltalk.method({
  1369. selector: "execute",
  1370. protocol: 'executing',
  1371. fn: function (){
  1372. var self=this;
  1373. return smalltalk.withContext(function($ctx1) {
  1374. _st(self._model())._removeProtocol();
  1375. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLRemoveProtocolCommand)})},
  1376. args: [],
  1377. source: "execute\x0a\x09self model removeProtocol",
  1378. messageSends: ["removeProtocol", "model"],
  1379. referencedClasses: []
  1380. }),
  1381. smalltalk.HLRemoveProtocolCommand);
  1382. smalltalk.addMethod(
  1383. smalltalk.method({
  1384. selector: "isActive",
  1385. protocol: 'testing',
  1386. fn: function (){
  1387. var self=this;
  1388. return smalltalk.withContext(function($ctx1) {
  1389. var $1;
  1390. $1=_st(_st(self._model())._selectedProtocol())._notNil();
  1391. return $1;
  1392. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLRemoveProtocolCommand)})},
  1393. args: [],
  1394. source: "isActive\x0a\x09^ self model selectedProtocol notNil",
  1395. messageSends: ["notNil", "selectedProtocol", "model"],
  1396. referencedClasses: []
  1397. }),
  1398. smalltalk.HLRemoveProtocolCommand);
  1399. smalltalk.addMethod(
  1400. smalltalk.method({
  1401. selector: "key",
  1402. protocol: 'accessing',
  1403. fn: function (){
  1404. var self=this;
  1405. return smalltalk.withContext(function($ctx1) {
  1406. return "t";
  1407. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveProtocolCommand.klass)})},
  1408. args: [],
  1409. source: "key\x0a\x09^ 't'",
  1410. messageSends: [],
  1411. referencedClasses: []
  1412. }),
  1413. smalltalk.HLRemoveProtocolCommand.klass);
  1414. smalltalk.addMethod(
  1415. smalltalk.method({
  1416. selector: "label",
  1417. protocol: 'accessing',
  1418. fn: function (){
  1419. var self=this;
  1420. return smalltalk.withContext(function($ctx1) {
  1421. return "Protocol";
  1422. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRemoveProtocolCommand.klass)})},
  1423. args: [],
  1424. source: "label\x0a\x09^ 'Protocol'",
  1425. messageSends: [],
  1426. referencedClasses: []
  1427. }),
  1428. smalltalk.HLRemoveProtocolCommand.klass);
  1429. smalltalk.addMethod(
  1430. smalltalk.method({
  1431. selector: "menuLabel",
  1432. protocol: 'accessing',
  1433. fn: function (){
  1434. var self=this;
  1435. return smalltalk.withContext(function($ctx1) {
  1436. return "Remove protocol";
  1437. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLRemoveProtocolCommand.klass)})},
  1438. args: [],
  1439. source: "menuLabel\x0a\x09^ 'Remove protocol'",
  1440. messageSends: [],
  1441. referencedClasses: []
  1442. }),
  1443. smalltalk.HLRemoveProtocolCommand.klass);
  1444. smalltalk.addClass('HLRenameCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools');
  1445. smalltalk.addMethod(
  1446. smalltalk.method({
  1447. selector: "key",
  1448. protocol: 'accessing',
  1449. fn: function (){
  1450. var self=this;
  1451. return smalltalk.withContext(function($ctx1) {
  1452. return "r";
  1453. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRenameCommand.klass)})},
  1454. args: [],
  1455. source: "key\x0a\x09^ 'r'",
  1456. messageSends: [],
  1457. referencedClasses: []
  1458. }),
  1459. smalltalk.HLRenameCommand.klass);
  1460. smalltalk.addMethod(
  1461. smalltalk.method({
  1462. selector: "label",
  1463. protocol: 'accessing',
  1464. fn: function (){
  1465. var self=this;
  1466. return smalltalk.withContext(function($ctx1) {
  1467. return "Rename";
  1468. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRenameCommand.klass)})},
  1469. args: [],
  1470. source: "label\x0a\x09^ 'Rename'",
  1471. messageSends: [],
  1472. referencedClasses: []
  1473. }),
  1474. smalltalk.HLRenameCommand.klass);
  1475. smalltalk.addClass('HLRenameClassCommand', smalltalk.HLRenameCommand, [], 'Helios-Commands-Tools');
  1476. smalltalk.addMethod(
  1477. smalltalk.method({
  1478. selector: "category",
  1479. protocol: 'accessing',
  1480. fn: function (){
  1481. var self=this;
  1482. return smalltalk.withContext(function($ctx1) {
  1483. return "Classes";
  1484. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLRenameClassCommand)})},
  1485. args: [],
  1486. source: "category\x0a\x09^ 'Classes'",
  1487. messageSends: [],
  1488. referencedClasses: []
  1489. }),
  1490. smalltalk.HLRenameClassCommand);
  1491. smalltalk.addMethod(
  1492. smalltalk.method({
  1493. selector: "defaultInput",
  1494. protocol: 'defaults',
  1495. fn: function (){
  1496. var self=this;
  1497. return smalltalk.withContext(function($ctx1) {
  1498. var $1;
  1499. $1=_st(_st(_st(self._model())._selectedClass())._theNonMetaClass())._name();
  1500. return $1;
  1501. }, function($ctx1) {$ctx1.fill(self,"defaultInput",{},smalltalk.HLRenameClassCommand)})},
  1502. args: [],
  1503. source: "defaultInput\x0a\x09^ self model selectedClass theNonMetaClass name",
  1504. messageSends: ["name", "theNonMetaClass", "selectedClass", "model"],
  1505. referencedClasses: []
  1506. }),
  1507. smalltalk.HLRenameClassCommand);
  1508. smalltalk.addMethod(
  1509. smalltalk.method({
  1510. selector: "displayLabel",
  1511. protocol: 'accessing',
  1512. fn: function (){
  1513. var self=this;
  1514. return smalltalk.withContext(function($ctx1) {
  1515. return "Rename class to:";
  1516. }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLRenameClassCommand)})},
  1517. args: [],
  1518. source: "displayLabel\x0a\x09^ 'Rename class to:'",
  1519. messageSends: [],
  1520. referencedClasses: []
  1521. }),
  1522. smalltalk.HLRenameClassCommand);
  1523. smalltalk.addMethod(
  1524. smalltalk.method({
  1525. selector: "execute",
  1526. protocol: 'executing',
  1527. fn: function (){
  1528. var self=this;
  1529. return smalltalk.withContext(function($ctx1) {
  1530. _st(self._model())._renameClassTo_(self._input());
  1531. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLRenameClassCommand)})},
  1532. args: [],
  1533. source: "execute\x0a\x09self model renameClassTo: self input",
  1534. messageSends: ["renameClassTo:", "model", "input"],
  1535. referencedClasses: []
  1536. }),
  1537. smalltalk.HLRenameClassCommand);
  1538. smalltalk.addMethod(
  1539. smalltalk.method({
  1540. selector: "isActive",
  1541. protocol: 'testing',
  1542. fn: function (){
  1543. var self=this;
  1544. return smalltalk.withContext(function($ctx1) {
  1545. var $1;
  1546. $1=_st(_st(self._model())._selectedClass())._notNil();
  1547. return $1;
  1548. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLRenameClassCommand)})},
  1549. args: [],
  1550. source: "isActive\x0a\x09^ self model selectedClass notNil",
  1551. messageSends: ["notNil", "selectedClass", "model"],
  1552. referencedClasses: []
  1553. }),
  1554. smalltalk.HLRenameClassCommand);
  1555. smalltalk.addMethod(
  1556. smalltalk.method({
  1557. selector: "isInputRequired",
  1558. protocol: 'testing',
  1559. fn: function (){
  1560. var self=this;
  1561. return smalltalk.withContext(function($ctx1) {
  1562. return true;
  1563. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLRenameClassCommand)})},
  1564. args: [],
  1565. source: "isInputRequired\x0a\x09^ true",
  1566. messageSends: [],
  1567. referencedClasses: []
  1568. }),
  1569. smalltalk.HLRenameClassCommand);
  1570. smalltalk.addMethod(
  1571. smalltalk.method({
  1572. selector: "key",
  1573. protocol: 'accessing',
  1574. fn: function (){
  1575. var self=this;
  1576. return smalltalk.withContext(function($ctx1) {
  1577. return "c";
  1578. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRenameClassCommand.klass)})},
  1579. args: [],
  1580. source: "key\x0a\x09^ 'c'",
  1581. messageSends: [],
  1582. referencedClasses: []
  1583. }),
  1584. smalltalk.HLRenameClassCommand.klass);
  1585. smalltalk.addMethod(
  1586. smalltalk.method({
  1587. selector: "label",
  1588. protocol: 'accessing',
  1589. fn: function (){
  1590. var self=this;
  1591. return smalltalk.withContext(function($ctx1) {
  1592. return "Class";
  1593. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRenameClassCommand.klass)})},
  1594. args: [],
  1595. source: "label\x0a\x09^ 'Class'",
  1596. messageSends: [],
  1597. referencedClasses: []
  1598. }),
  1599. smalltalk.HLRenameClassCommand.klass);
  1600. smalltalk.addMethod(
  1601. smalltalk.method({
  1602. selector: "menuLabel",
  1603. protocol: 'accessing',
  1604. fn: function (){
  1605. var self=this;
  1606. return smalltalk.withContext(function($ctx1) {
  1607. return "Rename class...";
  1608. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLRenameClassCommand.klass)})},
  1609. args: [],
  1610. source: "menuLabel\x0a\x09^ 'Rename class...'",
  1611. messageSends: [],
  1612. referencedClasses: []
  1613. }),
  1614. smalltalk.HLRenameClassCommand.klass);
  1615. smalltalk.addClass('HLRenameProtocolCommand', smalltalk.HLRenameCommand, [], 'Helios-Commands-Tools');
  1616. smalltalk.addMethod(
  1617. smalltalk.method({
  1618. selector: "category",
  1619. protocol: 'accessing',
  1620. fn: function (){
  1621. var self=this;
  1622. return smalltalk.withContext(function($ctx1) {
  1623. return "Protocols";
  1624. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLRenameProtocolCommand)})},
  1625. args: [],
  1626. source: "category\x0a\x09^ 'Protocols'",
  1627. messageSends: [],
  1628. referencedClasses: []
  1629. }),
  1630. smalltalk.HLRenameProtocolCommand);
  1631. smalltalk.addMethod(
  1632. smalltalk.method({
  1633. selector: "defaultInput",
  1634. protocol: 'defaults',
  1635. fn: function (){
  1636. var self=this;
  1637. return smalltalk.withContext(function($ctx1) {
  1638. var $1;
  1639. $1=_st(self._model())._selectedProtocol();
  1640. return $1;
  1641. }, function($ctx1) {$ctx1.fill(self,"defaultInput",{},smalltalk.HLRenameProtocolCommand)})},
  1642. args: [],
  1643. source: "defaultInput\x0a\x09^ self model selectedProtocol",
  1644. messageSends: ["selectedProtocol", "model"],
  1645. referencedClasses: []
  1646. }),
  1647. smalltalk.HLRenameProtocolCommand);
  1648. smalltalk.addMethod(
  1649. smalltalk.method({
  1650. selector: "displayLabel",
  1651. protocol: 'accessing',
  1652. fn: function (){
  1653. var self=this;
  1654. return smalltalk.withContext(function($ctx1) {
  1655. return "Rename protocol to:";
  1656. }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLRenameProtocolCommand)})},
  1657. args: [],
  1658. source: "displayLabel\x0a\x09^ 'Rename protocol to:'",
  1659. messageSends: [],
  1660. referencedClasses: []
  1661. }),
  1662. smalltalk.HLRenameProtocolCommand);
  1663. smalltalk.addMethod(
  1664. smalltalk.method({
  1665. selector: "execute",
  1666. protocol: 'executing',
  1667. fn: function (){
  1668. var self=this;
  1669. return smalltalk.withContext(function($ctx1) {
  1670. _st(self._model())._renameProtocolTo_(self._input());
  1671. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLRenameProtocolCommand)})},
  1672. args: [],
  1673. source: "execute\x0a\x09self model renameProtocolTo: self input",
  1674. messageSends: ["renameProtocolTo:", "model", "input"],
  1675. referencedClasses: []
  1676. }),
  1677. smalltalk.HLRenameProtocolCommand);
  1678. smalltalk.addMethod(
  1679. smalltalk.method({
  1680. selector: "isActive",
  1681. protocol: 'testing',
  1682. fn: function (){
  1683. var self=this;
  1684. return smalltalk.withContext(function($ctx1) {
  1685. var $1;
  1686. $1=_st(_st(self._model())._selectedProtocol())._notNil();
  1687. return $1;
  1688. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLRenameProtocolCommand)})},
  1689. args: [],
  1690. source: "isActive\x0a\x09^ self model selectedProtocol notNil",
  1691. messageSends: ["notNil", "selectedProtocol", "model"],
  1692. referencedClasses: []
  1693. }),
  1694. smalltalk.HLRenameProtocolCommand);
  1695. smalltalk.addMethod(
  1696. smalltalk.method({
  1697. selector: "isInputRequired",
  1698. protocol: 'testing',
  1699. fn: function (){
  1700. var self=this;
  1701. return smalltalk.withContext(function($ctx1) {
  1702. return true;
  1703. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLRenameProtocolCommand)})},
  1704. args: [],
  1705. source: "isInputRequired\x0a\x09^ true",
  1706. messageSends: [],
  1707. referencedClasses: []
  1708. }),
  1709. smalltalk.HLRenameProtocolCommand);
  1710. smalltalk.addMethod(
  1711. smalltalk.method({
  1712. selector: "key",
  1713. protocol: 'accessing',
  1714. fn: function (){
  1715. var self=this;
  1716. return smalltalk.withContext(function($ctx1) {
  1717. return "t";
  1718. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRenameProtocolCommand.klass)})},
  1719. args: [],
  1720. source: "key\x0a\x09^ 't'",
  1721. messageSends: [],
  1722. referencedClasses: []
  1723. }),
  1724. smalltalk.HLRenameProtocolCommand.klass);
  1725. smalltalk.addMethod(
  1726. smalltalk.method({
  1727. selector: "label",
  1728. protocol: 'accessing',
  1729. fn: function (){
  1730. var self=this;
  1731. return smalltalk.withContext(function($ctx1) {
  1732. return "Protocol";
  1733. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRenameProtocolCommand.klass)})},
  1734. args: [],
  1735. source: "label\x0a\x09^ 'Protocol'",
  1736. messageSends: [],
  1737. referencedClasses: []
  1738. }),
  1739. smalltalk.HLRenameProtocolCommand.klass);
  1740. smalltalk.addMethod(
  1741. smalltalk.method({
  1742. selector: "menuLabel",
  1743. protocol: 'accessing',
  1744. fn: function (){
  1745. var self=this;
  1746. return smalltalk.withContext(function($ctx1) {
  1747. return "Rename protocol...";
  1748. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLRenameProtocolCommand.klass)})},
  1749. args: [],
  1750. source: "menuLabel\x0a\x09^ 'Rename protocol...'",
  1751. messageSends: [],
  1752. referencedClasses: []
  1753. }),
  1754. smalltalk.HLRenameProtocolCommand.klass);
  1755. });