ok button is left in some viewStyles
authorClaus Gittinger <cg@exept.de>
Wed, 11 Apr 2001 15:56:59 +0200
changeset 1457 8c15098c3469
parent 1456 7435d111bb09
child 1458 72a40564b16e
ok button is left in some viewStyles
ImageEditor.st
UIPainter.st
UISelectionPanel.st
--- a/ImageEditor.st	Wed Apr 11 13:49:57 2001 +0200
+++ b/ImageEditor.st	Wed Apr 11 15:56:59 2001 +0200
@@ -492,114 +492,115 @@
      the UIPainter may not be able to read the specification."
 
     "
-     UIPainter new openOnClass:ImageEditor andSelector:#grobDialogSpec
-     ImageEditor new openInterface:#grobDialogSpec
+     UIPainter new openOnClass:ImageEditor andSelector:#gropDialogSpec
+     ImageEditor new openInterface:#gropDialogSpec
     "
 
     <resource: #canvas>
 
-    ^
-     
-       #(#FullSpec
-          #window: 
-           #(#WindowSpec
-              #name: 'Crop Borders'
-              #layout: #(#LayoutFrame 22 0 233 0 266 0 415 0)
-              #label: 'Crop Borders'
-              #min: #(#Point 10 10)
-              #max: #(#Point 800 478)
-              #bounds: #(#Rectangle 22 233 267 416)
-              #usePreferredExtent: false
-          )
-          #component: 
-           #(#SpecCollection
-              #collection: 
-               #(
-                 #(#LabelSpec
-                    #name: 'Label1'
-                    #layout: #(#LayoutFrame 14 0 21 0 90 0 43 0)
-                    #label: 'Left:'
-                    #translateLabel: true
-                    #adjust: #right
-                )
-                 #(#InputFieldSpec
-                    #name: 'EntryField1'
-                    #layout: #(#LayoutFrame 95 0 21 0 132 0 43 0)
-                    #model: #left
-                    #type: #number
-                )
-                 #(#LabelSpec
-                    #name: 'Label2'
-                    #layout: #(#LayoutFrame 14 0 51 0 90 0 73 0)
-                    #label: 'Right:'
-                    #translateLabel: true
-                    #adjust: #right
-                )
-                 #(#InputFieldSpec
-                    #name: 'EntryField2'
-                    #layout: #(#LayoutFrame 95 0 51 0 132 0 73 0)
-                    #model: #right
-                    #type: #number
-                )
-                 #(#LabelSpec
-                    #name: 'Label3'
-                    #layout: #(#LayoutFrame 14 0 81 0 90 0 103 0)
-                    #label: 'Top:'
+    ^ 
+     #(#FullSpec
+        #name: #gropDialogSpec
+        #window: 
+       #(#WindowSpec
+          #label: 'Crop Borders'
+          #name: 'Crop Borders'
+          #min: #(#Point 10 10)
+          #max: #(#Point 800 478)
+          #bounds: #(#Rectangle 16 46 261 229)
+        )
+        #component: 
+       #(#SpecCollection
+          #collection: #(
+           #(#LabelSpec
+              #label: 'Left:'
+              #name: 'Label1'
+              #layout: #(#LayoutFrame 14 0 21 0 90 0 43 0)
+              #translateLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'EntryField1'
+              #layout: #(#LayoutFrame 95 0 21 0 132 0 43 0)
+              #model: #left
+              #type: #number
+              #acceptOnPointerLeave: false
+            )
+           #(#LabelSpec
+              #label: 'Right:'
+              #name: 'Label2'
+              #layout: #(#LayoutFrame 14 0 51 0 90 0 73 0)
+              #translateLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'EntryField2'
+              #layout: #(#LayoutFrame 95 0 51 0 132 0 73 0)
+              #model: #right
+              #type: #number
+              #acceptOnPointerLeave: false
+            )
+           #(#LabelSpec
+              #label: 'Top:'
+              #name: 'Label3'
+              #layout: #(#LayoutFrame 14 0 81 0 90 0 103 0)
+              #translateLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'EntryField3'
+              #layout: #(#LayoutFrame 95 0 81 0 132 0 103 0)
+              #model: #top
+              #type: #number
+              #acceptOnPointerLeave: false
+            )
+           #(#LabelSpec
+              #label: 'Bottom:'
+              #name: 'Label4'
+              #layout: #(#LayoutFrame 14 0 111 0 90 0 133 0)
+              #translateLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'EntryField4'
+              #layout: #(#LayoutFrame 95 0 111 0 132 0 133 0)
+              #model: #bottom
+              #type: #number
+              #acceptOnPointerLeave: false
+            )
+           #(#HorizontalPanelViewSpec
+              #name: 'HorizontalPanel1'
+              #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1)
+              #horizontalLayout: #fitSpace
+              #verticalLayout: #center
+              #horizontalSpace: 3
+              #verticalSpace: 3
+              #reverseOrderIfOKAtLeft: true
+              #component: 
+             #(#SpecCollection
+                #collection: #(
+                 #(#ActionButtonSpec
+                    #label: 'Cancel'
+                    #name: 'Button1'
                     #translateLabel: true
