Helios-Commands-Tools.js 63 KB

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