| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223 |
- Smalltalk current createPackage: 'Helios-Commands' properties: #{}!
- Object subclass: #HLCommand
- instanceVariableNames: ''
- package: 'Helios-Commands'!
- !HLCommand methodsFor: 'accessing'!
- documentation
- ^ self class documentation
- !
- key
- ^ self class key
- !
- label
- ^ self class label
- ! !
- !HLCommand methodsFor: 'converting'!
- asBinding
- ^ (HLBindingAction on: self key labelled: self label)
- callback: [ self execute ]
- ! !
- !HLCommand methodsFor: 'executing'!
- execute
- ! !
- !HLCommand class methodsFor: 'accessing'!
- bindingGroup
- ^ nil
- !
- documentation
- ^ ''
- !
- key
- ^ nil
- !
- label
- ^ ''
- ! !
- HLCommand subclass: #HLBrowserCommand
- instanceVariableNames: 'model'
- package: 'Helios-Commands'!
- !HLBrowserCommand methodsFor: 'accessing'!
- model
- ^ model
- !
- model: aBrowserModel
- model := aBrowserModel
- ! !
- !HLBrowserCommand class methodsFor: 'instance creation'!
- on: aBrowserModel
- ^ self new
- model: aBrowserModel;
- yourself
- ! !
- HLBrowserCommand subclass: #HLGoToCommand
- instanceVariableNames: ''
- package: 'Helios-Commands'!
- !HLGoToCommand class methodsFor: 'accessing'!
- bindingGroup
- ^ 'Go to'
- ! !
- HLGoToCommand subclass: #HLGoToClassesCommand
- instanceVariableNames: ''
- package: 'Helios-Commands'!
- !HLGoToClassesCommand methodsFor: 'executing'!
- execute
- self model selectedClass: self model selectedClass
- ! !
- !HLGoToClassesCommand class methodsFor: 'accessing'!
- key
- "c"
-
- ^ 67
- !
- label
- ^ 'Classes'
- ! !
- HLGoToCommand subclass: #HLGoToMethodsCommand
- instanceVariableNames: ''
- package: 'Helios-Commands'!
- !HLGoToMethodsCommand methodsFor: 'executing'!
- execute
- self model selectedMethod: self model selectedMethod
- ! !
- !HLGoToMethodsCommand class methodsFor: 'accessing'!
- key
- "m"
-
- ^ 77
- !
- label
- ^ 'Methods'
- ! !
- HLGoToCommand subclass: #HLGoToPackagesCommand
- instanceVariableNames: ''
- package: 'Helios-Commands'!
- !HLGoToPackagesCommand methodsFor: 'executing'!
- execute
- self model selectedPackage: self model selectedPackage
- ! !
- !HLGoToPackagesCommand class methodsFor: 'accessing'!
- key
- "p"
-
- ^ 80
- !
- label
- ^ 'Packages'
- ! !
- HLGoToCommand subclass: #HLGoToProtocolsCommand
- instanceVariableNames: ''
- package: 'Helios-Commands'!
- !HLGoToProtocolsCommand methodsFor: 'executing'!
- execute
- self model selectedProtocol: self model selectedProtocol
- ! !
- !HLGoToProtocolsCommand class methodsFor: 'accessing'!
- key
- "p"
-
- ^ 84
- !
- label
- ^ 'Protocols'
- ! !
- HLBrowserCommand subclass: #HLToggleCommand
- instanceVariableNames: ''
- package: 'Helios-Commands'!
- !HLToggleCommand class methodsFor: 'accessing'!
- bindingGroup
- ^ 'Toggle'
- ! !
- HLToggleCommand subclass: #HLToggleClassSideCommand
- instanceVariableNames: ''
- package: 'Helios-Commands'!
- !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'!
- !HLToggleInstanceSideCommand methodsFor: 'executing'!
- execute
- self model showInstance: true
- ! !
- !HLToggleInstanceSideCommand class methodsFor: 'accessing'!
- key
- "i"
-
- ^ 73
- !
- label
- ^ 'Instance side'
- ! !
|