-                    #adjust: #right
-                )
-                 #(#InputFieldSpec
-                    #name: 'EntryField3'
-                    #layout: #(#LayoutFrame 95 0 81 0 132 0 103 0)
-                    #model: #top
-                    #type: #number
-                )
-                 #(#LabelSpec
-                    #name: 'Label4'
-                    #layout: #(#LayoutFrame 14 0 111 0 90 0 133 0)
-                    #label: 'Bottom:'
+                    #model: #cancel
+                    #extent: #(#Point 118 22)
+                  )
+                 #(#ActionButtonSpec
+                    #label: 'OK'
+                    #name: 'Button2'
                     #translateLabel: true
-                    #adjust: #right
-                )
-                 #(#InputFieldSpec
-                    #name: 'EntryField4'
-                    #layout: #(#LayoutFrame 95 0 111 0 132 0 133 0)
-                    #model: #bottom
-                    #type: #number
-                )
-                 #(#HorizontalPanelViewSpec
-                    #name: 'HorizontalPanel1'
-                    #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1)
-                    #component: 
-                     #(#SpecCollection
-                        #collection: 
-                         #(
-                           #(#ActionButtonSpec
-                              #name: 'Button1'
-                              #label: 'Cancel'
-                              #translateLabel: true
-                              #model: #cancel
-                              #extent: #(#Point 118 22)
-                          )
-                           #(#ActionButtonSpec
-                              #name: 'Button2'
-                              #label: 'OK'
-                              #translateLabel: true
-                              #model: #accept
-                              #extent: #(#Point 118 22)
-                          )
-                        )
-                    )
-                    #horizontalLayout: #fitSpace
-                    #verticalLayout: #center
-                    #horizontalSpace: 3
-                    #verticalSpace: 3
-                )
+                    #model: #accept
+                    #extent: #(#Point 118 22)
+                  )
+                 )
+               
               )
-          )
+            )
+           )
+         
+        )
       )
-
-    "Modified: / 7.9.1998 / 18:29:34 / cg"
 !
 
 windowSpec
--- a/UIPainter.st	Wed Apr 11 13:49:57 2001 +0200
+++ b/UIPainter.st	Wed Apr 11 15:56:59 2001 +0200
@@ -699,17 +699,13 @@
           #name: 'GUI Painter'
           #min: #(#Point 560 460)
           #max: #(#Point 1160 870)
-          #bounds: #(#Rectangle 12 22 620 545)
+          #bounds: #(#Rectangle 16 46 624 569)
           #menu: #menu
         )
         #component: 
        #(#SpecCollection
           #collection: #(
            #(#MenuPanelSpec
-              #attributes: 
-             #(#tabable
-                true
-              )
               #name: 'menuToolbarView'
               #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
               #tabable: true
