Fix typos. Ensure that specClass is a string.
--- 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'!