2
0

Helios-Commands-Tools.js 50 KB

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