@@ -740,10 +736,6 @@
                    #(#SpecCollection
                       #collection: #(
                        #(#MenuPanelSpec
-                          #attributes: 
-                         #(#tabable
-                            true
-                          )
                           #name: 'menuToolbar2View'
                           #layout: #(#LayoutFrame -1 0.0 -2 0 -1 1.0 30 0)
                           #enableChannel: #canMoveOrAlignSelection
@@ -761,10 +753,6 @@
                          #(#SpecCollection
                             #collection: #(
                              #(#ArrowButtonSpec
-                                #attributes: 
-                               #(#tabable
-                                  true
-                                )
                                 #name: 'MoveLeftButton'
                                 #activeHelpKey: #changePositionLeft
                                 #tabable: true
@@ -775,10 +763,6 @@
                                 #useDefaultExtent: true
                               )
                              #(#ArrowButtonSpec
-                                #attributes: 
-                               #(#tabable
-                                  true
-                                )
                                 #name: 'MoveRightButton'
                                 #activeHelpKey: #changePositionRight
                                 #tabable: true
@@ -790,10 +774,6 @@
                                 #useDefaultExtent: true
                               )
                              #(#ArrowButtonSpec
-                                #attributes: 
-                               #(#tabable
-                                  true
-                                )
                                 #name: 'MoveDownButton'
                                 #activeHelpKey: #changePositionDown
                                 #tabable: true
@@ -805,10 +785,6 @@
                                 #useDefaultExtent: true
                               )
                              #(#ArrowButtonSpec
-                                #attributes: 
-                               #(#tabable
-                                  true
-                                )
                                 #name: 'MoveUpButton'
                                 #activeHelpKey: #changePositionUp
                                 #tabable: true
@@ -824,10 +800,6 @@
                           )
                         )
                        #(#ActionButtonSpec
-                          #attributes: 
-                         #(#tabable
-                            true
-                          )
                           #label: 'helpIcon'
                           #name: 'openWidgetDocumentationButton'
                           #layout: #(#LayoutFrame -28 1 -1 0 0 1 28 0)
@@ -837,10 +809,6 @@
                           #model: #doOpenWidgetDocumentation
                         )
                        #(#NoteBookViewSpec
-                          #attributes: 
-                         #(#tabable
-                            true
-                          )
                           #name: 'noteBook'
                           #layout: #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -30 1.0)
                           #enableChannel: #enableChannel
@@ -849,31 +817,38 @@
                           #menu: #tabList
                           #canvas: #noteBookView
                         )
-                       #(#ActionButtonSpec
-                          #attributes: 
-                         #(#tabable
-                            true
+                       #(#HorizontalPanelViewSpec
+                          #name: 'HorizontalPanel1'
+                          #layout: #(#LayoutFrame 2 0 -28 1 -2 1 -2 1)
+                          #horizontalLayout: #center
+                          #verticalLayout: #center
+                          #horizontalSpace: 3
+                          #verticalSpace: 3
+                          #reverseOrderIfOKAtLeft: true
+                          #component: 
+                         #(#SpecCollection
+                            #collection: #(
+                             #(#ActionButtonSpec
+                                #label: 'Cancel'
+                                #name: 'cancelButton'
+                                #activeHelpKey: #commitCancel
+                                #tabable: true
+                                #model: #cancel
+                                #enableChannel: #modifiedChannel
+                                #extent: #(#Point 201 24)
+                              )
+                             #(#ActionButtonSpec
+                                #label: 'OK'
+                                #name: 'acceptButton'
+                                #activeHelpKey: #commitOK
+                                #tabable: true
+                                #model: #accept
+                                #enableChannel: #modifiedChannel
+                                #extent: #(#Point 201 24)
+                              )
+                             )
+                           
                           )
