equal
deleted
inserted
replaced
516 ) |
516 ) |
517 ! ! |
517 ! ! |
518 |
518 |
519 !UIHelpTool methodsFor:'accessing'! |
519 !UIHelpTool methodsFor:'accessing'! |
520 |
520 |
|
521 alternativeSpecSelectors |
|
522 "returns a set of alternative spec method selectors of the resource spec" |
|
523 |
|
524 ^ #( flyByHelpSpec tooltipSpec ) |
|
525 ! |
|
526 |
521 helpKey |
527 helpKey |
522 "returns the helpKey (symbol) or nil |
528 "returns the helpKey (symbol) or nil |
523 " |
529 " |
524 |key| |
530 |key| |
525 |
531 |
710 |
716 |
711 loadFromClass:aClass |
717 loadFromClass:aClass |
712 "reads the help dictionary from aClass and find remaining classes |
718 "reads the help dictionary from aClass and find remaining classes |
713 'between' aClass and ApplicationModel |
719 'between' aClass and ApplicationModel |
714 " |
720 " |
715 |lastContents root list helpSpecSelector| |
721 |lastContents root list helpSpecSelector alternativeSelector| |
716 |
722 |
717 (specClass notNil and:[specClass == aClass]) ifTrue:[ |
723 (specClass notNil and:[specClass == aClass]) ifTrue:[ |
718 ^ self. |
724 ^ self. |
719 ]. |
725 ]. |
720 |
726 |
721 helpSpecSelector := self specSelector. |
727 helpSpecSelector := self specSelector. |
722 specClass := self getHelpSpecClassFromClass:aClass. |
728 specClass := self getHelpSpecClassFromClass:aClass. |
723 |
729 |
|
730 aClass notNil ifTrue:[ |
|
731 (aClass theMetaclass implements:helpSpecSelector) ifFalse:[ |
|
732 alternativeSelector := (self alternativeSpecSelectors ? #()) detect:[:sel | aClass theMetaclass implements:sel] ifNone:nil. |
|
733 alternativeSelector notNil ifTrue:[ |
|
734 helpSpecSelector := specSelector := alternativeSelector. |
|
735 specClass := aClass. |
|
736 ]. |
|
737 ]. |
|
738 ]. |
|
739 |
724 list := OrderedCollection new. |
740 list := OrderedCollection new. |
725 |
741 |
726 (specClass isClass and:[specClass isLoaded]) ifTrue:[ |
742 (specClass isClass and:[specClass isLoaded]) ifTrue:[ |
727 lastContents := nil. |
743 lastContents := nil. |
728 |
744 |