# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 895619202 -7200
# Node ID ff2f237a309a6e5b35ecc42e4095118f33e4eb71
# Parent  2c5b61b168e8046b550c9b1ddd90c5ee1de4ae9c
*** empty log message ***

diff -r 2c5b61b168e8 -r ff2f237a309a UIHelpTool.st
--- a/UIHelpTool.st	Wed May 20 00:58:14 1998 +0200
+++ b/UIHelpTool.st	Wed May 20 01:06:42 1998 +0200
@@ -67,30 +67,35 @@
 !UIHelpTool class methodsFor:'instance creation'!
 
 open
-    |className cls|
+    ^ self openOnClass:nil.
 
-    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').
-    ].
+"/    |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"
+"/
 
-    "Created: / 20.5.1998 / 00:55:05 / cg"
-    "Modified: / 20.5.1998 / 00:57:45 / cg"
+    "Modified: / 20.5.1998 / 01:06:07 / cg"
 !
 
 openOnClass:aClass
     "opens a Help Tool on aClass"
 
+    self new openOnClass:aClass
+
     "
      UIHelpTool openOnClass:self
     "
 
-    UIHelpTool new openOnClass:aClass
-
+    "Modified: / 20.5.1998 / 01:06:14 / cg"
 ! !
 
 !UIHelpTool class methodsFor:'constants'!