--- 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'!