Helios: Removed HLCommand class >> isValidFor:

js/Helios-Commands-Browser.deploy.js

@@ -269,19 +269,6 @@ messageSends: []}),
 smalltalk.HLCommitPackageCommand);
 
 
-smalltalk.addMethod(
-smalltalk.method({
-selector: "isValidFor:",
-fn: function (anObject){
-var self=this;
-return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=_st(anObject)._isPackage();
-return $1;
-}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{anObject:anObject},smalltalk.HLCommitPackageCommand.klass)})},
-messageSends: ["isPackage"]}),
-smalltalk.HLCommitPackageCommand.klass);
-
 smalltalk.addMethod(
 smalltalk.method({
 selector: "key",
@@ -389,19 +376,6 @@ messageSends: []}),
 smalltalk.HLCopyClassCommand);
 
 
-smalltalk.addMethod(
-smalltalk.method({
-selector: "isValidFor:",
-fn: function (anObject){
-var self=this;
-return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=_st(anObject)._isBehavior();
-return $1;
-}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{anObject:anObject},smalltalk.HLCopyClassCommand.klass)})},
-messageSends: ["isBehavior"]}),
-smalltalk.HLCopyClassCommand.klass);
-
 smalltalk.addMethod(
 smalltalk.method({
 selector: "key",
@@ -676,19 +650,6 @@ messageSends: []}),
 smalltalk.HLMoveClassToPackageCommand);
 
 
-smalltalk.addMethod(
-smalltalk.method({
-selector: "isValidFor:",
-fn: function (anObject){
-var self=this;
-return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=_st(anObject)._isBehavior();
-return $1;
-}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{anObject:anObject},smalltalk.HLMoveClassCommand.klass)})},
-messageSends: ["isBehavior"]}),
-smalltalk.HLMoveClassToPackageCommand.klass);
-
 smalltalk.addMethod(
 smalltalk.method({
 selector: "key",
@@ -831,19 +792,6 @@ messageSends: []}),
 smalltalk.HLMoveMethodToClassCommand);
 
 
-smalltalk.addMethod(
-smalltalk.method({
-selector: "isValidFor:",
-fn: function (anObject){
-var self=this;
-return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=_st(anObject)._isCompiledMethod();
-return $1;
-}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{anObject:anObject},smalltalk.HLMoveMethodToClassCommand.klass)})},
-messageSends: ["isCompiledMethod"]}),
-smalltalk.HLMoveMethodToClassCommand.klass);
-
 smalltalk.addMethod(
 smalltalk.method({
 selector: "key",
@@ -937,19 +885,6 @@ messageSends: []}),
 smalltalk.HLMoveMethodToProtocolCommand);
 
 
-smalltalk.addMethod(
-smalltalk.method({
-selector: "isValidFor:",
-fn: function (anObject){
-var self=this;
-return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=_st(anObject)._isCompiledMethod();
-return $1;
-}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{anObject:anObject},smalltalk.HLMoveMethodToProtocolCommand.klass)})},
-messageSends: ["isCompiledMethod"]}),
-smalltalk.HLMoveMethodToProtocolCommand.klass);
-
 smalltalk.addMethod(
 smalltalk.method({
 selector: "key",
@@ -1046,19 +981,6 @@ messageSends: ["notNil", "selectedClass", "model"]}),
 smalltalk.HLRemoveClassCommand);
 
 
-smalltalk.addMethod(
-smalltalk.method({
-selector: "isValidFor:",
-fn: function (anObject){
-var self=this;
-return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=_st(anObject)._isBehavior();
-return $1;
-}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{anObject:anObject},smalltalk.HLRemoveClassCommand.klass)})},
-messageSends: ["isBehavior"]}),
-smalltalk.HLRemoveClassCommand.klass);
-
 smalltalk.addMethod(
 smalltalk.method({
 selector: "key",
@@ -1130,19 +1052,6 @@ messageSends: ["notNil", "selectedMethod", "model"]}),
 smalltalk.HLRemoveMethodCommand);
 
 
-smalltalk.addMethod(
-smalltalk.method({
-selector: "isValidFor:",
-fn: function (anObject){
-var self=this;
-return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=_st(anObject)._isCompiledMethod();
-return $1;
-}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{anObject:anObject},smalltalk.HLRemoveMethodCommand.klass)})},
-messageSends: ["isCompiledMethod"]}),
-smalltalk.HLRemoveMethodCommand.klass);
-
 smalltalk.addMethod(
 smalltalk.method({
 selector: "key",
@@ -1261,19 +1170,6 @@ messageSends: []}),
 smalltalk.HLRenameClassCommand);
 
 
