define("amber_core/Helios-Commands-Tools", ["amber_vm/smalltalk", "amber_vm/nil", "amber_vm/_st", "amber_core/Helios-Commands-Core"], function(smalltalk,nil,_st){ smalltalk.addPackage('Helios-Commands-Tools'); smalltalk.packages["Helios-Commands-Tools"].transport = {"type":"amd","amdNamespace":"amber_core"}; smalltalk.addClass('HLToolCommand', smalltalk.HLModelCommand, [], 'Helios-Commands-Tools'); smalltalk.addMethod( smalltalk.method({ selector: "category", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return nil; }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLToolCommand)})}, args: [], source: "category\x0a\x09^ nil", messageSends: [], referencedClasses: [] }), smalltalk.HLToolCommand); smalltalk.addMethod( smalltalk.method({ selector: "for:", category: 'instance creation', fn: function (aToolModel){ var self=this; return smalltalk.withContext(function($ctx1) { var $2,$3,$1; $2=self._new(); _st($2)._model_(aToolModel); $3=_st($2)._yourself(); $1=$3; return $1; }, function($ctx1) {$ctx1.fill(self,"for:",{aToolModel:aToolModel},smalltalk.HLToolCommand.klass)})}, args: ["aToolModel"], source: "for: aToolModel\x0a\x09^ self new\x0a \x09model: aToolModel;\x0a yourself", messageSends: ["model:", "new", "yourself"], referencedClasses: [] }), smalltalk.HLToolCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "isValidFor:", category: 'testing', fn: function (aModel){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(aModel)._isToolModel(); return $1; }, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},smalltalk.HLToolCommand.klass)})}, args: ["aModel"], source: "isValidFor: aModel\x0a\x09^ aModel isToolModel", messageSends: ["isToolModel"], referencedClasses: [] }), smalltalk.HLToolCommand.klass); smalltalk.addClass('HLCommitPackageCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools'); smalltalk.addMethod( smalltalk.method({ selector: "category", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Packages"; }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLCommitPackageCommand)})}, args: [], source: "category\x0a\x09^ 'Packages'", messageSends: [], referencedClasses: [] }), smalltalk.HLCommitPackageCommand); smalltalk.addMethod( smalltalk.method({ selector: "execute", category: 'executing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self._model())._commitPackage(); return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLCommitPackageCommand)})}, args: [], source: "execute\x0a\x09self model commitPackage", messageSends: ["commitPackage", "model"], referencedClasses: [] }), smalltalk.HLCommitPackageCommand); smalltalk.addMethod( smalltalk.method({ selector: "isActive", category: 'testing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return true; }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLCommitPackageCommand)})}, args: [], source: "isActive\x0a\x09^ true\x0a\x09\x22 slf model isPackageDirty\x22", messageSends: [], referencedClasses: [] }), smalltalk.HLCommitPackageCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "k"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCommitPackageCommand.klass)})}, args: [], source: "key\x0a\x09^ 'k'", messageSends: [], referencedClasses: [] }), smalltalk.HLCommitPackageCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Commit"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLCommitPackageCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Commit'", messageSends: [], referencedClasses: [] }), smalltalk.HLCommitPackageCommand.klass); smalltalk.addClass('HLCopyCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools'); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "c"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCopyCommand.klass)})}, args: [], source: "key\x0a\x09^ 'c'", messageSends: [], referencedClasses: [] }), smalltalk.HLCopyCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Copy"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLCopyCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Copy'", messageSends: [], referencedClasses: [] }), smalltalk.HLCopyCommand.klass); smalltalk.addClass('HLCopyClassCommand', smalltalk.HLCopyCommand, [], 'Helios-Commands-Tools'); smalltalk.addMethod( smalltalk.method({ selector: "category", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Classes"; }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLCopyClassCommand)})}, args: [], source: "category\x0a\x09^ 'Classes'", messageSends: [], referencedClasses: [] }), smalltalk.HLCopyClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "defaultInput", category: 'defaults', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(_st(self._model())._selectedClass())._name(); return $1; }, function($ctx1) {$ctx1.fill(self,"defaultInput",{},smalltalk.HLCopyClassCommand)})}, args: [], source: "defaultInput\x0a\x09^ self model selectedClass name", messageSends: ["name", "selectedClass", "model"], referencedClasses: [] }), smalltalk.HLCopyClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "displayLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "New class name:"; }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLCopyClassCommand)})}, args: [], source: "displayLabel\x0a\x09^ 'New class name:'", messageSends: [], referencedClasses: [] }), smalltalk.HLCopyClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "execute", category: 'executing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self._model())._copyClassTo_(self._input()); return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLCopyClassCommand)})}, args: [], source: "execute\x0a\x09self model copyClassTo: self input", messageSends: ["copyClassTo:", "model", "input"], referencedClasses: [] }), smalltalk.HLCopyClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "isActive", category: 'testing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(_st(self._model())._selectedClass())._notNil(); return $1; }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLCopyClassCommand)})}, args: [], source: "isActive\x0a\x09^ self model selectedClass notNil", messageSends: ["notNil", "selectedClass", "model"], referencedClasses: [] }), smalltalk.HLCopyClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "isInputRequired", category: 'testing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return true; }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLCopyClassCommand)})}, args: [], source: "isInputRequired\x0a\x09^ true", messageSends: [], referencedClasses: [] }), smalltalk.HLCopyClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "c"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLCopyClassCommand.klass)})}, args: [], source: "key\x0a\x09^ 'c'", messageSends: [], referencedClasses: [] }), smalltalk.HLCopyClassCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Class"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLCopyClassCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Class'", messageSends: [], referencedClasses: [] }), smalltalk.HLCopyClassCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "menuLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Copy class..."; }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLCopyClassCommand.klass)})}, args: [], source: "menuLabel\x0a\x09^ 'Copy class...'", messageSends: [], referencedClasses: [] }), smalltalk.HLCopyClassCommand.klass); smalltalk.addClass('HLFindCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools'); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "f"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLFindCommand.klass)})}, args: [], source: "key\x0a\x09^ 'f'", messageSends: [], referencedClasses: [] }), smalltalk.HLFindCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Find"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLFindCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Find'", messageSends: [], referencedClasses: [] }), smalltalk.HLFindCommand.klass); smalltalk.addClass('HLFindClassCommand', smalltalk.HLFindCommand, [], 'Helios-Commands-Tools'); smalltalk.addMethod( smalltalk.method({ selector: "displayLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "select a class"; }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLFindClassCommand)})}, args: [], source: "displayLabel\x0a\x09^ 'select a class'", messageSends: [], referencedClasses: [] }), smalltalk.HLFindClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "execute", category: 'executing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self._model())._openClassNamed_(self._input()); return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLFindClassCommand)})}, args: [], source: "execute\x0a\x09self model openClassNamed: self input", messageSends: ["openClassNamed:", "model", "input"], referencedClasses: [] }), smalltalk.HLFindClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "inputCompletion", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(self._model())._availableClassNames(); return $1; }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLFindClassCommand)})}, args: [], source: "inputCompletion\x0a\x09^ self model availableClassNames", messageSends: ["availableClassNames", "model"], referencedClasses: [] }), smalltalk.HLFindClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "inputLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Find a class"; }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLFindClassCommand)})}, args: [], source: "inputLabel\x0a\x09^ 'Find a class'", messageSends: [], referencedClasses: [] }), smalltalk.HLFindClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "isInputRequired", category: 'testing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return true; }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLFindClassCommand)})}, args: [], source: "isInputRequired\x0a\x09^ true", messageSends: [], referencedClasses: [] }), smalltalk.HLFindClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "isValidFor:", category: 'testing', fn: function (aModel){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(aModel)._isBrowserModel(); return $1; }, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},smalltalk.HLFindClassCommand.klass)})}, args: ["aModel"], source: "isValidFor: aModel\x0a\x09^ aModel isBrowserModel", messageSends: ["isBrowserModel"], referencedClasses: [] }), smalltalk.HLFindClassCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "c"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLFindClassCommand.klass)})}, args: [], source: "key\x0a\x09^ 'c'", messageSends: [], referencedClasses: [] }), smalltalk.HLFindClassCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Class"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLFindClassCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Class'", messageSends: [], referencedClasses: [] }), smalltalk.HLFindClassCommand.klass); smalltalk.addClass('HLFindReferencesCommand', smalltalk.HLFindCommand, [], 'Helios-Commands-Tools'); smalltalk.addMethod( smalltalk.method({ selector: "defaultInput", category: 'defaults', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $3,$2,$4,$1; $3=self._model(); $ctx1.sendIdx["model"]=1; $2=_st($3)._selectedMethod(); if(($receiver = $2) == nil || $receiver == null){ $4=_st(self._model())._selectedClass(); if(($receiver = $4) == nil || $receiver == null){ $1=""; } else { var class_; class_=$receiver; $1=_st(class_)._name(); }; } else { var method; method=$receiver; $1=_st(method)._selector(); }; return $1; }, function($ctx1) {$ctx1.fill(self,"defaultInput",{},smalltalk.HLFindReferencesCommand)})}, 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 name ] ]\x0a\x09\x09ifNotNil: [ :method | method selector ]", messageSends: ["ifNil:ifNotNil:", "selectedMethod", "model", "selectedClass", "name", "selector"], referencedClasses: [] }), smalltalk.HLFindReferencesCommand); smalltalk.addMethod( smalltalk.method({ selector: "displayLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "find references"; }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLFindReferencesCommand)})}, args: [], source: "displayLabel\x0a\x09^ 'find references'", messageSends: [], referencedClasses: [] }), smalltalk.HLFindReferencesCommand); smalltalk.addMethod( smalltalk.method({ selector: "execute", category: 'executing', fn: function (){ var self=this; function $HLReferences(){return smalltalk.HLReferences||(typeof HLReferences=="undefined"?nil:HLReferences)} return smalltalk.withContext(function($ctx1) { var $1,$2; $1=_st($HLReferences())._new(); _st($1)._openAsTab(); $2=_st($1)._search_(self._input()); return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLFindReferencesCommand)})}, args: [], source: "execute\x0a\x09HLReferences new \x0a\x09\x09openAsTab;\x0a\x09\x09search: self input", messageSends: ["openAsTab", "new", "search:", "input"], referencedClasses: ["HLReferences"] }), smalltalk.HLFindReferencesCommand); smalltalk.addMethod( smalltalk.method({ selector: "inputCompletion", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $3,$2,$1; $3=self._model(); $ctx1.sendIdx["model"]=1; $2=_st($3)._availableClassNames(); $1=_st($2).__comma(_st(self._model())._allSelectors()); return $1; }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLFindReferencesCommand)})}, args: [], source: "inputCompletion\x0a\x09^ self model availableClassNames, self model allSelectors", messageSends: [",", "availableClassNames", "model", "allSelectors"], referencedClasses: [] }), smalltalk.HLFindReferencesCommand); smalltalk.addMethod( smalltalk.method({ selector: "inputLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Find references of"; }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLFindReferencesCommand)})}, args: [], source: "inputLabel\x0a\x09^ 'Find references of'", messageSends: [], referencedClasses: [] }), smalltalk.HLFindReferencesCommand); smalltalk.addMethod( smalltalk.method({ selector: "isInputRequired", category: 'testing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return true; }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLFindReferencesCommand)})}, args: [], source: "isInputRequired\x0a\x09^ true", messageSends: [], referencedClasses: [] }), smalltalk.HLFindReferencesCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "r"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLFindReferencesCommand.klass)})}, args: [], source: "key\x0a\x09^ 'r'", messageSends: [], referencedClasses: [] }), smalltalk.HLFindReferencesCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "References"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLFindReferencesCommand.klass)})}, args: [], source: "label\x0a\x09^ 'References'", messageSends: [], referencedClasses: [] }), smalltalk.HLFindReferencesCommand.klass); smalltalk.addClass('HLMoveToCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools'); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "m"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveToCommand.klass)})}, args: [], source: "key\x0a\x09^ 'm'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveToCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Move"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveToCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Move'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveToCommand.klass); smalltalk.addClass('HLMoveClassToCommand', smalltalk.HLMoveToCommand, [], 'Helios-Commands-Tools'); smalltalk.addMethod( smalltalk.method({ selector: "isActive", category: 'testing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(_st(self._model())._selectedClass())._notNil(); return $1; }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLMoveClassToCommand)})}, args: [], source: "isActive\x0a\x09^ self model selectedClass notNil", messageSends: ["notNil", "selectedClass", "model"], referencedClasses: [] }), smalltalk.HLMoveClassToCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "c"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveClassToCommand.klass)})}, args: [], source: "key\x0a\x09^ 'c'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveClassToCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Class"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveClassToCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Class'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveClassToCommand.klass); smalltalk.addClass('HLMoveClassToPackageCommand', smalltalk.HLMoveClassToCommand, [], 'Helios-Commands-Tools'); smalltalk.addMethod( smalltalk.method({ selector: "category", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Classes"; }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLMoveClassToPackageCommand)})}, args: [], source: "category\x0a\x09^ 'Classes'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveClassToPackageCommand); smalltalk.addMethod( smalltalk.method({ selector: "displayLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "select a package"; }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLMoveClassToPackageCommand)})}, args: [], source: "displayLabel\x0a\x09^ 'select a package'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveClassToPackageCommand); smalltalk.addMethod( smalltalk.method({ selector: "execute", category: 'executing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self._model())._moveClassToPackage_(self._input()); return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLMoveClassToPackageCommand)})}, args: [], source: "execute\x0a\x09self model moveClassToPackage: self input", messageSends: ["moveClassToPackage:", "model", "input"], referencedClasses: [] }), smalltalk.HLMoveClassToPackageCommand); smalltalk.addMethod( smalltalk.method({ selector: "inputCompletion", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(self._model())._availablePackageNames(); return $1; }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLMoveClassToPackageCommand)})}, args: [], source: "inputCompletion\x0a\x09^ self model availablePackageNames", messageSends: ["availablePackageNames", "model"], referencedClasses: [] }), smalltalk.HLMoveClassToPackageCommand); smalltalk.addMethod( smalltalk.method({ selector: "inputLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Move class to package:"; }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLMoveClassToPackageCommand)})}, args: [], source: "inputLabel\x0a\x09^ 'Move class to package:'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveClassToPackageCommand); smalltalk.addMethod( smalltalk.method({ selector: "isInputRequired", category: 'testing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return true; }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLMoveClassToPackageCommand)})}, args: [], source: "isInputRequired\x0a\x09^ true", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveClassToPackageCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "p"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveClassToPackageCommand.klass)})}, args: [], source: "key\x0a\x09^ 'p'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveClassToPackageCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "to package"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveClassToPackageCommand.klass)})}, args: [], source: "label\x0a\x09^ 'to package'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveClassToPackageCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "menuLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Move to package..."; }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLMoveClassToPackageCommand.klass)})}, args: [], source: "menuLabel\x09\x0a\x09^ 'Move to package...'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveClassToPackageCommand.klass); smalltalk.addClass('HLMoveMethodToCommand', smalltalk.HLMoveToCommand, [], 'Helios-Commands-Tools'); smalltalk.addMethod( smalltalk.method({ selector: "category", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Methods"; }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLMoveMethodToCommand)})}, args: [], source: "category\x0a\x09^ 'Methods'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveMethodToCommand); smalltalk.addMethod( smalltalk.method({ selector: "isActive", category: 'testing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(_st(self._model())._selectedMethod())._notNil(); return $1; }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLMoveMethodToCommand)})}, args: [], source: "isActive\x0a\x09^ self model selectedMethod notNil", messageSends: ["notNil", "selectedMethod", "model"], referencedClasses: [] }), smalltalk.HLMoveMethodToCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "m"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToCommand.klass)})}, args: [], source: "key\x0a\x09^ 'm'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveMethodToCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Method"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Method'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveMethodToCommand.klass); smalltalk.addClass('HLMoveMethodToClassCommand', smalltalk.HLMoveMethodToCommand, [], 'Helios-Commands-Tools'); smalltalk.addMethod( smalltalk.method({ selector: "displayLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "select a class"; }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLMoveMethodToClassCommand)})}, args: [], source: "displayLabel\x0a\x09^ 'select a class'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveMethodToClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "execute", category: 'executing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self._model())._moveMethodToClass_(self._input()); return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLMoveMethodToClassCommand)})}, args: [], source: "execute\x0a\x09self model moveMethodToClass: self input", messageSends: ["moveMethodToClass:", "model", "input"], referencedClasses: [] }), smalltalk.HLMoveMethodToClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "inputCompletion", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(self._model())._availableClassNames(); return $1; }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLMoveMethodToClassCommand)})}, args: [], source: "inputCompletion\x0a\x09^ self model availableClassNames", messageSends: ["availableClassNames", "model"], referencedClasses: [] }), smalltalk.HLMoveMethodToClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "inputLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Move method to class:"; }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLMoveMethodToClassCommand)})}, args: [], source: "inputLabel\x0a\x09^ 'Move method to class:'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveMethodToClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "isInputRequired", category: 'testing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return true; }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLMoveMethodToClassCommand)})}, args: [], source: "isInputRequired\x0a\x09^ true", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveMethodToClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "c"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToClassCommand.klass)})}, args: [], source: "key\x0a\x09^ 'c'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveMethodToClassCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "to class"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToClassCommand.klass)})}, args: [], source: "label\x09\x0a\x09^ 'to class'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveMethodToClassCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "menuLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Move to class..."; }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLMoveMethodToClassCommand.klass)})}, args: [], source: "menuLabel\x09\x0a\x09^ 'Move to class...'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveMethodToClassCommand.klass); smalltalk.addClass('HLMoveMethodToProtocolCommand', smalltalk.HLMoveMethodToCommand, [], 'Helios-Commands-Tools'); smalltalk.addMethod( smalltalk.method({ selector: "displayLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "select a protocol"; }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLMoveMethodToProtocolCommand)})}, args: [], source: "displayLabel\x0a\x09^ 'select a protocol'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveMethodToProtocolCommand); smalltalk.addMethod( smalltalk.method({ selector: "execute", category: 'executing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self._model())._moveMethodToProtocol_(self._input()); return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLMoveMethodToProtocolCommand)})}, args: [], source: "execute\x0a\x09self model moveMethodToProtocol: self input", messageSends: ["moveMethodToProtocol:", "model", "input"], referencedClasses: [] }), smalltalk.HLMoveMethodToProtocolCommand); smalltalk.addMethod( smalltalk.method({ selector: "inputCompletion", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(self._model())._availableProtocols(); return $1; }, function($ctx1) {$ctx1.fill(self,"inputCompletion",{},smalltalk.HLMoveMethodToProtocolCommand)})}, args: [], source: "inputCompletion\x0a\x09^ self model availableProtocols", messageSends: ["availableProtocols", "model"], referencedClasses: [] }), smalltalk.HLMoveMethodToProtocolCommand); smalltalk.addMethod( smalltalk.method({ selector: "inputLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Move method to a protocol:"; }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},smalltalk.HLMoveMethodToProtocolCommand)})}, args: [], source: "inputLabel\x0a\x09^ 'Move method to a protocol:'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveMethodToProtocolCommand); smalltalk.addMethod( smalltalk.method({ selector: "isInputRequired", category: 'testing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return true; }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLMoveMethodToProtocolCommand)})}, args: [], source: "isInputRequired\x0a\x09^ true", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveMethodToProtocolCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "t"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})}, args: [], source: "key\x0a\x09^ 't'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveMethodToProtocolCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "to protocol"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})}, args: [], source: "label\x0a\x09^ 'to protocol'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveMethodToProtocolCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "menuLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Move to protocol..."; }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLMoveMethodToProtocolCommand.klass)})}, args: [], source: "menuLabel\x0a\x09^ 'Move to protocol...'", messageSends: [], referencedClasses: [] }), smalltalk.HLMoveMethodToProtocolCommand.klass); smalltalk.addClass('HLRemoveCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools'); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "x"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveCommand.klass)})}, args: [], source: "key\x0a\x09^ 'x'", messageSends: [], referencedClasses: [] }), smalltalk.HLRemoveCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Remove"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRemoveCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Remove'", messageSends: [], referencedClasses: [] }), smalltalk.HLRemoveCommand.klass); smalltalk.addClass('HLRemoveClassCommand', smalltalk.HLRemoveCommand, [], 'Helios-Commands-Tools'); smalltalk.addMethod( smalltalk.method({ selector: "category", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Classes"; }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLRemoveClassCommand)})}, args: [], source: "category\x0a\x09^ 'Classes'", messageSends: [], referencedClasses: [] }), smalltalk.HLRemoveClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "execute", category: 'executing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self._model())._removeClass(); return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLRemoveClassCommand)})}, args: [], source: "execute\x0a\x09self model removeClass", messageSends: ["removeClass", "model"], referencedClasses: [] }), smalltalk.HLRemoveClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "isActive", category: 'testing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(_st(self._model())._selectedClass())._notNil(); return $1; }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLRemoveClassCommand)})}, args: [], source: "isActive\x0a\x09^ self model selectedClass notNil", messageSends: ["notNil", "selectedClass", "model"], referencedClasses: [] }), smalltalk.HLRemoveClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "c"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveClassCommand.klass)})}, args: [], source: "key\x0a\x09^ 'c'", messageSends: [], referencedClasses: [] }), smalltalk.HLRemoveClassCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Class"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRemoveClassCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Class'", messageSends: [], referencedClasses: [] }), smalltalk.HLRemoveClassCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "menuLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Remove class"; }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLRemoveClassCommand.klass)})}, args: [], source: "menuLabel\x0a\x09^ 'Remove class'", messageSends: [], referencedClasses: [] }), smalltalk.HLRemoveClassCommand.klass); smalltalk.addClass('HLRemoveMethodCommand', smalltalk.HLRemoveCommand, [], 'Helios-Commands-Tools'); smalltalk.addMethod( smalltalk.method({ selector: "category", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Methods"; }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLRemoveMethodCommand)})}, args: [], source: "category\x0a\x09^ 'Methods'", messageSends: [], referencedClasses: [] }), smalltalk.HLRemoveMethodCommand); smalltalk.addMethod( smalltalk.method({ selector: "execute", category: 'executing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self._model())._removeMethod(); return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLRemoveMethodCommand)})}, args: [], source: "execute\x0a\x09self model removeMethod", messageSends: ["removeMethod", "model"], referencedClasses: [] }), smalltalk.HLRemoveMethodCommand); smalltalk.addMethod( smalltalk.method({ selector: "isActive", category: 'testing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(_st(self._model())._selectedMethod())._notNil(); return $1; }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLRemoveMethodCommand)})}, args: [], source: "isActive\x0a\x09^ self model selectedMethod notNil", messageSends: ["notNil", "selectedMethod", "model"], referencedClasses: [] }), smalltalk.HLRemoveMethodCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "m"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveMethodCommand.klass)})}, args: [], source: "key\x0a\x09^ 'm'", messageSends: [], referencedClasses: [] }), smalltalk.HLRemoveMethodCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Method"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRemoveMethodCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Method'", messageSends: [], referencedClasses: [] }), smalltalk.HLRemoveMethodCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "menuLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Remove method"; }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLRemoveMethodCommand.klass)})}, args: [], source: "menuLabel\x0a\x09^ 'Remove method'", messageSends: [], referencedClasses: [] }), smalltalk.HLRemoveMethodCommand.klass); smalltalk.addClass('HLRemoveProtocolCommand', smalltalk.HLRemoveCommand, [], 'Helios-Commands-Tools'); smalltalk.addMethod( smalltalk.method({ selector: "category", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Protocols"; }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLRemoveProtocolCommand)})}, args: [], source: "category\x0a\x09^ 'Protocols'", messageSends: [], referencedClasses: [] }), smalltalk.HLRemoveProtocolCommand); smalltalk.addMethod( smalltalk.method({ selector: "execute", category: 'executing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self._model())._removeProtocol(); return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLRemoveProtocolCommand)})}, args: [], source: "execute\x0a\x09self model removeProtocol", messageSends: ["removeProtocol", "model"], referencedClasses: [] }), smalltalk.HLRemoveProtocolCommand); smalltalk.addMethod( smalltalk.method({ selector: "isActive", category: 'testing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(_st(self._model())._selectedProtocol())._notNil(); return $1; }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLRemoveProtocolCommand)})}, args: [], source: "isActive\x0a\x09^ self model selectedProtocol notNil", messageSends: ["notNil", "selectedProtocol", "model"], referencedClasses: [] }), smalltalk.HLRemoveProtocolCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "t"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRemoveProtocolCommand.klass)})}, args: [], source: "key\x0a\x09^ 't'", messageSends: [], referencedClasses: [] }), smalltalk.HLRemoveProtocolCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Protocol"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRemoveProtocolCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Protocol'", messageSends: [], referencedClasses: [] }), smalltalk.HLRemoveProtocolCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "menuLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Remove protocol"; }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLRemoveProtocolCommand.klass)})}, args: [], source: "menuLabel\x0a\x09^ 'Remove protocol'", messageSends: [], referencedClasses: [] }), smalltalk.HLRemoveProtocolCommand.klass); smalltalk.addClass('HLRenameCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Tools'); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "r"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRenameCommand.klass)})}, args: [], source: "key\x0a\x09^ 'r'", messageSends: [], referencedClasses: [] }), smalltalk.HLRenameCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Rename"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRenameCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Rename'", messageSends: [], referencedClasses: [] }), smalltalk.HLRenameCommand.klass); smalltalk.addClass('HLRenameClassCommand', smalltalk.HLRenameCommand, [], 'Helios-Commands-Tools'); smalltalk.addMethod( smalltalk.method({ selector: "category", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Classes"; }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLRenameClassCommand)})}, args: [], source: "category\x0a\x09^ 'Classes'", messageSends: [], referencedClasses: [] }), smalltalk.HLRenameClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "defaultInput", category: 'defaults', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(_st(_st(self._model())._selectedClass())._theNonMetaClass())._name(); return $1; }, function($ctx1) {$ctx1.fill(self,"defaultInput",{},smalltalk.HLRenameClassCommand)})}, args: [], source: "defaultInput\x0a\x09^ self model selectedClass theNonMetaClass name", messageSends: ["name", "theNonMetaClass", "selectedClass", "model"], referencedClasses: [] }), smalltalk.HLRenameClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "displayLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Rename class to:"; }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLRenameClassCommand)})}, args: [], source: "displayLabel\x0a\x09^ 'Rename class to:'", messageSends: [], referencedClasses: [] }), smalltalk.HLRenameClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "execute", category: 'executing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self._model())._renameClassTo_(self._input()); return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLRenameClassCommand)})}, args: [], source: "execute\x0a\x09self model renameClassTo: self input", messageSends: ["renameClassTo:", "model", "input"], referencedClasses: [] }), smalltalk.HLRenameClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "isActive", category: 'testing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(_st(self._model())._selectedClass())._notNil(); return $1; }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLRenameClassCommand)})}, args: [], source: "isActive\x0a\x09^ self model selectedClass notNil", messageSends: ["notNil", "selectedClass", "model"], referencedClasses: [] }), smalltalk.HLRenameClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "isInputRequired", category: 'testing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return true; }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLRenameClassCommand)})}, args: [], source: "isInputRequired\x0a\x09^ true", messageSends: [], referencedClasses: [] }), smalltalk.HLRenameClassCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "c"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRenameClassCommand.klass)})}, args: [], source: "key\x0a\x09^ 'c'", messageSends: [], referencedClasses: [] }), smalltalk.HLRenameClassCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Class"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRenameClassCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Class'", messageSends: [], referencedClasses: [] }), smalltalk.HLRenameClassCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "menuLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Rename class..."; }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLRenameClassCommand.klass)})}, args: [], source: "menuLabel\x0a\x09^ 'Rename class...'", messageSends: [], referencedClasses: [] }), smalltalk.HLRenameClassCommand.klass); smalltalk.addClass('HLRenameProtocolCommand', smalltalk.HLRenameCommand, [], 'Helios-Commands-Tools'); smalltalk.addMethod( smalltalk.method({ selector: "category", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Protocols"; }, function($ctx1) {$ctx1.fill(self,"category",{},smalltalk.HLRenameProtocolCommand)})}, args: [], source: "category\x0a\x09^ 'Protocols'", messageSends: [], referencedClasses: [] }), smalltalk.HLRenameProtocolCommand); smalltalk.addMethod( smalltalk.method({ selector: "defaultInput", category: 'defaults', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(self._model())._selectedProtocol(); return $1; }, function($ctx1) {$ctx1.fill(self,"defaultInput",{},smalltalk.HLRenameProtocolCommand)})}, args: [], source: "defaultInput\x0a\x09^ self model selectedProtocol", messageSends: ["selectedProtocol", "model"], referencedClasses: [] }), smalltalk.HLRenameProtocolCommand); smalltalk.addMethod( smalltalk.method({ selector: "displayLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Rename protocol to:"; }, function($ctx1) {$ctx1.fill(self,"displayLabel",{},smalltalk.HLRenameProtocolCommand)})}, args: [], source: "displayLabel\x0a\x09^ 'Rename protocol to:'", messageSends: [], referencedClasses: [] }), smalltalk.HLRenameProtocolCommand); smalltalk.addMethod( smalltalk.method({ selector: "execute", category: 'executing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self._model())._renameProtocolTo_(self._input()); return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLRenameProtocolCommand)})}, args: [], source: "execute\x0a\x09self model renameProtocolTo: self input", messageSends: ["renameProtocolTo:", "model", "input"], referencedClasses: [] }), smalltalk.HLRenameProtocolCommand); smalltalk.addMethod( smalltalk.method({ selector: "isActive", category: 'testing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(_st(self._model())._selectedProtocol())._notNil(); return $1; }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLRenameProtocolCommand)})}, args: [], source: "isActive\x0a\x09^ self model selectedProtocol notNil", messageSends: ["notNil", "selectedProtocol", "model"], referencedClasses: [] }), smalltalk.HLRenameProtocolCommand); smalltalk.addMethod( smalltalk.method({ selector: "isInputRequired", category: 'testing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return true; }, function($ctx1) {$ctx1.fill(self,"isInputRequired",{},smalltalk.HLRenameProtocolCommand)})}, args: [], source: "isInputRequired\x0a\x09^ true", messageSends: [], referencedClasses: [] }), smalltalk.HLRenameProtocolCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "t"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLRenameProtocolCommand.klass)})}, args: [], source: "key\x0a\x09^ 't'", messageSends: [], referencedClasses: [] }), smalltalk.HLRenameProtocolCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Protocol"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRenameProtocolCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Protocol'", messageSends: [], referencedClasses: [] }), smalltalk.HLRenameProtocolCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "menuLabel", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Rename protocol..."; }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},smalltalk.HLRenameProtocolCommand.klass)})}, args: [], source: "menuLabel\x0a\x09^ 'Rename protocol...'", messageSends: [], referencedClasses: [] }), smalltalk.HLRenameProtocolCommand.klass); });