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