1
0

Helios-Commands-Tools.js 72 KB

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