--- a/UIHelpTool.st Wed May 20 00:33:23 1998 +0200
+++ b/UIHelpTool.st Wed May 20 00:58:14 1998 +0200
@@ -66,6 +66,22 @@
!UIHelpTool class methodsFor:'instance creation'!
+open
+ |className cls|
+
+ className := Dialog request:(ClassResources string:'Open on which class ?').
+ className size > 0 ifTrue:[
+ cls := Smalltalk at:className asSymbol.
+ cls notNil ifTrue:[
+ ^ self openOnClass:cls.
+ ].
+ self warn:(ClassResources string:'No such class').
+ ].
+
+ "Created: / 20.5.1998 / 00:55:05 / cg"
+ "Modified: / 20.5.1998 / 00:57:45 / cg"
+!
+
openOnClass:aClass
"opens a Help Tool on aClass"