# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1075821241 -3600
# Node ID 8108839cc26209939a936b516865b8e0821b641b
# Parent  d67090b1ad574d143f9bab355c5d479fce0a4a9a
translate label

diff -r d67090b1ad57 -r 8108839cc262 UIPainter.st
--- a/UIPainter.st	Tue Feb 03 16:08:53 2004 +0100
+++ b/UIPainter.st	Tue Feb 03 16:14:01 2004 +0100
@@ -745,89 +745,89 @@
 
     <resource: #canvas>
 
-    ^
-     
-       #(#FullSpec
-	  #window: 
-	   #(#WindowSpec
-	      #name: 'GUI Painter'
-	      #layout: #(#LayoutFrame 291 0 130 0 572 0 327 0)
-	      #label: 'GUI Painter'
-	      #min: #(#Point 300 200)
-	      #max: #(#Point 300 200)
-	      #bounds: #(#Rectangle 291 130 573 328)
-	      #usePreferredExtent: false
-	  )
-	  #component: 
-	   #(#SpecCollection
-	      #collection: 
-	       #(
-		 #(#FramedBoxSpec
-		    #name: 'FramedBox'
-		    #layout: #(#LayoutFrame 0 0.0 3 0.0 0 1.0 -35 1.0)
-		    #component: 
-		     #(#SpecCollection
-			#collection: 
-			 #(
-			   #(#CheckBoxSpec
-			      #name: 'ShowGridCheckBox'
-			      #layout: #(#Point 13 14)
-			      #model: #showGrid
-			      #label: 'Show Grid'
-			  )
-			   #(#CheckBoxSpec
-			      #name: 'AlignCheckBox'
-			      #layout: #(#Point 13 42)
-			      #model: #alignToGrid
-			      #label: 'Align To Grid'
-			  )
-			   #(#LabelSpec
-			      #name: 'HorizontalPixelsLabel'
-			      #layout: #(#AlignmentOrigin 138 0 89 0 1 0.5)
-			      #label: 'Horizontal Pixels:'
-			      #translateLabel: true
-			      #adjust: #right
-			      #resizeForLabel: true
-			  )
-			   #(#InputFieldSpec
-			      #name: 'HorizontalPixelsField'
-			      #layout: #(#LayoutFrame 144 0 77 0 197 0 99 0)
-			      #model: #hspace
-			      #group: #inputGroup
-			      #type: #numberOrNil
-			  )
-			   #(#LabelSpec
-			      #name: 'VerticalPixelsLabel'
-			      #layout: #(#AlignmentOrigin 139 0 114 0 1 0.5)
-			      #label: 'Vertical Pixels:'
-			      #translateLabel: true
-			      #adjust: #right
-			      #resizeForLabel: true
-			  )
-			   #(#InputFieldSpec
-			      #name: 'VerticalPixelsField'
-			      #layout: #(#LayoutFrame 144 0 102 0 197 0 124 0)
-			      #model: #vspace
-			      #group: #inputGroup
-			      #type: #numberOrNil
-			  )
-			)
-		    )
-		    #label: 'Grid Parameter'
-		    #labelPosition: #topLeft
-		    #translateLabel: true
-		)
-		 #(#UISubSpecification
-		    #name: 'subSpec'
-		    #layout: #(#LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
-		    #majorKey: #ToolApplicationModel
-		    #minorKey: #windowSpecForCommitWithoutChannels
-		)
-	      )
-	  )
+    ^ 
+     #(FullSpec
+        name: dialogSpecForDefiningGridParameters
+        window: 
+       (WindowSpec
+          label: 'GUI Painter'
+          name: 'GUI Painter'
+          min: (Point 300 200)
+          max: (Point 300 200)
+          bounds: (Rectangle 16 46 298 244)
+        )
+        component: 
+       (SpecCollection
+          collection: (
+           (FramedBoxSpec
+              label: 'Grid Parameter'
+              name: 'FramedBox'
+              layout: (LayoutFrame 0 0.0 3 0.0 0 1.0 -35 1.0)
+              labelPosition: topLeft
+              translateLabel: true
+              component: 
+             (SpecCollection
+                collection: (
+                 (CheckBoxSpec
+                    label: 'Show Grid'
+                    name: 'ShowGridCheckBox'
+                    layout: (Point 13 14)
+                    model: showGrid
+                    translateLabel: true
+                  )
+                 (CheckBoxSpec
+                    label: 'Align To Grid'
+                    name: 'AlignCheckBox'
+                    layout: (Point 13 42)
+                    model: alignToGrid
+                    translateLabel: true
+                  )
+                 (LabelSpec
+                    label: 'Horizontal Pixels:'
+                    name: 'HorizontalPixelsLabel'
+                    layout: (AlignmentOrigin 138 0 89 0 1 0.5)
+                    translateLabel: true
+                    resizeForLabel: true
+                    adjust: right
+                  )
+                 (InputFieldSpec
+                    name: 'HorizontalPixelsField'
+                    layout: (LayoutFrame 144 0 77 0 197 0 99 0)
+                    model: hspace
+                    group: inputGroup
+                    type: numberOrNil
+                    acceptOnPointerLeave: false
+                  )
+                 (LabelSpec
+                    label: 'Vertical Pixels:'
+                    name: 'VerticalPixelsLabel'
+                    layout: (AlignmentOrigin 139 0 114 0 1 0.5)
+                    translateLabel: true
+                    resizeForLabel: true
+                    adjust: right
+                  )
+                 (InputFieldSpec
+                    name: 'VerticalPixelsField'
+                    layout: (LayoutFrame 144 0 102 0 197 0 124 0)
+                    model: vspace
+                    group: inputGroup
+                    type: numberOrNil
+                    acceptOnPointerLeave: false
+                  )
+                 )
+               
+              )
+            )
+           (UISubSpecification
+              name: 'subSpec'
+              layout: (LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
+              majorKey: ToolApplicationModel
+              minorKey: windowSpecForCommitWithoutChannels
+            )
+           )
+         
+        )
       )
-
-    "Modified: / 13.8.1998 / 20:00:00 / cg"
 !
 
 windowSpec
@@ -853,7 +853,7 @@
           label: 'GUI Painter'
           name: 'GUI Painter'
           min: (Point 560 460)
-          bounds: (Rectangle 14 46 622 569)
+          bounds: (Rectangle 16 46 624 569)
           menu: menu
         )
         component: 
@@ -922,6 +922,7 @@
                                 label: 'Cancel'
                                 name: 'cancelButton'
                                 activeHelpKey: commitCancel
+                                translateLabel: true
                                 tabable: true
                                 model: cancel
                                 enableChannel: modifiedChannel
@@ -931,6 +932,7 @@
                                 label: 'OK'
                                 name: 'acceptButton'
                                 activeHelpKey: commitOK
+                                translateLabel: true
                                 tabable: true
                                 model: accept
                                 enableChannel: modifiedChannel
@@ -2125,10 +2127,11 @@
 tabList
     "returns a value holder which keeps a list of the section labels in the notebook"
 
-    |holder|
+    |tabs holder|
 
     (holder := builder bindingAt:#tabList) isNil ifTrue:[
-	builder aspectAt:#tabList put:(holder :=  #(Basics Details Layout) asValue).
+        tabs := #(Basics Details Layout).
+        builder aspectAt:#tabList put:(holder :=  (resources array:tabs) asValue).
     ].
     ^ holder
 !