-smalltalk.addMethod(
-smalltalk.method({
-selector: "isValidFor:",
-fn: function (anObject){
-var self=this;
-return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=_st(anObject)._isBehavior();
-return $1;
-}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{anObject:anObject},smalltalk.HLRenameClassCommand.klass)})},
-messageSends: ["isBehavior"]}),
-smalltalk.HLRenameClassCommand.klass);
-
 smalltalk.addMethod(
 smalltalk.method({
 selector: "key",

js/Helios-Commands-Browser.js

@@ -379,24 +379,6 @@ referencedClasses: []
 smalltalk.HLCommitPackageCommand);
 
 
-smalltalk.addMethod(
-smalltalk.method({
-selector: "isValidFor:",
-category: 'testing',
-fn: function (anObject){
-var self=this;
-return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=_st(anObject)._isPackage();
-return $1;
-}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{anObject:anObject},smalltalk.HLCommitPackageCommand.klass)})},
-args: ["anObject"],
-source: "isValidFor: anObject\x0a\x09^ anObject isPackage",
-messageSends: ["isPackage"],
-referencedClasses: []
-}),
-smalltalk.HLCommitPackageCommand.klass);
-
 smalltalk.addMethod(
 smalltalk.method({
 selector: "key",
@@ -549,24 +531,6 @@ referencedClasses: []
 smalltalk.HLCopyClassCommand);
 
 
-smalltalk.addMethod(
-smalltalk.method({
-selector: "isValidFor:",
-category: 'testing',
-fn: function (anObject){
-var self=this;
-return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=_st(anObject)._isBehavior();
-return $1;
-}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{anObject:anObject},smalltalk.HLCopyClassCommand.klass)})},
-args: ["anObject"],
-source: "isValidFor: anObject\x0a\x09^ anObject isBehavior",
-messageSends: ["isBehavior"],
-referencedClasses: []
-}),
-smalltalk.HLCopyClassCommand.klass);
-
 smalltalk.addMethod(
 smalltalk.method({
 selector: "key",
@@ -956,24 +920,6 @@ referencedClasses: []
 smalltalk.HLMoveClassToPackageCommand);
 
 
-smalltalk.addMethod(
-smalltalk.method({
-selector: "isValidFor:",
-category: 'testing',
-fn: function (anObject){
-var self=this;
-return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=_st(anObject)._isBehavior();
-return $1;
-}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{anObject:anObject},smalltalk.HLMoveClassCommand.klass)})},
-args: ["anObject"],
-source: "isValidFor: anObject\x0a\x09^ anObject isBehavior",
-messageSends: ["isBehavior"],
-referencedClasses: []
-}),
-smalltalk.HLMoveClassToPackageCommand.klass);
-
 smalltalk.addMethod(
 smalltalk.method({
 selector: "key",
@@ -1176,24 +1122,6 @@ referencedClasses: []
 smalltalk.HLMoveMethodToClassCommand);
 
 
-smalltalk.addMethod(
-smalltalk.method({
-selector: "isValidFor:",
-category: 'testing',
-fn: function (anObject){
-var self=this;
-return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=_st(anObject)._isCompiledMethod();
-return $1;
-}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{anObject:anObject},smalltalk.HLMoveMethodToClassCommand.klass)})},
-args: ["anObject"],
-source: "isValidFor: anObject\x0a\x09^ anObject isCompiledMethod",
-messageSends: ["isCompiledMethod"],
-referencedClasses: []
-}),
-smalltalk.HLMoveMethodToClassCommand.klass);
-
 smalltalk.addMethod(
 smalltalk.method({
 selector: "key",
@@ -1327,24 +1255,6 @@ referencedClasses: []
 smalltalk.HLMoveMethodToProtocolCommand);
 
 
-smalltalk.addMethod(
-smalltalk.method({
-selector: "isValidFor:",
-category: 'testing',
-fn: function (anObject){
-var self=this;
-return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=_st(anObject)._isCompiledMethod();
-return $1;
-}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{anObject:anObject},smalltalk.HLMoveMethodToProtocolCommand.klass)})},
-args: ["anObject"],
-source: "isValidFor: anObject\x0a\x09^ anObject isCompiledMethod",
-messageSends: ["isCompiledMethod"],
-referencedClasses: []
-}),
-smalltalk.HLMoveMethodToProtocolCommand.klass);
-
 smalltalk.addMethod(
 smalltalk.method({
 selector: "key",
@@ -1481,24 +1391,6 @@ referencedClasses: []
 smalltalk.HLRemoveClassCommand);
 
 
-smalltalk.addMethod(
-smalltalk.method({
-selector: "isValidFor:",
-category: 'testing',
-fn: function (anObject){
-var self=this;
-return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=_st(anObject)._isBehavior();
-return $1;
-}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{anObject:anObject},smalltalk.HLRemoveClassCommand.klass)})},
-args: ["anObject"],
-source: "isValidFor: anObject\x0a\x09^ anObject isBehavior",
-messageSends: ["isBehavior"],
-referencedClasses: []
-}),
-smalltalk.HLRemoveClassCommand.klass);
-
 smalltalk.addMethod(
 smalltalk.method({
 selector: "key",
@@ -1600,24 +1492,6 @@ referencedClasses: []
 smalltalk.HLRemoveMethodCommand);
 
 
-smalltalk.addMethod(
-smalltalk.method({
-selector: "isValidFor:",
-category: 'testing',
-fn: function (anObject){
-var self=this;
-return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=_st(anObject)._isCompiledMethod();
-return $1;
-}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{anObject:anObject},smalltalk.HLRemoveMethodCommand.klass)})},
-args: ["anObject"],
-source: "isValidFor: anObject\x0a\x09^ anObject isCompiledMethod",
-messageSends: ["isCompiledMethod"],
-referencedClasses: []
-}),
-smalltalk.HLRemoveMethodCommand.klass);
-
 smalltalk.addMethod(
 smalltalk.method({
 selector: "key",
@@ -1786,24 +1660,6 @@ referencedClasses: []
 smalltalk.HLRenameClassCommand);
 
 
-smalltalk.addMethod(
-smalltalk.method({
-selector: "isValidFor:",
-category: 'testing',
-fn: function (anObject){
-var self=this;
-return smalltalk.withContext(function($ctx1) { 
-var $1;
-$1=_st(anObject)._isBehavior();
-return $1;
-}, function($ctx1) {$ctx1.fill(self,"isValidFor:",{anObject:anObject},smalltalk.HLRenameClassCommand.klass)})},
-args: ["anObject"],
-source: "isValidFor: anObject\x0a\x09^ anObject isBehavior",
-messageSends: ["isBehavior"],
-referencedClasses: []
-}),
-smalltalk.HLRenameClassCommand.klass);
-
 smalltalk.addMethod(
 smalltalk.method({
 selector: "key",

st/Helios-Commands-Browser.st

@@ -164,12 +164,6 @@ label
 	^ 'Commit'
 ! !
 
-!HLCommitPackageCommand class methodsFor: 'testing'!
-
-isValidFor: anObject
-	^ anObject isPackage
-! !
-
 HLBrowserCommand subclass: #HLCopyCommand
 	instanceVariableNames: ''
 	package: 'Helios-Commands-Browser'!
@@ -228,12 +222,6 @@ menuLabel
 	^ 'Copy class...'
 ! !
 
-!HLCopyClassCommand class methodsFor: 'testing'!
-
-isValidFor: anObject
-	^ anObject isBehavior
-! !
-
 HLBrowserCommand subclass: #HLFindCommand
 	instanceVariableNames: ''
 	package: 'Helios-Commands-Browser'!
@@ -370,12 +358,6 @@ menuLabel
 	^ 'Move to package...'
 ! !
 
-!HLMoveClassToPackageCommand class methodsFor: 'testing'!
-
-isValidFor: anObject
-	^ anObject isBehavior
-! !
-
 HLMoveToCommand subclass: #HLMoveMethodToCommand
 	instanceVariableNames: ''
 	package: 'Helios-Commands-Browser'!
@@ -446,12 +428,6 @@ menuLabel
 	^ 'Move to class...'
 ! !
 
-!HLMoveMethodToClassCommand class methodsFor: 'testing'!
-
-isValidFor: anObject
-	^ anObject isCompiledMethod
-! !
-
 HLMoveMethodToCommand subclass: #HLMoveMethodToProtocolCommand
 	instanceVariableNames: ''
 	package: 'Helios-Commands-Browser'!
@@ -496,12 +472,6 @@ menuLabel
 	^ 'Move to protocol...'
 ! !
 
-!HLMoveMethodToProtocolCommand class methodsFor: 'testing'!
-
-isValidFor: anObject
-	^ anObject isCompiledMethod
-! !
-
 HLBrowserCommand subclass: #HLRemoveCommand
 	instanceVariableNames: ''
 	package: 'Helios-Commands-Browser'!
@@ -552,12 +522,6 @@ menuLabel
 	^ 'Remove class'
 ! !
 
-!HLRemoveClassCommand class methodsFor: 'testing'!
-
-isValidFor: anObject
-	^ anObject isBehavior
-! !
-
 HLRemoveCommand subclass: #HLRemoveMethodCommand
 	instanceVariableNames: ''
 	package: 'Helios-Commands-Browser'!
@@ -594,12 +558,6 @@ menuLabel
 	^ 'Remove method'
 ! !
 
-!HLRemoveMethodCommand class methodsFor: 'testing'!
-
-isValidFor: anObject
-	^ anObject isCompiledMethod
-! !
-
 HLBrowserCommand subclass: #HLRenameCommand
 	instanceVariableNames: ''
 	package: 'Helios-Commands-Browser'!
@@ -658,12 +616,6 @@ menuLabel
 	^ 'Rename class...'
 ! !
 
-!HLRenameClassCommand class methodsFor: 'testing'!
-
-isValidFor: anObject
-	^ anObject isBehavior
-! !
-
 HLBrowserCommand subclass: #HLToggleCommand
 	instanceVariableNames: ''
 	package: 'Helios-Commands-Browser'!