Helios-Commands-Tools.js 50 KB

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