diff -r 40b17a3031e5 -r dd545d089d95 UIPainter.st
--- a/UIPainter.st	Thu Feb 05 12:25:46 1998 +0100
+++ b/UIPainter.st	Thu Feb 05 13:43:45 1998 +0100
@@ -2087,7 +2087,7 @@
   ^ aspects at:aKey ifAbsent:[ super aspectFor:aKey ]
 ! !
 
-!UIPainter methodsFor:'buildin editors'!
+!UIPainter methodsFor:'building editors'!
 
 openDataSetColumnEditor
     "opens a column editor
@@ -2406,16 +2406,12 @@
     specSelector := (selector ? '').
     specSuperclass := superClassName.
 
-    specClass notNil & selector notNil
-    ifTrue:
-    [
-        |className message|
-        specClass isClass ifTrue: [className := specClass name].
-        specClass isString ifTrue: [className := specClass].
-        message := className, ' ', specSelector.
-        self addToHistory: message -> #loadFromMessage:.
+    specClass notNil & selector notNil ifTrue:[
+        self addToHistory: (specClass, ' ', specSelector) -> #loadFromMessage:.
         self updateInfoLabel
     ].
+
+    "Modified: / 5.2.1998 / 09:44:58 / stefan"
 !
 
 setViewInLayoutTool:aView
@@ -2431,8 +2427,12 @@
 !
 
 specClass:aClass
-    specClass := aClass.
+
+    specClass := aClass isBehavior ifTrue:[aClass name]
+                                   ifFalse:[aClass].
     self helpTool helpSpecFrom:specClass.
+
+    "Modified: / 5.2.1998 / 09:42:57 / stefan"
 ! !
 
 !UIPainter methodsFor:'private tools'!
@@ -2762,28 +2762,15 @@
     self openInterface.
 
     aClass notNil ifTrue:[
-        painter        := self painter.
-
+        painter := self painter.
         self setClass:aClass selector:aSelector.
-"/        specClass      := aClass name.
-"/        specSuperclass := aClass superclass name.
-"/        specSelector   := aSelector.
-"/
-"/        (aspects at:#classNameChannel) value:specClass.
-"/        (aspects at:#superclassNameChannel) value:specSuperclass.
-"/        (aspects at:#methodNameChannel) value:specSelector asSymbol.
-"/
-"/        painter 
-"/            className:aClass name 
-"/            superclassName:aClass superclass name
-"/            selector:aSelector.
-
         (aClass respondsTo:aSelector) ifTrue:[
             painter setupFromSpec:(aClass perform:aSelector).
         ]
     ]
 
     "Modified: / 25.10.1997 / 19:11:51 / cg"
+    "Modified: / 5.2.1998 / 09:48:15 / stefan"
 ! !
 
 !UIPainter methodsFor:'user interactions'!