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