Helios-Commands-Tools.js 67 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618
  1. define(["amber/boot", "require", "helios/Helios-Commands-Core"], function($boot,requirejs){"use strict";
  2. var $core=$boot.api,nil=$boot.nilAsValue,$nil=$boot.nilAsReceiver,$recv=$boot.asReceiver,$globals=$boot.globals;
  3. var $pkg = $core.addPackage("Helios-Commands-Tools");
  4. $pkg.innerEval = function (expr) { return eval(expr); };
  5. $pkg.transport = {"type":"amd","amdNamespace":"helios"};
  6. $core.addClass("HLToolCommand", $globals.HLModelCommand, [], "Helios-Commands-Tools");
  7. $core.addMethod(
  8. $core.method({
  9. selector: "category",
  10. protocol: "accessing",
  11. //>>excludeStart("ide", pragmas.excludeIdeData);
  12. args: [],
  13. source: "category\x0a\x09^ nil",
  14. referencedClasses: [],
  15. //>>excludeEnd("ide");
  16. pragmas: [],
  17. messageSends: []
  18. }, function ($methodClass){ return function (){
  19. var self=this,$self=this;
  20. return nil;
  21. }; }),
  22. $globals.HLToolCommand);
  23. $core.addMethod(
  24. $core.method({
  25. selector: "for:",
  26. protocol: "instance creation",
  27. //>>excludeStart("ide", pragmas.excludeIdeData);
  28. args: ["aToolModel"],
  29. source: "for: aToolModel\x0a\x09^ self new\x0a \x09model: aToolModel;\x0a yourself",
  30. referencedClasses: [],
  31. //>>excludeEnd("ide");
  32. pragmas: [],
  33. messageSends: ["model:", "new", "yourself"]
  34. }, function ($methodClass){ return function (aToolModel){
  35. var self=this,$self=this;
  36. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  37. return $core.withContext(function($ctx1) {
  38. //>>excludeEnd("ctx");
  39. var $1;
  40. $1=$self._new();
  41. $recv($1)._model_(aToolModel);
  42. return $recv($1)._yourself();
  43. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  44. }, function($ctx1) {$ctx1.fill(self,"for:",{aToolModel:aToolModel})});
  45. //>>excludeEnd("ctx");
  46. }; }),
  47. $globals.HLToolCommand.a$cls);
  48. $core.addMethod(
  49. $core.method({
  50. selector: "isValidFor:",
  51. protocol: "testing",
  52. //>>excludeStart("ide", pragmas.excludeIdeData);
  53. args: ["aModel"],
  54. source: "isValidFor: aModel\x0a\x09^ aModel isToolModel",
  55. referencedClasses: [],
  56. //>>excludeEnd("ide");
  57. pragmas: [],
  58. messageSends: ["isToolModel"]
  59. }, function ($methodClass){ return function (aModel){
  60. var self=this,$self=this;
  61. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  62. return $core.withContext(function($ctx1) {
  63. //>>excludeEnd("ctx");
  64. return $recv(aModel)._isToolModel();
  65. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  66. }, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel})});
  67. //>>excludeEnd("ctx");
  68. }; }),
  69. $globals.HLToolCommand.a$cls);
  70. $core.addClass("HLBrowseMethodCommand", $globals.HLToolCommand, [], "Helios-Commands-Tools");
  71. $core.addMethod(
  72. $core.method({
  73. selector: "displayLabel",
  74. protocol: "accessing",
  75. //>>excludeStart("ide", pragmas.excludeIdeData);
  76. args: [],
  77. source: "displayLabel\x0a\x09^ 'browse method'",
  78. referencedClasses: [],
  79. //>>excludeEnd("ide");
  80. pragmas: [],
  81. messageSends: []
  82. }, function ($methodClass){ return function (){
  83. var self=this,$self=this;
  84. return "browse method";
  85. }; }),
  86. $globals.HLBrowseMethodCommand);
  87. $core.addMethod(
  88. $core.method({
  89. selector: "execute",
  90. protocol: "executing",
  91. //>>excludeStart("ide", pragmas.excludeIdeData);
  92. args: [],
  93. source: "execute\x0a\x09self model openMethod",
  94. referencedClasses: [],
  95. //>>excludeEnd("ide");
  96. pragmas: [],
  97. messageSends: ["openMethod", "model"]
  98. }, function ($methodClass){ return function (){
  99. var self=this,$self=this;
  100. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  101. return $core.withContext(function($ctx1) {
  102. //>>excludeEnd("ctx");
  103. $recv($self._model())._openMethod();
  104. return self;
  105. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  106. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  107. //>>excludeEnd("ctx");
  108. }; }),
  109. $globals.HLBrowseMethodCommand);
  110. $core.addMethod(
  111. $core.method({
  112. selector: "isValidFor:",
  113. protocol: "testing",
  114. //>>excludeStart("ide", pragmas.excludeIdeData);
  115. args: ["aModel"],
  116. source: "isValidFor: aModel\x0a\x09^ aModel isReferencesModel",
  117. referencedClasses: [],
  118. //>>excludeEnd("ide");
  119. pragmas: [],
  120. messageSends: ["isReferencesModel"]
  121. }, function ($methodClass){ return function (aModel){
  122. var self=this,$self=this;
  123. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  124. return $core.withContext(function($ctx1) {
  125. //>>excludeEnd("ctx");
  126. return $recv(aModel)._isReferencesModel();
  127. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  128. }, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel})});
  129. //>>excludeEnd("ctx");
  130. }; }),
  131. $globals.HLBrowseMethodCommand.a$cls);
  132. $core.addMethod(
  133. $core.method({
  134. selector: "key",
  135. protocol: "accessing",
  136. //>>excludeStart("ide", pragmas.excludeIdeData);
  137. args: [],
  138. source: "key\x0a\x09^ 'b'",
  139. referencedClasses: [],
  140. //>>excludeEnd("ide");
  141. pragmas: [],
  142. messageSends: []
  143. }, function ($methodClass){ return function (){
  144. var self=this,$self=this;
  145. return "b";
  146. }; }),
  147. $globals.HLBrowseMethodCommand.a$cls);
  148. $core.addMethod(
  149. $core.method({
  150. selector: "label",
  151. protocol: "accessing",
  152. //>>excludeStart("ide", pragmas.excludeIdeData);
  153. args: [],
  154. source: "label\x0a\x09^ 'browse method'",
  155. referencedClasses: [],
  156. //>>excludeEnd("ide");
  157. pragmas: [],
  158. messageSends: []
  159. }, function ($methodClass){ return function (){
  160. var self=this,$self=this;
  161. return "browse method";
  162. }; }),
  163. $globals.HLBrowseMethodCommand.a$cls);
  164. $core.addClass("HLCommitPackageCommand", $globals.HLToolCommand, [], "Helios-Commands-Tools");
  165. $core.addMethod(
  166. $core.method({
  167. selector: "category",
  168. protocol: "accessing",
  169. //>>excludeStart("ide", pragmas.excludeIdeData);
  170. args: [],
  171. source: "category\x0a\x09^ 'Packages'",
  172. referencedClasses: [],
  173. //>>excludeEnd("ide");
  174. pragmas: [],
  175. messageSends: []
  176. }, function ($methodClass){ return function (){
  177. var self=this,$self=this;
  178. return "Packages";
  179. }; }),
  180. $globals.HLCommitPackageCommand);
  181. $core.addMethod(
  182. $core.method({
  183. selector: "commitPackage",
  184. protocol: "executing",
  185. //>>excludeStart("ide", pragmas.excludeIdeData);
  186. args: [],
  187. source: "commitPackage\x0a\x09self model \x0a\x09\x09commitPackageOnSuccess: [ self informSuccess ]\x0a\x09\x09onError: [ :error | self onPackageCommitError: error ]",
  188. referencedClasses: [],
  189. //>>excludeEnd("ide");
  190. pragmas: [],
  191. messageSends: ["commitPackageOnSuccess:onError:", "model", "informSuccess", "onPackageCommitError:"]
  192. }, function ($methodClass){ return function (){
  193. var self=this,$self=this;
  194. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  195. return $core.withContext(function($ctx1) {
  196. //>>excludeEnd("ctx");
  197. $recv($self._model())._commitPackageOnSuccess_onError_((function(){
  198. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  199. return $core.withContext(function($ctx2) {
  200. //>>excludeEnd("ctx");
  201. return $self._informSuccess();
  202. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  203. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  204. //>>excludeEnd("ctx");
  205. }),(function(error){
  206. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  207. return $core.withContext(function($ctx2) {
  208. //>>excludeEnd("ctx");
  209. return $self._onPackageCommitError_(error);
  210. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  211. }, function($ctx2) {$ctx2.fillBlock({error:error},$ctx1,2)});
  212. //>>excludeEnd("ctx");
  213. }));
  214. return self;
  215. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  216. }, function($ctx1) {$ctx1.fill(self,"commitPackage",{})});
  217. //>>excludeEnd("ctx");
  218. }; }),
  219. $globals.HLCommitPackageCommand);
  220. $core.addMethod(
  221. $core.method({
  222. selector: "execute",
  223. protocol: "executing",
  224. //>>excludeStart("ide", pragmas.excludeIdeData);
  225. args: [],
  226. source: "execute\x0a\x09self commitPackage",
  227. referencedClasses: [],
  228. //>>excludeEnd("ide");
  229. pragmas: [],
  230. messageSends: ["commitPackage"]
  231. }, function ($methodClass){ return function (){
  232. var self=this,$self=this;
  233. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  234. return $core.withContext(function($ctx1) {
  235. //>>excludeEnd("ctx");
  236. $self._commitPackage();
  237. return self;
  238. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  239. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  240. //>>excludeEnd("ctx");
  241. }; }),
  242. $globals.HLCommitPackageCommand);
  243. $core.addMethod(
  244. $core.method({
  245. selector: "informSuccess",
  246. protocol: "executing",
  247. //>>excludeStart("ide", pragmas.excludeIdeData);
  248. args: [],
  249. source: "informSuccess\x0a\x09HLInformationWidget new\x0a\x09\x09informationString: 'Commit successful!';\x0a\x09\x09show",
  250. referencedClasses: ["HLInformationWidget"],
  251. //>>excludeEnd("ide");
  252. pragmas: [],
  253. messageSends: ["informationString:", "new", "show"]
  254. }, function ($methodClass){ return function (){
  255. var self=this,$self=this;
  256. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  257. return $core.withContext(function($ctx1) {
  258. //>>excludeEnd("ctx");
  259. var $1;
  260. $1=$recv($globals.HLInformationWidget)._new();
  261. $recv($1)._informationString_("Commit successful!");
  262. $recv($1)._show();
  263. return self;
  264. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  265. }, function($ctx1) {$ctx1.fill(self,"informSuccess",{})});
  266. //>>excludeEnd("ctx");
  267. }; }),
  268. $globals.HLCommitPackageCommand);
  269. $core.addMethod(
  270. $core.method({
  271. selector: "isActive",
  272. protocol: "testing",
  273. //>>excludeStart("ide", pragmas.excludeIdeData);
  274. args: [],
  275. source: "isActive\x0a\x09^ true\x0a\x09\x22self model isPackageDirty\x22",
  276. referencedClasses: [],
  277. //>>excludeEnd("ide");
  278. pragmas: [],
  279. messageSends: []
  280. }, function ($methodClass){ return function (){
  281. var self=this,$self=this;
  282. return true;
  283. }; }),
  284. $globals.HLCommitPackageCommand);
  285. $core.addMethod(
  286. $core.method({
  287. selector: "onPackageCommitError:",
  288. protocol: "error handling",
  289. //>>excludeStart("ide", pragmas.excludeIdeData);
  290. args: ["anError"],
  291. source: "onPackageCommitError: anError\x0a\x09(HLPackageCommitErrorHelper on: self model)\x0a\x09\x09showHelp",
  292. referencedClasses: ["HLPackageCommitErrorHelper"],
  293. //>>excludeEnd("ide");
  294. pragmas: [],
  295. messageSends: ["showHelp", "on:", "model"]
  296. }, function ($methodClass){ return function (anError){
  297. var self=this,$self=this;
  298. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  299. return $core.withContext(function($ctx1) {
  300. //>>excludeEnd("ctx");
  301. $recv($recv($globals.HLPackageCommitErrorHelper)._on_($self._model()))._showHelp();
  302. return self;
  303. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  304. }, function($ctx1) {$ctx1.fill(self,"onPackageCommitError:",{anError:anError})});
  305. //>>excludeEnd("ctx");
  306. }; }),
  307. $globals.HLCommitPackageCommand);
  308. $core.addMethod(
  309. $core.method({
  310. selector: "key",
  311. protocol: "accessing",
  312. //>>excludeStart("ide", pragmas.excludeIdeData);
  313. args: [],
  314. source: "key\x0a\x09^ 'k'",
  315. referencedClasses: [],
  316. //>>excludeEnd("ide");
  317. pragmas: [],
  318. messageSends: []
  319. }, function ($methodClass){ return function (){
  320. var self=this,$self=this;
  321. return "k";
  322. }; }),
  323. $globals.HLCommitPackageCommand.a$cls);
  324. $core.addMethod(
  325. $core.method({
  326. selector: "label",
  327. protocol: "accessing",
  328. //>>excludeStart("ide", pragmas.excludeIdeData);
  329. args: [],
  330. source: "label\x0a\x09^ 'Commit package'",
  331. referencedClasses: [],
  332. //>>excludeEnd("ide");
  333. pragmas: [],
  334. messageSends: []
  335. }, function ($methodClass){ return function (){
  336. var self=this,$self=this;
  337. return "Commit package";
  338. }; }),
  339. $globals.HLCommitPackageCommand.a$cls);
  340. $core.addClass("HLCopyCommand", $globals.HLToolCommand, [], "Helios-Commands-Tools");
  341. $core.addMethod(
  342. $core.method({
  343. selector: "key",
  344. protocol: "accessing",
  345. //>>excludeStart("ide", pragmas.excludeIdeData);
  346. args: [],
  347. source: "key\x0a\x09^ 'c'",
  348. referencedClasses: [],
  349. //>>excludeEnd("ide");
  350. pragmas: [],
  351. messageSends: []
  352. }, function ($methodClass){ return function (){
  353. var self=this,$self=this;
  354. return "c";
  355. }; }),
  356. $globals.HLCopyCommand.a$cls);
  357. $core.addMethod(
  358. $core.method({
  359. selector: "label",
  360. protocol: "accessing",
  361. //>>excludeStart("ide", pragmas.excludeIdeData);
  362. args: [],
  363. source: "label\x0a\x09^ 'Copy'",
  364. referencedClasses: [],
  365. //>>excludeEnd("ide");
  366. pragmas: [],
  367. messageSends: []
  368. }, function ($methodClass){ return function (){
  369. var self=this,$self=this;
  370. return "Copy";
  371. }; }),
  372. $globals.HLCopyCommand.a$cls);
  373. $core.addClass("HLCopyClassCommand", $globals.HLCopyCommand, [], "Helios-Commands-Tools");
  374. $core.addMethod(
  375. $core.method({
  376. selector: "category",
  377. protocol: "accessing",
  378. //>>excludeStart("ide", pragmas.excludeIdeData);
  379. args: [],
  380. source: "category\x0a\x09^ 'Classes'",
  381. referencedClasses: [],
  382. //>>excludeEnd("ide");
  383. pragmas: [],
  384. messageSends: []
  385. }, function ($methodClass){ return function (){
  386. var self=this,$self=this;
  387. return "Classes";
  388. }; }),
  389. $globals.HLCopyClassCommand);
  390. $core.addMethod(
  391. $core.method({
  392. selector: "defaultInput",
  393. protocol: "defaults",
  394. //>>excludeStart("ide", pragmas.excludeIdeData);
  395. args: [],
  396. source: "defaultInput\x0a\x09^ self model selectedClass theNonMetaClass name",
  397. referencedClasses: [],
  398. //>>excludeEnd("ide");
  399. pragmas: [],
  400. messageSends: ["name", "theNonMetaClass", "selectedClass", "model"]
  401. }, function ($methodClass){ return function (){
  402. var self=this,$self=this;
  403. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  404. return $core.withContext(function($ctx1) {
  405. //>>excludeEnd("ctx");
  406. return $recv($recv($recv($self._model())._selectedClass())._theNonMetaClass())._name();
  407. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  408. }, function($ctx1) {$ctx1.fill(self,"defaultInput",{})});
  409. //>>excludeEnd("ctx");
  410. }; }),
  411. $globals.HLCopyClassCommand);
  412. $core.addMethod(
  413. $core.method({
  414. selector: "displayLabel",
  415. protocol: "accessing",
  416. //>>excludeStart("ide", pragmas.excludeIdeData);
  417. args: [],
  418. source: "displayLabel\x0a\x09^ 'New class name:'",
  419. referencedClasses: [],
  420. //>>excludeEnd("ide");
  421. pragmas: [],
  422. messageSends: []
  423. }, function ($methodClass){ return function (){
  424. var self=this,$self=this;
  425. return "New class name:";
  426. }; }),
  427. $globals.HLCopyClassCommand);
  428. $core.addMethod(
  429. $core.method({
  430. selector: "execute",
  431. protocol: "executing",
  432. //>>excludeStart("ide", pragmas.excludeIdeData);
  433. args: [],
  434. source: "execute\x0a\x09self model copyClassTo: self input",
  435. referencedClasses: [],
  436. //>>excludeEnd("ide");
  437. pragmas: [],
  438. messageSends: ["copyClassTo:", "model", "input"]
  439. }, function ($methodClass){ return function (){
  440. var self=this,$self=this;
  441. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  442. return $core.withContext(function($ctx1) {
  443. //>>excludeEnd("ctx");
  444. $recv($self._model())._copyClassTo_($self._input());
  445. return self;
  446. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  447. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  448. //>>excludeEnd("ctx");
  449. }; }),
  450. $globals.HLCopyClassCommand);
  451. $core.addMethod(
  452. $core.method({
  453. selector: "isActive",
  454. protocol: "testing",
  455. //>>excludeStart("ide", pragmas.excludeIdeData);
  456. args: [],
  457. source: "isActive\x0a\x09^ self model selectedClass notNil",
  458. referencedClasses: [],
  459. //>>excludeEnd("ide");
  460. pragmas: [],
  461. messageSends: ["notNil", "selectedClass", "model"]
  462. }, function ($methodClass){ return function (){
  463. var self=this,$self=this;
  464. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  465. return $core.withContext(function($ctx1) {
  466. //>>excludeEnd("ctx");
  467. return $recv($recv($self._model())._selectedClass())._notNil();
  468. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  469. }, function($ctx1) {$ctx1.fill(self,"isActive",{})});
  470. //>>excludeEnd("ctx");
  471. }; }),
  472. $globals.HLCopyClassCommand);
  473. $core.addMethod(
  474. $core.method({
  475. selector: "isInputRequired",
  476. protocol: "testing",
  477. //>>excludeStart("ide", pragmas.excludeIdeData);
  478. args: [],
  479. source: "isInputRequired\x0a\x09^ true",
  480. referencedClasses: [],
  481. //>>excludeEnd("ide");
  482. pragmas: [],
  483. messageSends: []
  484. }, function ($methodClass){ return function (){
  485. var self=this,$self=this;
  486. return true;
  487. }; }),
  488. $globals.HLCopyClassCommand);
  489. $core.addMethod(
  490. $core.method({
  491. selector: "key",
  492. protocol: "accessing",
  493. //>>excludeStart("ide", pragmas.excludeIdeData);
  494. args: [],
  495. source: "key\x0a\x09^ 'c'",
  496. referencedClasses: [],
  497. //>>excludeEnd("ide");
  498. pragmas: [],
  499. messageSends: []
  500. }, function ($methodClass){ return function (){
  501. var self=this,$self=this;
  502. return "c";
  503. }; }),
  504. $globals.HLCopyClassCommand.a$cls);
  505. $core.addMethod(
  506. $core.method({
  507. selector: "label",
  508. protocol: "accessing",
  509. //>>excludeStart("ide", pragmas.excludeIdeData);
  510. args: [],
  511. source: "label\x0a\x09^ 'Copy class'",
  512. referencedClasses: [],
  513. //>>excludeEnd("ide");
  514. pragmas: [],
  515. messageSends: []
  516. }, function ($methodClass){ return function (){
  517. var self=this,$self=this;
  518. return "Copy class";
  519. }; }),
  520. $globals.HLCopyClassCommand.a$cls);
  521. $core.addMethod(
  522. $core.method({
  523. selector: "menuLabel",
  524. protocol: "accessing",
  525. //>>excludeStart("ide", pragmas.excludeIdeData);
  526. args: [],
  527. source: "menuLabel\x0a\x09^ 'Copy class...'",
  528. referencedClasses: [],
  529. //>>excludeEnd("ide");
  530. pragmas: [],
  531. messageSends: []
  532. }, function ($methodClass){ return function (){
  533. var self=this,$self=this;
  534. return "Copy class...";
  535. }; }),
  536. $globals.HLCopyClassCommand.a$cls);
  537. $core.addClass("HLFindCommand", $globals.HLToolCommand, [], "Helios-Commands-Tools");
  538. $core.addMethod(
  539. $core.method({
  540. selector: "key",
  541. protocol: "accessing",
  542. //>>excludeStart("ide", pragmas.excludeIdeData);
  543. args: [],
  544. source: "key\x0a\x09^ 'f'",
  545. referencedClasses: [],
  546. //>>excludeEnd("ide");
  547. pragmas: [],
  548. messageSends: []
  549. }, function ($methodClass){ return function (){
  550. var self=this,$self=this;
  551. return "f";
  552. }; }),
  553. $globals.HLFindCommand.a$cls);
  554. $core.addMethod(
  555. $core.method({
  556. selector: "label",
  557. protocol: "accessing",
  558. //>>excludeStart("ide", pragmas.excludeIdeData);
  559. args: [],
  560. source: "label\x0a\x09^ 'Find'",
  561. referencedClasses: [],
  562. //>>excludeEnd("ide");
  563. pragmas: [],
  564. messageSends: []
  565. }, function ($methodClass){ return function (){
  566. var self=this,$self=this;
  567. return "Find";
  568. }; }),
  569. $globals.HLFindCommand.a$cls);
  570. $core.addClass("HLFindClassCommand", $globals.HLFindCommand, [], "Helios-Commands-Tools");
  571. $core.addMethod(
  572. $core.method({
  573. selector: "displayLabel",
  574. protocol: "accessing",
  575. //>>excludeStart("ide", pragmas.excludeIdeData);
  576. args: [],
  577. source: "displayLabel\x0a\x09^ 'select a class'",
  578. referencedClasses: [],
  579. //>>excludeEnd("ide");
  580. pragmas: [],
  581. messageSends: []
  582. }, function ($methodClass){ return function (){
  583. var self=this,$self=this;
  584. return "select a class";
  585. }; }),
  586. $globals.HLFindClassCommand);
  587. $core.addMethod(
  588. $core.method({
  589. selector: "execute",
  590. protocol: "executing",
  591. //>>excludeStart("ide", pragmas.excludeIdeData);
  592. args: [],
  593. source: "execute\x0a\x09self model openClassNamed: self input",
  594. referencedClasses: [],
  595. //>>excludeEnd("ide");
  596. pragmas: [],
  597. messageSends: ["openClassNamed:", "model", "input"]
  598. }, function ($methodClass){ return function (){
  599. var self=this,$self=this;
  600. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  601. return $core.withContext(function($ctx1) {
  602. //>>excludeEnd("ctx");
  603. $recv($self._model())._openClassNamed_($self._input());
  604. return self;
  605. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  606. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  607. //>>excludeEnd("ctx");
  608. }; }),
  609. $globals.HLFindClassCommand);
  610. $core.addMethod(
  611. $core.method({
  612. selector: "inputCompletion",
  613. protocol: "accessing",
  614. //>>excludeStart("ide", pragmas.excludeIdeData);
  615. args: [],
  616. source: "inputCompletion\x0a\x09^ self model availableClassNames",
  617. referencedClasses: [],
  618. //>>excludeEnd("ide");
  619. pragmas: [],
  620. messageSends: ["availableClassNames", "model"]
  621. }, function ($methodClass){ return function (){
  622. var self=this,$self=this;
  623. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  624. return $core.withContext(function($ctx1) {
  625. //>>excludeEnd("ctx");
  626. return $recv($self._model())._availableClassNames();
  627. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  628. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{})});
  629. //>>excludeEnd("ctx");
  630. }; }),
  631. $globals.HLFindClassCommand);
  632. $core.addMethod(
  633. $core.method({
  634. selector: "inputLabel",
  635. protocol: "accessing",
  636. //>>excludeStart("ide", pragmas.excludeIdeData);
  637. args: [],
  638. source: "inputLabel\x0a\x09^ 'Find a class'",
  639. referencedClasses: [],
  640. //>>excludeEnd("ide");
  641. pragmas: [],
  642. messageSends: []
  643. }, function ($methodClass){ return function (){
  644. var self=this,$self=this;
  645. return "Find a class";
  646. }; }),
  647. $globals.HLFindClassCommand);
  648. $core.addMethod(
  649. $core.method({
  650. selector: "isInputRequired",
  651. protocol: "testing",
  652. //>>excludeStart("ide", pragmas.excludeIdeData);
  653. args: [],
  654. source: "isInputRequired\x0a\x09^ true",
  655. referencedClasses: [],
  656. //>>excludeEnd("ide");
  657. pragmas: [],
  658. messageSends: []
  659. }, function ($methodClass){ return function (){
  660. var self=this,$self=this;
  661. return true;
  662. }; }),
  663. $globals.HLFindClassCommand);
  664. $core.addMethod(
  665. $core.method({
  666. selector: "key",
  667. protocol: "accessing",
  668. //>>excludeStart("ide", pragmas.excludeIdeData);
  669. args: [],
  670. source: "key\x0a\x09^ 'c'",
  671. referencedClasses: [],
  672. //>>excludeEnd("ide");
  673. pragmas: [],
  674. messageSends: []
  675. }, function ($methodClass){ return function (){
  676. var self=this,$self=this;
  677. return "c";
  678. }; }),
  679. $globals.HLFindClassCommand.a$cls);
  680. $core.addMethod(
  681. $core.method({
  682. selector: "label",
  683. protocol: "accessing",
  684. //>>excludeStart("ide", pragmas.excludeIdeData);
  685. args: [],
  686. source: "label\x0a\x09^ 'Find class'",
  687. referencedClasses: [],
  688. //>>excludeEnd("ide");
  689. pragmas: [],
  690. messageSends: []
  691. }, function ($methodClass){ return function (){
  692. var self=this,$self=this;
  693. return "Find class";
  694. }; }),
  695. $globals.HLFindClassCommand.a$cls);
  696. $core.addClass("HLFindReferencesCommand", $globals.HLFindCommand, [], "Helios-Commands-Tools");
  697. $core.addMethod(
  698. $core.method({
  699. selector: "defaultInput",
  700. protocol: "defaults",
  701. //>>excludeStart("ide", pragmas.excludeIdeData);
  702. args: [],
  703. 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 theNonMetaClass name ] ]\x0a\x09\x09ifNotNil: [ :method | method selector ]",
  704. referencedClasses: [],
  705. //>>excludeEnd("ide");
  706. pragmas: [],
  707. messageSends: ["ifNil:ifNotNil:", "selectedMethod", "model", "selectedClass", "name", "theNonMetaClass", "selector"]
  708. }, function ($methodClass){ return function (){
  709. var self=this,$self=this;
  710. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  711. return $core.withContext(function($ctx1) {
  712. //>>excludeEnd("ctx");
  713. var $1,$2;
  714. $1=$recv([$self._model()
  715. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  716. ,$ctx1.sendIdx["model"]=1
  717. //>>excludeEnd("ctx");
  718. ][0])._selectedMethod();
  719. if($1 == null || $1.a$nil){
  720. $2=$recv($self._model())._selectedClass();
  721. if($2 == null || $2.a$nil){
  722. return "";
  723. } else {
  724. var class_;
  725. class_=$2;
  726. return $recv($recv(class_)._theNonMetaClass())._name();
  727. }
  728. } else {
  729. var method;
  730. method=$1;
  731. return $recv(method)._selector();
  732. }
  733. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  734. }, function($ctx1) {$ctx1.fill(self,"defaultInput",{})});
  735. //>>excludeEnd("ctx");
  736. }; }),
  737. $globals.HLFindReferencesCommand);
  738. $core.addMethod(
  739. $core.method({
  740. selector: "displayLabel",
  741. protocol: "accessing",
  742. //>>excludeStart("ide", pragmas.excludeIdeData);
  743. args: [],
  744. source: "displayLabel\x0a\x09^ 'find references'",
  745. referencedClasses: [],
  746. //>>excludeEnd("ide");
  747. pragmas: [],
  748. messageSends: []
  749. }, function ($methodClass){ return function (){
  750. var self=this,$self=this;
  751. return "find references";
  752. }; }),
  753. $globals.HLFindReferencesCommand);
  754. $core.addMethod(
  755. $core.method({
  756. selector: "execute",
  757. protocol: "executing",
  758. //>>excludeStart("ide", pragmas.excludeIdeData);
  759. args: [],
  760. source: "execute\x0a\x09HLReferences new \x0a\x09\x09openAsTab;\x0a\x09\x09search: self input",
  761. referencedClasses: ["HLReferences"],
  762. //>>excludeEnd("ide");
  763. pragmas: [],
  764. messageSends: ["openAsTab", "new", "search:", "input"]
  765. }, function ($methodClass){ return function (){
  766. var self=this,$self=this;
  767. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  768. return $core.withContext(function($ctx1) {
  769. //>>excludeEnd("ctx");
  770. var $1;
  771. $1=$recv($globals.HLReferences)._new();
  772. $recv($1)._openAsTab();
  773. $recv($1)._search_($self._input());
  774. return self;
  775. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  776. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  777. //>>excludeEnd("ctx");
  778. }; }),
  779. $globals.HLFindReferencesCommand);
  780. $core.addMethod(
  781. $core.method({
  782. selector: "inputCompletion",
  783. protocol: "accessing",
  784. //>>excludeStart("ide", pragmas.excludeIdeData);
  785. args: [],
  786. source: "inputCompletion\x0a\x09^ self model availableClassNames, self model allSelectors",
  787. referencedClasses: [],
  788. //>>excludeEnd("ide");
  789. pragmas: [],
  790. messageSends: [",", "availableClassNames", "model", "allSelectors"]
  791. }, function ($methodClass){ return function (){
  792. var self=this,$self=this;
  793. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  794. return $core.withContext(function($ctx1) {
  795. //>>excludeEnd("ctx");
  796. return $recv($recv([$self._model()
  797. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  798. ,$ctx1.sendIdx["model"]=1
  799. //>>excludeEnd("ctx");
  800. ][0])._availableClassNames()).__comma($recv($self._model())._allSelectors());
  801. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  802. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{})});
  803. //>>excludeEnd("ctx");
  804. }; }),
  805. $globals.HLFindReferencesCommand);
  806. $core.addMethod(
  807. $core.method({
  808. selector: "inputLabel",
  809. protocol: "accessing",
  810. //>>excludeStart("ide", pragmas.excludeIdeData);
  811. args: [],
  812. source: "inputLabel\x0a\x09^ 'Find references of'",
  813. referencedClasses: [],
  814. //>>excludeEnd("ide");
  815. pragmas: [],
  816. messageSends: []
  817. }, function ($methodClass){ return function (){
  818. var self=this,$self=this;
  819. return "Find references of";
  820. }; }),
  821. $globals.HLFindReferencesCommand);
  822. $core.addMethod(
  823. $core.method({
  824. selector: "isInputRequired",
  825. protocol: "testing",
  826. //>>excludeStart("ide", pragmas.excludeIdeData);
  827. args: [],
  828. source: "isInputRequired\x0a\x09^ true",
  829. referencedClasses: [],
  830. //>>excludeEnd("ide");
  831. pragmas: [],
  832. messageSends: []
  833. }, function ($methodClass){ return function (){
  834. var self=this,$self=this;
  835. return true;
  836. }; }),
  837. $globals.HLFindReferencesCommand);
  838. $core.addMethod(
  839. $core.method({
  840. selector: "key",
  841. protocol: "accessing",
  842. //>>excludeStart("ide", pragmas.excludeIdeData);
  843. args: [],
  844. source: "key\x0a\x09^ 'r'",
  845. referencedClasses: [],
  846. //>>excludeEnd("ide");
  847. pragmas: [],
  848. messageSends: []
  849. }, function ($methodClass){ return function (){
  850. var self=this,$self=this;
  851. return "r";
  852. }; }),
  853. $globals.HLFindReferencesCommand.a$cls);
  854. $core.addMethod(
  855. $core.method({
  856. selector: "label",
  857. protocol: "accessing",
  858. //>>excludeStart("ide", pragmas.excludeIdeData);
  859. args: [],
  860. source: "label\x0a\x09^ 'Find references'",
  861. referencedClasses: [],
  862. //>>excludeEnd("ide");
  863. pragmas: [],
  864. messageSends: []
  865. }, function ($methodClass){ return function (){
  866. var self=this,$self=this;
  867. return "Find references";
  868. }; }),
  869. $globals.HLFindReferencesCommand.a$cls);
  870. $core.addClass("HLMoveToCommand", $globals.HLToolCommand, [], "Helios-Commands-Tools");
  871. $core.addMethod(
  872. $core.method({
  873. selector: "key",
  874. protocol: "accessing",
  875. //>>excludeStart("ide", pragmas.excludeIdeData);
  876. args: [],
  877. source: "key\x0a\x09^ 'm'",
  878. referencedClasses: [],
  879. //>>excludeEnd("ide");
  880. pragmas: [],
  881. messageSends: []
  882. }, function ($methodClass){ return function (){
  883. var self=this,$self=this;
  884. return "m";
  885. }; }),
  886. $globals.HLMoveToCommand.a$cls);
  887. $core.addMethod(
  888. $core.method({
  889. selector: "label",
  890. protocol: "accessing",
  891. //>>excludeStart("ide", pragmas.excludeIdeData);
  892. args: [],
  893. source: "label\x0a\x09^ 'Move'",
  894. referencedClasses: [],
  895. //>>excludeEnd("ide");
  896. pragmas: [],
  897. messageSends: []
  898. }, function ($methodClass){ return function (){
  899. var self=this,$self=this;
  900. return "Move";
  901. }; }),
  902. $globals.HLMoveToCommand.a$cls);
  903. $core.addClass("HLMoveClassToCommand", $globals.HLMoveToCommand, [], "Helios-Commands-Tools");
  904. $core.addMethod(
  905. $core.method({
  906. selector: "isActive",
  907. protocol: "testing",
  908. //>>excludeStart("ide", pragmas.excludeIdeData);
  909. args: [],
  910. source: "isActive\x0a\x09^ self model selectedClass notNil",
  911. referencedClasses: [],
  912. //>>excludeEnd("ide");
  913. pragmas: [],
  914. messageSends: ["notNil", "selectedClass", "model"]
  915. }, function ($methodClass){ return function (){
  916. var self=this,$self=this;
  917. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  918. return $core.withContext(function($ctx1) {
  919. //>>excludeEnd("ctx");
  920. return $recv($recv($self._model())._selectedClass())._notNil();
  921. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  922. }, function($ctx1) {$ctx1.fill(self,"isActive",{})});
  923. //>>excludeEnd("ctx");
  924. }; }),
  925. $globals.HLMoveClassToCommand);
  926. $core.addMethod(
  927. $core.method({
  928. selector: "key",
  929. protocol: "accessing",
  930. //>>excludeStart("ide", pragmas.excludeIdeData);
  931. args: [],
  932. source: "key\x0a\x09^ 'c'",
  933. referencedClasses: [],
  934. //>>excludeEnd("ide");
  935. pragmas: [],
  936. messageSends: []
  937. }, function ($methodClass){ return function (){
  938. var self=this,$self=this;
  939. return "c";
  940. }; }),
  941. $globals.HLMoveClassToCommand.a$cls);
  942. $core.addMethod(
  943. $core.method({
  944. selector: "label",
  945. protocol: "accessing",
  946. //>>excludeStart("ide", pragmas.excludeIdeData);
  947. args: [],
  948. source: "label\x0a\x09^ 'Move class'",
  949. referencedClasses: [],
  950. //>>excludeEnd("ide");
  951. pragmas: [],
  952. messageSends: []
  953. }, function ($methodClass){ return function (){
  954. var self=this,$self=this;
  955. return "Move class";
  956. }; }),
  957. $globals.HLMoveClassToCommand.a$cls);
  958. $core.addClass("HLMoveClassToPackageCommand", $globals.HLMoveClassToCommand, [], "Helios-Commands-Tools");
  959. $core.addMethod(
  960. $core.method({
  961. selector: "category",
  962. protocol: "accessing",
  963. //>>excludeStart("ide", pragmas.excludeIdeData);
  964. args: [],
  965. source: "category\x0a\x09^ 'Classes'",
  966. referencedClasses: [],
  967. //>>excludeEnd("ide");
  968. pragmas: [],
  969. messageSends: []
  970. }, function ($methodClass){ return function (){
  971. var self=this,$self=this;
  972. return "Classes";
  973. }; }),
  974. $globals.HLMoveClassToPackageCommand);
  975. $core.addMethod(
  976. $core.method({
  977. selector: "displayLabel",
  978. protocol: "accessing",
  979. //>>excludeStart("ide", pragmas.excludeIdeData);
  980. args: [],
  981. source: "displayLabel\x0a\x09^ 'select a package'",
  982. referencedClasses: [],
  983. //>>excludeEnd("ide");
  984. pragmas: [],
  985. messageSends: []
  986. }, function ($methodClass){ return function (){
  987. var self=this,$self=this;
  988. return "select a package";
  989. }; }),
  990. $globals.HLMoveClassToPackageCommand);
  991. $core.addMethod(
  992. $core.method({
  993. selector: "execute",
  994. protocol: "executing",
  995. //>>excludeStart("ide", pragmas.excludeIdeData);
  996. args: [],
  997. source: "execute\x0a\x09self model moveClassToPackage: self input",
  998. referencedClasses: [],
  999. //>>excludeEnd("ide");
  1000. pragmas: [],
  1001. messageSends: ["moveClassToPackage:", "model", "input"]
  1002. }, function ($methodClass){ return function (){
  1003. var self=this,$self=this;
  1004. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1005. return $core.withContext(function($ctx1) {
  1006. //>>excludeEnd("ctx");
  1007. $recv($self._model())._moveClassToPackage_($self._input());
  1008. return self;
  1009. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1010. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  1011. //>>excludeEnd("ctx");
  1012. }; }),
  1013. $globals.HLMoveClassToPackageCommand);
  1014. $core.addMethod(
  1015. $core.method({
  1016. selector: "inputCompletion",
  1017. protocol: "accessing",
  1018. //>>excludeStart("ide", pragmas.excludeIdeData);
  1019. args: [],
  1020. source: "inputCompletion\x0a\x09^ self model availablePackageNames",
  1021. referencedClasses: [],
  1022. //>>excludeEnd("ide");
  1023. pragmas: [],
  1024. messageSends: ["availablePackageNames", "model"]
  1025. }, function ($methodClass){ return function (){
  1026. var self=this,$self=this;
  1027. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1028. return $core.withContext(function($ctx1) {
  1029. //>>excludeEnd("ctx");
  1030. return $recv($self._model())._availablePackageNames();
  1031. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1032. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{})});
  1033. //>>excludeEnd("ctx");
  1034. }; }),
  1035. $globals.HLMoveClassToPackageCommand);
  1036. $core.addMethod(
  1037. $core.method({
  1038. selector: "inputLabel",
  1039. protocol: "accessing",
  1040. //>>excludeStart("ide", pragmas.excludeIdeData);
  1041. args: [],
  1042. source: "inputLabel\x0a\x09^ 'Move class to package:'",
  1043. referencedClasses: [],
  1044. //>>excludeEnd("ide");
  1045. pragmas: [],
  1046. messageSends: []
  1047. }, function ($methodClass){ return function (){
  1048. var self=this,$self=this;
  1049. return "Move class to package:";
  1050. }; }),
  1051. $globals.HLMoveClassToPackageCommand);
  1052. $core.addMethod(
  1053. $core.method({
  1054. selector: "isInputRequired",
  1055. protocol: "testing",
  1056. //>>excludeStart("ide", pragmas.excludeIdeData);
  1057. args: [],
  1058. source: "isInputRequired\x0a\x09^ true",
  1059. referencedClasses: [],
  1060. //>>excludeEnd("ide");
  1061. pragmas: [],
  1062. messageSends: []
  1063. }, function ($methodClass){ return function (){
  1064. var self=this,$self=this;
  1065. return true;
  1066. }; }),
  1067. $globals.HLMoveClassToPackageCommand);
  1068. $core.addMethod(
  1069. $core.method({
  1070. selector: "key",
  1071. protocol: "accessing",
  1072. //>>excludeStart("ide", pragmas.excludeIdeData);
  1073. args: [],
  1074. source: "key\x0a\x09^ 'p'",
  1075. referencedClasses: [],
  1076. //>>excludeEnd("ide");
  1077. pragmas: [],
  1078. messageSends: []
  1079. }, function ($methodClass){ return function (){
  1080. var self=this,$self=this;
  1081. return "p";
  1082. }; }),
  1083. $globals.HLMoveClassToPackageCommand.a$cls);
  1084. $core.addMethod(
  1085. $core.method({
  1086. selector: "label",
  1087. protocol: "accessing",
  1088. //>>excludeStart("ide", pragmas.excludeIdeData);
  1089. args: [],
  1090. source: "label\x0a\x09^ 'Move class to package'",
  1091. referencedClasses: [],
  1092. //>>excludeEnd("ide");
  1093. pragmas: [],
  1094. messageSends: []
  1095. }, function ($methodClass){ return function (){
  1096. var self=this,$self=this;
  1097. return "Move class to package";
  1098. }; }),
  1099. $globals.HLMoveClassToPackageCommand.a$cls);
  1100. $core.addMethod(
  1101. $core.method({
  1102. selector: "menuLabel",
  1103. protocol: "accessing",
  1104. //>>excludeStart("ide", pragmas.excludeIdeData);
  1105. args: [],
  1106. source: "menuLabel\x09\x0a\x09^ 'Move to package...'",
  1107. referencedClasses: [],
  1108. //>>excludeEnd("ide");
  1109. pragmas: [],
  1110. messageSends: []
  1111. }, function ($methodClass){ return function (){
  1112. var self=this,$self=this;
  1113. return "Move to package...";
  1114. }; }),
  1115. $globals.HLMoveClassToPackageCommand.a$cls);
  1116. $core.addClass("HLMoveMethodToCommand", $globals.HLMoveToCommand, [], "Helios-Commands-Tools");
  1117. $core.addMethod(
  1118. $core.method({
  1119. selector: "category",
  1120. protocol: "accessing",
  1121. //>>excludeStart("ide", pragmas.excludeIdeData);
  1122. args: [],
  1123. source: "category\x0a\x09^ 'Methods'",
  1124. referencedClasses: [],
  1125. //>>excludeEnd("ide");
  1126. pragmas: [],
  1127. messageSends: []
  1128. }, function ($methodClass){ return function (){
  1129. var self=this,$self=this;
  1130. return "Methods";
  1131. }; }),
  1132. $globals.HLMoveMethodToCommand);
  1133. $core.addMethod(
  1134. $core.method({
  1135. selector: "isActive",
  1136. protocol: "testing",
  1137. //>>excludeStart("ide", pragmas.excludeIdeData);
  1138. args: [],
  1139. source: "isActive\x0a\x09^ self model selectedMethod notNil",
  1140. referencedClasses: [],
  1141. //>>excludeEnd("ide");
  1142. pragmas: [],
  1143. messageSends: ["notNil", "selectedMethod", "model"]
  1144. }, function ($methodClass){ return function (){
  1145. var self=this,$self=this;
  1146. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1147. return $core.withContext(function($ctx1) {
  1148. //>>excludeEnd("ctx");
  1149. return $recv($recv($self._model())._selectedMethod())._notNil();
  1150. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1151. }, function($ctx1) {$ctx1.fill(self,"isActive",{})});
  1152. //>>excludeEnd("ctx");
  1153. }; }),
  1154. $globals.HLMoveMethodToCommand);
  1155. $core.addMethod(
  1156. $core.method({
  1157. selector: "key",
  1158. protocol: "accessing",
  1159. //>>excludeStart("ide", pragmas.excludeIdeData);
  1160. args: [],
  1161. source: "key\x0a\x09^ 'm'",
  1162. referencedClasses: [],
  1163. //>>excludeEnd("ide");
  1164. pragmas: [],
  1165. messageSends: []
  1166. }, function ($methodClass){ return function (){
  1167. var self=this,$self=this;
  1168. return "m";
  1169. }; }),
  1170. $globals.HLMoveMethodToCommand.a$cls);
  1171. $core.addMethod(
  1172. $core.method({
  1173. selector: "label",
  1174. protocol: "accessing",
  1175. //>>excludeStart("ide", pragmas.excludeIdeData);
  1176. args: [],
  1177. source: "label\x0a\x09^ 'Move method'",
  1178. referencedClasses: [],
  1179. //>>excludeEnd("ide");
  1180. pragmas: [],
  1181. messageSends: []
  1182. }, function ($methodClass){ return function (){
  1183. var self=this,$self=this;
  1184. return "Move method";
  1185. }; }),
  1186. $globals.HLMoveMethodToCommand.a$cls);
  1187. $core.addClass("HLMoveMethodToClassCommand", $globals.HLMoveMethodToCommand, [], "Helios-Commands-Tools");
  1188. $core.addMethod(
  1189. $core.method({
  1190. selector: "displayLabel",
  1191. protocol: "accessing",
  1192. //>>excludeStart("ide", pragmas.excludeIdeData);
  1193. args: [],
  1194. source: "displayLabel\x0a\x09^ 'select a class'",
  1195. referencedClasses: [],
  1196. //>>excludeEnd("ide");
  1197. pragmas: [],
  1198. messageSends: []
  1199. }, function ($methodClass){ return function (){
  1200. var self=this,$self=this;
  1201. return "select a class";
  1202. }; }),
  1203. $globals.HLMoveMethodToClassCommand);
  1204. $core.addMethod(
  1205. $core.method({
  1206. selector: "execute",
  1207. protocol: "executing",
  1208. //>>excludeStart("ide", pragmas.excludeIdeData);
  1209. args: [],
  1210. source: "execute\x0a\x09self model moveMethodToClass: self input",
  1211. referencedClasses: [],
  1212. //>>excludeEnd("ide");
  1213. pragmas: [],
  1214. messageSends: ["moveMethodToClass:", "model", "input"]
  1215. }, function ($methodClass){ return function (){
  1216. var self=this,$self=this;
  1217. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1218. return $core.withContext(function($ctx1) {
  1219. //>>excludeEnd("ctx");
  1220. $recv($self._model())._moveMethodToClass_($self._input());
  1221. return self;
  1222. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1223. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  1224. //>>excludeEnd("ctx");
  1225. }; }),
  1226. $globals.HLMoveMethodToClassCommand);
  1227. $core.addMethod(
  1228. $core.method({
  1229. selector: "inputCompletion",
  1230. protocol: "accessing",
  1231. //>>excludeStart("ide", pragmas.excludeIdeData);
  1232. args: [],
  1233. source: "inputCompletion\x0a\x09^ self model availableClassNames",
  1234. referencedClasses: [],
  1235. //>>excludeEnd("ide");
  1236. pragmas: [],
  1237. messageSends: ["availableClassNames", "model"]
  1238. }, function ($methodClass){ return function (){
  1239. var self=this,$self=this;
  1240. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1241. return $core.withContext(function($ctx1) {
  1242. //>>excludeEnd("ctx");
  1243. return $recv($self._model())._availableClassNames();
  1244. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1245. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{})});
  1246. //>>excludeEnd("ctx");
  1247. }; }),
  1248. $globals.HLMoveMethodToClassCommand);
  1249. $core.addMethod(
  1250. $core.method({
  1251. selector: "inputLabel",
  1252. protocol: "accessing",
  1253. //>>excludeStart("ide", pragmas.excludeIdeData);
  1254. args: [],
  1255. source: "inputLabel\x0a\x09^ 'Move method to class:'",
  1256. referencedClasses: [],
  1257. //>>excludeEnd("ide");
  1258. pragmas: [],
  1259. messageSends: []
  1260. }, function ($methodClass){ return function (){
  1261. var self=this,$self=this;
  1262. return "Move method to class:";
  1263. }; }),
  1264. $globals.HLMoveMethodToClassCommand);
  1265. $core.addMethod(
  1266. $core.method({
  1267. selector: "isInputRequired",
  1268. protocol: "testing",
  1269. //>>excludeStart("ide", pragmas.excludeIdeData);
  1270. args: [],
  1271. source: "isInputRequired\x0a\x09^ true",
  1272. referencedClasses: [],
  1273. //>>excludeEnd("ide");
  1274. pragmas: [],
  1275. messageSends: []
  1276. }, function ($methodClass){ return function (){
  1277. var self=this,$self=this;
  1278. return true;
  1279. }; }),
  1280. $globals.HLMoveMethodToClassCommand);
  1281. $core.addMethod(
  1282. $core.method({
  1283. selector: "key",
  1284. protocol: "accessing",
  1285. //>>excludeStart("ide", pragmas.excludeIdeData);
  1286. args: [],
  1287. source: "key\x0a\x09^ 'c'",
  1288. referencedClasses: [],
  1289. //>>excludeEnd("ide");
  1290. pragmas: [],
  1291. messageSends: []
  1292. }, function ($methodClass){ return function (){
  1293. var self=this,$self=this;
  1294. return "c";
  1295. }; }),
  1296. $globals.HLMoveMethodToClassCommand.a$cls);
  1297. $core.addMethod(
  1298. $core.method({
  1299. selector: "label",
  1300. protocol: "accessing",
  1301. //>>excludeStart("ide", pragmas.excludeIdeData);
  1302. args: [],
  1303. source: "label\x09\x0a\x09^ 'Move method to class'",
  1304. referencedClasses: [],
  1305. //>>excludeEnd("ide");
  1306. pragmas: [],
  1307. messageSends: []
  1308. }, function ($methodClass){ return function (){
  1309. var self=this,$self=this;
  1310. return "Move method to class";
  1311. }; }),
  1312. $globals.HLMoveMethodToClassCommand.a$cls);
  1313. $core.addMethod(
  1314. $core.method({
  1315. selector: "menuLabel",
  1316. protocol: "accessing",
  1317. //>>excludeStart("ide", pragmas.excludeIdeData);
  1318. args: [],
  1319. source: "menuLabel\x09\x0a\x09^ 'Move to class...'",
  1320. referencedClasses: [],
  1321. //>>excludeEnd("ide");
  1322. pragmas: [],
  1323. messageSends: []
  1324. }, function ($methodClass){ return function (){
  1325. var self=this,$self=this;
  1326. return "Move to class...";
  1327. }; }),
  1328. $globals.HLMoveMethodToClassCommand.a$cls);
  1329. $core.addClass("HLMoveMethodToProtocolCommand", $globals.HLMoveMethodToCommand, [], "Helios-Commands-Tools");
  1330. $core.addMethod(
  1331. $core.method({
  1332. selector: "displayLabel",
  1333. protocol: "accessing",
  1334. //>>excludeStart("ide", pragmas.excludeIdeData);
  1335. args: [],
  1336. source: "displayLabel\x0a\x09^ 'select a protocol'",
  1337. referencedClasses: [],
  1338. //>>excludeEnd("ide");
  1339. pragmas: [],
  1340. messageSends: []
  1341. }, function ($methodClass){ return function (){
  1342. var self=this,$self=this;
  1343. return "select a protocol";
  1344. }; }),
  1345. $globals.HLMoveMethodToProtocolCommand);
  1346. $core.addMethod(
  1347. $core.method({
  1348. selector: "execute",
  1349. protocol: "executing",
  1350. //>>excludeStart("ide", pragmas.excludeIdeData);
  1351. args: [],
  1352. source: "execute\x0a\x09self model moveMethodToProtocol: self input",
  1353. referencedClasses: [],
  1354. //>>excludeEnd("ide");
  1355. pragmas: [],
  1356. messageSends: ["moveMethodToProtocol:", "model", "input"]
  1357. }, function ($methodClass){ return function (){
  1358. var self=this,$self=this;
  1359. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1360. return $core.withContext(function($ctx1) {
  1361. //>>excludeEnd("ctx");
  1362. $recv($self._model())._moveMethodToProtocol_($self._input());
  1363. return self;
  1364. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1365. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  1366. //>>excludeEnd("ctx");
  1367. }; }),
  1368. $globals.HLMoveMethodToProtocolCommand);
  1369. $core.addMethod(
  1370. $core.method({
  1371. selector: "inputCompletion",
  1372. protocol: "accessing",
  1373. //>>excludeStart("ide", pragmas.excludeIdeData);
  1374. args: [],
  1375. source: "inputCompletion\x0a\x09^ self model availableProtocols",
  1376. referencedClasses: [],
  1377. //>>excludeEnd("ide");
  1378. pragmas: [],
  1379. messageSends: ["availableProtocols", "model"]
  1380. }, function ($methodClass){ return function (){
  1381. var self=this,$self=this;
  1382. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1383. return $core.withContext(function($ctx1) {
  1384. //>>excludeEnd("ctx");
  1385. return $recv($self._model())._availableProtocols();
  1386. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1387. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{})});
  1388. //>>excludeEnd("ctx");
  1389. }; }),
  1390. $globals.HLMoveMethodToProtocolCommand);
  1391. $core.addMethod(
  1392. $core.method({
  1393. selector: "inputLabel",
  1394. protocol: "accessing",
  1395. //>>excludeStart("ide", pragmas.excludeIdeData);
  1396. args: [],
  1397. source: "inputLabel\x0a\x09^ 'Move method to a protocol:'",
  1398. referencedClasses: [],
  1399. //>>excludeEnd("ide");
  1400. pragmas: [],
  1401. messageSends: []
  1402. }, function ($methodClass){ return function (){
  1403. var self=this,$self=this;
  1404. return "Move method to a protocol:";
  1405. }; }),
  1406. $globals.HLMoveMethodToProtocolCommand);
  1407. $core.addMethod(
  1408. $core.method({
  1409. selector: "isInputRequired",
  1410. protocol: "testing",
  1411. //>>excludeStart("ide", pragmas.excludeIdeData);
  1412. args: [],
  1413. source: "isInputRequired\x0a\x09^ true",
  1414. referencedClasses: [],
  1415. //>>excludeEnd("ide");
  1416. pragmas: [],
  1417. messageSends: []
  1418. }, function ($methodClass){ return function (){
  1419. var self=this,$self=this;
  1420. return true;
  1421. }; }),
  1422. $globals.HLMoveMethodToProtocolCommand);
  1423. $core.addMethod(
  1424. $core.method({
  1425. selector: "key",
  1426. protocol: "accessing",
  1427. //>>excludeStart("ide", pragmas.excludeIdeData);
  1428. args: [],
  1429. source: "key\x0a\x09^ 't'",
  1430. referencedClasses: [],
  1431. //>>excludeEnd("ide");
  1432. pragmas: [],
  1433. messageSends: []
  1434. }, function ($methodClass){ return function (){
  1435. var self=this,$self=this;
  1436. return "t";
  1437. }; }),
  1438. $globals.HLMoveMethodToProtocolCommand.a$cls);
  1439. $core.addMethod(
  1440. $core.method({
  1441. selector: "label",
  1442. protocol: "accessing",
  1443. //>>excludeStart("ide", pragmas.excludeIdeData);
  1444. args: [],
  1445. source: "label\x0a\x09^ 'Move method to protocol'",
  1446. referencedClasses: [],
  1447. //>>excludeEnd("ide");
  1448. pragmas: [],
  1449. messageSends: []
  1450. }, function ($methodClass){ return function (){
  1451. var self=this,$self=this;
  1452. return "Move method to protocol";
  1453. }; }),
  1454. $globals.HLMoveMethodToProtocolCommand.a$cls);
  1455. $core.addMethod(
  1456. $core.method({
  1457. selector: "menuLabel",
  1458. protocol: "accessing",
  1459. //>>excludeStart("ide", pragmas.excludeIdeData);
  1460. args: [],
  1461. source: "menuLabel\x0a\x09^ 'Move to protocol...'",
  1462. referencedClasses: [],
  1463. //>>excludeEnd("ide");
  1464. pragmas: [],
  1465. messageSends: []
  1466. }, function ($methodClass){ return function (){
  1467. var self=this,$self=this;
  1468. return "Move to protocol...";
  1469. }; }),
  1470. $globals.HLMoveMethodToProtocolCommand.a$cls);
  1471. $core.addClass("HLRemoveCommand", $globals.HLToolCommand, [], "Helios-Commands-Tools");
  1472. $core.addMethod(
  1473. $core.method({
  1474. selector: "key",
  1475. protocol: "accessing",
  1476. //>>excludeStart("ide", pragmas.excludeIdeData);
  1477. args: [],
  1478. source: "key\x0a\x09^ 'x'",
  1479. referencedClasses: [],
  1480. //>>excludeEnd("ide");
  1481. pragmas: [],
  1482. messageSends: []
  1483. }, function ($methodClass){ return function (){
  1484. var self=this,$self=this;
  1485. return "x";
  1486. }; }),
  1487. $globals.HLRemoveCommand.a$cls);
  1488. $core.addMethod(
  1489. $core.method({
  1490. selector: "label",
  1491. protocol: "accessing",
  1492. //>>excludeStart("ide", pragmas.excludeIdeData);
  1493. args: [],
  1494. source: "label\x0a\x09^ 'Remove'",
  1495. referencedClasses: [],
  1496. //>>excludeEnd("ide");
  1497. pragmas: [],
  1498. messageSends: []
  1499. }, function ($methodClass){ return function (){
  1500. var self=this,$self=this;
  1501. return "Remove";
  1502. }; }),
  1503. $globals.HLRemoveCommand.a$cls);
  1504. $core.addClass("HLRemoveClassCommand", $globals.HLRemoveCommand, [], "Helios-Commands-Tools");
  1505. $core.addMethod(
  1506. $core.method({
  1507. selector: "category",
  1508. protocol: "accessing",
  1509. //>>excludeStart("ide", pragmas.excludeIdeData);
  1510. args: [],
  1511. source: "category\x0a\x09^ 'Classes'",
  1512. referencedClasses: [],
  1513. //>>excludeEnd("ide");
  1514. pragmas: [],
  1515. messageSends: []
  1516. }, function ($methodClass){ return function (){
  1517. var self=this,$self=this;
  1518. return "Classes";
  1519. }; }),
  1520. $globals.HLRemoveClassCommand);
  1521. $core.addMethod(
  1522. $core.method({
  1523. selector: "execute",
  1524. protocol: "executing",
  1525. //>>excludeStart("ide", pragmas.excludeIdeData);
  1526. args: [],
  1527. source: "execute\x0a\x09self model removeClass",
  1528. referencedClasses: [],
  1529. //>>excludeEnd("ide");
  1530. pragmas: [],
  1531. messageSends: ["removeClass", "model"]
  1532. }, function ($methodClass){ return function (){
  1533. var self=this,$self=this;
  1534. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1535. return $core.withContext(function($ctx1) {
  1536. //>>excludeEnd("ctx");
  1537. $recv($self._model())._removeClass();
  1538. return self;
  1539. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1540. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  1541. //>>excludeEnd("ctx");
  1542. }; }),
  1543. $globals.HLRemoveClassCommand);
  1544. $core.addMethod(
  1545. $core.method({
  1546. selector: "isActive",
  1547. protocol: "testing",
  1548. //>>excludeStart("ide", pragmas.excludeIdeData);
  1549. args: [],
  1550. source: "isActive\x0a\x09^ self model selectedClass notNil",
  1551. referencedClasses: [],
  1552. //>>excludeEnd("ide");
  1553. pragmas: [],
  1554. messageSends: ["notNil", "selectedClass", "model"]
  1555. }, function ($methodClass){ return function (){
  1556. var self=this,$self=this;
  1557. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1558. return $core.withContext(function($ctx1) {
  1559. //>>excludeEnd("ctx");
  1560. return $recv($recv($self._model())._selectedClass())._notNil();
  1561. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1562. }, function($ctx1) {$ctx1.fill(self,"isActive",{})});
  1563. //>>excludeEnd("ctx");
  1564. }; }),
  1565. $globals.HLRemoveClassCommand);
  1566. $core.addMethod(
  1567. $core.method({
  1568. selector: "key",
  1569. protocol: "accessing",
  1570. //>>excludeStart("ide", pragmas.excludeIdeData);
  1571. args: [],
  1572. source: "key\x0a\x09^ 'c'",
  1573. referencedClasses: [],
  1574. //>>excludeEnd("ide");
  1575. pragmas: [],
  1576. messageSends: []
  1577. }, function ($methodClass){ return function (){
  1578. var self=this,$self=this;
  1579. return "c";
  1580. }; }),
  1581. $globals.HLRemoveClassCommand.a$cls);
  1582. $core.addMethod(
  1583. $core.method({
  1584. selector: "label",
  1585. protocol: "accessing",
  1586. //>>excludeStart("ide", pragmas.excludeIdeData);
  1587. args: [],
  1588. source: "label\x0a\x09^ 'Remove class'",
  1589. referencedClasses: [],
  1590. //>>excludeEnd("ide");
  1591. pragmas: [],
  1592. messageSends: []
  1593. }, function ($methodClass){ return function (){
  1594. var self=this,$self=this;
  1595. return "Remove class";
  1596. }; }),
  1597. $globals.HLRemoveClassCommand.a$cls);
  1598. $core.addMethod(
  1599. $core.method({
  1600. selector: "menuLabel",
  1601. protocol: "accessing",
  1602. //>>excludeStart("ide", pragmas.excludeIdeData);
  1603. args: [],
  1604. source: "menuLabel\x0a\x09^ 'Remove class'",
  1605. referencedClasses: [],
  1606. //>>excludeEnd("ide");
  1607. pragmas: [],
  1608. messageSends: []
  1609. }, function ($methodClass){ return function (){
  1610. var self=this,$self=this;
  1611. return "Remove class";
  1612. }; }),
  1613. $globals.HLRemoveClassCommand.a$cls);
  1614. $core.addClass("HLRemoveMethodCommand", $globals.HLRemoveCommand, [], "Helios-Commands-Tools");
  1615. $core.addMethod(
  1616. $core.method({
  1617. selector: "category",
  1618. protocol: "accessing",
  1619. //>>excludeStart("ide", pragmas.excludeIdeData);
  1620. args: [],
  1621. source: "category\x0a\x09^ 'Methods'",
  1622. referencedClasses: [],
  1623. //>>excludeEnd("ide");
  1624. pragmas: [],
  1625. messageSends: []
  1626. }, function ($methodClass){ return function (){
  1627. var self=this,$self=this;
  1628. return "Methods";
  1629. }; }),
  1630. $globals.HLRemoveMethodCommand);
  1631. $core.addMethod(
  1632. $core.method({
  1633. selector: "execute",
  1634. protocol: "executing",
  1635. //>>excludeStart("ide", pragmas.excludeIdeData);
  1636. args: [],
  1637. source: "execute\x0a\x09self model removeMethod",
  1638. referencedClasses: [],
  1639. //>>excludeEnd("ide");
  1640. pragmas: [],
  1641. messageSends: ["removeMethod", "model"]
  1642. }, function ($methodClass){ return function (){
  1643. var self=this,$self=this;
  1644. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1645. return $core.withContext(function($ctx1) {
  1646. //>>excludeEnd("ctx");
  1647. $recv($self._model())._removeMethod();
  1648. return self;
  1649. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1650. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  1651. //>>excludeEnd("ctx");
  1652. }; }),
  1653. $globals.HLRemoveMethodCommand);
  1654. $core.addMethod(
  1655. $core.method({
  1656. selector: "isActive",
  1657. protocol: "testing",
  1658. //>>excludeStart("ide", pragmas.excludeIdeData);
  1659. args: [],
  1660. source: "isActive\x0a\x09^ self model selectedMethod notNil",
  1661. referencedClasses: [],
  1662. //>>excludeEnd("ide");
  1663. pragmas: [],
  1664. messageSends: ["notNil", "selectedMethod", "model"]
  1665. }, function ($methodClass){ return function (){
  1666. var self=this,$self=this;
  1667. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1668. return $core.withContext(function($ctx1) {
  1669. //>>excludeEnd("ctx");
  1670. return $recv($recv($self._model())._selectedMethod())._notNil();
  1671. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1672. }, function($ctx1) {$ctx1.fill(self,"isActive",{})});
  1673. //>>excludeEnd("ctx");
  1674. }; }),
  1675. $globals.HLRemoveMethodCommand);
  1676. $core.addMethod(
  1677. $core.method({
  1678. selector: "key",
  1679. protocol: "accessing",
  1680. //>>excludeStart("ide", pragmas.excludeIdeData);
  1681. args: [],
  1682. source: "key\x0a\x09^ 'm'",
  1683. referencedClasses: [],
  1684. //>>excludeEnd("ide");
  1685. pragmas: [],
  1686. messageSends: []
  1687. }, function ($methodClass){ return function (){
  1688. var self=this,$self=this;
  1689. return "m";
  1690. }; }),
  1691. $globals.HLRemoveMethodCommand.a$cls);
  1692. $core.addMethod(
  1693. $core.method({
  1694. selector: "label",
  1695. protocol: "accessing",
  1696. //>>excludeStart("ide", pragmas.excludeIdeData);
  1697. args: [],
  1698. source: "label\x0a\x09^ 'Remove method'",
  1699. referencedClasses: [],
  1700. //>>excludeEnd("ide");
  1701. pragmas: [],
  1702. messageSends: []
  1703. }, function ($methodClass){ return function (){
  1704. var self=this,$self=this;
  1705. return "Remove method";
  1706. }; }),
  1707. $globals.HLRemoveMethodCommand.a$cls);
  1708. $core.addMethod(
  1709. $core.method({
  1710. selector: "menuLabel",
  1711. protocol: "accessing",
  1712. //>>excludeStart("ide", pragmas.excludeIdeData);
  1713. args: [],
  1714. source: "menuLabel\x0a\x09^ 'Remove method'",
  1715. referencedClasses: [],
  1716. //>>excludeEnd("ide");
  1717. pragmas: [],
  1718. messageSends: []
  1719. }, function ($methodClass){ return function (){
  1720. var self=this,$self=this;
  1721. return "Remove method";
  1722. }; }),
  1723. $globals.HLRemoveMethodCommand.a$cls);
  1724. $core.addClass("HLRemoveProtocolCommand", $globals.HLRemoveCommand, [], "Helios-Commands-Tools");
  1725. $core.addMethod(
  1726. $core.method({
  1727. selector: "category",
  1728. protocol: "accessing",
  1729. //>>excludeStart("ide", pragmas.excludeIdeData);
  1730. args: [],
  1731. source: "category\x0a\x09^ 'Protocols'",
  1732. referencedClasses: [],
  1733. //>>excludeEnd("ide");
  1734. pragmas: [],
  1735. messageSends: []
  1736. }, function ($methodClass){ return function (){
  1737. var self=this,$self=this;
  1738. return "Protocols";
  1739. }; }),
  1740. $globals.HLRemoveProtocolCommand);
  1741. $core.addMethod(
  1742. $core.method({
  1743. selector: "execute",
  1744. protocol: "executing",
  1745. //>>excludeStart("ide", pragmas.excludeIdeData);
  1746. args: [],
  1747. source: "execute\x0a\x09self model removeProtocol",
  1748. referencedClasses: [],
  1749. //>>excludeEnd("ide");
  1750. pragmas: [],
  1751. messageSends: ["removeProtocol", "model"]
  1752. }, function ($methodClass){ return function (){
  1753. var self=this,$self=this;
  1754. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1755. return $core.withContext(function($ctx1) {
  1756. //>>excludeEnd("ctx");
  1757. $recv($self._model())._removeProtocol();
  1758. return self;
  1759. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1760. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  1761. //>>excludeEnd("ctx");
  1762. }; }),
  1763. $globals.HLRemoveProtocolCommand);
  1764. $core.addMethod(
  1765. $core.method({
  1766. selector: "isActive",
  1767. protocol: "testing",
  1768. //>>excludeStart("ide", pragmas.excludeIdeData);
  1769. args: [],
  1770. source: "isActive\x0a\x09^ self model selectedProtocol notNil",
  1771. referencedClasses: [],
  1772. //>>excludeEnd("ide");
  1773. pragmas: [],
  1774. messageSends: ["notNil", "selectedProtocol", "model"]
  1775. }, function ($methodClass){ return function (){
  1776. var self=this,$self=this;
  1777. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1778. return $core.withContext(function($ctx1) {
  1779. //>>excludeEnd("ctx");
  1780. return $recv($recv($self._model())._selectedProtocol())._notNil();
  1781. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1782. }, function($ctx1) {$ctx1.fill(self,"isActive",{})});
  1783. //>>excludeEnd("ctx");
  1784. }; }),
  1785. $globals.HLRemoveProtocolCommand);
  1786. $core.addMethod(
  1787. $core.method({
  1788. selector: "key",
  1789. protocol: "accessing",
  1790. //>>excludeStart("ide", pragmas.excludeIdeData);
  1791. args: [],
  1792. source: "key\x0a\x09^ 't'",
  1793. referencedClasses: [],
  1794. //>>excludeEnd("ide");
  1795. pragmas: [],
  1796. messageSends: []
  1797. }, function ($methodClass){ return function (){
  1798. var self=this,$self=this;
  1799. return "t";
  1800. }; }),
  1801. $globals.HLRemoveProtocolCommand.a$cls);
  1802. $core.addMethod(
  1803. $core.method({
  1804. selector: "label",
  1805. protocol: "accessing",
  1806. //>>excludeStart("ide", pragmas.excludeIdeData);
  1807. args: [],
  1808. source: "label\x0a\x09^ 'Remove protocol'",
  1809. referencedClasses: [],
  1810. //>>excludeEnd("ide");
  1811. pragmas: [],
  1812. messageSends: []
  1813. }, function ($methodClass){ return function (){
  1814. var self=this,$self=this;
  1815. return "Remove protocol";
  1816. }; }),
  1817. $globals.HLRemoveProtocolCommand.a$cls);
  1818. $core.addMethod(
  1819. $core.method({
  1820. selector: "menuLabel",
  1821. protocol: "accessing",
  1822. //>>excludeStart("ide", pragmas.excludeIdeData);
  1823. args: [],
  1824. source: "menuLabel\x0a\x09^ 'Remove protocol'",
  1825. referencedClasses: [],
  1826. //>>excludeEnd("ide");
  1827. pragmas: [],
  1828. messageSends: []
  1829. }, function ($methodClass){ return function (){
  1830. var self=this,$self=this;
  1831. return "Remove protocol";
  1832. }; }),
  1833. $globals.HLRemoveProtocolCommand.a$cls);
  1834. $core.addClass("HLRenameCommand", $globals.HLToolCommand, [], "Helios-Commands-Tools");
  1835. $core.addMethod(
  1836. $core.method({
  1837. selector: "key",
  1838. protocol: "accessing",
  1839. //>>excludeStart("ide", pragmas.excludeIdeData);
  1840. args: [],
  1841. source: "key\x0a\x09^ 'r'",
  1842. referencedClasses: [],
  1843. //>>excludeEnd("ide");
  1844. pragmas: [],
  1845. messageSends: []
  1846. }, function ($methodClass){ return function (){
  1847. var self=this,$self=this;
  1848. return "r";
  1849. }; }),
  1850. $globals.HLRenameCommand.a$cls);
  1851. $core.addMethod(
  1852. $core.method({
  1853. selector: "label",
  1854. protocol: "accessing",
  1855. //>>excludeStart("ide", pragmas.excludeIdeData);
  1856. args: [],
  1857. source: "label\x0a\x09^ 'Rename'",
  1858. referencedClasses: [],
  1859. //>>excludeEnd("ide");
  1860. pragmas: [],
  1861. messageSends: []
  1862. }, function ($methodClass){ return function (){
  1863. var self=this,$self=this;
  1864. return "Rename";
  1865. }; }),
  1866. $globals.HLRenameCommand.a$cls);
  1867. $core.addClass("HLRenameClassCommand", $globals.HLRenameCommand, [], "Helios-Commands-Tools");
  1868. $core.addMethod(
  1869. $core.method({
  1870. selector: "category",
  1871. protocol: "accessing",
  1872. //>>excludeStart("ide", pragmas.excludeIdeData);
  1873. args: [],
  1874. source: "category\x0a\x09^ 'Classes'",
  1875. referencedClasses: [],
  1876. //>>excludeEnd("ide");
  1877. pragmas: [],
  1878. messageSends: []
  1879. }, function ($methodClass){ return function (){
  1880. var self=this,$self=this;
  1881. return "Classes";
  1882. }; }),
  1883. $globals.HLRenameClassCommand);
  1884. $core.addMethod(
  1885. $core.method({
  1886. selector: "defaultInput",
  1887. protocol: "defaults",
  1888. //>>excludeStart("ide", pragmas.excludeIdeData);
  1889. args: [],
  1890. source: "defaultInput\x0a\x09^ self model selectedClass theNonMetaClass name",
  1891. referencedClasses: [],
  1892. //>>excludeEnd("ide");
  1893. pragmas: [],
  1894. messageSends: ["name", "theNonMetaClass", "selectedClass", "model"]
  1895. }, function ($methodClass){ return function (){
  1896. var self=this,$self=this;
  1897. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1898. return $core.withContext(function($ctx1) {
  1899. //>>excludeEnd("ctx");
  1900. return $recv($recv($recv($self._model())._selectedClass())._theNonMetaClass())._name();
  1901. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1902. }, function($ctx1) {$ctx1.fill(self,"defaultInput",{})});
  1903. //>>excludeEnd("ctx");
  1904. }; }),
  1905. $globals.HLRenameClassCommand);
  1906. $core.addMethod(
  1907. $core.method({
  1908. selector: "displayLabel",
  1909. protocol: "accessing",
  1910. //>>excludeStart("ide", pragmas.excludeIdeData);
  1911. args: [],
  1912. source: "displayLabel\x0a\x09^ 'Rename class to:'",
  1913. referencedClasses: [],
  1914. //>>excludeEnd("ide");
  1915. pragmas: [],
  1916. messageSends: []
  1917. }, function ($methodClass){ return function (){
  1918. var self=this,$self=this;
  1919. return "Rename class to:";
  1920. }; }),
  1921. $globals.HLRenameClassCommand);
  1922. $core.addMethod(
  1923. $core.method({
  1924. selector: "execute",
  1925. protocol: "executing",
  1926. //>>excludeStart("ide", pragmas.excludeIdeData);
  1927. args: [],
  1928. source: "execute\x0a\x09self model renameClassTo: self input",
  1929. referencedClasses: [],
  1930. //>>excludeEnd("ide");
  1931. pragmas: [],
  1932. messageSends: ["renameClassTo:", "model", "input"]
  1933. }, function ($methodClass){ return function (){
  1934. var self=this,$self=this;
  1935. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1936. return $core.withContext(function($ctx1) {
  1937. //>>excludeEnd("ctx");
  1938. $recv($self._model())._renameClassTo_($self._input());
  1939. return self;
  1940. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1941. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  1942. //>>excludeEnd("ctx");
  1943. }; }),
  1944. $globals.HLRenameClassCommand);
  1945. $core.addMethod(
  1946. $core.method({
  1947. selector: "isActive",
  1948. protocol: "testing",
  1949. //>>excludeStart("ide", pragmas.excludeIdeData);
  1950. args: [],
  1951. source: "isActive\x0a\x09^ self model selectedClass notNil",
  1952. referencedClasses: [],
  1953. //>>excludeEnd("ide");
  1954. pragmas: [],
  1955. messageSends: ["notNil", "selectedClass", "model"]
  1956. }, function ($methodClass){ return function (){
  1957. var self=this,$self=this;
  1958. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1959. return $core.withContext(function($ctx1) {
  1960. //>>excludeEnd("ctx");
  1961. return $recv($recv($self._model())._selectedClass())._notNil();
  1962. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1963. }, function($ctx1) {$ctx1.fill(self,"isActive",{})});
  1964. //>>excludeEnd("ctx");
  1965. }; }),
  1966. $globals.HLRenameClassCommand);
  1967. $core.addMethod(
  1968. $core.method({
  1969. selector: "isInputRequired",
  1970. protocol: "testing",
  1971. //>>excludeStart("ide", pragmas.excludeIdeData);
  1972. args: [],
  1973. source: "isInputRequired\x0a\x09^ true",
  1974. referencedClasses: [],
  1975. //>>excludeEnd("ide");
  1976. pragmas: [],
  1977. messageSends: []
  1978. }, function ($methodClass){ return function (){
  1979. var self=this,$self=this;
  1980. return true;
  1981. }; }),
  1982. $globals.HLRenameClassCommand);
  1983. $core.addMethod(
  1984. $core.method({
  1985. selector: "key",
  1986. protocol: "accessing",
  1987. //>>excludeStart("ide", pragmas.excludeIdeData);
  1988. args: [],
  1989. source: "key\x0a\x09^ 'c'",
  1990. referencedClasses: [],
  1991. //>>excludeEnd("ide");
  1992. pragmas: [],
  1993. messageSends: []
  1994. }, function ($methodClass){ return function (){
  1995. var self=this,$self=this;
  1996. return "c";
  1997. }; }),
  1998. $globals.HLRenameClassCommand.a$cls);
  1999. $core.addMethod(
  2000. $core.method({
  2001. selector: "label",
  2002. protocol: "accessing",
  2003. //>>excludeStart("ide", pragmas.excludeIdeData);
  2004. args: [],
  2005. source: "label\x0a\x09^ 'Rename class'",
  2006. referencedClasses: [],
  2007. //>>excludeEnd("ide");
  2008. pragmas: [],
  2009. messageSends: []
  2010. }, function ($methodClass){ return function (){
  2011. var self=this,$self=this;
  2012. return "Rename class";
  2013. }; }),
  2014. $globals.HLRenameClassCommand.a$cls);
  2015. $core.addMethod(
  2016. $core.method({
  2017. selector: "menuLabel",
  2018. protocol: "accessing",
  2019. //>>excludeStart("ide", pragmas.excludeIdeData);
  2020. args: [],
  2021. source: "menuLabel\x0a\x09^ 'Rename class...'",
  2022. referencedClasses: [],
  2023. //>>excludeEnd("ide");
  2024. pragmas: [],
  2025. messageSends: []
  2026. }, function ($methodClass){ return function (){
  2027. var self=this,$self=this;
  2028. return "Rename class...";
  2029. }; }),
  2030. $globals.HLRenameClassCommand.a$cls);
  2031. $core.addClass("HLRenamePackageCommand", $globals.HLRenameCommand, [], "Helios-Commands-Tools");
  2032. $core.addMethod(
  2033. $core.method({
  2034. selector: "category",
  2035. protocol: "accessing",
  2036. //>>excludeStart("ide", pragmas.excludeIdeData);
  2037. args: [],
  2038. source: "category\x0a\x09^ 'Packages'",
  2039. referencedClasses: [],
  2040. //>>excludeEnd("ide");
  2041. pragmas: [],
  2042. messageSends: []
  2043. }, function ($methodClass){ return function (){
  2044. var self=this,$self=this;
  2045. return "Packages";
  2046. }; }),
  2047. $globals.HLRenamePackageCommand);
  2048. $core.addMethod(
  2049. $core.method({
  2050. selector: "defaultInput",
  2051. protocol: "defaults",
  2052. //>>excludeStart("ide", pragmas.excludeIdeData);
  2053. args: [],
  2054. source: "defaultInput\x0a\x09^ self model selectedPackage name",
  2055. referencedClasses: [],
  2056. //>>excludeEnd("ide");
  2057. pragmas: [],
  2058. messageSends: ["name", "selectedPackage", "model"]
  2059. }, function ($methodClass){ return function (){
  2060. var self=this,$self=this;
  2061. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2062. return $core.withContext(function($ctx1) {
  2063. //>>excludeEnd("ctx");
  2064. return $recv($recv($self._model())._selectedPackage())._name();
  2065. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2066. }, function($ctx1) {$ctx1.fill(self,"defaultInput",{})});
  2067. //>>excludeEnd("ctx");
  2068. }; }),
  2069. $globals.HLRenamePackageCommand);
  2070. $core.addMethod(
  2071. $core.method({
  2072. selector: "displayLabel",
  2073. protocol: "accessing",
  2074. //>>excludeStart("ide", pragmas.excludeIdeData);
  2075. args: [],
  2076. source: "displayLabel\x0a\x09^ 'Rename package to:'",
  2077. referencedClasses: [],
  2078. //>>excludeEnd("ide");
  2079. pragmas: [],
  2080. messageSends: []
  2081. }, function ($methodClass){ return function (){
  2082. var self=this,$self=this;
  2083. return "Rename package to:";
  2084. }; }),
  2085. $globals.HLRenamePackageCommand);
  2086. $core.addMethod(
  2087. $core.method({
  2088. selector: "execute",
  2089. protocol: "executing",
  2090. //>>excludeStart("ide", pragmas.excludeIdeData);
  2091. args: [],
  2092. source: "execute\x0a\x09self model renamePackageTo: self input",
  2093. referencedClasses: [],
  2094. //>>excludeEnd("ide");
  2095. pragmas: [],
  2096. messageSends: ["renamePackageTo:", "model", "input"]
  2097. }, function ($methodClass){ return function (){
  2098. var self=this,$self=this;
  2099. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2100. return $core.withContext(function($ctx1) {
  2101. //>>excludeEnd("ctx");
  2102. $recv($self._model())._renamePackageTo_($self._input());
  2103. return self;
  2104. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2105. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  2106. //>>excludeEnd("ctx");
  2107. }; }),
  2108. $globals.HLRenamePackageCommand);
  2109. $core.addMethod(
  2110. $core.method({
  2111. selector: "isActive",
  2112. protocol: "testing",
  2113. //>>excludeStart("ide", pragmas.excludeIdeData);
  2114. args: [],
  2115. source: "isActive\x0a\x09^ self model selectedPackage notNil",
  2116. referencedClasses: [],
  2117. //>>excludeEnd("ide");
  2118. pragmas: [],
  2119. messageSends: ["notNil", "selectedPackage", "model"]
  2120. }, function ($methodClass){ return function (){
  2121. var self=this,$self=this;
  2122. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2123. return $core.withContext(function($ctx1) {
  2124. //>>excludeEnd("ctx");
  2125. return $recv($recv($self._model())._selectedPackage())._notNil();
  2126. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2127. }, function($ctx1) {$ctx1.fill(self,"isActive",{})});
  2128. //>>excludeEnd("ctx");
  2129. }; }),
  2130. $globals.HLRenamePackageCommand);
  2131. $core.addMethod(
  2132. $core.method({
  2133. selector: "isInputRequired",
  2134. protocol: "testing",
  2135. //>>excludeStart("ide", pragmas.excludeIdeData);
  2136. args: [],
  2137. source: "isInputRequired\x0a\x09^ true",
  2138. referencedClasses: [],
  2139. //>>excludeEnd("ide");
  2140. pragmas: [],
  2141. messageSends: []
  2142. }, function ($methodClass){ return function (){
  2143. var self=this,$self=this;
  2144. return true;
  2145. }; }),
  2146. $globals.HLRenamePackageCommand);
  2147. $core.addMethod(
  2148. $core.method({
  2149. selector: "key",
  2150. protocol: "accessing",
  2151. //>>excludeStart("ide", pragmas.excludeIdeData);
  2152. args: [],
  2153. source: "key\x0a\x09^ 'p'",
  2154. referencedClasses: [],
  2155. //>>excludeEnd("ide");
  2156. pragmas: [],
  2157. messageSends: []
  2158. }, function ($methodClass){ return function (){
  2159. var self=this,$self=this;
  2160. return "p";
  2161. }; }),
  2162. $globals.HLRenamePackageCommand.a$cls);
  2163. $core.addMethod(
  2164. $core.method({
  2165. selector: "label",
  2166. protocol: "accessing",
  2167. //>>excludeStart("ide", pragmas.excludeIdeData);
  2168. args: [],
  2169. source: "label\x0a\x09^ 'Rename package'",
  2170. referencedClasses: [],
  2171. //>>excludeEnd("ide");
  2172. pragmas: [],
  2173. messageSends: []
  2174. }, function ($methodClass){ return function (){
  2175. var self=this,$self=this;
  2176. return "Rename package";
  2177. }; }),
  2178. $globals.HLRenamePackageCommand.a$cls);
  2179. $core.addMethod(
  2180. $core.method({
  2181. selector: "menuLabel",
  2182. protocol: "accessing",
  2183. //>>excludeStart("ide", pragmas.excludeIdeData);
  2184. args: [],
  2185. source: "menuLabel\x0a\x09^ 'Rename package...'",
  2186. referencedClasses: [],
  2187. //>>excludeEnd("ide");
  2188. pragmas: [],
  2189. messageSends: []
  2190. }, function ($methodClass){ return function (){
  2191. var self=this,$self=this;
  2192. return "Rename package...";
  2193. }; }),
  2194. $globals.HLRenamePackageCommand.a$cls);
  2195. $core.addClass("HLRenameProtocolCommand", $globals.HLRenameCommand, [], "Helios-Commands-Tools");
  2196. $core.addMethod(
  2197. $core.method({
  2198. selector: "category",
  2199. protocol: "accessing",
  2200. //>>excludeStart("ide", pragmas.excludeIdeData);
  2201. args: [],
  2202. source: "category\x0a\x09^ 'Protocols'",
  2203. referencedClasses: [],
  2204. //>>excludeEnd("ide");
  2205. pragmas: [],
  2206. messageSends: []
  2207. }, function ($methodClass){ return function (){
  2208. var self=this,$self=this;
  2209. return "Protocols";
  2210. }; }),
  2211. $globals.HLRenameProtocolCommand);
  2212. $core.addMethod(
  2213. $core.method({
  2214. selector: "defaultInput",
  2215. protocol: "defaults",
  2216. //>>excludeStart("ide", pragmas.excludeIdeData);
  2217. args: [],
  2218. source: "defaultInput\x0a\x09^ self model selectedProtocol",
  2219. referencedClasses: [],
  2220. //>>excludeEnd("ide");
  2221. pragmas: [],
  2222. messageSends: ["selectedProtocol", "model"]
  2223. }, function ($methodClass){ return function (){
  2224. var self=this,$self=this;
  2225. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2226. return $core.withContext(function($ctx1) {
  2227. //>>excludeEnd("ctx");
  2228. return $recv($self._model())._selectedProtocol();
  2229. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2230. }, function($ctx1) {$ctx1.fill(self,"defaultInput",{})});
  2231. //>>excludeEnd("ctx");
  2232. }; }),
  2233. $globals.HLRenameProtocolCommand);
  2234. $core.addMethod(
  2235. $core.method({
  2236. selector: "displayLabel",
  2237. protocol: "accessing",
  2238. //>>excludeStart("ide", pragmas.excludeIdeData);
  2239. args: [],
  2240. source: "displayLabel\x0a\x09^ 'Rename protocol to:'",
  2241. referencedClasses: [],
  2242. //>>excludeEnd("ide");
  2243. pragmas: [],
  2244. messageSends: []
  2245. }, function ($methodClass){ return function (){
  2246. var self=this,$self=this;
  2247. return "Rename protocol to:";
  2248. }; }),
  2249. $globals.HLRenameProtocolCommand);
  2250. $core.addMethod(
  2251. $core.method({
  2252. selector: "execute",
  2253. protocol: "executing",
  2254. //>>excludeStart("ide", pragmas.excludeIdeData);
  2255. args: [],
  2256. source: "execute\x0a\x09self model renameProtocolTo: self input",
  2257. referencedClasses: [],
  2258. //>>excludeEnd("ide");
  2259. pragmas: [],
  2260. messageSends: ["renameProtocolTo:", "model", "input"]
  2261. }, function ($methodClass){ return function (){
  2262. var self=this,$self=this;
  2263. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2264. return $core.withContext(function($ctx1) {
  2265. //>>excludeEnd("ctx");
  2266. $recv($self._model())._renameProtocolTo_($self._input());
  2267. return self;
  2268. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2269. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  2270. //>>excludeEnd("ctx");
  2271. }; }),
  2272. $globals.HLRenameProtocolCommand);
  2273. $core.addMethod(
  2274. $core.method({
  2275. selector: "isActive",
  2276. protocol: "testing",
  2277. //>>excludeStart("ide", pragmas.excludeIdeData);
  2278. args: [],
  2279. source: "isActive\x0a\x09^ self model selectedProtocol notNil",
  2280. referencedClasses: [],
  2281. //>>excludeEnd("ide");
  2282. pragmas: [],
  2283. messageSends: ["notNil", "selectedProtocol", "model"]
  2284. }, function ($methodClass){ return function (){
  2285. var self=this,$self=this;
  2286. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2287. return $core.withContext(function($ctx1) {
  2288. //>>excludeEnd("ctx");
  2289. return $recv($recv($self._model())._selectedProtocol())._notNil();
  2290. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2291. }, function($ctx1) {$ctx1.fill(self,"isActive",{})});
  2292. //>>excludeEnd("ctx");
  2293. }; }),
  2294. $globals.HLRenameProtocolCommand);
  2295. $core.addMethod(
  2296. $core.method({
  2297. selector: "isInputRequired",
  2298. protocol: "testing",
  2299. //>>excludeStart("ide", pragmas.excludeIdeData);
  2300. args: [],
  2301. source: "isInputRequired\x0a\x09^ true",
  2302. referencedClasses: [],
  2303. //>>excludeEnd("ide");
  2304. pragmas: [],
  2305. messageSends: []
  2306. }, function ($methodClass){ return function (){
  2307. var self=this,$self=this;
  2308. return true;
  2309. }; }),
  2310. $globals.HLRenameProtocolCommand);
  2311. $core.addMethod(
  2312. $core.method({
  2313. selector: "key",
  2314. protocol: "accessing",
  2315. //>>excludeStart("ide", pragmas.excludeIdeData);
  2316. args: [],
  2317. source: "key\x0a\x09^ 't'",
  2318. referencedClasses: [],
  2319. //>>excludeEnd("ide");
  2320. pragmas: [],
  2321. messageSends: []
  2322. }, function ($methodClass){ return function (){
  2323. var self=this,$self=this;
  2324. return "t";
  2325. }; }),
  2326. $globals.HLRenameProtocolCommand.a$cls);
  2327. $core.addMethod(
  2328. $core.method({
  2329. selector: "label",
  2330. protocol: "accessing",
  2331. //>>excludeStart("ide", pragmas.excludeIdeData);
  2332. args: [],
  2333. source: "label\x0a\x09^ 'Rename protocol'",
  2334. referencedClasses: [],
  2335. //>>excludeEnd("ide");
  2336. pragmas: [],
  2337. messageSends: []
  2338. }, function ($methodClass){ return function (){
  2339. var self=this,$self=this;
  2340. return "Rename protocol";
  2341. }; }),
  2342. $globals.HLRenameProtocolCommand.a$cls);
  2343. $core.addMethod(
  2344. $core.method({
  2345. selector: "menuLabel",
  2346. protocol: "accessing",
  2347. //>>excludeStart("ide", pragmas.excludeIdeData);
  2348. args: [],
  2349. source: "menuLabel\x0a\x09^ 'Rename protocol...'",
  2350. referencedClasses: [],
  2351. //>>excludeEnd("ide");
  2352. pragmas: [],
  2353. messageSends: []
  2354. }, function ($methodClass){ return function (){
  2355. var self=this,$self=this;
  2356. return "Rename protocol...";
  2357. }; }),
  2358. $globals.HLRenameProtocolCommand.a$cls);
  2359. });