#BUGFIX by cg draft
authorClaus Gittinger <cg@exept.de>
Wed, 01 Nov 2017 21:47:48 +0100
changeset 3499 8808fb1f10b3
parent 3498 262ff2ef9e43
child 3500 51cbdcf5b2cb
#BUGFIX by cg class: UIHelpTool changed: #buildAndMergeFromClass:
UIHelpTool.st
--- a/UIHelpTool.st	Tue Oct 24 03:39:04 2017 +0000
+++ b/UIHelpTool.st	Wed Nov 01 21:47:48 2017 +0100
@@ -687,11 +687,15 @@
 
 !UIHelpTool methodsFor:'building'!
 
-buildAndMergeFromClass:aClass
+buildAndMergeFromClass:aClassOrClassName
      "setup a new specClass, merge the current items into
      "
-     |root mergeItems|
+     |root mergeItems aClass|
 
+     (aClass := aClassOrClassName) isBehavior ifFalse:[
+         aClass := Smalltalk classNamed:aClassOrClassName
+     ].
+     
      root := classItemList first.
 
      root isUnspecified ifTrue:[ mergeItems := root children ]
@@ -714,6 +718,8 @@
             ]
         ]
     ].
+
+    "Modified: / 01-11-2017 / 21:23:22 / cg"
 !
 
 loadFromClass:aClass