-                          #label: 'Cancel'
-                          #name: 'cancelButton'
-                          #layout: #(#LayoutFrame 2 0 -26 1 -1 0.5 -2 1)
-                          #activeHelpKey: #commitCancel
-                          #tabable: true
-                          #model: #cancel
-                          #enableChannel: #modifiedChannel
-                        )
-                       #(#ActionButtonSpec
-                          #attributes: 
-                         #(#tabable
-                            true
-                          )
-                          #label: 'OK'
-                          #name: 'acceptButton'
-                          #layout: #(#LayoutFrame 1 0.5 -26 1 -2 1 -2 1)
-                          #activeHelpKey: #commitOK
-                          #tabable: true
-                          #model: #accept
-                          #enableChannel: #modifiedChannel
                         )
                        )
                      
--- a/UISelectionPanel.st	Wed Apr 11 13:49:57 2001 +0200
+++ b/UISelectionPanel.st	Wed Apr 11 15:56:59 2001 +0200
@@ -137,10 +137,11 @@
 !UISelectionPanel class methodsFor:'interface specs'!
 
 nameAndSelectorSpec
-    "this window spec was automatically generated by the ST/X UIPainter"
+    "This resource specification was automatically generated
+     by the UIPainter of ST/X."
 
-    "do not manually edit this - the painter/builder may not be able to
-     handle the specification if its corrupted."
+    "Do not manually edit this!! If it is corrupted,
+     the UIPainter may not be able to read the specification."
 
     "
      UIPainter new openOnClass:UISelectionPanel andSelector:#nameAndSelectorSpec
@@ -149,109 +150,111 @@
 
     <resource: #canvas>
 
-    ^
-     
-       #(#FullSpec
-          #window: 
-           #(#WindowSpec
-              #name: 'uIPainterView'
-              #layout: #(#LayoutFrame 110 0 366 0 424 0 581 0)
-              #label: 'Painter'
-              #min: #(#Point 10 10)
-              #max: #(#Point 1280 1024)
-              #bounds: #(#Rectangle 110 366 425 582)
-              #usePreferredExtent: false
-          )
-          #component: 
-           #(#SpecCollection
-              #collection: 
-               #(
-                 #(#LabelSpec
-                    #name: 'title'
-                    #layout: #(#Point 5 10)
-                    #label: 'Class & selectors to access user specs:'
-                    #adjust: #left
-                    #resizeForLabel: true
-                )
-                 #(#LabelSpec
-                    #name: 'classLabel'
-                    #layout: #(#AlignmentOrigin 68 0.11 51 0 1 0.5)
-                    #label: 'Class:'
-                    #adjust: #right
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'classField'
-                    #layout: #(#LayoutFrame 74 0.11 39 0 -5 1.0 61 0)
-                    #tabable: true
-                    #model: #className
-                    #type: #string
-                )
-                 #(#LabelSpec
-                    #name: 'labelsLabel'
-                    #layout: #(#AlignmentOrigin 68 0.11 74 0 1 0.5)
-                    #label: 'Labels:'
-                    #adjust: #right
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'labelsField'
-                    #layout: #(#LayoutFrame 74 0.11 64 0 -5 1.0 86 0)
+    ^ 
+     #(#FullSpec
+        #name: #nameAndSelectorSpec
+        #window: 
+       #(#WindowSpec
+          #label: 'Painter'
+          #name: 'Painter'
+          #min: #(#Point 10 10)
+          #max: #(#Point 1280 1024)
+          #bounds: #(#Rectangle 16 46 331 262)
+        )
+        #component: 
+       #(#SpecCollection
+          #collection: #(
+           #(#LabelSpec
+              #label: 'Class & selectors to access user specs:'
+              #name: 'title'
+              #layout: #(#Point 5 10)
+              #resizeForLabel: true
+              #adjust: #left
+            )
+           #(#LabelSpec
+              #label: 'Class:'
+              #name: 'classLabel'
+              #layout: #(#AlignmentOrigin 68 0.11 51 0 1 0.5)
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'classField'
+              #layout: #(#LayoutFrame 74 0.11 39 0 -5 1.0 61 0)
+              #tabable: true
+              #model: #className
+              #type: #string
+              #acceptOnPointerLeave: false
+            )
+           #(#LabelSpec
+              #label: 'Labels:'
+              #name: 'labelsLabel'
+              #layout: #(#AlignmentOrigin 68 0.11 74 0 1 0.5)
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'labelsField'
+              #layout: #(#LayoutFrame 74 0.11 64 0 -5 1.0 86 0)
+              #tabable: true
+              #model: #labelsKey
+              #type: #symbolOrNil
+              #acceptOnPointerLeave: false
+            )
+           #(#LabelSpec
+              #label: 'Specifications:'
+              #name: 'specsLabel'
+              #layout: #(#AlignmentOrigin 68 0.11 99 0 1 0.5)
+              #resizeForLabel: true
+              #adjust: #right
+            )
+           #(#InputFieldSpec
+              #name: 'specsField'
+              #layout: #(#LayoutFrame 74 0.11 89 0 -5 1.0 111 0)
+              #tabable: true
+              #model: #specsKey
+              #type: #symbolOrNil
+              #acceptOnPointerLeave: false
+            )
+           #(#HorizontalPanelViewSpec
+              #name: 'commitPanel'
+              #layout: #(#LayoutFrame 0 0.0 -23 1.0 0 1.0 0 1.0)
+              #horizontalLayout: #fitSpace
+              #verticalLayout: #fit
+              #horizontalSpace: 3
+              #verticalSpace: 3
+              #reverseOrderIfOKAtLeft: true
+              #component: 
+             #(#SpecCollection
+                #collection: #(
+                 #(#ActionButtonSpec
+                    #label: 'cancel'
+                    #name: 'cancel'
                     #tabable: true
