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