Helios-Commands-Tools.js 62 KB

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