--- a/UIPainter.st	Mon Feb 04 10:28:33 2008 +0100
+++ b/UIPainter.st	Mon Feb 04 10:29:04 2008 +0100
@@ -4680,12 +4680,20 @@
 "/    Transcript showCR:'generating windowSpec code...'.
 
     extentUsed := self canvas extent.
-    (extentUsed > (800 @ 600)) ifTrue:[
+    (extentUsed > (1024 @ 768)) ifTrue:[
+"/    (extentUsed > (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:extentUsed printString allBold)
     ].
+    (self canvas maxExtent notNil
+    and:[ extentUsed > self canvas maxExtent ]) ifTrue:[
+        Dialog 
+            warn:(resources
+                stringWithCRs:'The window-size is larger than its max-extent.\\This may lead to trouble (lost extent) later. I suggest removal of the max or resizing.'
+                with:extentUsed printString allBold)
+    ].
 
     code := painter generateWindowSpecMethodSource withCRs.
     (ReadStream on:code) fileIn.