| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205 |
- Smalltalk current createPackage: 'Helios-Commands-Browser'!
- HLToolCommand subclass: #HLBrowserCommand
- instanceVariableNames: ''
- package: 'Helios-Commands-Browser'!
- !HLBrowserCommand class methodsFor: 'testing'!
- isValidFor: aModel
- ^ aModel isBrowserModel
- ! !
- HLBrowserCommand subclass: #HLBrowserGoToCommand
- instanceVariableNames: ''
- package: 'Helios-Commands-Browser'!
- !HLBrowserGoToCommand class methodsFor: 'accessing'!
- key
- ^ 'g'
- !
- label
- ^ 'Go to'
- ! !
- !HLBrowserGoToCommand class methodsFor: 'testing'!
- isValidFor: aModel
- ^ aModel isBrowserModel
- ! !
- HLBrowserGoToCommand subclass: #HLGoToClassesCommand
- instanceVariableNames: ''
- package: 'Helios-Commands-Browser'!
- !HLGoToClassesCommand methodsFor: 'executing'!
- execute
- self model focusOnClasses
- ! !
- !HLGoToClassesCommand class methodsFor: 'accessing'!
- key
- ^ 'c'
- !
- label
- ^ 'Classes'
- ! !
- HLBrowserGoToCommand subclass: #HLGoToMethodsCommand
- instanceVariableNames: ''
- package: 'Helios-Commands-Browser'!
- !HLGoToMethodsCommand methodsFor: 'executing'!
- execute
- self model focusOnMethods
- ! !
- !HLGoToMethodsCommand class methodsFor: 'accessing'!
- key
- ^ 'm'
- !
- label
- ^ 'Methods'
- ! !
- HLBrowserGoToCommand subclass: #HLGoToPackagesCommand
- instanceVariableNames: ''
- package: 'Helios-Commands-Browser'!
- !HLGoToPackagesCommand methodsFor: 'executing'!
- execute
- self model focusOnPackages
- ! !
- !HLGoToPackagesCommand class methodsFor: 'accessing'!
- key
- ^ 'p'
- !
- label
- ^ 'Packages'
- ! !
- HLBrowserGoToCommand subclass: #HLGoToProtocolsCommand
- instanceVariableNames: ''
- package: 'Helios-Commands-Browser'!
- !HLGoToProtocolsCommand methodsFor: 'executing'!
- execute
- self model focusOnProtocols
- ! !
- !HLGoToProtocolsCommand class methodsFor: 'accessing'!
- key
- ^ 't'
- !
- label
- ^ 'Protocols'
- ! !
- HLBrowserGoToCommand subclass: #HLGoToSourceCodeCommand
- instanceVariableNames: ''
- package: 'Helios-Commands-Browser'!
- !HLGoToSourceCodeCommand methodsFor: 'executing'!
- execute
- self model focusOnSourceCode
- ! !
- !HLGoToSourceCodeCommand class methodsFor: 'accessing'!
- key
- ^ 's'
- !
- label
- ^ 'Source code'
- ! !
- HLBrowserCommand subclass: #HLToggleCommand
- instanceVariableNames: ''
- package: 'Helios-Commands-Browser'!
- !HLToggleCommand class methodsFor: 'accessing'!
- key
- ^ 't'
- !
- label
- ^ 'Toggle'
- ! !
- HLToggleCommand subclass: #HLToggleClassCommentCommand
- instanceVariableNames: ''
- package: 'Helios-Commands-Browser'!
- !HLToggleClassCommentCommand methodsFor: 'executing'!
- execute
- self model showComment: self model showComment not
- ! !
- !HLToggleClassCommentCommand class methodsFor: 'accessing'!
- key
- ^ 'd'
- !
- label
- ^ 'Documentation'
- ! !
- HLToggleCommand subclass: #HLToggleClassSideCommand
- instanceVariableNames: ''
- package: 'Helios-Commands-Browser'!
- !HLToggleClassSideCommand methodsFor: 'executing'!
- execute
- self model showInstance: false
- ! !
- !HLToggleClassSideCommand class methodsFor: 'accessing'!
- key
- ^ 'c'
- !
- 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'
- !
- label
- ^ 'Instance side'
- ! !
|
