--- a/UIPainter.st Tue Jun 17 14:19:30 1997 +0200
+++ b/UIPainter.st Tue Jun 17 14:42:33 1997 +0200
@@ -983,7 +983,7 @@
).
aspects at:#superclassNameDefaults put:#('ApplicationModel' 'SimpleDialog') asValue.
aspects at:#methodNameChannel put:(
- (specSelector notNil ifTrue:[specSelector]
+ (specSelector notNil ifTrue:[specSelector asValue]
ifFalse:[#windowSpec]) asValue
).
@@ -1017,7 +1017,7 @@
selectionPanel openWindow.
selectionPanel window application:self.
- "Modified: 17.6.1997 / 13:06:25 / cg"
+ "Modified: 17.6.1997 / 14:41:15 / cg"
!
openNewWindowCanvas
@@ -1054,14 +1054,14 @@
(aspects at:#classNameChannel) value:specClass.
(aspects at:#superclassNameChannel) value:specSuperclass.
- (aspects at:#methodNameChannel) value:specSelector.
+ (aspects at:#methodNameChannel) value:specSelector asSymbol.
painter className:aClass name.
painter methodName:aSelector.
painter setupFromSpec:(aClass perform:aSelector).
]
- "Modified: 17.6.1997 / 13:04:48 / cg"
+ "Modified: 17.6.1997 / 14:41:25 / cg"
! !
!UIPainter methodsFor:'user interaction - dialog'!
@@ -1135,6 +1135,7 @@
specClass := (self aspectFor:#classNameChannel) value.
specSelector := (self aspectFor:#methodNameChannel) value.
+ specSelector notNil ifTrue:[specSelector := specSelector asSymbol].
specSuperclass := (self aspectFor:#superclassNameChannel) value.
(again := self checkClassAndSelector not) ifFalse:[
@@ -1146,7 +1147,7 @@
] doWhile:[again]
- "Modified: 17.6.1997 / 14:18:19 / cg"
+ "Modified: 17.6.1997 / 14:42:02 / cg"
! !
!UIPainter methodsFor:'user interaction - pullDown'!
@@ -1416,9 +1417,14 @@
].
(cls respondsTo:specSelector) ifFalse:[
- ^ self information:'selector not defined'.
+self halt.
+ ^ self information:('no method for: #'
+ , specSelector , ' in ' , cls name ,
+ '\\(did you install the spec ?)') withCRs.
].
cls new openInterface:specSelector
+
+ "Modified: 17.6.1997 / 14:40:21 / cg"
!
doWindowSpec