# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 908455889 -7200
# Node ID c6428ebd2f0dabfb6ef4e714d3c64939b96cacab
# Parent  e2999d76523afa6d553143a1c1209b8130fa3155
checkin from browser

diff -r e2999d76523a -r c6428ebd2f0d UIPainterView.st
--- 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'!