added #openOnClass:aClass andSelector: aSelector
authortz
Tue, 04 Aug 1998 17:32:19 +0200
changeset 940 fa34addf6b1d
parent 939 6e2448fa0ba3
child 941 6d75430a8120
added #openOnClass:aClass andSelector: aSelector
UIHelpTool.st
--- a/UIHelpTool.st	Tue Aug 04 02:46:22 1998 +0200
+++ b/UIHelpTool.st	Tue Aug 04 17:32:19 1998 +0200
@@ -96,6 +96,13 @@
     "
 
     "Modified: / 20.5.1998 / 01:06:14 / cg"
+!
+
+openOnClass:aClass andSelector: aSelector
+    "opens a Help Tool on aClass and aSelector"
+
+    ^self openOnClass:aClass andSelector: aSelector
+  
 ! !
 
 !UIHelpTool class methodsFor:'constants'!
@@ -1062,6 +1069,15 @@
     self masterApplication isNil ifTrue: [(builder componentAt: #RemoveButton) beInvisible].
     builder window label: 'Help Tool'.
     self buildFromClass: aClass
+!
+
+openOnClass:aClass andSelector: aSelector
+    "opens the UIHelpTool on aClass and aSelector"
+
+    super openInterface: #windowSpecForStandAlone.
+    self masterApplication isNil ifTrue: [(builder componentAt: #RemoveButton) beInvisible].
+    builder window label: 'Help Tool'.
+    self buildFromClass: aClass andSelector: aSelector
 ! !
 
 !UIHelpTool methodsFor:'user actions'!