UIPainter.st
changeset 195 350f95af5d9d
parent 194 2b05bd327785
child 197 646d24a7ad36
--- a/UIPainter.st	Sun Jun 29 10:15:24 1997 +0200
+++ b/UIPainter.st	Tue Jul 01 19:20:12 1997 +0200
@@ -71,6 +71,12 @@
   ^ application open
 !
 
+openOnClass:aClass andSelector:aSelector
+    ^ self new openOnClass:aClass andSelector:aSelector
+
+    "Created: 1.7.1997 / 19:16:59 / cg"
+!
+
 painter:aBuilderView
     |application|
 
@@ -1317,10 +1323,12 @@
 "/            superclassName:aClass superclass name
 "/            selector:aSelector.
 
-        painter setupFromSpec:(aClass perform:aSelector).
+        (aClass respondsTo:aSelector) ifTrue:[
+            painter setupFromSpec:(aClass perform:aSelector).
+        ]
     ]
 
-    "Modified: 24.6.1997 / 19:07:05 / cg"
+    "Modified: 1.7.1997 / 19:18:54 / cg"
 ! !
 
 !UIPainter methodsFor:'user interaction - dialog'!