--- 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