helios/src/Helios-Commands-Tools.js

define(["amber/boot", "helios/Helios-Commands-Core"], function($boot){"use strict";
if(!$boot.nilAsReceiver)$boot.nilAsReceiver=$boot.nil;
var $core=$boot.api,nil=$boot.nilAsReceiver,$recv=$boot.asReceiver,$globals=$boot.globals;
if(!$boot.nilAsClass)$boot.nilAsClass=$boot.dnu;
$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 $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;
//>>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;
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");
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;
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;
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;
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;
//>>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;
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;
//>>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;
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;
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;
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;
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;
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");
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;
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");
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;
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.a$cls);

$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.a$cls);

$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.a$cls);


$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.a$cls);

$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.a$cls);


$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");
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;
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.a$cls);

$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.a$cls);


$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.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;
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;
//>>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;
//>>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;
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.a$cls);

$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.a$cls);


$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.a$cls);

$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.a$cls);


$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");
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;
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;
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;
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");
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;
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.a$cls);

$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.a$cls);

$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.a$cls);


$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");
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;
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;
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;
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");
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;
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.a$cls);

$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.a$cls);

$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.a$cls);


$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");
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;
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.a$cls);

$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.a$cls);

$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.a$cls);


$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.a$cls);

$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.a$cls);


$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");
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;
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;
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;
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;
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");
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;
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;
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;
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;
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");
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;
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;
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;
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;
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;
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;
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");
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;
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");
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;
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.a$cls);

$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.a$cls);

$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.a$cls);


$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");
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;
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");
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;
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.a$cls);

$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.a$cls);

$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.a$cls);


$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");
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;
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");
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;
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.a$cls);

$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.a$cls);

$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.a$cls);

});