define(["amber/boot", "helios/Helios-Commands-Core"], function($boot){"use strict"; if(!("nilAsValue" in $boot))$boot.nilAsValue=$boot.nilAsReceiver; var $core=$boot.api,nil=$boot.nilAsValue,$nil=$boot.nilAsReceiver,$recv=$boot.asReceiver,$globals=$boot.globals; var $pkg = $core.addPackage("Helios-Commands-Tools"); $pkg.innerEval = function (expr) { return eval(expr); }; $pkg.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,$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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$self._new(); $recv($1)._model_(aToolModel); return $recv($1)._yourself(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"for:",{aToolModel:aToolModel},$globals.HLToolCommand.a$cls)}); //>>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.a$cls); $core.addMethod( $core.method({ selector: "isValidFor:", protocol: "testing", fn: function (aModel){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv(aModel)._isToolModel(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},$globals.HLToolCommand.a$cls)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aModel"], source: "isValidFor: aModel\x0a\x09^ aModel isToolModel", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["isToolModel"] }), $globals.HLToolCommand.a$cls); $core.addClass("HLBrowseMethodCommand", $globals.HLToolCommand, [], "Helios-Commands-Tools"); $core.addMethod( $core.method({ selector: "displayLabel", protocol: "accessing", fn: function (){ var self=this,$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,$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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv(aModel)._isReferencesModel(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},$globals.HLBrowseMethodCommand.a$cls)}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aModel"], source: "isValidFor: aModel\x0a\x09^ aModel isReferencesModel", referencedClasses: [], //>>excludeEnd("ide"); messageSends: ["isReferencesModel"] }), $globals.HLBrowseMethodCommand.a$cls); $core.addMethod( $core.method({ selector: "key", protocol: "accessing", fn: function (){ var self=this,$self=this; return "b"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "key\x0a\x09^ 'b'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLBrowseMethodCommand.a$cls); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "browse method"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ 'browse method'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLBrowseMethodCommand.a$cls); $core.addClass("HLCommitPackageCommand", $globals.HLToolCommand, [], "Helios-Commands-Tools"); $core.addMethod( $core.method({ selector: "category", protocol: "accessing", fn: function (){ var self=this,$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,$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,$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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv($globals.HLInformationWidget)._new(); $recv($1)._informationString_("Commit successful!"); $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,$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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($recv($globals.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,$self=this; return "k"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "key\x0a\x09^ 'k'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLCommitPackageCommand.a$cls); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Commit package"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ 'Commit package'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLCommitPackageCommand.a$cls); $core.addClass("HLCopyCommand", $globals.HLToolCommand, [], "Helios-Commands-Tools"); $core.addMethod( $core.method({ selector: "key", protocol: "accessing", fn: function (){ var self=this,$self=this; return "c"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "key\x0a\x09^ 'c'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLCopyCommand.a$cls); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Copy"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ 'Copy'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLCopyCommand.a$cls); $core.addClass("HLCopyClassCommand", $globals.HLCopyCommand, [], "Helios-Commands-Tools"); $core.addMethod( $core.method({ selector: "category", protocol: "accessing", fn: function (){ var self=this,$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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($recv($recv($self._model())._selectedClass())._theNonMetaClass())._name(); //>>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,$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,$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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($recv($self._model())._selectedClass())._notNil(); //>>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,$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,$self=this; return "c"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "key\x0a\x09^ 'c'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLCopyClassCommand.a$cls); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Copy class"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ 'Copy class'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLCopyClassCommand.a$cls); $core.addMethod( $core.method({ selector: "menuLabel", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Copy class..."; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "menuLabel\x0a\x09^ 'Copy class...'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLCopyClassCommand.a$cls); $core.addClass("HLFindCommand", $globals.HLToolCommand, [], "Helios-Commands-Tools"); $core.addMethod( $core.method({ selector: "key", protocol: "accessing", fn: function (){ var self=this,$self=this; return "f"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "key\x0a\x09^ 'f'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLFindCommand.a$cls); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Find"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ 'Find'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLFindCommand.a$cls); $core.addClass("HLFindClassCommand", $globals.HLFindCommand, [], "Helios-Commands-Tools"); $core.addMethod( $core.method({ selector: "displayLabel", protocol: "accessing", fn: function (){ var self=this,$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,$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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($self._model())._availableClassNames(); //>>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,$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,$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,$self=this; return "c"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "key\x0a\x09^ 'c'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLFindClassCommand.a$cls); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Find class"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ 'Find class'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLFindClassCommand.a$cls); $core.addClass("HLFindReferencesCommand", $globals.HLFindCommand, [], "Helios-Commands-Tools"); $core.addMethod( $core.method({ selector: "defaultInput", protocol: "defaults", fn: function (){ var self=this,$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.a$nil){ $4=$recv($self._model())._selectedClass(); if(($receiver = $4) == null || $receiver.a$nil){ $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,$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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv($globals.HLReferences)._new(); $recv($1)._openAsTab(); $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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $2,$1; $2=$self._model(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["model"]=1; //>>excludeEnd("ctx"); $1=$recv($2)._availableClassNames(); return $recv($1).__comma($recv($self._model())._allSelectors()); //>>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,$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,$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,$self=this; return "r"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "key\x0a\x09^ 'r'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLFindReferencesCommand.a$cls); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Find references"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ 'Find references'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLFindReferencesCommand.a$cls); $core.addClass("HLMoveToCommand", $globals.HLToolCommand, [], "Helios-Commands-Tools"); $core.addMethod( $core.method({ selector: "key", protocol: "accessing", fn: function (){ var self=this,$self=this; return "m"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "key\x0a\x09^ 'm'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLMoveToCommand.a$cls); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Move"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ 'Move'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLMoveToCommand.a$cls); $core.addClass("HLMoveClassToCommand", $globals.HLMoveToCommand, [], "Helios-Commands-Tools"); $core.addMethod( $core.method({ selector: "isActive", protocol: "testing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($recv($self._model())._selectedClass())._notNil(); //>>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,$self=this; return "c"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "key\x0a\x09^ 'c'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLMoveClassToCommand.a$cls); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Move class"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ 'Move class'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLMoveClassToCommand.a$cls); $core.addClass("HLMoveClassToPackageCommand", $globals.HLMoveClassToCommand, [], "Helios-Commands-Tools"); $core.addMethod( $core.method({ selector: "category", protocol: "accessing", fn: function (){ var self=this,$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,$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,$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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($self._model())._availablePackageNames(); //>>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,$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,$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,$self=this; return "p"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "key\x0a\x09^ 'p'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLMoveClassToPackageCommand.a$cls); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$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.a$cls); $core.addMethod( $core.method({ selector: "menuLabel", protocol: "accessing", fn: function (){ var self=this,$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.a$cls); $core.addClass("HLMoveMethodToCommand", $globals.HLMoveToCommand, [], "Helios-Commands-Tools"); $core.addMethod( $core.method({ selector: "category", protocol: "accessing", fn: function (){ var self=this,$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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($recv($self._model())._selectedMethod())._notNil(); //>>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,$self=this; return "m"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "key\x0a\x09^ 'm'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLMoveMethodToCommand.a$cls); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Move method"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ 'Move method'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLMoveMethodToCommand.a$cls); $core.addClass("HLMoveMethodToClassCommand", $globals.HLMoveMethodToCommand, [], "Helios-Commands-Tools"); $core.addMethod( $core.method({ selector: "displayLabel", protocol: "accessing", fn: function (){ var self=this,$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,$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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($self._model())._availableClassNames(); //>>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,$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,$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,$self=this; return "c"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "key\x0a\x09^ 'c'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLMoveMethodToClassCommand.a$cls); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$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.a$cls); $core.addMethod( $core.method({ selector: "menuLabel", protocol: "accessing", fn: function (){ var self=this,$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.a$cls); $core.addClass("HLMoveMethodToProtocolCommand", $globals.HLMoveMethodToCommand, [], "Helios-Commands-Tools"); $core.addMethod( $core.method({ selector: "displayLabel", protocol: "accessing", fn: function (){ var self=this,$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,$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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($self._model())._availableProtocols(); //>>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,$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,$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,$self=this; return "t"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "key\x0a\x09^ 't'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLMoveMethodToProtocolCommand.a$cls); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$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.a$cls); $core.addMethod( $core.method({ selector: "menuLabel", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Move to protocol..."; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "menuLabel\x0a\x09^ 'Move to protocol...'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLMoveMethodToProtocolCommand.a$cls); $core.addClass("HLRemoveCommand", $globals.HLToolCommand, [], "Helios-Commands-Tools"); $core.addMethod( $core.method({ selector: "key", protocol: "accessing", fn: function (){ var self=this,$self=this; return "x"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "key\x0a\x09^ 'x'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRemoveCommand.a$cls); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Remove"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ 'Remove'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRemoveCommand.a$cls); $core.addClass("HLRemoveClassCommand", $globals.HLRemoveCommand, [], "Helios-Commands-Tools"); $core.addMethod( $core.method({ selector: "category", protocol: "accessing", fn: function (){ var self=this,$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,$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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($recv($self._model())._selectedClass())._notNil(); //>>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,$self=this; return "c"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "key\x0a\x09^ 'c'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRemoveClassCommand.a$cls); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Remove class"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ 'Remove class'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRemoveClassCommand.a$cls); $core.addMethod( $core.method({ selector: "menuLabel", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Remove class"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "menuLabel\x0a\x09^ 'Remove class'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRemoveClassCommand.a$cls); $core.addClass("HLRemoveMethodCommand", $globals.HLRemoveCommand, [], "Helios-Commands-Tools"); $core.addMethod( $core.method({ selector: "category", protocol: "accessing", fn: function (){ var self=this,$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,$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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($recv($self._model())._selectedMethod())._notNil(); //>>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,$self=this; return "m"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "key\x0a\x09^ 'm'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRemoveMethodCommand.a$cls); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Remove method"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ 'Remove method'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRemoveMethodCommand.a$cls); $core.addMethod( $core.method({ selector: "menuLabel", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Remove method"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "menuLabel\x0a\x09^ 'Remove method'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRemoveMethodCommand.a$cls); $core.addClass("HLRemoveProtocolCommand", $globals.HLRemoveCommand, [], "Helios-Commands-Tools"); $core.addMethod( $core.method({ selector: "category", protocol: "accessing", fn: function (){ var self=this,$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,$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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($recv($self._model())._selectedProtocol())._notNil(); //>>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,$self=this; return "t"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "key\x0a\x09^ 't'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRemoveProtocolCommand.a$cls); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Remove protocol"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ 'Remove protocol'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRemoveProtocolCommand.a$cls); $core.addMethod( $core.method({ selector: "menuLabel", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Remove protocol"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "menuLabel\x0a\x09^ 'Remove protocol'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRemoveProtocolCommand.a$cls); $core.addClass("HLRenameCommand", $globals.HLToolCommand, [], "Helios-Commands-Tools"); $core.addMethod( $core.method({ selector: "key", protocol: "accessing", fn: function (){ var self=this,$self=this; return "r"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "key\x0a\x09^ 'r'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRenameCommand.a$cls); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Rename"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ 'Rename'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRenameCommand.a$cls); $core.addClass("HLRenameClassCommand", $globals.HLRenameCommand, [], "Helios-Commands-Tools"); $core.addMethod( $core.method({ selector: "category", protocol: "accessing", fn: function (){ var self=this,$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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($recv($recv($self._model())._selectedClass())._theNonMetaClass())._name(); //>>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,$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,$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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($recv($self._model())._selectedClass())._notNil(); //>>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,$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,$self=this; return "c"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "key\x0a\x09^ 'c'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRenameClassCommand.a$cls); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Rename class"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ 'Rename class'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRenameClassCommand.a$cls); $core.addMethod( $core.method({ selector: "menuLabel", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Rename class..."; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "menuLabel\x0a\x09^ 'Rename class...'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRenameClassCommand.a$cls); $core.addClass("HLRenamePackageCommand", $globals.HLRenameCommand, [], "Helios-Commands-Tools"); $core.addMethod( $core.method({ selector: "category", protocol: "accessing", fn: function (){ var self=this,$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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($recv($self._model())._selectedPackage())._name(); //>>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,$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,$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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($recv($self._model())._selectedPackage())._notNil(); //>>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,$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,$self=this; return "p"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "key\x0a\x09^ 'p'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRenamePackageCommand.a$cls); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Rename package"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ 'Rename package'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRenamePackageCommand.a$cls); $core.addMethod( $core.method({ selector: "menuLabel", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Rename package..."; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "menuLabel\x0a\x09^ 'Rename package...'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRenamePackageCommand.a$cls); $core.addClass("HLRenameProtocolCommand", $globals.HLRenameCommand, [], "Helios-Commands-Tools"); $core.addMethod( $core.method({ selector: "category", protocol: "accessing", fn: function (){ var self=this,$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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($self._model())._selectedProtocol(); //>>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,$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,$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,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($recv($self._model())._selectedProtocol())._notNil(); //>>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,$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,$self=this; return "t"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "key\x0a\x09^ 't'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRenameProtocolCommand.a$cls); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Rename protocol"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ 'Rename protocol'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRenameProtocolCommand.a$cls); $core.addMethod( $core.method({ selector: "menuLabel", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Rename protocol..."; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "menuLabel\x0a\x09^ 'Rename protocol...'", referencedClasses: [], //>>excludeEnd("ide"); messageSends: [] }), $globals.HLRenameProtocolCommand.a$cls); });