--- a/UIPainterView.st	Sun Oct 11 12:35:20 1998 +0200
+++ b/UIPainterView.st	Thu Oct 15 14:51:29 1998 +0200
@@ -1134,8 +1134,14 @@
             , methodName , '\'
             , ((ResourceSpecEditor codeGenerationCommentForClass: UIPainter) replChar:$!! withString:'!!!!')
             , '\\    "\'
-            , ('     UIPainter new openOnClass:' , className , ' andSelector:#' , methodName , '\')
-            , ('     ' , className , ' new openInterface:#' , methodName , '\')
+            , ('     UIPainter new openOnClass:' , className , ' andSelector:#' , methodName , '\').
+
+    (cls isSubclassOf:ApplicationModel) ifTrue:[
+        code := code
+            , ('     ' , className , ' new openInterface:#' , methodName , '\').
+    ].
+
+    code := code
             ,(methodName = 'windowSpec' 
                 ifTrue:['     ' , className , ' open\'] ifFalse: [''])
             , '    "\'.
@@ -1151,8 +1157,8 @@
 
     ^ code withCRs
 
-    "Modified: 5.9.1995 / 21:01:35 / claus"
-    "Modified: 24.6.1997 / 19:12:44 / cg"
+    "Modified: / 5.9.1995 / 21:01:35 / claus"
+    "Modified: / 15.10.1998 / 11:29:53 / cg"
 ! !
 
 !UIPainterView methodsFor:'grid manipulation'!