1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665 |
- define("helios/Helios-Commands-Tools", ["amber/boot", "helios/Helios-Commands-Core"], function($boot){
- var $core=$boot.api,nil=$boot.nil,$recv=$boot.asReceiver,$globals=$boot.globals;
- $core.addPackage('Helios-Commands-Tools');
- $core.packages["Helios-Commands-Tools"].innerEval = function (expr) { return eval(expr); };
- $core.packages["Helios-Commands-Tools"].transport = {"type":"amd","amdNamespace":"helios"};
- $core.addClass('HLToolCommand', $globals.HLModelCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "category",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return nil;
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "category\x0a\x09^ nil",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLToolCommand);
- $core.addMethod(
- $core.method({
- selector: "for:",
- protocol: 'instance creation',
- fn: function (aToolModel){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $2,$3,$1;
- $2=self._new();
- $recv($2)._model_(aToolModel);
- $3=$recv($2)._yourself();
- $1=$3;
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"for:",{aToolModel:aToolModel},$globals.HLToolCommand.klass)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aToolModel"],
- source: "for: aToolModel\x0a\x09^ self new\x0a \x09model: aToolModel;\x0a yourself",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["model:", "new", "yourself"]
- }),
- $globals.HLToolCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "isValidFor:",
- protocol: 'testing',
- fn: function (aModel){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv(aModel)._isToolModel();
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},$globals.HLToolCommand.klass)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aModel"],
- source: "isValidFor: aModel\x0a\x09^ aModel isToolModel",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["isToolModel"]
- }),
- $globals.HLToolCommand.klass);
- $core.addClass('HLBrowseMethodCommand', $globals.HLToolCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "displayLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "browse method";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "displayLabel\x0a\x09^ 'browse method'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLBrowseMethodCommand);
- $core.addMethod(
- $core.method({
- selector: "execute",
- protocol: 'executing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $recv(self._model())._openMethod();
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLBrowseMethodCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "execute\x0a\x09self model openMethod",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["openMethod", "model"]
- }),
- $globals.HLBrowseMethodCommand);
- $core.addMethod(
- $core.method({
- selector: "isValidFor:",
- protocol: 'testing',
- fn: function (aModel){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv(aModel)._isReferencesModel();
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},$globals.HLBrowseMethodCommand.klass)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aModel"],
- source: "isValidFor: aModel\x0a\x09^ aModel isReferencesModel",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["isReferencesModel"]
- }),
- $globals.HLBrowseMethodCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "b";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'b'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLBrowseMethodCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "browse method";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'browse method'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLBrowseMethodCommand.klass);
- $core.addClass('HLCommitPackageCommand', $globals.HLToolCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "category",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Packages";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "category\x0a\x09^ 'Packages'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCommitPackageCommand);
- $core.addMethod(
- $core.method({
- selector: "commitPackage",
- protocol: 'executing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $recv(self._model())._commitPackageOnSuccess_onError_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return self._informSuccess();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
- //>>excludeEnd("ctx");
- }),(function(error){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return self._onPackageCommitError_(error);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({error:error},$ctx1,2)});
- //>>excludeEnd("ctx");
- }));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"commitPackage",{},$globals.HLCommitPackageCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "commitPackage\x0a\x09self model \x0a\x09\x09commitPackageOnSuccess: [ self informSuccess ]\x0a\x09\x09onError: [ :error | self onPackageCommitError: error ]",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["commitPackageOnSuccess:onError:", "model", "informSuccess", "onPackageCommitError:"]
- }),
- $globals.HLCommitPackageCommand);
- $core.addMethod(
- $core.method({
- selector: "execute",
- protocol: 'executing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- self._commitPackage();
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLCommitPackageCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "execute\x0a\x09self commitPackage",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["commitPackage"]
- }),
- $globals.HLCommitPackageCommand);
- $core.addMethod(
- $core.method({
- selector: "informSuccess",
- protocol: 'executing',
- fn: function (){
- var self=this;
- function $HLInformationWidget(){return $globals.HLInformationWidget||(typeof HLInformationWidget=="undefined"?nil:HLInformationWidget)}
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1,$2;
- $1=$recv($HLInformationWidget())._new();
- $recv($1)._informationString_("Commit successful!");
- $2=$recv($1)._show();
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"informSuccess",{},$globals.HLCommitPackageCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "informSuccess\x0a\x09HLInformationWidget new\x0a\x09\x09informationString: 'Commit successful!';\x0a\x09\x09show",
- referencedClasses: ["HLInformationWidget"],
- //>>excludeEnd("ide");
- messageSends: ["informationString:", "new", "show"]
- }),
- $globals.HLCommitPackageCommand);
- $core.addMethod(
- $core.method({
- selector: "isActive",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return true;
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isActive\x0a\x09^ true\x0a\x09\x22self model isPackageDirty\x22",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCommitPackageCommand);
- $core.addMethod(
- $core.method({
- selector: "onPackageCommitError:",
- protocol: 'error handling',
- fn: function (anError){
- var self=this;
- function $HLPackageCommitErrorHelper(){return $globals.HLPackageCommitErrorHelper||(typeof HLPackageCommitErrorHelper=="undefined"?nil:HLPackageCommitErrorHelper)}
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $recv($recv($HLPackageCommitErrorHelper())._on_(self._model()))._showHelp();
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"onPackageCommitError:",{anError:anError},$globals.HLCommitPackageCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["anError"],
- source: "onPackageCommitError: anError\x0a\x09(HLPackageCommitErrorHelper on: self model)\x0a\x09\x09showHelp",
- referencedClasses: ["HLPackageCommitErrorHelper"],
- //>>excludeEnd("ide");
- messageSends: ["showHelp", "on:", "model"]
- }),
- $globals.HLCommitPackageCommand);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "k";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'k'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCommitPackageCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Commit package";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Commit package'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCommitPackageCommand.klass);
- $core.addClass('HLCopyCommand', $globals.HLToolCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "c";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'c'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCopyCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Copy";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Copy'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCopyCommand.klass);
- $core.addClass('HLCopyClassCommand', $globals.HLCopyCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "category",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Classes";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "category\x0a\x09^ 'Classes'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCopyClassCommand);
- $core.addMethod(
- $core.method({
- selector: "defaultInput",
- protocol: 'defaults',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv($recv($recv(self._model())._selectedClass())._theNonMetaClass())._name();
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"defaultInput",{},$globals.HLCopyClassCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "defaultInput\x0a\x09^ self model selectedClass theNonMetaClass name",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["name", "theNonMetaClass", "selectedClass", "model"]
- }),
- $globals.HLCopyClassCommand);
- $core.addMethod(
- $core.method({
- selector: "displayLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "New class name:";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "displayLabel\x0a\x09^ 'New class name:'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCopyClassCommand);
- $core.addMethod(
- $core.method({
- selector: "execute",
- protocol: 'executing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $recv(self._model())._copyClassTo_(self._input());
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLCopyClassCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "execute\x0a\x09self model copyClassTo: self input",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["copyClassTo:", "model", "input"]
- }),
- $globals.HLCopyClassCommand);
- $core.addMethod(
- $core.method({
- selector: "isActive",
- protocol: 'testing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv($recv(self._model())._selectedClass())._notNil();
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"isActive",{},$globals.HLCopyClassCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isActive\x0a\x09^ self model selectedClass notNil",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["notNil", "selectedClass", "model"]
- }),
- $globals.HLCopyClassCommand);
- $core.addMethod(
- $core.method({
- selector: "isInputRequired",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return true;
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isInputRequired\x0a\x09^ true",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCopyClassCommand);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "c";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'c'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCopyClassCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Copy class";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Copy class'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCopyClassCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "menuLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Copy class...";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "menuLabel\x0a\x09^ 'Copy class...'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCopyClassCommand.klass);
- $core.addClass('HLFindCommand', $globals.HLToolCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "f";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'f'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLFindCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Find";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Find'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLFindCommand.klass);
- $core.addClass('HLFindClassCommand', $globals.HLFindCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "displayLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "select a class";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "displayLabel\x0a\x09^ 'select a class'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLFindClassCommand);
- $core.addMethod(
- $core.method({
- selector: "execute",
- protocol: 'executing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $recv(self._model())._openClassNamed_(self._input());
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLFindClassCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "execute\x0a\x09self model openClassNamed: self input",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["openClassNamed:", "model", "input"]
- }),
- $globals.HLFindClassCommand);
- $core.addMethod(
- $core.method({
- selector: "inputCompletion",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv(self._model())._availableClassNames();
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},$globals.HLFindClassCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "inputCompletion\x0a\x09^ self model availableClassNames",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["availableClassNames", "model"]
- }),
- $globals.HLFindClassCommand);
- $core.addMethod(
- $core.method({
- selector: "inputLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Find a class";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "inputLabel\x0a\x09^ 'Find a class'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLFindClassCommand);
- $core.addMethod(
- $core.method({
- selector: "isInputRequired",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return true;
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isInputRequired\x0a\x09^ true",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLFindClassCommand);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "c";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'c'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLFindClassCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Find class";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Find class'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLFindClassCommand.klass);
- $core.addClass('HLFindReferencesCommand', $globals.HLFindCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "defaultInput",
- protocol: 'defaults',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $3,$2,$4,$1,$receiver;
- $3=self._model();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- $ctx1.sendIdx["model"]=1;
- //>>excludeEnd("ctx");
- $2=$recv($3)._selectedMethod();
- if(($receiver = $2) == null || $receiver.isNil){
- $4=$recv(self._model())._selectedClass();
- if(($receiver = $4) == null || $receiver.isNil){
- $1="";
- } else {
- var class_;
- class_=$receiver;
- $1=$recv($recv(class_)._theNonMetaClass())._name();
- };
- } else {
- var method;
- method=$receiver;
- $1=$recv(method)._selector();
- };
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"defaultInput",{},$globals.HLFindReferencesCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- 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 ]",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["ifNil:ifNotNil:", "selectedMethod", "model", "selectedClass", "name", "theNonMetaClass", "selector"]
- }),
- $globals.HLFindReferencesCommand);
- $core.addMethod(
- $core.method({
- selector: "displayLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "find references";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "displayLabel\x0a\x09^ 'find references'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLFindReferencesCommand);
- $core.addMethod(
- $core.method({
- selector: "execute",
- protocol: 'executing',
- fn: function (){
- var self=this;
- function $HLReferences(){return $globals.HLReferences||(typeof HLReferences=="undefined"?nil:HLReferences)}
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1,$2;
- $1=$recv($HLReferences())._new();
- $recv($1)._openAsTab();
- $2=$recv($1)._search_(self._input());
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLFindReferencesCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "execute\x0a\x09HLReferences new \x0a\x09\x09openAsTab;\x0a\x09\x09search: self input",
- referencedClasses: ["HLReferences"],
- //>>excludeEnd("ide");
- messageSends: ["openAsTab", "new", "search:", "input"]
- }),
- $globals.HLFindReferencesCommand);
- $core.addMethod(
- $core.method({
- selector: "inputCompletion",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $3,$2,$1;
- $3=self._model();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- $ctx1.sendIdx["model"]=1;
- //>>excludeEnd("ctx");
- $2=$recv($3)._availableClassNames();
- $1=$recv($2).__comma($recv(self._model())._allSelectors());
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},$globals.HLFindReferencesCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "inputCompletion\x0a\x09^ self model availableClassNames, self model allSelectors",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: [",", "availableClassNames", "model", "allSelectors"]
- }),
- $globals.HLFindReferencesCommand);
- $core.addMethod(
- $core.method({
- selector: "inputLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Find references of";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "inputLabel\x0a\x09^ 'Find references of'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLFindReferencesCommand);
- $core.addMethod(
- $core.method({
- selector: "isInputRequired",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return true;
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isInputRequired\x0a\x09^ true",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLFindReferencesCommand);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "r";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'r'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLFindReferencesCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Find references";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Find references'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLFindReferencesCommand.klass);
- $core.addClass('HLMoveToCommand', $globals.HLToolCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "m";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'm'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveToCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Move";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Move'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveToCommand.klass);
- $core.addClass('HLMoveClassToCommand', $globals.HLMoveToCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "isActive",
- protocol: 'testing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv($recv(self._model())._selectedClass())._notNil();
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"isActive",{},$globals.HLMoveClassToCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isActive\x0a\x09^ self model selectedClass notNil",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["notNil", "selectedClass", "model"]
- }),
- $globals.HLMoveClassToCommand);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "c";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'c'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveClassToCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Move class";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Move class'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveClassToCommand.klass);
- $core.addClass('HLMoveClassToPackageCommand', $globals.HLMoveClassToCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "category",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Classes";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "category\x0a\x09^ 'Classes'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveClassToPackageCommand);
- $core.addMethod(
- $core.method({
- selector: "displayLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "select a package";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "displayLabel\x0a\x09^ 'select a package'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveClassToPackageCommand);
- $core.addMethod(
- $core.method({
- selector: "execute",
- protocol: 'executing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $recv(self._model())._moveClassToPackage_(self._input());
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLMoveClassToPackageCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "execute\x0a\x09self model moveClassToPackage: self input",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["moveClassToPackage:", "model", "input"]
- }),
- $globals.HLMoveClassToPackageCommand);
- $core.addMethod(
- $core.method({
- selector: "inputCompletion",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv(self._model())._availablePackageNames();
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},$globals.HLMoveClassToPackageCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "inputCompletion\x0a\x09^ self model availablePackageNames",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["availablePackageNames", "model"]
- }),
- $globals.HLMoveClassToPackageCommand);
- $core.addMethod(
- $core.method({
- selector: "inputLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Move class to package:";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "inputLabel\x0a\x09^ 'Move class to package:'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveClassToPackageCommand);
- $core.addMethod(
- $core.method({
- selector: "isInputRequired",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return true;
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isInputRequired\x0a\x09^ true",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveClassToPackageCommand);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "p";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'p'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveClassToPackageCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Move class to package";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Move class to package'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveClassToPackageCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "menuLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Move to package...";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "menuLabel\x09\x0a\x09^ 'Move to package...'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveClassToPackageCommand.klass);
- $core.addClass('HLMoveMethodToCommand', $globals.HLMoveToCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "category",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Methods";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "category\x0a\x09^ 'Methods'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveMethodToCommand);
- $core.addMethod(
- $core.method({
- selector: "isActive",
- protocol: 'testing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv($recv(self._model())._selectedMethod())._notNil();
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"isActive",{},$globals.HLMoveMethodToCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isActive\x0a\x09^ self model selectedMethod notNil",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["notNil", "selectedMethod", "model"]
- }),
- $globals.HLMoveMethodToCommand);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "m";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'm'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveMethodToCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Move method";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Move method'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveMethodToCommand.klass);
- $core.addClass('HLMoveMethodToClassCommand', $globals.HLMoveMethodToCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "displayLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "select a class";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "displayLabel\x0a\x09^ 'select a class'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveMethodToClassCommand);
- $core.addMethod(
- $core.method({
- selector: "execute",
- protocol: 'executing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $recv(self._model())._moveMethodToClass_(self._input());
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLMoveMethodToClassCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "execute\x0a\x09self model moveMethodToClass: self input",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["moveMethodToClass:", "model", "input"]
- }),
- $globals.HLMoveMethodToClassCommand);
- $core.addMethod(
- $core.method({
- selector: "inputCompletion",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv(self._model())._availableClassNames();
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},$globals.HLMoveMethodToClassCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "inputCompletion\x0a\x09^ self model availableClassNames",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["availableClassNames", "model"]
- }),
- $globals.HLMoveMethodToClassCommand);
- $core.addMethod(
- $core.method({
- selector: "inputLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Move method to class:";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "inputLabel\x0a\x09^ 'Move method to class:'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveMethodToClassCommand);
- $core.addMethod(
- $core.method({
- selector: "isInputRequired",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return true;
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isInputRequired\x0a\x09^ true",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveMethodToClassCommand);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "c";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'c'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveMethodToClassCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Move method to class";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x09\x0a\x09^ 'Move method to class'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveMethodToClassCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "menuLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Move to class...";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "menuLabel\x09\x0a\x09^ 'Move to class...'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveMethodToClassCommand.klass);
- $core.addClass('HLMoveMethodToProtocolCommand', $globals.HLMoveMethodToCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "displayLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "select a protocol";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "displayLabel\x0a\x09^ 'select a protocol'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveMethodToProtocolCommand);
- $core.addMethod(
- $core.method({
- selector: "execute",
- protocol: 'executing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $recv(self._model())._moveMethodToProtocol_(self._input());
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLMoveMethodToProtocolCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "execute\x0a\x09self model moveMethodToProtocol: self input",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["moveMethodToProtocol:", "model", "input"]
- }),
- $globals.HLMoveMethodToProtocolCommand);
- $core.addMethod(
- $core.method({
- selector: "inputCompletion",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv(self._model())._availableProtocols();
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},$globals.HLMoveMethodToProtocolCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "inputCompletion\x0a\x09^ self model availableProtocols",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["availableProtocols", "model"]
- }),
- $globals.HLMoveMethodToProtocolCommand);
- $core.addMethod(
- $core.method({
- selector: "inputLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Move method to a protocol:";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "inputLabel\x0a\x09^ 'Move method to a protocol:'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveMethodToProtocolCommand);
- $core.addMethod(
- $core.method({
- selector: "isInputRequired",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return true;
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isInputRequired\x0a\x09^ true",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveMethodToProtocolCommand);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "t";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 't'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveMethodToProtocolCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Move method to protocol";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Move method to protocol'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveMethodToProtocolCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "menuLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Move to protocol...";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "menuLabel\x0a\x09^ 'Move to protocol...'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLMoveMethodToProtocolCommand.klass);
- $core.addClass('HLRemoveCommand', $globals.HLToolCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "x";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'x'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRemoveCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Remove";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Remove'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRemoveCommand.klass);
- $core.addClass('HLRemoveClassCommand', $globals.HLRemoveCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "category",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Classes";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "category\x0a\x09^ 'Classes'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRemoveClassCommand);
- $core.addMethod(
- $core.method({
- selector: "execute",
- protocol: 'executing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $recv(self._model())._removeClass();
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLRemoveClassCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "execute\x0a\x09self model removeClass",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["removeClass", "model"]
- }),
- $globals.HLRemoveClassCommand);
- $core.addMethod(
- $core.method({
- selector: "isActive",
- protocol: 'testing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv($recv(self._model())._selectedClass())._notNil();
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"isActive",{},$globals.HLRemoveClassCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isActive\x0a\x09^ self model selectedClass notNil",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["notNil", "selectedClass", "model"]
- }),
- $globals.HLRemoveClassCommand);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "c";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'c'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRemoveClassCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Remove class";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Remove class'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRemoveClassCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "menuLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Remove class";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "menuLabel\x0a\x09^ 'Remove class'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRemoveClassCommand.klass);
- $core.addClass('HLRemoveMethodCommand', $globals.HLRemoveCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "category",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Methods";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "category\x0a\x09^ 'Methods'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRemoveMethodCommand);
- $core.addMethod(
- $core.method({
- selector: "execute",
- protocol: 'executing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $recv(self._model())._removeMethod();
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLRemoveMethodCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "execute\x0a\x09self model removeMethod",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["removeMethod", "model"]
- }),
- $globals.HLRemoveMethodCommand);
- $core.addMethod(
- $core.method({
- selector: "isActive",
- protocol: 'testing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv($recv(self._model())._selectedMethod())._notNil();
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"isActive",{},$globals.HLRemoveMethodCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isActive\x0a\x09^ self model selectedMethod notNil",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["notNil", "selectedMethod", "model"]
- }),
- $globals.HLRemoveMethodCommand);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "m";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'm'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRemoveMethodCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Remove method";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Remove method'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRemoveMethodCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "menuLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Remove method";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "menuLabel\x0a\x09^ 'Remove method'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRemoveMethodCommand.klass);
- $core.addClass('HLRemoveProtocolCommand', $globals.HLRemoveCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "category",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Protocols";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "category\x0a\x09^ 'Protocols'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRemoveProtocolCommand);
- $core.addMethod(
- $core.method({
- selector: "execute",
- protocol: 'executing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $recv(self._model())._removeProtocol();
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLRemoveProtocolCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "execute\x0a\x09self model removeProtocol",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["removeProtocol", "model"]
- }),
- $globals.HLRemoveProtocolCommand);
- $core.addMethod(
- $core.method({
- selector: "isActive",
- protocol: 'testing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv($recv(self._model())._selectedProtocol())._notNil();
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"isActive",{},$globals.HLRemoveProtocolCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isActive\x0a\x09^ self model selectedProtocol notNil",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["notNil", "selectedProtocol", "model"]
- }),
- $globals.HLRemoveProtocolCommand);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "t";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 't'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRemoveProtocolCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Remove protocol";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Remove protocol'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRemoveProtocolCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "menuLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Remove protocol";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "menuLabel\x0a\x09^ 'Remove protocol'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRemoveProtocolCommand.klass);
- $core.addClass('HLRenameCommand', $globals.HLToolCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "r";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'r'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRenameCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Rename";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Rename'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRenameCommand.klass);
- $core.addClass('HLRenameClassCommand', $globals.HLRenameCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "category",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Classes";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "category\x0a\x09^ 'Classes'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRenameClassCommand);
- $core.addMethod(
- $core.method({
- selector: "defaultInput",
- protocol: 'defaults',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv($recv($recv(self._model())._selectedClass())._theNonMetaClass())._name();
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"defaultInput",{},$globals.HLRenameClassCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "defaultInput\x0a\x09^ self model selectedClass theNonMetaClass name",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["name", "theNonMetaClass", "selectedClass", "model"]
- }),
- $globals.HLRenameClassCommand);
- $core.addMethod(
- $core.method({
- selector: "displayLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Rename class to:";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "displayLabel\x0a\x09^ 'Rename class to:'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRenameClassCommand);
- $core.addMethod(
- $core.method({
- selector: "execute",
- protocol: 'executing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $recv(self._model())._renameClassTo_(self._input());
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLRenameClassCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "execute\x0a\x09self model renameClassTo: self input",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["renameClassTo:", "model", "input"]
- }),
- $globals.HLRenameClassCommand);
- $core.addMethod(
- $core.method({
- selector: "isActive",
- protocol: 'testing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv($recv(self._model())._selectedClass())._notNil();
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"isActive",{},$globals.HLRenameClassCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isActive\x0a\x09^ self model selectedClass notNil",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["notNil", "selectedClass", "model"]
- }),
- $globals.HLRenameClassCommand);
- $core.addMethod(
- $core.method({
- selector: "isInputRequired",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return true;
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isInputRequired\x0a\x09^ true",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRenameClassCommand);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "c";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'c'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRenameClassCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Rename class";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Rename class'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRenameClassCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "menuLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Rename class...";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "menuLabel\x0a\x09^ 'Rename class...'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRenameClassCommand.klass);
- $core.addClass('HLRenamePackageCommand', $globals.HLRenameCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "category",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Packages";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "category\x0a\x09^ 'Packages'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRenamePackageCommand);
- $core.addMethod(
- $core.method({
- selector: "defaultInput",
- protocol: 'defaults',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv($recv(self._model())._selectedPackage())._name();
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"defaultInput",{},$globals.HLRenamePackageCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "defaultInput\x0a\x09^ self model selectedPackage name",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["name", "selectedPackage", "model"]
- }),
- $globals.HLRenamePackageCommand);
- $core.addMethod(
- $core.method({
- selector: "displayLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Rename package to:";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "displayLabel\x0a\x09^ 'Rename package to:'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRenamePackageCommand);
- $core.addMethod(
- $core.method({
- selector: "execute",
- protocol: 'executing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $recv(self._model())._renamePackageTo_(self._input());
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLRenamePackageCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "execute\x0a\x09self model renamePackageTo: self input",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["renamePackageTo:", "model", "input"]
- }),
- $globals.HLRenamePackageCommand);
- $core.addMethod(
- $core.method({
- selector: "isActive",
- protocol: 'testing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv($recv(self._model())._selectedPackage())._notNil();
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"isActive",{},$globals.HLRenamePackageCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isActive\x0a\x09^ self model selectedPackage notNil",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["notNil", "selectedPackage", "model"]
- }),
- $globals.HLRenamePackageCommand);
- $core.addMethod(
- $core.method({
- selector: "isInputRequired",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return true;
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isInputRequired\x0a\x09^ true",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRenamePackageCommand);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "p";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'p'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRenamePackageCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Rename package";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Rename package'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRenamePackageCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "menuLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Rename package...";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "menuLabel\x0a\x09^ 'Rename package...'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRenamePackageCommand.klass);
- $core.addClass('HLRenameProtocolCommand', $globals.HLRenameCommand, [], 'Helios-Commands-Tools');
- $core.addMethod(
- $core.method({
- selector: "category",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Protocols";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "category\x0a\x09^ 'Protocols'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRenameProtocolCommand);
- $core.addMethod(
- $core.method({
- selector: "defaultInput",
- protocol: 'defaults',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv(self._model())._selectedProtocol();
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"defaultInput",{},$globals.HLRenameProtocolCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "defaultInput\x0a\x09^ self model selectedProtocol",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["selectedProtocol", "model"]
- }),
- $globals.HLRenameProtocolCommand);
- $core.addMethod(
- $core.method({
- selector: "displayLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Rename protocol to:";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "displayLabel\x0a\x09^ 'Rename protocol to:'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRenameProtocolCommand);
- $core.addMethod(
- $core.method({
- selector: "execute",
- protocol: 'executing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $recv(self._model())._renameProtocolTo_(self._input());
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLRenameProtocolCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "execute\x0a\x09self model renameProtocolTo: self input",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["renameProtocolTo:", "model", "input"]
- }),
- $globals.HLRenameProtocolCommand);
- $core.addMethod(
- $core.method({
- selector: "isActive",
- protocol: 'testing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv($recv(self._model())._selectedProtocol())._notNil();
- return $1;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"isActive",{},$globals.HLRenameProtocolCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isActive\x0a\x09^ self model selectedProtocol notNil",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["notNil", "selectedProtocol", "model"]
- }),
- $globals.HLRenameProtocolCommand);
- $core.addMethod(
- $core.method({
- selector: "isInputRequired",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return true;
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isInputRequired\x0a\x09^ true",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRenameProtocolCommand);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "t";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 't'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRenameProtocolCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Rename protocol";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Rename protocol'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRenameProtocolCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "menuLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Rename protocol...";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "menuLabel\x0a\x09^ 'Rename protocol...'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLRenameProtocolCommand.klass);
- });
|