--- a/CodeGeneratorTool.st	Thu Oct 22 19:52:55 2009 +0200
+++ b/CodeGeneratorTool.st	Thu Oct 22 21:07:58 2009 +0200
@@ -390,6 +390,104 @@
 '.
 !
 
+initialWindowSpecForApplications
+    "This resource specification was automatically generated
+     by the UIPainter of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the UIPainter may not be able to read the specification."
+
+    "
+     UIPainter new openOnClass:CodeGeneratorTool andSelector:#initialWindowSpecForApplications
+    "
+
+    <resource: #canvas>
+
+    ^ 
+     #(FullSpec
+        name: initialWindowSpecForApplications
+        window: 
+       (WindowSpec
+          label: '%1'
+          name: '%1'
+          min: (Point 10 10)
+          max: (Point 1024 768)
+          bounds: (Rectangle 0 0 300 300)
+          menu: mainMenu
+        )
+        component: 
+       (SpecCollection
+          collection: (
+           (LabelSpec
+              label: 'Hello World'
+              name: 'Label1'
+              layout: (LayoutFrame 0 0.0 60 0 0 1.0 219 0)
+              translateLabel: true
+            )
+           )
+         
+        )
+      )
+!
+
+initialWindowSpecForDialogs
+    <resource: #canvas>
+
+    "return an initial windowSpec for dialogs"
+
+    ^  #(#FullSpec
+          #window: 
+           #(#WindowSpec
+              #name: '%1'
+              #layout: #(#LayoutFrame 221 0 118 0 520 0 417 0)
+              #level: 0
+              #label: '%1'
+              #min: #(#Point 10 10)
+              #max: #(#Point 1024 768)
+              #bounds: #(#Rectangle 221 118 521 418)
+              #usePreferredExtent: false
+          )
+          #component: 
+           #(#SpecCollection
+              #collection: 
+               #(
+                 #(#HorizontalPanelViewSpec
+                    #name: 'buttonPanel'
+                    #layout: #(#LayoutFrame 0 0.0 -45 1 0 1.0 0 1.0)
+                    #component: 
+                     #(#SpecCollection
+                        #collection: 
+                         #(
+                          #(#ActionButtonSpec
+                             #name: 'cancelButton'
+                             #label: 'Cancel'
+                             #tabable: true
+                             #translateLabel: true
+                             #model: #cancel
+                             #extent: #(#Point 125 22)
+                           )
+                           #(#ActionButtonSpec
+                              #name: 'okButton'
+                              #label: 'OK'
+                              #tabable: true
+                              #translateLabel: true
+                              #isDefault: true
+                              #model: #accept
+                              #extent: #(#Point 125 22)
+                          )
+                        )
+                    )
+                    #reverseOrderIfOKAtLeft: true
+                    #horizontalLayout: #spreadSpaceMax
+                    #verticalLayout: #center
+                    #horizontalSpace: 3
+                    #verticalSpace: 3
+                )
+              )
+          )
+      )
+!
+
 initialWindowSpecMethodSourceForApplications
     "return an empty windowSpec with an initial menubar in it"
 
@@ -406,24 +504,13 @@
 
     <resource: #canvas>
 
-    ^ #(#FullSpec
-          #window: 
-           #(#WindowSpec
-              #name: ''%1''
-              #layout: #(#LayoutFrame 204 0 162 0 503 0 461 0)
-              #label: ''%1''
-              #min: #(#Point 10 10)
-              #max: #(#Point 1024 768)
-              #bounds: #(#Rectangle 204 162 504 462)
-              #menu: #mainMenu
-              #usePreferredExtent: false
-          )
-          #component: 
-           #(#SpecCollection
-              #collection: #()
-          )
-      )
-'.
+    ^ ',
+        self initialWindowSpecForApplications decodeAsLiteralArray prettyPrintString           
+.
+
+    "
+     self initialWindowSpecMethodSourceForApplications
+    "
 !
 
 initialWindowSpecMethodSourceForDialogs
@@ -442,60 +529,8 @@
 
     <resource: #canvas>
 
-    ^
-
-       #(#FullSpec
-          #window: 
-           #(#WindowSpec
-              #name: ''%1''
-              #layout: #(#LayoutFrame 221 0 118 0 520 0 417 0)
-              #level: 0
-              #label: ''%1''
-              #min: #(#Point 10 10)
-              #max: #(#Point 1024 768)
-              #bounds: #(#Rectangle 221 118 521 418)
-              #usePreferredExtent: false
-          )
-          #component: 
-           #(#SpecCollection
-              #collection: 
-               #(
-                 #(#HorizontalPanelViewSpec
-                    #name: ''buttonPanel''
-                    #layout: #(#LayoutFrame 0 0.0 -45 1 0 1.0 0 1.0)
-                    #component: 
-                     #(#SpecCollection
-                        #collection: 
-                         #(
-                          #(#ActionButtonSpec
-                             #name: ''cancelButton''
-                             #label: ''Cancel''
-                             #tabable: true
-                             #translateLabel: true
-                             #model: #cancel
-                             #extent: #(#Point 125 22)
-                           )
-                           #(#ActionButtonSpec
-                              #name: ''okButton''
-                              #label: ''OK''
-                              #tabable: true
-                              #translateLabel: true
-                              #isDefault: true
-                              #model: #accept
-                              #extent: #(#Point 125 22)
-                          )
-                        )
-                    )
-                    #reverseOrderIfOKAtLeft: true
-                    #horizontalLayout: #spreadSpaceMax
-                    #verticalLayout: #center
-                    #horizontalSpace: 3
-                    #verticalSpace: 3
-                )
-              )
-          )
-      )
-'.
+    ^ ',
+        self initialWindowSpecForDialogs decodeAsLiteralArray prettyPrintString           
 ! !
 
 !CodeGeneratorTool class methodsFor:'code generation-basic'!
@@ -2931,9 +2966,9 @@
 !CodeGeneratorTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.71 2009-10-22 17:52:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.72 2009-10-22 19:07:58 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.71 2009-10-22 17:52:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.72 2009-10-22 19:07:58 cg Exp $'
 ! !