2
0

Helios-Commands-Tools.js 50 KB

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