Smalltalk current createPackage: 'Helios-Commands-Browser'! HLModelCommand subclass: #HLBrowserCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLBrowserCommand class methodsFor: 'instance creation'! for: aBrowserModel ^ self new model: aBrowserModel; yourself ! ! HLBrowserCommand subclass: #HLBrowserGoToCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLBrowserGoToCommand class methodsFor: 'accessing'! key ^ 71 ! label ^ 'Go to' ! ! HLBrowserGoToCommand subclass: #HLGoToClassesCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLGoToClassesCommand methodsFor: 'executing'! execute self model focusOnClasses ! ! !HLGoToClassesCommand class methodsFor: 'accessing'! key "c" ^ 67 ! label ^ 'Classes' ! ! HLBrowserGoToCommand subclass: #HLGoToMethodsCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLGoToMethodsCommand methodsFor: 'executing'! execute self model focusOnMethods ! ! !HLGoToMethodsCommand class methodsFor: 'accessing'! key "m" ^ 77 ! label ^ 'Methods' ! ! HLBrowserGoToCommand subclass: #HLGoToPackagesCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLGoToPackagesCommand methodsFor: 'executing'! execute self model focusOnPackages ! ! !HLGoToPackagesCommand class methodsFor: 'accessing'! key "p" ^ 80 ! label ^ 'Packages' ! ! HLBrowserGoToCommand subclass: #HLGoToProtocolsCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLGoToProtocolsCommand methodsFor: 'executing'! execute self model focusOnProtocols ! ! !HLGoToProtocolsCommand class methodsFor: 'accessing'! key "p" ^ 84 ! label ^ 'Protocols' ! ! HLBrowserGoToCommand subclass: #HLGoToSourceCodeCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLGoToSourceCodeCommand methodsFor: 'executing'! execute self model focusOnSourceCode ! ! !HLGoToSourceCodeCommand class methodsFor: 'accessing'! key "s" ^ 83 ! label ^ 'Source code' ! ! HLBrowserCommand subclass: #HLCommitPackageCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLCommitPackageCommand methodsFor: 'executing'! execute self model commitPackage ! ! !HLCommitPackageCommand methodsFor: 'testing'! isActive ^ true " slf model isPackageDirty" ! ! !HLCommitPackageCommand class methodsFor: 'accessing'! key ^ 75 ! label ^ 'Commit package' ! ! !HLCommitPackageCommand class methodsFor: 'testing'! isValidFor: anObject ^ anObject isPackage ! ! HLBrowserCommand subclass: #HLFindCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLFindCommand class methodsFor: 'accessing'! key ^ 70 ! label ^ 'Find' ! ! HLFindCommand subclass: #HLFindClassCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLFindClassCommand methodsFor: 'accessing'! displayLabel ^ 'select a class' ! inputCompletion ^ self model availableClassNames ! inputLabel ^ 'Find a class' ! ! !HLFindClassCommand methodsFor: 'executing'! execute self model openClassNamed: self input ! ! !HLFindClassCommand methodsFor: 'testing'! isInputRequired ^ true ! ! !HLFindClassCommand class methodsFor: 'accessing'! key ^ 67 ! label ^ 'Class' ! ! HLBrowserCommand subclass: #HLMoveToCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLMoveToCommand class methodsFor: 'accessing'! key ^ 77 ! label ^ 'Move' ! ! HLMoveToCommand subclass: #HLMoveClassToCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLMoveClassToCommand methodsFor: 'testing'! isActive ^ self model selectedClass notNil ! ! !HLMoveClassToCommand class methodsFor: 'accessing'! key ^ 67 ! label ^ 'Class' ! ! HLMoveClassToCommand subclass: #HLMoveClassCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLMoveClassCommand methodsFor: 'accessing'! displayLabel ^ 'select a package' ! inputCompletion ^ self model availablePackageNames ! inputLabel ^ 'Move class to package:' ! ! !HLMoveClassCommand methodsFor: 'executing'! execute self model moveClassToPackage: self input ! ! !HLMoveClassCommand methodsFor: 'testing'! isInputRequired ^ true ! ! !HLMoveClassCommand class methodsFor: 'accessing'! key ^ 80 ! label ^ 'to package' ! menuLabel ^ 'Move to package...' ! ! !HLMoveClassCommand class methodsFor: 'testing'! isValidFor: anObject ^ anObject isBehavior ! ! HLMoveToCommand subclass: #HLMoveMethodToCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLMoveMethodToCommand methodsFor: 'testing'! isActive ^ self model selectedMethod notNil ! ! !HLMoveMethodToCommand class methodsFor: 'accessing'! key ^ 77 ! label ^ 'Method' ! ! HLMoveMethodToCommand subclass: #HLMoveMethodToClassCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLMoveMethodToClassCommand methodsFor: 'accessing'! displayLabel ^ 'select a class' ! inputCompletion ^ self model availableClassNames ! inputLabel ^ 'Move method to class:' ! ! !HLMoveMethodToClassCommand methodsFor: 'executing'! execute self model moveMethodToClass: self input ! ! !HLMoveMethodToClassCommand methodsFor: 'testing'! isInputRequired ^ true ! ! !HLMoveMethodToClassCommand class methodsFor: 'accessing'! key ^ 67 ! label ^ 'to class' ! menuLabel ^ 'Move to class...' ! ! !HLMoveMethodToClassCommand class methodsFor: 'testing'! isValidFor: anObject ^ anObject isCompiledMethod ! ! HLMoveMethodToCommand subclass: #HLMoveMethodToProtocolCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLMoveMethodToProtocolCommand methodsFor: 'accessing'! displayLabel ^ 'select a protocol' ! inputCompletion ^ self model availableProtocols ! inputLabel ^ 'Move method to a protocol:' ! ! !HLMoveMethodToProtocolCommand methodsFor: 'executing'! execute self model moveMethodToProtocol: self input ! ! !HLMoveMethodToProtocolCommand methodsFor: 'testing'! isInputRequired ^ true ! ! !HLMoveMethodToProtocolCommand class methodsFor: 'accessing'! key ^ 84 ! label ^ 'to protocol' ! menuLabel ^ 'Move to protocol...' ! ! !HLMoveMethodToProtocolCommand class methodsFor: 'testing'! isValidFor: anObject ^ anObject isCompiledMethod ! ! HLBrowserCommand subclass: #HLRemoveCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLRemoveCommand class methodsFor: 'accessing'! key ^ 88 ! label ^ 'Remove' ! ! HLRemoveCommand subclass: #HLRemoveClassCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLRemoveClassCommand methodsFor: 'executing'! execute self model removeClass ! ! !HLRemoveClassCommand methodsFor: 'testing'! isActive ^ self model selectedClass notNil ! ! !HLRemoveClassCommand class methodsFor: 'accessing'! key ^ 67 ! label ^ 'Class' ! menuLabel ^ 'Remove class' ! ! !HLRemoveClassCommand class methodsFor: 'testing'! isValidFor: anObject ^ anObject isBehavior ! ! HLRemoveCommand subclass: #HLRemoveMethodCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLRemoveMethodCommand methodsFor: 'executing'! execute self model removeMethod ! ! !HLRemoveMethodCommand methodsFor: 'testing'! isActive ^ self model selectedMethod notNil ! ! !HLRemoveMethodCommand class methodsFor: 'accessing'! key ^ 77 ! label ^ 'Method' ! menuLabel ^ 'Remove method' ! ! !HLRemoveMethodCommand class methodsFor: 'testing'! isValidFor: anObject ^ anObject isCompiledMethod ! ! HLBrowserCommand subclass: #HLToggleCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLToggleCommand class methodsFor: 'accessing'! key ^ 84 ! label ^ 'Toggle' ! ! HLToggleCommand subclass: #HLToggleClassCommentCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLToggleClassCommentCommand methodsFor: 'executing'! execute self model showComment: true ! ! !HLToggleClassCommentCommand class methodsFor: 'accessing'! key "d" ^ 68 ! label ^ 'Documentation' ! ! HLToggleCommand subclass: #HLToggleClassSideCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLToggleClassSideCommand methodsFor: 'executing'! execute self model showInstance: false ! ! !HLToggleClassSideCommand class methodsFor: 'accessing'! key "c" ^ 67 ! label ^ 'Class side' ! ! HLToggleCommand subclass: #HLToggleInstanceSideCommand instanceVariableNames: '' package: 'Helios-Commands-Browser'! !HLToggleInstanceSideCommand methodsFor: 'executing'! execute self model showInstance: true ! ! !HLToggleInstanceSideCommand class methodsFor: 'accessing'! key "i" ^ 73 ! label ^ 'Instance side' ! !