2
0

Helios-Commands-Tools.js 50 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909
  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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: '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. category: 'defaults',
  465. fn: function (){
  466. var self=this;
  467. return smalltalk.withContext(function($ctx1) {
  468. var $3,$2,$5,$4,$1;
  469. $3=self._model();
  470. $ctx1.sendIdx["model"]=1;
  471. $2=_st($3)._selectedMethod();
  472. if(($receiver = $2) == nil || $receiver == null){
  473. $5=self._model();
  474. $4=_st($5)._selectedClass();
  475. if(($receiver = $4) == nil || $receiver == null){
  476. $1="";
  477. } else {
  478. var class_;
  479. class_=$receiver;
  480. $1=_st(class_)._name();
  481. };
  482. } else {
  483. var method;
  484. method=$receiver;
  485. $1=_st(method)._selector();
  486. };
  487. return $1;
  488. }, function($ctx1) {$ctx1.fill(self,"defaultInput",{},smalltalk.HLFindReferencesCommand)})},
  489. args: [],
  490. 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 ]",
  491. messageSends: ["ifNil:ifNotNil:", "selectedMethod", "model", "selectedClass", "name", "selector"],
  492. referencedClasses: []
  493. }),
  494. smalltalk.HLFindReferencesCommand);
  495. smalltalk.addMethod(
  496. smalltalk.method({
  497. selector: "displayLabel",
  498. category: 'accessing',
  499. fn: function (){
  500. var self=this;
  501. return smalltalk.withContext(function($ctx1) {
  502. return "find references";
  503. }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLFindReferencesCommand)})},
  504. args: [],
  505. source: "displayLabel\x0a\x09^ 'find references'",
  506. messageSends: [],
  507. referencedClasses: []
  508. }),
  509. smalltalk.HLFindReferencesCommand);
  510. smalltalk.addMethod(
  511. smalltalk.method({
  512. selector: "execute",
  513. category: 'executing',
  514. fn: function (){
  515. var self=this;
  516. function $HLReferences(){return smalltalk.HLReferences||(typeof HLReferences=="undefined"?nil:HLReferences)}
  517. return smalltalk.withContext(function($ctx1) {
  518. var $1,$2;
  519. $1=_st($HLReferences())._new();
  520. _st($1)._openAsTab();
  521. $2=_st($1)._search_(self._input());
  522. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLFindReferencesCommand)})},
  523. args: [],
  524. source: "execute\x0a\x09HLReferences new \x0a\x09\x09openAsTab;\x0a\x09\x09search: self input",
  525. messageSends: ["openAsTab", "new", "search:", "input"],
  526. referencedClasses: ["HLReferences"]
  527. }),
  528. smalltalk.HLFindReferencesCommand);
  529. smalltalk.addMethod(
  530. smalltalk.method({
  531. selector: "inputCompletion",
  532. category: 'accessing',
  533. fn: function (){
  534. var self=this;
  535. return smalltalk.withContext(function($ctx1) {
  536. var $3,$2,$5,$4,$1;
  537. $3=self._model();
  538. $ctx1.sendIdx["model"]=1;
  539. $2=_st($3)._availableClassNames();
  540. $5=self._model();
  541. $4=_st($5)._allSelectors();
  542. $1=_st($2).__comma($4);
  543. return $1;
  544. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLFindReferencesCommand)})},
  545. args: [],
  546. source: "inputCompletion\x0a\x09^ self model availableClassNames, self model allSelectors",
  547. messageSends: [",", "availableClassNames", "model", "allSelectors"],
  548. referencedClasses: []
  549. }),
  550. smalltalk.HLFindReferencesCommand);
  551. smalltalk.addMethod(
  552. smalltalk.method({
  553. selector: "inputLabel",
  554. category: 'accessing',
  555. fn: function (){
  556. var self=this;
  557. return smalltalk.withContext(function($ctx1) {
  558. return "Find references of";
  559. }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLFindReferencesCommand)})},
  560. args: [],
  561. source: "inputLabel\x0a\x09^ 'Find references of'",
  562. messageSends: [],
  563. referencedClasses: []
  564. }),
  565. smalltalk.HLFindReferencesCommand);
  566. smalltalk.addMethod(
  567. smalltalk.method({
  568. selector: "isInputRequired",
  569. category: 'testing',
  570. fn: function (){
  571. var self=this;
  572. return smalltalk.withContext(function($ctx1) {
  573. return true;
  574. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLFindReferencesCommand)})},
  575. args: [],
  576. source: "isInputRequired\x0a\x09^ true",
  577. messageSends: [],
  578. referencedClasses: []
  579. }),
  580. smalltalk.HLFindReferencesCommand);
  581. smalltalk.addMethod(
  582. smalltalk.method({
  583. selector: "key",
  584. category: 'accessing',
  585. fn: function (){
  586. var self=this;
  587. return smalltalk.withContext(function($ctx1) {
  588. return "r";
  589. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLFindReferencesCommand.klass)})},
  590. args: [],
  591. source: "key\x0a\x09^ 'r'",
  592. messageSends: [],
  593. referencedClasses: []
  594. }),
  595. smalltalk.HLFindReferencesCommand.klass);
  596. smalltalk.addMethod(
  597. smalltalk.method({
  598. selector: "label",
  599. category: 'accessing',
  600. fn: function (){
  601. var self=this;
  602. return smalltalk.withContext(function($ctx1) {
  603. return "References";
  604. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLFindReferencesCommand.klass)})},
  605. args: [],
  606. source: "label\x0a\x09^ 'References'",
  607. messageSends: [],
  608. referencedClasses: []
  609. }),
  610. smalltalk.HLFindReferencesCommand.klass);
  611. smalltalk.addClass('HLMoveToCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools');
  612. smalltalk.addMethod(
  613. smalltalk.method({
  614. selector: "key",
  615. category: 'accessing',
  616. fn: function (){
  617. var self=this;
  618. return smalltalk.withContext(function($ctx1) {
  619. return "m";
  620. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveToCommand.klass)})},
  621. args: [],
  622. source: "key\x0a\x09^ 'm'",
  623. messageSends: [],
  624. referencedClasses: []
  625. }),
  626. smalltalk.HLMoveToCommand.klass);
  627. smalltalk.addMethod(
  628. smalltalk.method({
  629. selector: "label",
  630. category: 'accessing',
  631. fn: function (){
  632. var self=this;
  633. return smalltalk.withContext(function($ctx1) {
  634. return "Move";
  635. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveToCommand.klass)})},
  636. args: [],
  637. source: "label\x0a\x09^ 'Move'",
  638. messageSends: [],
  639. referencedClasses: []
  640. }),
  641. smalltalk.HLMoveToCommand.klass);
  642. smalltalk.addClass('HLMoveClassToCommand', smalltalk.HLMoveToCommand, [], 'Helios-Commands-Tools');
  643. smalltalk.addMethod(
  644. smalltalk.method({
  645. selector: "isActive",
  646. category: 'testing',
  647. fn: function (){
  648. var self=this;
  649. return smalltalk.withContext(function($ctx1) {
  650. var $1;
  651. $1=_st(_st(self._model())._selectedClass())._notNil();
  652. return $1;
  653. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLMoveClassToCommand)})},
  654. args: [],
  655. source: "isActive\x0a\x09^ self model selectedClass notNil",
  656. messageSends: ["notNil", "selectedClass", "model"],
  657. referencedClasses: []
  658. }),
  659. smalltalk.HLMoveClassToCommand);
  660. smalltalk.addMethod(
  661. smalltalk.method({
  662. selector: "key",
  663. category: 'accessing',
  664. fn: function (){
  665. var self=this;
  666. return smalltalk.withContext(function($ctx1) {
  667. return "c";
  668. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveClassToCommand.klass)})},
  669. args: [],
  670. source: "key\x0a\x09^ 'c'",
  671. messageSends: [],
  672. referencedClasses: []
  673. }),
  674. smalltalk.HLMoveClassToCommand.klass);
  675. smalltalk.addMethod(
  676. smalltalk.method({
  677. selector: "label",
  678. category: 'accessing',
  679. fn: function (){
  680. var self=this;
  681. return smalltalk.withContext(function($ctx1) {
  682. return "Class";
  683. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveClassToCommand.klass)})},
  684. args: [],
  685. source: "label\x0a\x09^ 'Class'",
  686. messageSends: [],
  687. referencedClasses: []
  688. }),
  689. smalltalk.HLMoveClassToCommand.klass);
  690. smalltalk.addClass('HLMoveClassToPackageCommand', smalltalk.HLMoveClassToCommand, [], 'Helios-Commands-Tools');
  691. smalltalk.addMethod(
  692. smalltalk.method({
  693. selector: "category",
  694. category: 'accessing',
  695. fn: function (){
  696. var self=this;
  697. return smalltalk.withContext(function($ctx1) {
  698. return "Classes";
  699. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLMoveClassToPackageCommand)})},
  700. args: [],
  701. source: "category\x0a\x09^ 'Classes'",
  702. messageSends: [],
  703. referencedClasses: []
  704. }),
  705. smalltalk.HLMoveClassToPackageCommand);
  706. smalltalk.addMethod(
  707. smalltalk.method({
  708. selector: "displayLabel",
  709. category: 'accessing',
  710. fn: function (){
  711. var self=this;
  712. return smalltalk.withContext(function($ctx1) {
  713. return "select a package";
  714. }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLMoveClassToPackageCommand)})},
  715. args: [],
  716. source: "displayLabel\x0a\x09^ 'select a package'",
  717. messageSends: [],
  718. referencedClasses: []
  719. }),
  720. smalltalk.HLMoveClassToPackageCommand);
  721. smalltalk.addMethod(
  722. smalltalk.method({
  723. selector: "execute",
  724. category: 'executing',
  725. fn: function (){
  726. var self=this;
  727. return smalltalk.withContext(function($ctx1) {
  728. _st(self._model())._moveClassToPackage_(self._input());
  729. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLMoveClassToPackageCommand)})},
  730. args: [],
  731. source: "execute\x0a\x09self model moveClassToPackage: self input",
  732. messageSends: ["moveClassToPackage:", "model", "input"],
  733. referencedClasses: []
  734. }),
  735. smalltalk.HLMoveClassToPackageCommand);
  736. smalltalk.addMethod(
  737. smalltalk.method({
  738. selector: "inputCompletion",
  739. category: 'accessing',
  740. fn: function (){
  741. var self=this;
  742. return smalltalk.withContext(function($ctx1) {
  743. var $1;
  744. $1=_st(self._model())._availablePackageNames();
  745. return $1;
  746. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLMoveClassToPackageCommand)})},
  747. args: [],
  748. source: "inputCompletion\x0a\x09^ self model availablePackageNames",
  749. messageSends: ["availablePackageNames", "model"],
  750. referencedClasses: []
  751. }),
  752. smalltalk.HLMoveClassToPackageCommand);
  753. smalltalk.addMethod(
  754. smalltalk.method({
  755. selector: "inputLabel",
  756. category: 'accessing',
  757. fn: function (){
  758. var self=this;
  759. return smalltalk.withContext(function($ctx1) {
  760. return "Move class to package:";
  761. }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLMoveClassToPackageCommand)})},
  762. args: [],
  763. source: "inputLabel\x0a\x09^ 'Move class to package:'",
  764. messageSends: [],
  765. referencedClasses: []
  766. }),
  767. smalltalk.HLMoveClassToPackageCommand);
  768. smalltalk.addMethod(
  769. smalltalk.method({
  770. selector: "isInputRequired",
  771. category: 'testing',
  772. fn: function (){
  773. var self=this;
  774. return smalltalk.withContext(function($ctx1) {
  775. return true;
  776. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLMoveClassToPackageCommand)})},
  777. args: [],
  778. source: "isInputRequired\x0a\x09^ true",
  779. messageSends: [],
  780. referencedClasses: []
  781. }),
  782. smalltalk.HLMoveClassToPackageCommand);
  783. smalltalk.addMethod(
  784. smalltalk.method({
  785. selector: "key",
  786. category: 'accessing',
  787. fn: function (){
  788. var self=this;
  789. return smalltalk.withContext(function($ctx1) {
  790. return "p";
  791. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveClassToPackageCommand.klass)})},
  792. args: [],
  793. source: "key\x0a\x09^ 'p'",
  794. messageSends: [],
  795. referencedClasses: []
  796. }),
  797. smalltalk.HLMoveClassToPackageCommand.klass);
  798. smalltalk.addMethod(
  799. smalltalk.method({
  800. selector: "label",
  801. category: 'accessing',
  802. fn: function (){
  803. var self=this;
  804. return smalltalk.withContext(function($ctx1) {
  805. return "to package";
  806. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveClassToPackageCommand.klass)})},
  807. args: [],
  808. source: "label\x0a\x09^ 'to package'",
  809. messageSends: [],
  810. referencedClasses: []
  811. }),
  812. smalltalk.HLMoveClassToPackageCommand.klass);
  813. smalltalk.addMethod(
  814. smalltalk.method({
  815. selector: "menuLabel",
  816. category: 'accessing',
  817. fn: function (){
  818. var self=this;
  819. return smalltalk.withContext(function($ctx1) {
  820. return "Move to package...";
  821. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLMoveClassToPackageCommand.klass)})},
  822. args: [],
  823. source: "menuLabel\x09\x0a\x09^ 'Move to package...'",
  824. messageSends: [],
  825. referencedClasses: []
  826. }),
  827. smalltalk.HLMoveClassToPackageCommand.klass);
  828. smalltalk.addClass('HLMoveMethodToCommand', smalltalk.HLMoveToCommand, [], 'Helios-Commands-Tools');
  829. smalltalk.addMethod(
  830. smalltalk.method({
  831. selector: "category",
  832. category: 'accessing',
  833. fn: function (){
  834. var self=this;
  835. return smalltalk.withContext(function($ctx1) {
  836. return "Methods";
  837. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLMoveMethodToCommand)})},
  838. args: [],
  839. source: "category\x0a\x09^ 'Methods'",
  840. messageSends: [],
  841. referencedClasses: []
  842. }),
  843. smalltalk.HLMoveMethodToCommand);
  844. smalltalk.addMethod(
  845. smalltalk.method({
  846. selector: "isActive",
  847. category: 'testing',
  848. fn: function (){
  849. var self=this;
  850. return smalltalk.withContext(function($ctx1) {
  851. var $1;
  852. $1=_st(_st(self._model())._selectedMethod())._notNil();
  853. return $1;
  854. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLMoveMethodToCommand)})},
  855. args: [],
  856. source: "isActive\x0a\x09^ self model selectedMethod notNil",
  857. messageSends: ["notNil", "selectedMethod", "model"],
  858. referencedClasses: []
  859. }),
  860. smalltalk.HLMoveMethodToCommand);
  861. smalltalk.addMethod(
  862. smalltalk.method({
  863. selector: "key",
  864. category: 'accessing',
  865. fn: function (){
  866. var self=this;
  867. return smalltalk.withContext(function($ctx1) {
  868. return "m";
  869. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToCommand.klass)})},
  870. args: [],
  871. source: "key\x0a\x09^ 'm'",
  872. messageSends: [],
  873. referencedClasses: []
  874. }),
  875. smalltalk.HLMoveMethodToCommand.klass);
  876. smalltalk.addMethod(
  877. smalltalk.method({
  878. selector: "label",
  879. category: 'accessing',
  880. fn: function (){
  881. var self=this;
  882. return smalltalk.withContext(function($ctx1) {
  883. return "Method";
  884. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToCommand.klass)})},
  885. args: [],
  886. source: "label\x0a\x09^ 'Method'",
  887. messageSends: [],
  888. referencedClasses: []
  889. }),
  890. smalltalk.HLMoveMethodToCommand.klass);
  891. smalltalk.addClass('HLMoveMethodToClassCommand', smalltalk.HLMoveMethodToCommand, [], 'Helios-Commands-Tools');
  892. smalltalk.addMethod(
  893. smalltalk.method({
  894. selector: "displayLabel",
  895. category: 'accessing',
  896. fn: function (){
  897. var self=this;
  898. return smalltalk.withContext(function($ctx1) {
  899. return "select a class";
  900. }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLMoveMethodToClassCommand)})},
  901. args: [],
  902. source: "displayLabel\x0a\x09^ 'select a class'",
  903. messageSends: [],
  904. referencedClasses: []
  905. }),
  906. smalltalk.HLMoveMethodToClassCommand);
  907. smalltalk.addMethod(
  908. smalltalk.method({
  909. selector: "execute",
  910. category: 'executing',
  911. fn: function (){
  912. var self=this;
  913. return smalltalk.withContext(function($ctx1) {
  914. _st(self._model())._moveMethodToClass_(self._input());
  915. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLMoveMethodToClassCommand)})},
  916. args: [],
  917. source: "execute\x0a\x09self model moveMethodToClass: self input",
  918. messageSends: ["moveMethodToClass:", "model", "input"],
  919. referencedClasses: []
  920. }),
  921. smalltalk.HLMoveMethodToClassCommand);
  922. smalltalk.addMethod(
  923. smalltalk.method({
  924. selector: "inputCompletion",
  925. category: 'accessing',
  926. fn: function (){
  927. var self=this;
  928. return smalltalk.withContext(function($ctx1) {
  929. var $1;
  930. $1=_st(self._model())._availableClassNames();
  931. return $1;
  932. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLMoveMethodToClassCommand)})},
  933. args: [],
  934. source: "inputCompletion\x0a\x09^ self model availableClassNames",
  935. messageSends: ["availableClassNames", "model"],
  936. referencedClasses: []
  937. }),
  938. smalltalk.HLMoveMethodToClassCommand);
  939. smalltalk.addMethod(
  940. smalltalk.method({
  941. selector: "inputLabel",
  942. category: 'accessing',
  943. fn: function (){
  944. var self=this;
  945. return smalltalk.withContext(function($ctx1) {
  946. return "Move method to class:";
  947. }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLMoveMethodToClassCommand)})},
  948. args: [],
  949. source: "inputLabel\x0a\x09^ 'Move method to class:'",
  950. messageSends: [],
  951. referencedClasses: []
  952. }),
  953. smalltalk.HLMoveMethodToClassCommand);
  954. smalltalk.addMethod(
  955. smalltalk.method({
  956. selector: "isInputRequired",
  957. category: 'testing',
  958. fn: function (){
  959. var self=this;
  960. return smalltalk.withContext(function($ctx1) {
  961. return true;
  962. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLMoveMethodToClassCommand)})},
  963. args: [],
  964. source: "isInputRequired\x0a\x09^ true",
  965. messageSends: [],
  966. referencedClasses: []
  967. }),
  968. smalltalk.HLMoveMethodToClassCommand);
  969. smalltalk.addMethod(
  970. smalltalk.method({
  971. selector: "key",
  972. category: 'accessing',
  973. fn: function (){
  974. var self=this;
  975. return smalltalk.withContext(function($ctx1) {
  976. return "c";
  977. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToClassCommand.klass)})},
  978. args: [],
  979. source: "key\x0a\x09^ 'c'",
  980. messageSends: [],
  981. referencedClasses: []
  982. }),
  983. smalltalk.HLMoveMethodToClassCommand.klass);
  984. smalltalk.addMethod(
  985. smalltalk.method({
  986. selector: "label",
  987. category: 'accessing',
  988. fn: function (){
  989. var self=this;
  990. return smalltalk.withContext(function($ctx1) {
  991. return "to class";
  992. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToClassCommand.klass)})},
  993. args: [],
  994. source: "label\x09\x0a\x09^ 'to class'",
  995. messageSends: [],
  996. referencedClasses: []
  997. }),
  998. smalltalk.HLMoveMethodToClassCommand.klass);
  999. smalltalk.addMethod(
  1000. smalltalk.method({
  1001. selector: "menuLabel",
  1002. category: 'accessing',
  1003. fn: function (){
  1004. var self=this;
  1005. return smalltalk.withContext(function($ctx1) {
  1006. return "Move to class...";
  1007. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLMoveMethodToClassCommand.klass)})},
  1008. args: [],
  1009. source: "menuLabel\x09\x0a\x09^ 'Move to class...'",
  1010. messageSends: [],
  1011. referencedClasses: []
  1012. }),
  1013. smalltalk.HLMoveMethodToClassCommand.klass);
  1014. smalltalk.addClass('HLMoveMethodToProtocolCommand', smalltalk.HLMoveMethodToCommand, [], 'Helios-Commands-Tools');
  1015. smalltalk.addMethod(
  1016. smalltalk.method({
  1017. selector: "displayLabel",
  1018. category: 'accessing',
  1019. fn: function (){
  1020. var self=this;
  1021. return smalltalk.withContext(function($ctx1) {
  1022. return "select a protocol";
  1023. }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLMoveMethodToProtocolCommand)})},
  1024. args: [],
  1025. source: "displayLabel\x0a\x09^ 'select a protocol'",
  1026. messageSends: [],
  1027. referencedClasses: []
  1028. }),
  1029. smalltalk.HLMoveMethodToProtocolCommand);
  1030. smalltalk.addMethod(
  1031. smalltalk.method({
  1032. selector: "execute",
  1033. category: 'executing',
  1034. fn: function (){
  1035. var self=this;
  1036. return smalltalk.withContext(function($ctx1) {
  1037. _st(self._model())._moveMethodToProtocol_(self._input());
  1038. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLMoveMethodToProtocolCommand)})},
  1039. args: [],
  1040. source: "execute\x0a\x09self model moveMethodToProtocol: self input",
  1041. messageSends: ["moveMethodToProtocol:", "model", "input"],
  1042. referencedClasses: []
  1043. }),
  1044. smalltalk.HLMoveMethodToProtocolCommand);
  1045. smalltalk.addMethod(
  1046. smalltalk.method({
  1047. selector: "inputCompletion",
  1048. category: 'accessing',
  1049. fn: function (){
  1050. var self=this;
  1051. return smalltalk.withContext(function($ctx1) {
  1052. var $1;
  1053. $1=_st(self._model())._availableProtocols();
  1054. return $1;
  1055. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLMoveMethodToProtocolCommand)})},
  1056. args: [],
  1057. source: "inputCompletion\x0a\x09^ self model availableProtocols",
  1058. messageSends: ["availableProtocols", "model"],
  1059. referencedClasses: []
  1060. }),
  1061. smalltalk.HLMoveMethodToProtocolCommand);
  1062. smalltalk.addMethod(
  1063. smalltalk.method({
  1064. selector: "inputLabel",
  1065. category: 'accessing',
  1066. fn: function (){
  1067. var self=this;
  1068. return smalltalk.withContext(function($ctx1) {
  1069. return "Move method to a protocol:";
  1070. }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLMoveMethodToProtocolCommand)})},
  1071. args: [],
  1072. source: "inputLabel\x0a\x09^ 'Move method to a protocol:'",
  1073. messageSends: [],
  1074. referencedClasses: []
  1075. }),
  1076. smalltalk.HLMoveMethodToProtocolCommand);
  1077. smalltalk.addMethod(
  1078. smalltalk.method({
  1079. selector: "isInputRequired",
  1080. category: 'testing',
  1081. fn: function (){
  1082. var self=this;
  1083. return smalltalk.withContext(function($ctx1) {
  1084. return true;
  1085. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLMoveMethodToProtocolCommand)})},
  1086. args: [],
  1087. source: "isInputRequired\x0a\x09^ true",
  1088. messageSends: [],
  1089. referencedClasses: []
  1090. }),
  1091. smalltalk.HLMoveMethodToProtocolCommand);
  1092. smalltalk.addMethod(
  1093. smalltalk.method({
  1094. selector: "key",
  1095. category: 'accessing',
  1096. fn: function (){
  1097. var self=this;
  1098. return smalltalk.withContext(function($ctx1) {
  1099. return "t";
  1100. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})},
  1101. args: [],
  1102. source: "key\x0a\x09^ 't'",
  1103. messageSends: [],
  1104. referencedClasses: []
  1105. }),
  1106. smalltalk.HLMoveMethodToProtocolCommand.klass);
  1107. smalltalk.addMethod(
  1108. smalltalk.method({
  1109. selector: "label",
  1110. category: 'accessing',
  1111. fn: function (){
  1112. var self=this;
  1113. return smalltalk.withContext(function($ctx1) {
  1114. return "to protocol";
  1115. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})},
  1116. args: [],
  1117. source: "label\x0a\x09^ 'to protocol'",
  1118. messageSends: [],
  1119. referencedClasses: []
  1120. }),
  1121. smalltalk.HLMoveMethodToProtocolCommand.klass);
  1122. smalltalk.addMethod(
  1123. smalltalk.method({
  1124. selector: "menuLabel",
  1125. category: 'accessing',
  1126. fn: function (){
  1127. var self=this;
  1128. return smalltalk.withContext(function($ctx1) {
  1129. return "Move to protocol...";
  1130. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})},
  1131. args: [],
  1132. source: "menuLabel\x0a\x09^ 'Move to protocol...'",
  1133. messageSends: [],
  1134. referencedClasses: []
  1135. }),
  1136. smalltalk.HLMoveMethodToProtocolCommand.klass);
  1137. smalltalk.addClass('HLRemoveCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools');
  1138. smalltalk.addMethod(
  1139. smalltalk.method({
  1140. selector: "key",
  1141. category: 'accessing',
  1142. fn: function (){
  1143. var self=this;
  1144. return smalltalk.withContext(function($ctx1) {
  1145. return "x";
  1146. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveCommand.klass)})},
  1147. args: [],
  1148. source: "key\x0a\x09^ 'x'",
  1149. messageSends: [],
  1150. referencedClasses: []
  1151. }),
  1152. smalltalk.HLRemoveCommand.klass);
  1153. smalltalk.addMethod(
  1154. smalltalk.method({
  1155. selector: "label",
  1156. category: 'accessing',
  1157. fn: function (){
  1158. var self=this;
  1159. return smalltalk.withContext(function($ctx1) {
  1160. return "Remove";
  1161. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRemoveCommand.klass)})},
  1162. args: [],
  1163. source: "label\x0a\x09^ 'Remove'",
  1164. messageSends: [],
  1165. referencedClasses: []
  1166. }),
  1167. smalltalk.HLRemoveCommand.klass);
  1168. smalltalk.addClass('HLRemoveClassCommand', smalltalk.HLRemoveCommand, [], 'Helios-Commands-Tools');
  1169. smalltalk.addMethod(
  1170. smalltalk.method({
  1171. selector: "category",
  1172. category: 'accessing',
  1173. fn: function (){
  1174. var self=this;
  1175. return smalltalk.withContext(function($ctx1) {
  1176. return "Classes";
  1177. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLRemoveClassCommand)})},
  1178. args: [],
  1179. source: "category\x0a\x09^ 'Classes'",
  1180. messageSends: [],
  1181. referencedClasses: []
  1182. }),
  1183. smalltalk.HLRemoveClassCommand);
  1184. smalltalk.addMethod(
  1185. smalltalk.method({
  1186. selector: "execute",
  1187. category: 'executing',
  1188. fn: function (){
  1189. var self=this;
  1190. return smalltalk.withContext(function($ctx1) {
  1191. _st(self._model())._removeClass();
  1192. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLRemoveClassCommand)})},
  1193. args: [],
  1194. source: "execute\x0a\x09self model removeClass",
  1195. messageSends: ["removeClass", "model"],
  1196. referencedClasses: []
  1197. }),
  1198. smalltalk.HLRemoveClassCommand);
  1199. smalltalk.addMethod(
  1200. smalltalk.method({
  1201. selector: "isActive",
  1202. category: 'testing',
  1203. fn: function (){
  1204. var self=this;
  1205. return smalltalk.withContext(function($ctx1) {
  1206. var $1;
  1207. $1=_st(_st(self._model())._selectedClass())._notNil();
  1208. return $1;
  1209. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLRemoveClassCommand)})},
  1210. args: [],
  1211. source: "isActive\x0a\x09^ self model selectedClass notNil",
  1212. messageSends: ["notNil", "selectedClass", "model"],
  1213. referencedClasses: []
  1214. }),
  1215. smalltalk.HLRemoveClassCommand);
  1216. smalltalk.addMethod(
  1217. smalltalk.method({
  1218. selector: "key",
  1219. category: 'accessing',
  1220. fn: function (){
  1221. var self=this;
  1222. return smalltalk.withContext(function($ctx1) {
  1223. return "c";
  1224. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveClassCommand.klass)})},
  1225. args: [],
  1226. source: "key\x0a\x09^ 'c'",
  1227. messageSends: [],
  1228. referencedClasses: []
  1229. }),
  1230. smalltalk.HLRemoveClassCommand.klass);
  1231. smalltalk.addMethod(
  1232. smalltalk.method({
  1233. selector: "label",
  1234. category: 'accessing',
  1235. fn: function (){
  1236. var self=this;
  1237. return smalltalk.withContext(function($ctx1) {
  1238. return "Class";
  1239. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRemoveClassCommand.klass)})},
  1240. args: [],
  1241. source: "label\x0a\x09^ 'Class'",
  1242. messageSends: [],
  1243. referencedClasses: []
  1244. }),
  1245. smalltalk.HLRemoveClassCommand.klass);
  1246. smalltalk.addMethod(
  1247. smalltalk.method({
  1248. selector: "menuLabel",
  1249. category: 'accessing',
  1250. fn: function (){
  1251. var self=this;
  1252. return smalltalk.withContext(function($ctx1) {
  1253. return "Remove class";
  1254. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLRemoveClassCommand.klass)})},
  1255. args: [],
  1256. source: "menuLabel\x0a\x09^ 'Remove class'",
  1257. messageSends: [],
  1258. referencedClasses: []
  1259. }),
  1260. smalltalk.HLRemoveClassCommand.klass);
  1261. smalltalk.addClass('HLRemoveMethodCommand', smalltalk.HLRemoveCommand, [], 'Helios-Commands-Tools');
  1262. smalltalk.addMethod(
  1263. smalltalk.method({
  1264. selector: "category",
  1265. category: 'accessing',
  1266. fn: function (){
  1267. var self=this;
  1268. return smalltalk.withContext(function($ctx1) {
  1269. return "Methods";
  1270. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLRemoveMethodCommand)})},
  1271. args: [],
  1272. source: "category\x0a\x09^ 'Methods'",
  1273. messageSends: [],
  1274. referencedClasses: []
  1275. }),
  1276. smalltalk.HLRemoveMethodCommand);
  1277. smalltalk.addMethod(
  1278. smalltalk.method({
  1279. selector: "execute",
  1280. category: 'executing',
  1281. fn: function (){
  1282. var self=this;
  1283. return smalltalk.withContext(function($ctx1) {
  1284. _st(self._model())._removeMethod();
  1285. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLRemoveMethodCommand)})},
  1286. args: [],
  1287. source: "execute\x0a\x09self model removeMethod",
  1288. messageSends: ["removeMethod", "model"],
  1289. referencedClasses: []
  1290. }),
  1291. smalltalk.HLRemoveMethodCommand);
  1292. smalltalk.addMethod(
  1293. smalltalk.method({
  1294. selector: "isActive",
  1295. category: 'testing',
  1296. fn: function (){
  1297. var self=this;
  1298. return smalltalk.withContext(function($ctx1) {
  1299. var $1;
  1300. $1=_st(_st(self._model())._selectedMethod())._notNil();
  1301. return $1;
  1302. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLRemoveMethodCommand)})},
  1303. args: [],
  1304. source: "isActive\x0a\x09^ self model selectedMethod notNil",
  1305. messageSends: ["notNil", "selectedMethod", "model"],
  1306. referencedClasses: []
  1307. }),
  1308. smalltalk.HLRemoveMethodCommand);
  1309. smalltalk.addMethod(
  1310. smalltalk.method({
  1311. selector: "key",
  1312. category: 'accessing',
  1313. fn: function (){
  1314. var self=this;
  1315. return smalltalk.withContext(function($ctx1) {
  1316. return "m";
  1317. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveMethodCommand.klass)})},
  1318. args: [],
  1319. source: "key\x0a\x09^ 'm'",
  1320. messageSends: [],
  1321. referencedClasses: []
  1322. }),
  1323. smalltalk.HLRemoveMethodCommand.klass);
  1324. smalltalk.addMethod(
  1325. smalltalk.method({
  1326. selector: "label",
  1327. category: 'accessing',
  1328. fn: function (){
  1329. var self=this;
  1330. return smalltalk.withContext(function($ctx1) {
  1331. return "Method";
  1332. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRemoveMethodCommand.klass)})},
  1333. args: [],
  1334. source: "label\x0a\x09^ 'Method'",
  1335. messageSends: [],
  1336. referencedClasses: []
  1337. }),
  1338. smalltalk.HLRemoveMethodCommand.klass);
  1339. smalltalk.addMethod(
  1340. smalltalk.method({
  1341. selector: "menuLabel",
  1342. category: 'accessing',
  1343. fn: function (){
  1344. var self=this;
  1345. return smalltalk.withContext(function($ctx1) {
  1346. return "Remove method";
  1347. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLRemoveMethodCommand.klass)})},
  1348. args: [],
  1349. source: "menuLabel\x0a\x09^ 'Remove method'",
  1350. messageSends: [],
  1351. referencedClasses: []
  1352. }),
  1353. smalltalk.HLRemoveMethodCommand.klass);
  1354. smalltalk.addClass('HLRemoveProtocolCommand', smalltalk.HLRemoveCommand, [], 'Helios-Commands-Tools');
  1355. smalltalk.addMethod(
  1356. smalltalk.method({
  1357. selector: "category",
  1358. category: 'accessing',
  1359. fn: function (){
  1360. var self=this;
  1361. return smalltalk.withContext(function($ctx1) {
  1362. return "Protocols";
  1363. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLRemoveProtocolCommand)})},
  1364. args: [],
  1365. source: "category\x0a\x09^ 'Protocols'",
  1366. messageSends: [],
  1367. referencedClasses: []
  1368. }),
  1369. smalltalk.HLRemoveProtocolCommand);
  1370. smalltalk.addMethod(
  1371. smalltalk.method({
  1372. selector: "execute",
  1373. category: 'executing',
  1374. fn: function (){
  1375. var self=this;
  1376. return smalltalk.withContext(function($ctx1) {
  1377. _st(self._model())._removeProtocol();
  1378. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLRemoveProtocolCommand)})},
  1379. args: [],
  1380. source: "execute\x0a\x09self model removeProtocol",
  1381. messageSends: ["removeProtocol", "model"],
  1382. referencedClasses: []
  1383. }),
  1384. smalltalk.HLRemoveProtocolCommand);
  1385. smalltalk.addMethod(
  1386. smalltalk.method({
  1387. selector: "isActive",
  1388. category: 'testing',
  1389. fn: function (){
  1390. var self=this;
  1391. return smalltalk.withContext(function($ctx1) {
  1392. var $1;
  1393. $1=_st(_st(self._model())._selectedProtocol())._notNil();
  1394. return $1;
  1395. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLRemoveProtocolCommand)})},
  1396. args: [],
  1397. source: "isActive\x0a\x09^ self model selectedProtocol notNil",
  1398. messageSends: ["notNil", "selectedProtocol", "model"],
  1399. referencedClasses: []
  1400. }),
  1401. smalltalk.HLRemoveProtocolCommand);
  1402. smalltalk.addMethod(
  1403. smalltalk.method({
  1404. selector: "key",
  1405. category: 'accessing',
  1406. fn: function (){
  1407. var self=this;
  1408. return smalltalk.withContext(function($ctx1) {
  1409. return "t";
  1410. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveProtocolCommand.klass)})},
  1411. args: [],
  1412. source: "key\x0a\x09^ 't'",
  1413. messageSends: [],
  1414. referencedClasses: []
  1415. }),
  1416. smalltalk.HLRemoveProtocolCommand.klass);
  1417. smalltalk.addMethod(
  1418. smalltalk.method({
  1419. selector: "label",
  1420. category: 'accessing',
  1421. fn: function (){
  1422. var self=this;
  1423. return smalltalk.withContext(function($ctx1) {
  1424. return "Protocol";
  1425. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRemoveProtocolCommand.klass)})},
  1426. args: [],
  1427. source: "label\x0a\x09^ 'Protocol'",
  1428. messageSends: [],
  1429. referencedClasses: []
  1430. }),
  1431. smalltalk.HLRemoveProtocolCommand.klass);
  1432. smalltalk.addMethod(
  1433. smalltalk.method({
  1434. selector: "menuLabel",
  1435. category: 'accessing',
  1436. fn: function (){
  1437. var self=this;
  1438. return smalltalk.withContext(function($ctx1) {
  1439. return "Remove protocol";
  1440. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLRemoveProtocolCommand.klass)})},
  1441. args: [],
  1442. source: "menuLabel\x0a\x09^ 'Remove protocol'",
  1443. messageSends: [],
  1444. referencedClasses: []
  1445. }),
  1446. smalltalk.HLRemoveProtocolCommand.klass);
  1447. smalltalk.addClass('HLRenameCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools');
  1448. smalltalk.addMethod(
  1449. smalltalk.method({
  1450. selector: "key",
  1451. category: 'accessing',
  1452. fn: function (){
  1453. var self=this;
  1454. return smalltalk.withContext(function($ctx1) {
  1455. return "r";
  1456. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRenameCommand.klass)})},
  1457. args: [],
  1458. source: "key\x0a\x09^ 'r'",
  1459. messageSends: [],
  1460. referencedClasses: []
  1461. }),
  1462. smalltalk.HLRenameCommand.klass);
  1463. smalltalk.addMethod(
  1464. smalltalk.method({
  1465. selector: "label",
  1466. category: 'accessing',
  1467. fn: function (){
  1468. var self=this;
  1469. return smalltalk.withContext(function($ctx1) {
  1470. return "Rename";
  1471. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRenameCommand.klass)})},
  1472. args: [],
  1473. source: "label\x0a\x09^ 'Rename'",
  1474. messageSends: [],
  1475. referencedClasses: []
  1476. }),
  1477. smalltalk.HLRenameCommand.klass);
  1478. smalltalk.addClass('HLRenameClassCommand', smalltalk.HLRenameCommand, [], 'Helios-Commands-Tools');
  1479. smalltalk.addMethod(
  1480. smalltalk.method({
  1481. selector: "category",
  1482. category: 'accessing',
  1483. fn: function (){
  1484. var self=this;
  1485. return smalltalk.withContext(function($ctx1) {
  1486. return "Classes";
  1487. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLRenameClassCommand)})},
  1488. args: [],
  1489. source: "category\x0a\x09^ 'Classes'",
  1490. messageSends: [],
  1491. referencedClasses: []
  1492. }),
  1493. smalltalk.HLRenameClassCommand);
  1494. smalltalk.addMethod(
  1495. smalltalk.method({
  1496. selector: "defaultInput",
  1497. category: 'defaults',
  1498. fn: function (){
  1499. var self=this;
  1500. return smalltalk.withContext(function($ctx1) {
  1501. var $1;
  1502. $1=_st(_st(_st(self._model())._selectedClass())._theNonMetaClass())._name();
  1503. return $1;
  1504. }, function($ctx1) {$ctx1.fill(self,"defaultInput",{},smalltalk.HLRenameClassCommand)})},
  1505. args: [],
  1506. source: "defaultInput\x0a\x09^ self model selectedClass theNonMetaClass name",
  1507. messageSends: ["name", "theNonMetaClass", "selectedClass", "model"],
  1508. referencedClasses: []
  1509. }),
  1510. smalltalk.HLRenameClassCommand);
  1511. smalltalk.addMethod(
  1512. smalltalk.method({
  1513. selector: "displayLabel",
  1514. category: 'accessing',
  1515. fn: function (){
  1516. var self=this;
  1517. return smalltalk.withContext(function($ctx1) {
  1518. return "Rename class to:";
  1519. }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLRenameClassCommand)})},
  1520. args: [],
  1521. source: "displayLabel\x0a\x09^ 'Rename class to:'",
  1522. messageSends: [],
  1523. referencedClasses: []
  1524. }),
  1525. smalltalk.HLRenameClassCommand);
  1526. smalltalk.addMethod(
  1527. smalltalk.method({
  1528. selector: "execute",
  1529. category: 'executing',
  1530. fn: function (){
  1531. var self=this;
  1532. return smalltalk.withContext(function($ctx1) {
  1533. _st(self._model())._renameClassTo_(self._input());
  1534. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLRenameClassCommand)})},
  1535. args: [],
  1536. source: "execute\x0a\x09self model renameClassTo: self input",
  1537. messageSends: ["renameClassTo:", "model", "input"],
  1538. referencedClasses: []
  1539. }),
  1540. smalltalk.HLRenameClassCommand);
  1541. smalltalk.addMethod(
  1542. smalltalk.method({
  1543. selector: "isActive",
  1544. category: 'testing',
  1545. fn: function (){
  1546. var self=this;
  1547. return smalltalk.withContext(function($ctx1) {
  1548. var $1;
  1549. $1=_st(_st(self._model())._selectedClass())._notNil();
  1550. return $1;
  1551. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLRenameClassCommand)})},
  1552. args: [],
  1553. source: "isActive\x0a\x09^ self model selectedClass notNil",
  1554. messageSends: ["notNil", "selectedClass", "model"],
  1555. referencedClasses: []
  1556. }),
  1557. smalltalk.HLRenameClassCommand);
  1558. smalltalk.addMethod(
  1559. smalltalk.method({
  1560. selector: "isInputRequired",
  1561. category: 'testing',
  1562. fn: function (){
  1563. var self=this;
  1564. return smalltalk.withContext(function($ctx1) {
  1565. return true;
  1566. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLRenameClassCommand)})},
  1567. args: [],
  1568. source: "isInputRequired\x0a\x09^ true",
  1569. messageSends: [],
  1570. referencedClasses: []
  1571. }),
  1572. smalltalk.HLRenameClassCommand);
  1573. smalltalk.addMethod(
  1574. smalltalk.method({
  1575. selector: "key",
  1576. category: 'accessing',
  1577. fn: function (){
  1578. var self=this;
  1579. return smalltalk.withContext(function($ctx1) {
  1580. return "c";
  1581. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRenameClassCommand.klass)})},
  1582. args: [],
  1583. source: "key\x0a\x09^ 'c'",
  1584. messageSends: [],
  1585. referencedClasses: []
  1586. }),
  1587. smalltalk.HLRenameClassCommand.klass);
  1588. smalltalk.addMethod(
  1589. smalltalk.method({
  1590. selector: "label",
  1591. category: 'accessing',
  1592. fn: function (){
  1593. var self=this;
  1594. return smalltalk.withContext(function($ctx1) {
  1595. return "Class";
  1596. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRenameClassCommand.klass)})},
  1597. args: [],
  1598. source: "label\x0a\x09^ 'Class'",
  1599. messageSends: [],
  1600. referencedClasses: []
  1601. }),
  1602. smalltalk.HLRenameClassCommand.klass);
  1603. smalltalk.addMethod(
  1604. smalltalk.method({
  1605. selector: "menuLabel",
  1606. category: 'accessing',
  1607. fn: function (){
  1608. var self=this;
  1609. return smalltalk.withContext(function($ctx1) {
  1610. return "Rename class...";
  1611. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLRenameClassCommand.klass)})},
  1612. args: [],
  1613. source: "menuLabel\x0a\x09^ 'Rename class...'",
  1614. messageSends: [],
  1615. referencedClasses: []
  1616. }),
  1617. smalltalk.HLRenameClassCommand.klass);
  1618. smalltalk.addClass('HLRenameProtocolCommand', smalltalk.HLRenameCommand, [], 'Helios-Commands-Tools');
  1619. smalltalk.addMethod(
  1620. smalltalk.method({
  1621. selector: "category",
  1622. category: 'accessing',
  1623. fn: function (){
  1624. var self=this;
  1625. return smalltalk.withContext(function($ctx1) {
  1626. return "Protocols";
  1627. }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLRenameProtocolCommand)})},
  1628. args: [],
  1629. source: "category\x0a\x09^ 'Protocols'",
  1630. messageSends: [],
  1631. referencedClasses: []
  1632. }),
  1633. smalltalk.HLRenameProtocolCommand);
  1634. smalltalk.addMethod(
  1635. smalltalk.method({
  1636. selector: "defaultInput",
  1637. category: 'defaults',
  1638. fn: function (){
  1639. var self=this;
  1640. return smalltalk.withContext(function($ctx1) {
  1641. var $1;
  1642. $1=_st(self._model())._selectedProtocol();
  1643. return $1;
  1644. }, function($ctx1) {$ctx1.fill(self,"defaultInput",{},smalltalk.HLRenameProtocolCommand)})},
  1645. args: [],
  1646. source: "defaultInput\x0a\x09^ self model selectedProtocol",
  1647. messageSends: ["selectedProtocol", "model"],
  1648. referencedClasses: []
  1649. }),
  1650. smalltalk.HLRenameProtocolCommand);
  1651. smalltalk.addMethod(
  1652. smalltalk.method({
  1653. selector: "displayLabel",
  1654. category: 'accessing',
  1655. fn: function (){
  1656. var self=this;
  1657. return smalltalk.withContext(function($ctx1) {
  1658. return "Rename protocol to:";
  1659. }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLRenameProtocolCommand)})},
  1660. args: [],
  1661. source: "displayLabel\x0a\x09^ 'Rename protocol to:'",
  1662. messageSends: [],
  1663. referencedClasses: []
  1664. }),
  1665. smalltalk.HLRenameProtocolCommand);
  1666. smalltalk.addMethod(
  1667. smalltalk.method({
  1668. selector: "execute",
  1669. category: 'executing',
  1670. fn: function (){
  1671. var self=this;
  1672. return smalltalk.withContext(function($ctx1) {
  1673. _st(self._model())._renameProtocolTo_(self._input());
  1674. return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLRenameProtocolCommand)})},
  1675. args: [],
  1676. source: "execute\x0a\x09self model renameProtocolTo: self input",
  1677. messageSends: ["renameProtocolTo:", "model", "input"],
  1678. referencedClasses: []
  1679. }),
  1680. smalltalk.HLRenameProtocolCommand);
  1681. smalltalk.addMethod(
  1682. smalltalk.method({
  1683. selector: "isActive",
  1684. category: 'testing',
  1685. fn: function (){
  1686. var self=this;
  1687. return smalltalk.withContext(function($ctx1) {
  1688. var $1;
  1689. $1=_st(_st(self._model())._selectedProtocol())._notNil();
  1690. return $1;
  1691. }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLRenameProtocolCommand)})},
  1692. args: [],
  1693. source: "isActive\x0a\x09^ self model selectedProtocol notNil",
  1694. messageSends: ["notNil", "selectedProtocol", "model"],
  1695. referencedClasses: []
  1696. }),
  1697. smalltalk.HLRenameProtocolCommand);
  1698. smalltalk.addMethod(
  1699. smalltalk.method({
  1700. selector: "isInputRequired",
  1701. category: 'testing',
  1702. fn: function (){
  1703. var self=this;
  1704. return smalltalk.withContext(function($ctx1) {
  1705. return true;
  1706. }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLRenameProtocolCommand)})},
  1707. args: [],
  1708. source: "isInputRequired\x0a\x09^ true",
  1709. messageSends: [],
  1710. referencedClasses: []
  1711. }),
  1712. smalltalk.HLRenameProtocolCommand);
  1713. smalltalk.addMethod(
  1714. smalltalk.method({
  1715. selector: "key",
  1716. category: 'accessing',
  1717. fn: function (){
  1718. var self=this;
  1719. return smalltalk.withContext(function($ctx1) {
  1720. return "t";
  1721. }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRenameProtocolCommand.klass)})},
  1722. args: [],
  1723. source: "key\x0a\x09^ 't'",
  1724. messageSends: [],
  1725. referencedClasses: []
  1726. }),
  1727. smalltalk.HLRenameProtocolCommand.klass);
  1728. smalltalk.addMethod(
  1729. smalltalk.method({
  1730. selector: "label",
  1731. category: 'accessing',
  1732. fn: function (){
  1733. var self=this;
  1734. return smalltalk.withContext(function($ctx1) {
  1735. return "Protocol";
  1736. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRenameProtocolCommand.klass)})},
  1737. args: [],
  1738. source: "label\x0a\x09^ 'Protocol'",
  1739. messageSends: [],
  1740. referencedClasses: []
  1741. }),
  1742. smalltalk.HLRenameProtocolCommand.klass);
  1743. smalltalk.addMethod(
  1744. smalltalk.method({
  1745. selector: "menuLabel",
  1746. category: 'accessing',
  1747. fn: function (){
  1748. var self=this;
  1749. return smalltalk.withContext(function($ctx1) {
  1750. return "Rename protocol...";
  1751. }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLRenameProtocolCommand.klass)})},
  1752. args: [],
  1753. source: "menuLabel\x0a\x09^ 'Rename protocol...'",
  1754. messageSends: [],
  1755. referencedClasses: []
  1756. }),
  1757. smalltalk.HLRenameProtocolCommand.klass);
  1758. });