# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1086775694 -7200
# Node ID d036350188f5746cbebb552190f949e2ae9ffc2b
# Parent  410f98d259b7606a94fd47b4ce5b0afbdd28f6a4
warn if spec is saved too large

diff -r 410f98d259b7 -r d036350188f5 UIPainter.st
--- 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.