diff -r 622b88baeff6 -r 12a70f62f414 UIPainter.st
--- 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