--- a/UIHelpTool.st Wed Oct 15 15:39:41 1997 +0200
+++ b/UIHelpTool.st Wed Oct 15 15:41:28 1997 +0200
@@ -276,22 +276,6 @@
)
! !
-!UIHelpTool class methodsFor:'misc'!
-
-applicationClassAssociatedWith:aClass
- "get application class keeping the associated help text or nil
- "
- |cls|
-
- cls := self resolveName:aClass.
-
- (cls notNil and:[cls includesBehavior:UISpecification]) ifTrue:[
- ^ UISpecificationTool
- ].
- ^ cls
-
-! !
-
!UIHelpTool methodsFor:'accessing'!
dictionary
@@ -329,7 +313,7 @@
"
|help|
- specClass := self class applicationClassAssociatedWith:aClass.
+ specClass := self applicationClassAssociatedWith:aClass.
(specClass respondsTo:#helpSpec) ifTrue:[
help := specClass helpSpec
@@ -383,7 +367,7 @@
"
|cls src|
- cls := self class applicationClassAssociatedWith:aClass.
+ cls := self applicationClassAssociatedWith:aClass.
cls isNil ifTrue:[
^ self information:'no application class defined'.
@@ -497,6 +481,23 @@
^ view
! !
+!UIHelpTool methodsFor:'queries'!
+
+applicationClassAssociatedWith:aClass
+ "get application class keeping the associated help text or nil
+ "
+ |cls|
+
+ cls := self resolveName:aClass.
+
+ (cls notNil and:[cls includesBehavior:UISpecification]) ifTrue:[
+ ^ UISpecificationTool
+ ].
+ ^ cls
+
+
+! !
+
!UIHelpTool methodsFor:'selection'!
listSelection
@@ -565,7 +566,7 @@
) accepted.
accepted ifFalse:[^ self].
- cls := self class applicationClassAssociatedWith:cls value.
+ cls := self applicationClassAssociatedWith:cls value.
cls notNil ifTrue:[
^ self helpSpecFrom:cls