Helios-Commands-Tools.js 69 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724
  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("HLFindReferencesCommand", $globals.HLFindCommand, "Helios-Commands-Tools");
  793. $core.addMethod(
  794. $core.method({
  795. selector: "defaultInput",
  796. protocol: "defaults",
  797. //>>excludeStart("ide", pragmas.excludeIdeData);
  798. args: [],
  799. 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 ]",
  800. referencedClasses: [],
  801. //>>excludeEnd("ide");
  802. pragmas: [],
  803. messageSends: ["ifNil:ifNotNil:", "selectedMethod", "model", "selectedClass", "name", "theNonMetaClass", "selector"]
  804. }, function ($methodClass){ return function (){
  805. var self=this,$self=this;
  806. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  807. return $core.withContext(function($ctx1) {
  808. //>>excludeEnd("ctx");
  809. var $1,$2;
  810. $1=$recv([$self._model()
  811. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  812. ,$ctx1.sendIdx["model"]=1
  813. //>>excludeEnd("ctx");
  814. ][0])._selectedMethod();
  815. if($1 == null || $1.a$nil){
  816. $2=$recv($self._model())._selectedClass();
  817. if($2 == null || $2.a$nil){
  818. return "";
  819. } else {
  820. var class_;
  821. class_=$2;
  822. return $recv($recv(class_)._theNonMetaClass())._name();
  823. }
  824. } else {
  825. var method;
  826. method=$1;
  827. return $recv(method)._selector();
  828. }
  829. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  830. }, function($ctx1) {$ctx1.fill(self,"defaultInput",{})});
  831. //>>excludeEnd("ctx");
  832. }; }),
  833. $globals.HLFindReferencesCommand);
  834. $core.addMethod(
  835. $core.method({
  836. selector: "displayLabel",
  837. protocol: "accessing",
  838. //>>excludeStart("ide", pragmas.excludeIdeData);
  839. args: [],
  840. source: "displayLabel\x0a\x09^ 'find references'",
  841. referencedClasses: [],
  842. //>>excludeEnd("ide");
  843. pragmas: [],
  844. messageSends: []
  845. }, function ($methodClass){ return function (){
  846. var self=this,$self=this;
  847. return "find references";
  848. }; }),
  849. $globals.HLFindReferencesCommand);
  850. $core.addMethod(
  851. $core.method({
  852. selector: "execute",
  853. protocol: "executing",
  854. //>>excludeStart("ide", pragmas.excludeIdeData);
  855. args: [],
  856. source: "execute\x0a\x09HLReferences new \x0a\x09\x09openAsTab;\x0a\x09\x09search: self input",
  857. referencedClasses: ["HLReferences"],
  858. //>>excludeEnd("ide");
  859. pragmas: [],
  860. messageSends: ["openAsTab", "new", "search:", "input"]
  861. }, function ($methodClass){ return function (){
  862. var self=this,$self=this;
  863. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  864. return $core.withContext(function($ctx1) {
  865. //>>excludeEnd("ctx");
  866. var $1;
  867. $1=$recv($globals.HLReferences)._new();
  868. $recv($1)._openAsTab();
  869. $recv($1)._search_($self._input());
  870. return self;
  871. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  872. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  873. //>>excludeEnd("ctx");
  874. }; }),
  875. $globals.HLFindReferencesCommand);
  876. $core.addMethod(
  877. $core.method({
  878. selector: "inputCompletion",
  879. protocol: "accessing",
  880. //>>excludeStart("ide", pragmas.excludeIdeData);
  881. args: [],
  882. source: "inputCompletion\x0a\x09^ self model availableClassNames, self model allSelectors",
  883. referencedClasses: [],
  884. //>>excludeEnd("ide");
  885. pragmas: [],
  886. messageSends: [",", "availableClassNames", "model", "allSelectors"]
  887. }, function ($methodClass){ return function (){
  888. var self=this,$self=this;
  889. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  890. return $core.withContext(function($ctx1) {
  891. //>>excludeEnd("ctx");
  892. return $recv($recv([$self._model()
  893. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  894. ,$ctx1.sendIdx["model"]=1
  895. //>>excludeEnd("ctx");
  896. ][0])._availableClassNames()).__comma($recv($self._model())._allSelectors());
  897. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  898. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{})});
  899. //>>excludeEnd("ctx");
  900. }; }),
  901. $globals.HLFindReferencesCommand);
  902. $core.addMethod(
  903. $core.method({
  904. selector: "inputLabel",
  905. protocol: "accessing",
  906. //>>excludeStart("ide", pragmas.excludeIdeData);
  907. args: [],
  908. source: "inputLabel\x0a\x09^ 'Find references of'",
  909. referencedClasses: [],
  910. //>>excludeEnd("ide");
  911. pragmas: [],
  912. messageSends: []
  913. }, function ($methodClass){ return function (){
  914. var self=this,$self=this;
  915. return "Find references of";
  916. }; }),
  917. $globals.HLFindReferencesCommand);
  918. $core.addMethod(
  919. $core.method({
  920. selector: "isInputRequired",
  921. protocol: "testing",
  922. //>>excludeStart("ide", pragmas.excludeIdeData);
  923. args: [],
  924. source: "isInputRequired\x0a\x09^ true",
  925. referencedClasses: [],
  926. //>>excludeEnd("ide");
  927. pragmas: [],
  928. messageSends: []
  929. }, function ($methodClass){ return function (){
  930. var self=this,$self=this;
  931. return true;
  932. }; }),
  933. $globals.HLFindReferencesCommand);
  934. $core.addMethod(
  935. $core.method({
  936. selector: "key",
  937. protocol: "accessing",
  938. //>>excludeStart("ide", pragmas.excludeIdeData);
  939. args: [],
  940. source: "key\x0a\x09^ 'r'",
  941. referencedClasses: [],
  942. //>>excludeEnd("ide");
  943. pragmas: [],
  944. messageSends: []
  945. }, function ($methodClass){ return function (){
  946. var self=this,$self=this;
  947. return "r";
  948. }; }),
  949. $globals.HLFindReferencesCommand.a$cls);
  950. $core.addMethod(
  951. $core.method({
  952. selector: "label",
  953. protocol: "accessing",
  954. //>>excludeStart("ide", pragmas.excludeIdeData);
  955. args: [],
  956. source: "label\x0a\x09^ 'Find references'",
  957. referencedClasses: [],
  958. //>>excludeEnd("ide");
  959. pragmas: [],
  960. messageSends: []
  961. }, function ($methodClass){ return function (){
  962. var self=this,$self=this;
  963. return "Find references";
  964. }; }),
  965. $globals.HLFindReferencesCommand.a$cls);
  966. $core.addClass("HLMoveToCommand", $globals.HLToolCommand, "Helios-Commands-Tools");
  967. $core.addMethod(
  968. $core.method({
  969. selector: "key",
  970. protocol: "accessing",
  971. //>>excludeStart("ide", pragmas.excludeIdeData);
  972. args: [],
  973. source: "key\x0a\x09^ 'm'",
  974. referencedClasses: [],
  975. //>>excludeEnd("ide");
  976. pragmas: [],
  977. messageSends: []
  978. }, function ($methodClass){ return function (){
  979. var self=this,$self=this;
  980. return "m";
  981. }; }),
  982. $globals.HLMoveToCommand.a$cls);
  983. $core.addMethod(
  984. $core.method({
  985. selector: "label",
  986. protocol: "accessing",
  987. //>>excludeStart("ide", pragmas.excludeIdeData);
  988. args: [],
  989. source: "label\x0a\x09^ 'Move'",
  990. referencedClasses: [],
  991. //>>excludeEnd("ide");
  992. pragmas: [],
  993. messageSends: []
  994. }, function ($methodClass){ return function (){
  995. var self=this,$self=this;
  996. return "Move";
  997. }; }),
  998. $globals.HLMoveToCommand.a$cls);
  999. $core.addClass("HLMoveClassToCommand", $globals.HLMoveToCommand, "Helios-Commands-Tools");
  1000. $core.addMethod(
  1001. $core.method({
  1002. selector: "isActive",
  1003. protocol: "testing",
  1004. //>>excludeStart("ide", pragmas.excludeIdeData);
  1005. args: [],
  1006. source: "isActive\x0a\x09^ self model selectedClass notNil",
  1007. referencedClasses: [],
  1008. //>>excludeEnd("ide");
  1009. pragmas: [],
  1010. messageSends: ["notNil", "selectedClass", "model"]
  1011. }, function ($methodClass){ return function (){
  1012. var self=this,$self=this;
  1013. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1014. return $core.withContext(function($ctx1) {
  1015. //>>excludeEnd("ctx");
  1016. return $recv($recv($self._model())._selectedClass())._notNil();
  1017. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1018. }, function($ctx1) {$ctx1.fill(self,"isActive",{})});
  1019. //>>excludeEnd("ctx");
  1020. }; }),
  1021. $globals.HLMoveClassToCommand);
  1022. $core.addMethod(
  1023. $core.method({
  1024. selector: "key",
  1025. protocol: "accessing",
  1026. //>>excludeStart("ide", pragmas.excludeIdeData);
  1027. args: [],
  1028. source: "key\x0a\x09^ 'c'",
  1029. referencedClasses: [],
  1030. //>>excludeEnd("ide");
  1031. pragmas: [],
  1032. messageSends: []
  1033. }, function ($methodClass){ return function (){
  1034. var self=this,$self=this;
  1035. return "c";
  1036. }; }),
  1037. $globals.HLMoveClassToCommand.a$cls);
  1038. $core.addMethod(
  1039. $core.method({
  1040. selector: "label",
  1041. protocol: "accessing",
  1042. //>>excludeStart("ide", pragmas.excludeIdeData);
  1043. args: [],
  1044. source: "label\x0a\x09^ 'Move class'",
  1045. referencedClasses: [],
  1046. //>>excludeEnd("ide");
  1047. pragmas: [],
  1048. messageSends: []
  1049. }, function ($methodClass){ return function (){
  1050. var self=this,$self=this;
  1051. return "Move class";
  1052. }; }),
  1053. $globals.HLMoveClassToCommand.a$cls);
  1054. $core.addClass("HLMoveClassToPackageCommand", $globals.HLMoveClassToCommand, "Helios-Commands-Tools");
  1055. $core.addMethod(
  1056. $core.method({
  1057. selector: "category",
  1058. protocol: "accessing",
  1059. //>>excludeStart("ide", pragmas.excludeIdeData);
  1060. args: [],
  1061. source: "category\x0a\x09^ 'Classes'",
  1062. referencedClasses: [],
  1063. //>>excludeEnd("ide");
  1064. pragmas: [],
  1065. messageSends: []
  1066. }, function ($methodClass){ return function (){
  1067. var self=this,$self=this;
  1068. return "Classes";
  1069. }; }),
  1070. $globals.HLMoveClassToPackageCommand);
  1071. $core.addMethod(
  1072. $core.method({
  1073. selector: "displayLabel",
  1074. protocol: "accessing",
  1075. //>>excludeStart("ide", pragmas.excludeIdeData);
  1076. args: [],
  1077. source: "displayLabel\x0a\x09^ 'select a package'",
  1078. referencedClasses: [],
  1079. //>>excludeEnd("ide");
  1080. pragmas: [],
  1081. messageSends: []
  1082. }, function ($methodClass){ return function (){
  1083. var self=this,$self=this;
  1084. return "select a package";
  1085. }; }),
  1086. $globals.HLMoveClassToPackageCommand);
  1087. $core.addMethod(
  1088. $core.method({
  1089. selector: "execute",
  1090. protocol: "executing",
  1091. //>>excludeStart("ide", pragmas.excludeIdeData);
  1092. args: [],
  1093. source: "execute\x0a\x09self model moveClassToPackage: self input",
  1094. referencedClasses: [],
  1095. //>>excludeEnd("ide");
  1096. pragmas: [],
  1097. messageSends: ["moveClassToPackage:", "model", "input"]
  1098. }, function ($methodClass){ return function (){
  1099. var self=this,$self=this;
  1100. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1101. return $core.withContext(function($ctx1) {
  1102. //>>excludeEnd("ctx");
  1103. $recv($self._model())._moveClassToPackage_($self._input());
  1104. return self;
  1105. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1106. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  1107. //>>excludeEnd("ctx");
  1108. }; }),
  1109. $globals.HLMoveClassToPackageCommand);
  1110. $core.addMethod(
  1111. $core.method({
  1112. selector: "inputCompletion",
  1113. protocol: "accessing",
  1114. //>>excludeStart("ide", pragmas.excludeIdeData);
  1115. args: [],
  1116. source: "inputCompletion\x0a\x09^ self model availablePackageNames",
  1117. referencedClasses: [],
  1118. //>>excludeEnd("ide");
  1119. pragmas: [],
  1120. messageSends: ["availablePackageNames", "model"]
  1121. }, function ($methodClass){ return function (){
  1122. var self=this,$self=this;
  1123. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1124. return $core.withContext(function($ctx1) {
  1125. //>>excludeEnd("ctx");
  1126. return $recv($self._model())._availablePackageNames();
  1127. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1128. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{})});
  1129. //>>excludeEnd("ctx");
  1130. }; }),
  1131. $globals.HLMoveClassToPackageCommand);
  1132. $core.addMethod(
  1133. $core.method({
  1134. selector: "inputLabel",
  1135. protocol: "accessing",
  1136. //>>excludeStart("ide", pragmas.excludeIdeData);
  1137. args: [],
  1138. source: "inputLabel\x0a\x09^ 'Move class to package:'",
  1139. referencedClasses: [],
  1140. //>>excludeEnd("ide");
  1141. pragmas: [],
  1142. messageSends: []
  1143. }, function ($methodClass){ return function (){
  1144. var self=this,$self=this;
  1145. return "Move class to package:";
  1146. }; }),
  1147. $globals.HLMoveClassToPackageCommand);
  1148. $core.addMethod(
  1149. $core.method({
  1150. selector: "isInputRequired",
  1151. protocol: "testing",
  1152. //>>excludeStart("ide", pragmas.excludeIdeData);
  1153. args: [],
  1154. source: "isInputRequired\x0a\x09^ true",
  1155. referencedClasses: [],
  1156. //>>excludeEnd("ide");
  1157. pragmas: [],
  1158. messageSends: []
  1159. }, function ($methodClass){ return function (){
  1160. var self=this,$self=this;
  1161. return true;
  1162. }; }),
  1163. $globals.HLMoveClassToPackageCommand);
  1164. $core.addMethod(
  1165. $core.method({
  1166. selector: "key",
  1167. protocol: "accessing",
  1168. //>>excludeStart("ide", pragmas.excludeIdeData);
  1169. args: [],
  1170. source: "key\x0a\x09^ 'p'",
  1171. referencedClasses: [],
  1172. //>>excludeEnd("ide");
  1173. pragmas: [],
  1174. messageSends: []
  1175. }, function ($methodClass){ return function (){
  1176. var self=this,$self=this;
  1177. return "p";
  1178. }; }),
  1179. $globals.HLMoveClassToPackageCommand.a$cls);
  1180. $core.addMethod(
  1181. $core.method({
  1182. selector: "label",
  1183. protocol: "accessing",
  1184. //>>excludeStart("ide", pragmas.excludeIdeData);
  1185. args: [],
  1186. source: "label\x0a\x09^ 'Move class to package'",
  1187. referencedClasses: [],
  1188. //>>excludeEnd("ide");
  1189. pragmas: [],
  1190. messageSends: []
  1191. }, function ($methodClass){ return function (){
  1192. var self=this,$self=this;
  1193. return "Move class to package";
  1194. }; }),
  1195. $globals.HLMoveClassToPackageCommand.a$cls);
  1196. $core.addMethod(
  1197. $core.method({
  1198. selector: "menuLabel",
  1199. protocol: "accessing",
  1200. //>>excludeStart("ide", pragmas.excludeIdeData);
  1201. args: [],
  1202. source: "menuLabel\x09\x0a\x09^ 'Move to package...'",
  1203. referencedClasses: [],
  1204. //>>excludeEnd("ide");
  1205. pragmas: [],
  1206. messageSends: []
  1207. }, function ($methodClass){ return function (){
  1208. var self=this,$self=this;
  1209. return "Move to package...";
  1210. }; }),
  1211. $globals.HLMoveClassToPackageCommand.a$cls);
  1212. $core.addClass("HLMoveMethodToCommand", $globals.HLMoveToCommand, "Helios-Commands-Tools");
  1213. $core.addMethod(
  1214. $core.method({
  1215. selector: "category",
  1216. protocol: "accessing",
  1217. //>>excludeStart("ide", pragmas.excludeIdeData);
  1218. args: [],
  1219. source: "category\x0a\x09^ 'Methods'",
  1220. referencedClasses: [],
  1221. //>>excludeEnd("ide");
  1222. pragmas: [],
  1223. messageSends: []
  1224. }, function ($methodClass){ return function (){
  1225. var self=this,$self=this;
  1226. return "Methods";
  1227. }; }),
  1228. $globals.HLMoveMethodToCommand);
  1229. $core.addMethod(
  1230. $core.method({
  1231. selector: "isActive",
  1232. protocol: "testing",
  1233. //>>excludeStart("ide", pragmas.excludeIdeData);
  1234. args: [],
  1235. source: "isActive\x0a\x09^ self model selectedMethod notNil",
  1236. referencedClasses: [],
  1237. //>>excludeEnd("ide");
  1238. pragmas: [],
  1239. messageSends: ["notNil", "selectedMethod", "model"]
  1240. }, function ($methodClass){ return function (){
  1241. var self=this,$self=this;
  1242. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1243. return $core.withContext(function($ctx1) {
  1244. //>>excludeEnd("ctx");
  1245. return $recv($recv($self._model())._selectedMethod())._notNil();
  1246. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1247. }, function($ctx1) {$ctx1.fill(self,"isActive",{})});
  1248. //>>excludeEnd("ctx");
  1249. }; }),
  1250. $globals.HLMoveMethodToCommand);
  1251. $core.addMethod(
  1252. $core.method({
  1253. selector: "key",
  1254. protocol: "accessing",
  1255. //>>excludeStart("ide", pragmas.excludeIdeData);
  1256. args: [],
  1257. source: "key\x0a\x09^ 'm'",
  1258. referencedClasses: [],
  1259. //>>excludeEnd("ide");
  1260. pragmas: [],
  1261. messageSends: []
  1262. }, function ($methodClass){ return function (){
  1263. var self=this,$self=this;
  1264. return "m";
  1265. }; }),
  1266. $globals.HLMoveMethodToCommand.a$cls);
  1267. $core.addMethod(
  1268. $core.method({
  1269. selector: "label",
  1270. protocol: "accessing",
  1271. //>>excludeStart("ide", pragmas.excludeIdeData);
  1272. args: [],
  1273. source: "label\x0a\x09^ 'Move method'",
  1274. referencedClasses: [],
  1275. //>>excludeEnd("ide");
  1276. pragmas: [],
  1277. messageSends: []
  1278. }, function ($methodClass){ return function (){
  1279. var self=this,$self=this;
  1280. return "Move method";
  1281. }; }),
  1282. $globals.HLMoveMethodToCommand.a$cls);
  1283. $core.addClass("HLMoveMethodToClassCommand", $globals.HLMoveMethodToCommand, "Helios-Commands-Tools");
  1284. $core.addMethod(
  1285. $core.method({
  1286. selector: "displayLabel",
  1287. protocol: "accessing",
  1288. //>>excludeStart("ide", pragmas.excludeIdeData);
  1289. args: [],
  1290. source: "displayLabel\x0a\x09^ 'select a class'",
  1291. referencedClasses: [],
  1292. //>>excludeEnd("ide");
  1293. pragmas: [],
  1294. messageSends: []
  1295. }, function ($methodClass){ return function (){
  1296. var self=this,$self=this;
  1297. return "select a class";
  1298. }; }),
  1299. $globals.HLMoveMethodToClassCommand);
  1300. $core.addMethod(
  1301. $core.method({
  1302. selector: "execute",
  1303. protocol: "executing",
  1304. //>>excludeStart("ide", pragmas.excludeIdeData);
  1305. args: [],
  1306. source: "execute\x0a\x09self model moveMethodToClass: self input",
  1307. referencedClasses: [],
  1308. //>>excludeEnd("ide");
  1309. pragmas: [],
  1310. messageSends: ["moveMethodToClass:", "model", "input"]
  1311. }, function ($methodClass){ return function (){
  1312. var self=this,$self=this;
  1313. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1314. return $core.withContext(function($ctx1) {
  1315. //>>excludeEnd("ctx");
  1316. $recv($self._model())._moveMethodToClass_($self._input());
  1317. return self;
  1318. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1319. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  1320. //>>excludeEnd("ctx");
  1321. }; }),
  1322. $globals.HLMoveMethodToClassCommand);
  1323. $core.addMethod(
  1324. $core.method({
  1325. selector: "inputCompletion",
  1326. protocol: "accessing",
  1327. //>>excludeStart("ide", pragmas.excludeIdeData);
  1328. args: [],
  1329. source: "inputCompletion\x0a\x09^ self model availableClassNames",
  1330. referencedClasses: [],
  1331. //>>excludeEnd("ide");
  1332. pragmas: [],
  1333. messageSends: ["availableClassNames", "model"]
  1334. }, function ($methodClass){ return function (){
  1335. var self=this,$self=this;
  1336. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1337. return $core.withContext(function($ctx1) {
  1338. //>>excludeEnd("ctx");
  1339. return $recv($self._model())._availableClassNames();
  1340. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1341. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{})});
  1342. //>>excludeEnd("ctx");
  1343. }; }),
  1344. $globals.HLMoveMethodToClassCommand);
  1345. $core.addMethod(
  1346. $core.method({
  1347. selector: "inputLabel",
  1348. protocol: "accessing",
  1349. //>>excludeStart("ide", pragmas.excludeIdeData);
  1350. args: [],
  1351. source: "inputLabel\x0a\x09^ 'Move method to class:'",
  1352. referencedClasses: [],
  1353. //>>excludeEnd("ide");
  1354. pragmas: [],
  1355. messageSends: []
  1356. }, function ($methodClass){ return function (){
  1357. var self=this,$self=this;
  1358. return "Move method to class:";
  1359. }; }),
  1360. $globals.HLMoveMethodToClassCommand);
  1361. $core.addMethod(
  1362. $core.method({
  1363. selector: "isInputRequired",
  1364. protocol: "testing",
  1365. //>>excludeStart("ide", pragmas.excludeIdeData);
  1366. args: [],
  1367. source: "isInputRequired\x0a\x09^ true",
  1368. referencedClasses: [],
  1369. //>>excludeEnd("ide");
  1370. pragmas: [],
  1371. messageSends: []
  1372. }, function ($methodClass){ return function (){
  1373. var self=this,$self=this;
  1374. return true;
  1375. }; }),
  1376. $globals.HLMoveMethodToClassCommand);
  1377. $core.addMethod(
  1378. $core.method({
  1379. selector: "key",
  1380. protocol: "accessing",
  1381. //>>excludeStart("ide", pragmas.excludeIdeData);
  1382. args: [],
  1383. source: "key\x0a\x09^ 'c'",
  1384. referencedClasses: [],
  1385. //>>excludeEnd("ide");
  1386. pragmas: [],
  1387. messageSends: []
  1388. }, function ($methodClass){ return function (){
  1389. var self=this,$self=this;
  1390. return "c";
  1391. }; }),
  1392. $globals.HLMoveMethodToClassCommand.a$cls);
  1393. $core.addMethod(
  1394. $core.method({
  1395. selector: "label",
  1396. protocol: "accessing",
  1397. //>>excludeStart("ide", pragmas.excludeIdeData);
  1398. args: [],
  1399. source: "label\x09\x0a\x09^ 'Move method to class'",
  1400. referencedClasses: [],
  1401. //>>excludeEnd("ide");
  1402. pragmas: [],
  1403. messageSends: []
  1404. }, function ($methodClass){ return function (){
  1405. var self=this,$self=this;
  1406. return "Move method to class";
  1407. }; }),
  1408. $globals.HLMoveMethodToClassCommand.a$cls);
  1409. $core.addMethod(
  1410. $core.method({
  1411. selector: "menuLabel",
  1412. protocol: "accessing",
  1413. //>>excludeStart("ide", pragmas.excludeIdeData);
  1414. args: [],
  1415. source: "menuLabel\x09\x0a\x09^ 'Move to class...'",
  1416. referencedClasses: [],
  1417. //>>excludeEnd("ide");
  1418. pragmas: [],
  1419. messageSends: []
  1420. }, function ($methodClass){ return function (){
  1421. var self=this,$self=this;
  1422. return "Move to class...";
  1423. }; }),
  1424. $globals.HLMoveMethodToClassCommand.a$cls);
  1425. $core.addClass("HLMoveMethodToProtocolCommand", $globals.HLMoveMethodToCommand, "Helios-Commands-Tools");
  1426. $core.addMethod(
  1427. $core.method({
  1428. selector: "displayLabel",
  1429. protocol: "accessing",
  1430. //>>excludeStart("ide", pragmas.excludeIdeData);
  1431. args: [],
  1432. source: "displayLabel\x0a\x09^ 'select a protocol'",
  1433. referencedClasses: [],
  1434. //>>excludeEnd("ide");
  1435. pragmas: [],
  1436. messageSends: []
  1437. }, function ($methodClass){ return function (){
  1438. var self=this,$self=this;
  1439. return "select a protocol";
  1440. }; }),
  1441. $globals.HLMoveMethodToProtocolCommand);
  1442. $core.addMethod(
  1443. $core.method({
  1444. selector: "execute",
  1445. protocol: "executing",
  1446. //>>excludeStart("ide", pragmas.excludeIdeData);
  1447. args: [],
  1448. source: "execute\x0a\x09self model moveMethodToProtocol: self input",
  1449. referencedClasses: [],
  1450. //>>excludeEnd("ide");
  1451. pragmas: [],
  1452. messageSends: ["moveMethodToProtocol:", "model", "input"]
  1453. }, function ($methodClass){ return function (){
  1454. var self=this,$self=this;
  1455. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1456. return $core.withContext(function($ctx1) {
  1457. //>>excludeEnd("ctx");
  1458. $recv($self._model())._moveMethodToProtocol_($self._input());
  1459. return self;
  1460. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1461. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  1462. //>>excludeEnd("ctx");
  1463. }; }),
  1464. $globals.HLMoveMethodToProtocolCommand);
  1465. $core.addMethod(
  1466. $core.method({
  1467. selector: "inputCompletion",
  1468. protocol: "accessing",
  1469. //>>excludeStart("ide", pragmas.excludeIdeData);
  1470. args: [],
  1471. source: "inputCompletion\x0a\x09^ self model availableProtocols",
  1472. referencedClasses: [],
  1473. //>>excludeEnd("ide");
  1474. pragmas: [],
  1475. messageSends: ["availableProtocols", "model"]
  1476. }, function ($methodClass){ return function (){
  1477. var self=this,$self=this;
  1478. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1479. return $core.withContext(function($ctx1) {
  1480. //>>excludeEnd("ctx");
  1481. return $recv($self._model())._availableProtocols();
  1482. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1483. }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{})});
  1484. //>>excludeEnd("ctx");
  1485. }; }),
  1486. $globals.HLMoveMethodToProtocolCommand);
  1487. $core.addMethod(
  1488. $core.method({
  1489. selector: "inputLabel",
  1490. protocol: "accessing",
  1491. //>>excludeStart("ide", pragmas.excludeIdeData);
  1492. args: [],
  1493. source: "inputLabel\x0a\x09^ 'Move method to a protocol:'",
  1494. referencedClasses: [],
  1495. //>>excludeEnd("ide");
  1496. pragmas: [],
  1497. messageSends: []
  1498. }, function ($methodClass){ return function (){
  1499. var self=this,$self=this;
  1500. return "Move method to a protocol:";
  1501. }; }),
  1502. $globals.HLMoveMethodToProtocolCommand);
  1503. $core.addMethod(
  1504. $core.method({
  1505. selector: "isInputRequired",
  1506. protocol: "testing",
  1507. //>>excludeStart("ide", pragmas.excludeIdeData);
  1508. args: [],
  1509. source: "isInputRequired\x0a\x09^ true",
  1510. referencedClasses: [],
  1511. //>>excludeEnd("ide");
  1512. pragmas: [],
  1513. messageSends: []
  1514. }, function ($methodClass){ return function (){
  1515. var self=this,$self=this;
  1516. return true;
  1517. }; }),
  1518. $globals.HLMoveMethodToProtocolCommand);
  1519. $core.addMethod(
  1520. $core.method({
  1521. selector: "key",
  1522. protocol: "accessing",
  1523. //>>excludeStart("ide", pragmas.excludeIdeData);
  1524. args: [],
  1525. source: "key\x0a\x09^ 't'",
  1526. referencedClasses: [],
  1527. //>>excludeEnd("ide");
  1528. pragmas: [],
  1529. messageSends: []
  1530. }, function ($methodClass){ return function (){
  1531. var self=this,$self=this;
  1532. return "t";
  1533. }; }),
  1534. $globals.HLMoveMethodToProtocolCommand.a$cls);
  1535. $core.addMethod(
  1536. $core.method({
  1537. selector: "label",
  1538. protocol: "accessing",
  1539. //>>excludeStart("ide", pragmas.excludeIdeData);
  1540. args: [],
  1541. source: "label\x0a\x09^ 'Move method to protocol'",
  1542. referencedClasses: [],
  1543. //>>excludeEnd("ide");
  1544. pragmas: [],
  1545. messageSends: []
  1546. }, function ($methodClass){ return function (){
  1547. var self=this,$self=this;
  1548. return "Move method to protocol";
  1549. }; }),
  1550. $globals.HLMoveMethodToProtocolCommand.a$cls);
  1551. $core.addMethod(
  1552. $core.method({
  1553. selector: "menuLabel",
  1554. protocol: "accessing",
  1555. //>>excludeStart("ide", pragmas.excludeIdeData);
  1556. args: [],
  1557. source: "menuLabel\x0a\x09^ 'Move to protocol...'",
  1558. referencedClasses: [],
  1559. //>>excludeEnd("ide");
  1560. pragmas: [],
  1561. messageSends: []
  1562. }, function ($methodClass){ return function (){
  1563. var self=this,$self=this;
  1564. return "Move to protocol...";
  1565. }; }),
  1566. $globals.HLMoveMethodToProtocolCommand.a$cls);
  1567. $core.addClass("HLRemoveCommand", $globals.HLToolCommand, "Helios-Commands-Tools");
  1568. $core.addMethod(
  1569. $core.method({
  1570. selector: "key",
  1571. protocol: "accessing",
  1572. //>>excludeStart("ide", pragmas.excludeIdeData);
  1573. args: [],
  1574. source: "key\x0a\x09^ 'x'",
  1575. referencedClasses: [],
  1576. //>>excludeEnd("ide");
  1577. pragmas: [],
  1578. messageSends: []
  1579. }, function ($methodClass){ return function (){
  1580. var self=this,$self=this;
  1581. return "x";
  1582. }; }),
  1583. $globals.HLRemoveCommand.a$cls);
  1584. $core.addMethod(
  1585. $core.method({
  1586. selector: "label",
  1587. protocol: "accessing",
  1588. //>>excludeStart("ide", pragmas.excludeIdeData);
  1589. args: [],
  1590. source: "label\x0a\x09^ 'Remove'",
  1591. referencedClasses: [],
  1592. //>>excludeEnd("ide");
  1593. pragmas: [],
  1594. messageSends: []
  1595. }, function ($methodClass){ return function (){
  1596. var self=this,$self=this;
  1597. return "Remove";
  1598. }; }),
  1599. $globals.HLRemoveCommand.a$cls);
  1600. $core.addClass("HLRemoveClassCommand", $globals.HLRemoveCommand, "Helios-Commands-Tools");
  1601. $core.addMethod(
  1602. $core.method({
  1603. selector: "category",
  1604. protocol: "accessing",
  1605. //>>excludeStart("ide", pragmas.excludeIdeData);
  1606. args: [],
  1607. source: "category\x0a\x09^ 'Classes'",
  1608. referencedClasses: [],
  1609. //>>excludeEnd("ide");
  1610. pragmas: [],
  1611. messageSends: []
  1612. }, function ($methodClass){ return function (){
  1613. var self=this,$self=this;
  1614. return "Classes";
  1615. }; }),
  1616. $globals.HLRemoveClassCommand);
  1617. $core.addMethod(
  1618. $core.method({
  1619. selector: "execute",
  1620. protocol: "executing",
  1621. //>>excludeStart("ide", pragmas.excludeIdeData);
  1622. args: [],
  1623. source: "execute\x0a\x09self model removeClass",
  1624. referencedClasses: [],
  1625. //>>excludeEnd("ide");
  1626. pragmas: [],
  1627. messageSends: ["removeClass", "model"]
  1628. }, function ($methodClass){ return function (){
  1629. var self=this,$self=this;
  1630. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1631. return $core.withContext(function($ctx1) {
  1632. //>>excludeEnd("ctx");
  1633. $recv($self._model())._removeClass();
  1634. return self;
  1635. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1636. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  1637. //>>excludeEnd("ctx");
  1638. }; }),
  1639. $globals.HLRemoveClassCommand);
  1640. $core.addMethod(
  1641. $core.method({
  1642. selector: "isActive",
  1643. protocol: "testing",
  1644. //>>excludeStart("ide", pragmas.excludeIdeData);
  1645. args: [],
  1646. source: "isActive\x0a\x09^ self model selectedClass notNil",
  1647. referencedClasses: [],
  1648. //>>excludeEnd("ide");
  1649. pragmas: [],
  1650. messageSends: ["notNil", "selectedClass", "model"]
  1651. }, function ($methodClass){ return function (){
  1652. var self=this,$self=this;
  1653. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1654. return $core.withContext(function($ctx1) {
  1655. //>>excludeEnd("ctx");
  1656. return $recv($recv($self._model())._selectedClass())._notNil();
  1657. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1658. }, function($ctx1) {$ctx1.fill(self,"isActive",{})});
  1659. //>>excludeEnd("ctx");
  1660. }; }),
  1661. $globals.HLRemoveClassCommand);
  1662. $core.addMethod(
  1663. $core.method({
  1664. selector: "key",
  1665. protocol: "accessing",
  1666. //>>excludeStart("ide", pragmas.excludeIdeData);
  1667. args: [],
  1668. source: "key\x0a\x09^ 'c'",
  1669. referencedClasses: [],
  1670. //>>excludeEnd("ide");
  1671. pragmas: [],
  1672. messageSends: []
  1673. }, function ($methodClass){ return function (){
  1674. var self=this,$self=this;
  1675. return "c";
  1676. }; }),
  1677. $globals.HLRemoveClassCommand.a$cls);
  1678. $core.addMethod(
  1679. $core.method({
  1680. selector: "label",
  1681. protocol: "accessing",
  1682. //>>excludeStart("ide", pragmas.excludeIdeData);
  1683. args: [],
  1684. source: "label\x0a\x09^ 'Remove class'",
  1685. referencedClasses: [],
  1686. //>>excludeEnd("ide");
  1687. pragmas: [],
  1688. messageSends: []
  1689. }, function ($methodClass){ return function (){
  1690. var self=this,$self=this;
  1691. return "Remove class";
  1692. }; }),
  1693. $globals.HLRemoveClassCommand.a$cls);
  1694. $core.addMethod(
  1695. $core.method({
  1696. selector: "menuLabel",
  1697. protocol: "accessing",
  1698. //>>excludeStart("ide", pragmas.excludeIdeData);
  1699. args: [],
  1700. source: "menuLabel\x0a\x09^ 'Remove class'",
  1701. referencedClasses: [],
  1702. //>>excludeEnd("ide");
  1703. pragmas: [],
  1704. messageSends: []
  1705. }, function ($methodClass){ return function (){
  1706. var self=this,$self=this;
  1707. return "Remove class";
  1708. }; }),
  1709. $globals.HLRemoveClassCommand.a$cls);
  1710. $core.addClass("HLRemoveMethodCommand", $globals.HLRemoveCommand, "Helios-Commands-Tools");
  1711. $core.addMethod(
  1712. $core.method({
  1713. selector: "category",
  1714. protocol: "accessing",
  1715. //>>excludeStart("ide", pragmas.excludeIdeData);
  1716. args: [],
  1717. source: "category\x0a\x09^ 'Methods'",
  1718. referencedClasses: [],
  1719. //>>excludeEnd("ide");
  1720. pragmas: [],
  1721. messageSends: []
  1722. }, function ($methodClass){ return function (){
  1723. var self=this,$self=this;
  1724. return "Methods";
  1725. }; }),
  1726. $globals.HLRemoveMethodCommand);
  1727. $core.addMethod(
  1728. $core.method({
  1729. selector: "execute",
  1730. protocol: "executing",
  1731. //>>excludeStart("ide", pragmas.excludeIdeData);
  1732. args: [],
  1733. source: "execute\x0a\x09self model removeMethod",
  1734. referencedClasses: [],
  1735. //>>excludeEnd("ide");
  1736. pragmas: [],
  1737. messageSends: ["removeMethod", "model"]
  1738. }, function ($methodClass){ return function (){
  1739. var self=this,$self=this;
  1740. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1741. return $core.withContext(function($ctx1) {
  1742. //>>excludeEnd("ctx");
  1743. $recv($self._model())._removeMethod();
  1744. return self;
  1745. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1746. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  1747. //>>excludeEnd("ctx");
  1748. }; }),
  1749. $globals.HLRemoveMethodCommand);
  1750. $core.addMethod(
  1751. $core.method({
  1752. selector: "isActive",
  1753. protocol: "testing",
  1754. //>>excludeStart("ide", pragmas.excludeIdeData);
  1755. args: [],
  1756. source: "isActive\x0a\x09^ self model selectedMethod notNil",
  1757. referencedClasses: [],
  1758. //>>excludeEnd("ide");
  1759. pragmas: [],
  1760. messageSends: ["notNil", "selectedMethod", "model"]
  1761. }, function ($methodClass){ return function (){
  1762. var self=this,$self=this;
  1763. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1764. return $core.withContext(function($ctx1) {
  1765. //>>excludeEnd("ctx");
  1766. return $recv($recv($self._model())._selectedMethod())._notNil();
  1767. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1768. }, function($ctx1) {$ctx1.fill(self,"isActive",{})});
  1769. //>>excludeEnd("ctx");
  1770. }; }),
  1771. $globals.HLRemoveMethodCommand);
  1772. $core.addMethod(
  1773. $core.method({
  1774. selector: "key",
  1775. protocol: "accessing",
  1776. //>>excludeStart("ide", pragmas.excludeIdeData);
  1777. args: [],
  1778. source: "key\x0a\x09^ 'm'",
  1779. referencedClasses: [],
  1780. //>>excludeEnd("ide");
  1781. pragmas: [],
  1782. messageSends: []
  1783. }, function ($methodClass){ return function (){
  1784. var self=this,$self=this;
  1785. return "m";
  1786. }; }),
  1787. $globals.HLRemoveMethodCommand.a$cls);
  1788. $core.addMethod(
  1789. $core.method({
  1790. selector: "label",
  1791. protocol: "accessing",
  1792. //>>excludeStart("ide", pragmas.excludeIdeData);
  1793. args: [],
  1794. source: "label\x0a\x09^ 'Remove method'",
  1795. referencedClasses: [],
  1796. //>>excludeEnd("ide");
  1797. pragmas: [],
  1798. messageSends: []
  1799. }, function ($methodClass){ return function (){
  1800. var self=this,$self=this;
  1801. return "Remove method";
  1802. }; }),
  1803. $globals.HLRemoveMethodCommand.a$cls);
  1804. $core.addMethod(
  1805. $core.method({
  1806. selector: "menuLabel",
  1807. protocol: "accessing",
  1808. //>>excludeStart("ide", pragmas.excludeIdeData);
  1809. args: [],
  1810. source: "menuLabel\x0a\x09^ 'Remove method'",
  1811. referencedClasses: [],
  1812. //>>excludeEnd("ide");
  1813. pragmas: [],
  1814. messageSends: []
  1815. }, function ($methodClass){ return function (){
  1816. var self=this,$self=this;
  1817. return "Remove method";
  1818. }; }),
  1819. $globals.HLRemoveMethodCommand.a$cls);
  1820. $core.addClass("HLRemoveProtocolCommand", $globals.HLRemoveCommand, "Helios-Commands-Tools");
  1821. $core.addMethod(
  1822. $core.method({
  1823. selector: "category",
  1824. protocol: "accessing",
  1825. //>>excludeStart("ide", pragmas.excludeIdeData);
  1826. args: [],
  1827. source: "category\x0a\x09^ 'Protocols'",
  1828. referencedClasses: [],
  1829. //>>excludeEnd("ide");
  1830. pragmas: [],
  1831. messageSends: []
  1832. }, function ($methodClass){ return function (){
  1833. var self=this,$self=this;
  1834. return "Protocols";
  1835. }; }),
  1836. $globals.HLRemoveProtocolCommand);
  1837. $core.addMethod(
  1838. $core.method({
  1839. selector: "execute",
  1840. protocol: "executing",
  1841. //>>excludeStart("ide", pragmas.excludeIdeData);
  1842. args: [],
  1843. source: "execute\x0a\x09self model removeProtocol",
  1844. referencedClasses: [],
  1845. //>>excludeEnd("ide");
  1846. pragmas: [],
  1847. messageSends: ["removeProtocol", "model"]
  1848. }, function ($methodClass){ return function (){
  1849. var self=this,$self=this;
  1850. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1851. return $core.withContext(function($ctx1) {
  1852. //>>excludeEnd("ctx");
  1853. $recv($self._model())._removeProtocol();
  1854. return self;
  1855. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1856. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  1857. //>>excludeEnd("ctx");
  1858. }; }),
  1859. $globals.HLRemoveProtocolCommand);
  1860. $core.addMethod(
  1861. $core.method({
  1862. selector: "isActive",
  1863. protocol: "testing",
  1864. //>>excludeStart("ide", pragmas.excludeIdeData);
  1865. args: [],
  1866. source: "isActive\x0a\x09^ self model selectedProtocol notNil",
  1867. referencedClasses: [],
  1868. //>>excludeEnd("ide");
  1869. pragmas: [],
  1870. messageSends: ["notNil", "selectedProtocol", "model"]
  1871. }, function ($methodClass){ return function (){
  1872. var self=this,$self=this;
  1873. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1874. return $core.withContext(function($ctx1) {
  1875. //>>excludeEnd("ctx");
  1876. return $recv($recv($self._model())._selectedProtocol())._notNil();
  1877. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1878. }, function($ctx1) {$ctx1.fill(self,"isActive",{})});
  1879. //>>excludeEnd("ctx");
  1880. }; }),
  1881. $globals.HLRemoveProtocolCommand);
  1882. $core.addMethod(
  1883. $core.method({
  1884. selector: "key",
  1885. protocol: "accessing",
  1886. //>>excludeStart("ide", pragmas.excludeIdeData);
  1887. args: [],
  1888. source: "key\x0a\x09^ 't'",
  1889. referencedClasses: [],
  1890. //>>excludeEnd("ide");
  1891. pragmas: [],
  1892. messageSends: []
  1893. }, function ($methodClass){ return function (){
  1894. var self=this,$self=this;
  1895. return "t";
  1896. }; }),
  1897. $globals.HLRemoveProtocolCommand.a$cls);
  1898. $core.addMethod(
  1899. $core.method({
  1900. selector: "label",
  1901. protocol: "accessing",
  1902. //>>excludeStart("ide", pragmas.excludeIdeData);
  1903. args: [],
  1904. source: "label\x0a\x09^ 'Remove protocol'",
  1905. referencedClasses: [],
  1906. //>>excludeEnd("ide");
  1907. pragmas: [],
  1908. messageSends: []
  1909. }, function ($methodClass){ return function (){
  1910. var self=this,$self=this;
  1911. return "Remove protocol";
  1912. }; }),
  1913. $globals.HLRemoveProtocolCommand.a$cls);
  1914. $core.addMethod(
  1915. $core.method({
  1916. selector: "menuLabel",
  1917. protocol: "accessing",
  1918. //>>excludeStart("ide", pragmas.excludeIdeData);
  1919. args: [],
  1920. source: "menuLabel\x0a\x09^ 'Remove protocol'",
  1921. referencedClasses: [],
  1922. //>>excludeEnd("ide");
  1923. pragmas: [],
  1924. messageSends: []
  1925. }, function ($methodClass){ return function (){
  1926. var self=this,$self=this;
  1927. return "Remove protocol";
  1928. }; }),
  1929. $globals.HLRemoveProtocolCommand.a$cls);
  1930. $core.addClass("HLRenameCommand", $globals.HLToolCommand, "Helios-Commands-Tools");
  1931. $core.addMethod(
  1932. $core.method({
  1933. selector: "key",
  1934. protocol: "accessing",
  1935. //>>excludeStart("ide", pragmas.excludeIdeData);
  1936. args: [],
  1937. source: "key\x0a\x09^ 'r'",
  1938. referencedClasses: [],
  1939. //>>excludeEnd("ide");
  1940. pragmas: [],
  1941. messageSends: []
  1942. }, function ($methodClass){ return function (){
  1943. var self=this,$self=this;
  1944. return "r";
  1945. }; }),
  1946. $globals.HLRenameCommand.a$cls);
  1947. $core.addMethod(
  1948. $core.method({
  1949. selector: "label",
  1950. protocol: "accessing",
  1951. //>>excludeStart("ide", pragmas.excludeIdeData);
  1952. args: [],
  1953. source: "label\x0a\x09^ 'Rename'",
  1954. referencedClasses: [],
  1955. //>>excludeEnd("ide");
  1956. pragmas: [],
  1957. messageSends: []
  1958. }, function ($methodClass){ return function (){
  1959. var self=this,$self=this;
  1960. return "Rename";
  1961. }; }),
  1962. $globals.HLRenameCommand.a$cls);
  1963. $core.addClass("HLRenameClassCommand", $globals.HLRenameCommand, "Helios-Commands-Tools");
  1964. $core.addMethod(
  1965. $core.method({
  1966. selector: "category",
  1967. protocol: "accessing",
  1968. //>>excludeStart("ide", pragmas.excludeIdeData);
  1969. args: [],
  1970. source: "category\x0a\x09^ 'Classes'",
  1971. referencedClasses: [],
  1972. //>>excludeEnd("ide");
  1973. pragmas: [],
  1974. messageSends: []
  1975. }, function ($methodClass){ return function (){
  1976. var self=this,$self=this;
  1977. return "Classes";
  1978. }; }),
  1979. $globals.HLRenameClassCommand);
  1980. $core.addMethod(
  1981. $core.method({
  1982. selector: "defaultInput",
  1983. protocol: "defaults",
  1984. //>>excludeStart("ide", pragmas.excludeIdeData);
  1985. args: [],
  1986. source: "defaultInput\x0a\x09^ self model selectedClass theNonMetaClass name",
  1987. referencedClasses: [],
  1988. //>>excludeEnd("ide");
  1989. pragmas: [],
  1990. messageSends: ["name", "theNonMetaClass", "selectedClass", "model"]
  1991. }, function ($methodClass){ return function (){
  1992. var self=this,$self=this;
  1993. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1994. return $core.withContext(function($ctx1) {
  1995. //>>excludeEnd("ctx");
  1996. return $recv($recv($recv($self._model())._selectedClass())._theNonMetaClass())._name();
  1997. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1998. }, function($ctx1) {$ctx1.fill(self,"defaultInput",{})});
  1999. //>>excludeEnd("ctx");
  2000. }; }),
  2001. $globals.HLRenameClassCommand);
  2002. $core.addMethod(
  2003. $core.method({
  2004. selector: "displayLabel",
  2005. protocol: "accessing",
  2006. //>>excludeStart("ide", pragmas.excludeIdeData);
  2007. args: [],
  2008. source: "displayLabel\x0a\x09^ 'Rename class to:'",
  2009. referencedClasses: [],
  2010. //>>excludeEnd("ide");
  2011. pragmas: [],
  2012. messageSends: []
  2013. }, function ($methodClass){ return function (){
  2014. var self=this,$self=this;
  2015. return "Rename class to:";
  2016. }; }),
  2017. $globals.HLRenameClassCommand);
  2018. $core.addMethod(
  2019. $core.method({
  2020. selector: "execute",
  2021. protocol: "executing",
  2022. //>>excludeStart("ide", pragmas.excludeIdeData);
  2023. args: [],
  2024. source: "execute\x0a\x09self model renameClassTo: self input",
  2025. referencedClasses: [],
  2026. //>>excludeEnd("ide");
  2027. pragmas: [],
  2028. messageSends: ["renameClassTo:", "model", "input"]
  2029. }, function ($methodClass){ return function (){
  2030. var self=this,$self=this;
  2031. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2032. return $core.withContext(function($ctx1) {
  2033. //>>excludeEnd("ctx");
  2034. $recv($self._model())._renameClassTo_($self._input());
  2035. return self;
  2036. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2037. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  2038. //>>excludeEnd("ctx");
  2039. }; }),
  2040. $globals.HLRenameClassCommand);
  2041. $core.addMethod(
  2042. $core.method({
  2043. selector: "isActive",
  2044. protocol: "testing",
  2045. //>>excludeStart("ide", pragmas.excludeIdeData);
  2046. args: [],
  2047. source: "isActive\x0a\x09^ self model selectedClass notNil",
  2048. referencedClasses: [],
  2049. //>>excludeEnd("ide");
  2050. pragmas: [],
  2051. messageSends: ["notNil", "selectedClass", "model"]
  2052. }, function ($methodClass){ return function (){
  2053. var self=this,$self=this;
  2054. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2055. return $core.withContext(function($ctx1) {
  2056. //>>excludeEnd("ctx");
  2057. return $recv($recv($self._model())._selectedClass())._notNil();
  2058. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2059. }, function($ctx1) {$ctx1.fill(self,"isActive",{})});
  2060. //>>excludeEnd("ctx");
  2061. }; }),
  2062. $globals.HLRenameClassCommand);
  2063. $core.addMethod(
  2064. $core.method({
  2065. selector: "isInputRequired",
  2066. protocol: "testing",
  2067. //>>excludeStart("ide", pragmas.excludeIdeData);
  2068. args: [],
  2069. source: "isInputRequired\x0a\x09^ true",
  2070. referencedClasses: [],
  2071. //>>excludeEnd("ide");
  2072. pragmas: [],
  2073. messageSends: []
  2074. }, function ($methodClass){ return function (){
  2075. var self=this,$self=this;
  2076. return true;
  2077. }; }),
  2078. $globals.HLRenameClassCommand);
  2079. $core.addMethod(
  2080. $core.method({
  2081. selector: "key",
  2082. protocol: "accessing",
  2083. //>>excludeStart("ide", pragmas.excludeIdeData);
  2084. args: [],
  2085. source: "key\x0a\x09^ 'c'",
  2086. referencedClasses: [],
  2087. //>>excludeEnd("ide");
  2088. pragmas: [],
  2089. messageSends: []
  2090. }, function ($methodClass){ return function (){
  2091. var self=this,$self=this;
  2092. return "c";
  2093. }; }),
  2094. $globals.HLRenameClassCommand.a$cls);
  2095. $core.addMethod(
  2096. $core.method({
  2097. selector: "label",
  2098. protocol: "accessing",
  2099. //>>excludeStart("ide", pragmas.excludeIdeData);
  2100. args: [],
  2101. source: "label\x0a\x09^ 'Rename class'",
  2102. referencedClasses: [],
  2103. //>>excludeEnd("ide");
  2104. pragmas: [],
  2105. messageSends: []
  2106. }, function ($methodClass){ return function (){
  2107. var self=this,$self=this;
  2108. return "Rename class";
  2109. }; }),
  2110. $globals.HLRenameClassCommand.a$cls);
  2111. $core.addMethod(
  2112. $core.method({
  2113. selector: "menuLabel",
  2114. protocol: "accessing",
  2115. //>>excludeStart("ide", pragmas.excludeIdeData);
  2116. args: [],
  2117. source: "menuLabel\x0a\x09^ 'Rename class...'",
  2118. referencedClasses: [],
  2119. //>>excludeEnd("ide");
  2120. pragmas: [],
  2121. messageSends: []
  2122. }, function ($methodClass){ return function (){
  2123. var self=this,$self=this;
  2124. return "Rename class...";
  2125. }; }),
  2126. $globals.HLRenameClassCommand.a$cls);
  2127. $core.addClass("HLRenamePackageCommand", $globals.HLRenameCommand, "Helios-Commands-Tools");
  2128. $core.addMethod(
  2129. $core.method({
  2130. selector: "category",
  2131. protocol: "accessing",
  2132. //>>excludeStart("ide", pragmas.excludeIdeData);
  2133. args: [],
  2134. source: "category\x0a\x09^ 'Packages'",
  2135. referencedClasses: [],
  2136. //>>excludeEnd("ide");
  2137. pragmas: [],
  2138. messageSends: []
  2139. }, function ($methodClass){ return function (){
  2140. var self=this,$self=this;
  2141. return "Packages";
  2142. }; }),
  2143. $globals.HLRenamePackageCommand);
  2144. $core.addMethod(
  2145. $core.method({
  2146. selector: "defaultInput",
  2147. protocol: "defaults",
  2148. //>>excludeStart("ide", pragmas.excludeIdeData);
  2149. args: [],
  2150. source: "defaultInput\x0a\x09^ self model selectedPackage name",
  2151. referencedClasses: [],
  2152. //>>excludeEnd("ide");
  2153. pragmas: [],
  2154. messageSends: ["name", "selectedPackage", "model"]
  2155. }, function ($methodClass){ return function (){
  2156. var self=this,$self=this;
  2157. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2158. return $core.withContext(function($ctx1) {
  2159. //>>excludeEnd("ctx");
  2160. return $recv($recv($self._model())._selectedPackage())._name();
  2161. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2162. }, function($ctx1) {$ctx1.fill(self,"defaultInput",{})});
  2163. //>>excludeEnd("ctx");
  2164. }; }),
  2165. $globals.HLRenamePackageCommand);
  2166. $core.addMethod(
  2167. $core.method({
  2168. selector: "displayLabel",
  2169. protocol: "accessing",
  2170. //>>excludeStart("ide", pragmas.excludeIdeData);
  2171. args: [],
  2172. source: "displayLabel\x0a\x09^ 'Rename package to:'",
  2173. referencedClasses: [],
  2174. //>>excludeEnd("ide");
  2175. pragmas: [],
  2176. messageSends: []
  2177. }, function ($methodClass){ return function (){
  2178. var self=this,$self=this;
  2179. return "Rename package to:";
  2180. }; }),
  2181. $globals.HLRenamePackageCommand);
  2182. $core.addMethod(
  2183. $core.method({
  2184. selector: "execute",
  2185. protocol: "executing",
  2186. //>>excludeStart("ide", pragmas.excludeIdeData);
  2187. args: [],
  2188. source: "execute\x0a\x09self model renamePackageTo: self input",
  2189. referencedClasses: [],
  2190. //>>excludeEnd("ide");
  2191. pragmas: [],
  2192. messageSends: ["renamePackageTo:", "model", "input"]
  2193. }, function ($methodClass){ return function (){
  2194. var self=this,$self=this;
  2195. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2196. return $core.withContext(function($ctx1) {
  2197. //>>excludeEnd("ctx");
  2198. $recv($self._model())._renamePackageTo_($self._input());
  2199. return self;
  2200. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2201. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  2202. //>>excludeEnd("ctx");
  2203. }; }),
  2204. $globals.HLRenamePackageCommand);
  2205. $core.addMethod(
  2206. $core.method({
  2207. selector: "isActive",
  2208. protocol: "testing",
  2209. //>>excludeStart("ide", pragmas.excludeIdeData);
  2210. args: [],
  2211. source: "isActive\x0a\x09^ self model selectedPackage notNil",
  2212. referencedClasses: [],
  2213. //>>excludeEnd("ide");
  2214. pragmas: [],
  2215. messageSends: ["notNil", "selectedPackage", "model"]
  2216. }, function ($methodClass){ return function (){
  2217. var self=this,$self=this;
  2218. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2219. return $core.withContext(function($ctx1) {
  2220. //>>excludeEnd("ctx");
  2221. return $recv($recv($self._model())._selectedPackage())._notNil();
  2222. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2223. }, function($ctx1) {$ctx1.fill(self,"isActive",{})});
  2224. //>>excludeEnd("ctx");
  2225. }; }),
  2226. $globals.HLRenamePackageCommand);
  2227. $core.addMethod(
  2228. $core.method({
  2229. selector: "isInputRequired",
  2230. protocol: "testing",
  2231. //>>excludeStart("ide", pragmas.excludeIdeData);
  2232. args: [],
  2233. source: "isInputRequired\x0a\x09^ true",
  2234. referencedClasses: [],
  2235. //>>excludeEnd("ide");
  2236. pragmas: [],
  2237. messageSends: []
  2238. }, function ($methodClass){ return function (){
  2239. var self=this,$self=this;
  2240. return true;
  2241. }; }),
  2242. $globals.HLRenamePackageCommand);
  2243. $core.addMethod(
  2244. $core.method({
  2245. selector: "key",
  2246. protocol: "accessing",
  2247. //>>excludeStart("ide", pragmas.excludeIdeData);
  2248. args: [],
  2249. source: "key\x0a\x09^ 'p'",
  2250. referencedClasses: [],
  2251. //>>excludeEnd("ide");
  2252. pragmas: [],
  2253. messageSends: []
  2254. }, function ($methodClass){ return function (){
  2255. var self=this,$self=this;
  2256. return "p";
  2257. }; }),
  2258. $globals.HLRenamePackageCommand.a$cls);
  2259. $core.addMethod(
  2260. $core.method({
  2261. selector: "label",
  2262. protocol: "accessing",
  2263. //>>excludeStart("ide", pragmas.excludeIdeData);
  2264. args: [],
  2265. source: "label\x0a\x09^ 'Rename package'",
  2266. referencedClasses: [],
  2267. //>>excludeEnd("ide");
  2268. pragmas: [],
  2269. messageSends: []
  2270. }, function ($methodClass){ return function (){
  2271. var self=this,$self=this;
  2272. return "Rename package";
  2273. }; }),
  2274. $globals.HLRenamePackageCommand.a$cls);
  2275. $core.addMethod(
  2276. $core.method({
  2277. selector: "menuLabel",
  2278. protocol: "accessing",
  2279. //>>excludeStart("ide", pragmas.excludeIdeData);
  2280. args: [],
  2281. source: "menuLabel\x0a\x09^ 'Rename package...'",
  2282. referencedClasses: [],
  2283. //>>excludeEnd("ide");
  2284. pragmas: [],
  2285. messageSends: []
  2286. }, function ($methodClass){ return function (){
  2287. var self=this,$self=this;
  2288. return "Rename package...";
  2289. }; }),
  2290. $globals.HLRenamePackageCommand.a$cls);
  2291. $core.addClass("HLRenameProtocolCommand", $globals.HLRenameCommand, "Helios-Commands-Tools");
  2292. $core.addMethod(
  2293. $core.method({
  2294. selector: "category",
  2295. protocol: "accessing",
  2296. //>>excludeStart("ide", pragmas.excludeIdeData);
  2297. args: [],
  2298. source: "category\x0a\x09^ 'Protocols'",
  2299. referencedClasses: [],
  2300. //>>excludeEnd("ide");
  2301. pragmas: [],
  2302. messageSends: []
  2303. }, function ($methodClass){ return function (){
  2304. var self=this,$self=this;
  2305. return "Protocols";
  2306. }; }),
  2307. $globals.HLRenameProtocolCommand);
  2308. $core.addMethod(
  2309. $core.method({
  2310. selector: "defaultInput",
  2311. protocol: "defaults",
  2312. //>>excludeStart("ide", pragmas.excludeIdeData);
  2313. args: [],
  2314. source: "defaultInput\x0a\x09^ self model selectedProtocol",
  2315. referencedClasses: [],
  2316. //>>excludeEnd("ide");
  2317. pragmas: [],
  2318. messageSends: ["selectedProtocol", "model"]
  2319. }, function ($methodClass){ return function (){
  2320. var self=this,$self=this;
  2321. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2322. return $core.withContext(function($ctx1) {
  2323. //>>excludeEnd("ctx");
  2324. return $recv($self._model())._selectedProtocol();
  2325. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2326. }, function($ctx1) {$ctx1.fill(self,"defaultInput",{})});
  2327. //>>excludeEnd("ctx");
  2328. }; }),
  2329. $globals.HLRenameProtocolCommand);
  2330. $core.addMethod(
  2331. $core.method({
  2332. selector: "displayLabel",
  2333. protocol: "accessing",
  2334. //>>excludeStart("ide", pragmas.excludeIdeData);
  2335. args: [],
  2336. source: "displayLabel\x0a\x09^ 'Rename protocol to:'",
  2337. referencedClasses: [],
  2338. //>>excludeEnd("ide");
  2339. pragmas: [],
  2340. messageSends: []
  2341. }, function ($methodClass){ return function (){
  2342. var self=this,$self=this;
  2343. return "Rename protocol to:";
  2344. }; }),
  2345. $globals.HLRenameProtocolCommand);
  2346. $core.addMethod(
  2347. $core.method({
  2348. selector: "execute",
  2349. protocol: "executing",
  2350. //>>excludeStart("ide", pragmas.excludeIdeData);
  2351. args: [],
  2352. source: "execute\x0a\x09self model renameProtocolTo: self input",
  2353. referencedClasses: [],
  2354. //>>excludeEnd("ide");
  2355. pragmas: [],
  2356. messageSends: ["renameProtocolTo:", "model", "input"]
  2357. }, function ($methodClass){ return function (){
  2358. var self=this,$self=this;
  2359. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2360. return $core.withContext(function($ctx1) {
  2361. //>>excludeEnd("ctx");
  2362. $recv($self._model())._renameProtocolTo_($self._input());
  2363. return self;
  2364. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2365. }, function($ctx1) {$ctx1.fill(self,"execute",{})});
  2366. //>>excludeEnd("ctx");
  2367. }; }),
  2368. $globals.HLRenameProtocolCommand);
  2369. $core.addMethod(
  2370. $core.method({
  2371. selector: "isActive",
  2372. protocol: "testing",
  2373. //>>excludeStart("ide", pragmas.excludeIdeData);
  2374. args: [],
  2375. source: "isActive\x0a\x09^ self model selectedProtocol notNil",
  2376. referencedClasses: [],
  2377. //>>excludeEnd("ide");
  2378. pragmas: [],
  2379. messageSends: ["notNil", "selectedProtocol", "model"]
  2380. }, function ($methodClass){ return function (){
  2381. var self=this,$self=this;
  2382. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2383. return $core.withContext(function($ctx1) {
  2384. //>>excludeEnd("ctx");
  2385. return $recv($recv($self._model())._selectedProtocol())._notNil();
  2386. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2387. }, function($ctx1) {$ctx1.fill(self,"isActive",{})});
  2388. //>>excludeEnd("ctx");
  2389. }; }),
  2390. $globals.HLRenameProtocolCommand);
  2391. $core.addMethod(
  2392. $core.method({
  2393. selector: "isInputRequired",
  2394. protocol: "testing",
  2395. //>>excludeStart("ide", pragmas.excludeIdeData);
  2396. args: [],
  2397. source: "isInputRequired\x0a\x09^ true",
  2398. referencedClasses: [],
  2399. //>>excludeEnd("ide");
  2400. pragmas: [],
  2401. messageSends: []
  2402. }, function ($methodClass){ return function (){
  2403. var self=this,$self=this;
  2404. return true;
  2405. }; }),
  2406. $globals.HLRenameProtocolCommand);
  2407. $core.addMethod(
  2408. $core.method({
  2409. selector: "key",
  2410. protocol: "accessing",
  2411. //>>excludeStart("ide", pragmas.excludeIdeData);
  2412. args: [],
  2413. source: "key\x0a\x09^ 't'",
  2414. referencedClasses: [],
  2415. //>>excludeEnd("ide");
  2416. pragmas: [],
  2417. messageSends: []
  2418. }, function ($methodClass){ return function (){
  2419. var self=this,$self=this;
  2420. return "t";
  2421. }; }),
  2422. $globals.HLRenameProtocolCommand.a$cls);
  2423. $core.addMethod(
  2424. $core.method({
  2425. selector: "label",
  2426. protocol: "accessing",
  2427. //>>excludeStart("ide", pragmas.excludeIdeData);
  2428. args: [],
  2429. source: "label\x0a\x09^ 'Rename protocol'",
  2430. referencedClasses: [],
  2431. //>>excludeEnd("ide");
  2432. pragmas: [],
  2433. messageSends: []
  2434. }, function ($methodClass){ return function (){
  2435. var self=this,$self=this;
  2436. return "Rename protocol";
  2437. }; }),
  2438. $globals.HLRenameProtocolCommand.a$cls);
  2439. $core.addMethod(
  2440. $core.method({
  2441. selector: "menuLabel",
  2442. protocol: "accessing",
  2443. //>>excludeStart("ide", pragmas.excludeIdeData);
  2444. args: [],
  2445. source: "menuLabel\x0a\x09^ 'Rename protocol...'",
  2446. referencedClasses: [],
  2447. //>>excludeEnd("ide");
  2448. pragmas: [],
  2449. messageSends: []
  2450. }, function ($methodClass){ return function (){
  2451. var self=this,$self=this;
  2452. return "Rename protocol...";
  2453. }; }),
  2454. $globals.HLRenameProtocolCommand.a$cls);
  2455. });