--- a/UIPainter.st Wed Jun 09 12:03:04 2004 +0200
+++ b/UIPainter.st Wed Jun 09 12:08:14 2004 +0200
@@ -3854,31 +3854,6 @@
]
].
-"/ specClass notNil ifTrue:[
-"/ (specClass includes:$:) ifFalse:[
-"/ (ns := Smalltalk defaultNameSpace) notNil ifTrue:[
-"/ cls := ns at:specClass asSymbol
-"/ ].
-"/ ].
-"/ cls isNil ifTrue:[
-"/ (specClass startsWith:'Smalltalk::') ifTrue:[
-"/ cls := Smalltalk at: (specClass copyFrom:12) asSymbol.
-"/ ] ifFalse:[
-"/ cls := Smalltalk at: specClass asSymbol.
-"/ ]
-"/ ].
-"/ ns := cls nameSpace.
-"/ ].
-"/ cls isClass ifFalse:[
-"/ self warn:('Oops - cannot save - class not found: ' , specClass).
-"/ ^nil
-"/ ].
-"/
-"/ ns ~~ Smalltalk defaultNameSpace ifTrue:[
-"/ specClass := ns name , '::' , cls nameWithoutNameSpacePrefix.
-"/ ] ifFalse:[
-"/ specClass := cls name.
-"/ ].
(specClass notNil
and:[ (cls := Smalltalk at:specClass asSymbol) isClass ])
ifFalse:[
@@ -3890,8 +3865,16 @@
className:specClass
superclassName:specSuperclass
selector:specSelector.
-self halt.
- Transcript showCR:'generating windowSpec code...'.
+
+"/ Transcript showCR:'generating windowSpec code...'.
+
+ (painter topView extent > (800 @ 600)) ifTrue:[
+ Dialog
+ warn:(resources
+ stringWithCRs:'The application''s default window-size is taken from the current size and will be %1.\\This may be too small on some displays - if required, resize and save again.'
+ with:painter topView extent printString allBold)
+ ].
+
code := painter generateWindowSpecMethodSource withCRs.
(ReadStream on:code) fileIn.
self doGenerateAspectSelectorsMethod.