-                    #model: #labelsKey
-                    #type: #symbolOrNil
-                )
-                 #(#LabelSpec
-                    #name: 'specsLabel'
-                    #layout: #(#AlignmentOrigin 68 0.11 99 0 1 0.5)
-                    #label: 'Specifications:'
-                    #adjust: #right
-                    #resizeForLabel: true
-                )
-                 #(#InputFieldSpec
-                    #name: 'specsField'
-                    #layout: #(#LayoutFrame 74 0.11 89 0 -5 1.0 111 0)
+                    #model: #cancel
+                    #extent: #(#Point 152 23)
+                  )
+                 #(#ActionButtonSpec
+                    #label: 'ok'
+                    #name: 'accept'
                     #tabable: true
-                    #model: #specsKey
-                    #type: #symbolOrNil
-                )
-                 #(#HorizontalPanelViewSpec
-                    #name: 'commitPanel'
-                    #layout: #(#LayoutFrame 0 0.0 -23 1.0 0 1.0 0 1.0)
-                    #component: 
-                     #(#SpecCollection
-                        #collection: 
-                         #(
-                           #(#ActionButtonSpec
-                              #name: 'cancel'
-                              #label: 'cancel'
-                              #tabable: true
-                              #model: #cancel
-                              #extent: #(#Point 153 23)
-                          )
-                           #(#ActionButtonSpec
-                              #name: 'accept'
-                              #label: 'ok'
-                              #tabable: true
-                              #model: #accept
-                              #isDefault: true
-                              #extent: #(#Point 153 23)
-                          )
-                        )
-                    )
-                    #horizontalLayout: #fitSpace
-                    #verticalLayout: #fit
-                    #horizontalSpace: 3
-                    #verticalSpace: 3
-                )
-                 #(#CheckBoxSpec
-                    #name: 'updateDefaultResources'
-                    #layout: #(#Point 5 133)
-                    #model: #updateDefaultResources
-                    #label: 'Update Default Resources'
-                )
+                    #model: #accept
+                    #isDefault: true
+                    #extent: #(#Point 152 21)
+                  )
+                 )
+               
               )
-          )
+            )
+           #(#CheckBoxSpec
+              #label: 'Update Default Resources'
+              #name: 'updateDefaultResources'
+              #layout: #(#Point 5 133)
+              #model: #updateDefaultResources
+            )
+           )
+         
+        )
       )
 !