class: AbstractSettingsApplication
authorClaus Gittinger <cg@exept.de>
Tue, 26 Nov 2013 15:31:16 +0100
changeset 13694 8a0442b537f7
parent 13693 3127cf8f3a7a
child 13695 318e32f2bd8e
class: AbstractSettingsApplication more real estate for checkboxes in systemMessageSettings to fit longer german strings.
AbstractSettingsApplication.st
--- a/AbstractSettingsApplication.st	Tue Nov 26 04:27:38 2013 +0000
+++ b/AbstractSettingsApplication.st	Tue Nov 26 15:31:16 2013 +0100
@@ -17384,175 +17384,175 @@
     <resource: #canvas>
 
     ^ 
-     #(FullSpec
-        name: windowSpec
-        window: 
-       (WindowSpec
-          label: 'Messages Settings'
-          name: 'Messages Settings'
-          min: (Point 10 10)
-          bounds: (Rectangle 0 0 561 478)
-        )
-        component: 
-       (SpecCollection
-          collection: (
-           (VerticalPanelViewSpec
-              name: 'VerticalPanel2'
-              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-              horizontalLayout: fitSpace
-              verticalLayout: topSpace
-              horizontalSpace: 5
-              verticalSpace: 5
-              component: 
-             (SpecCollection
-                collection: (
-                 (FramedBoxSpec
-                    label: 'Info & Error Messages'
-                    name: 'FramedBox1'
-                    labelPosition: topLeft
-                    translateLabel: true
-                    component: 
-                   (SpecCollection
-                      collection: (
-                       (CheckBoxSpec
-                          label: 'VM Info Messages'
-                          name: 'VMInfoMessages'
-                          layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
-                          model: vmInfo
-                          translateLabel: true
-                        )
-                       (CheckBoxSpec
-                          label: 'VM Error Messages'
-                          name: 'VMErrorMessages'
-                          layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
-                          model: vmErrors
-                          translateLabel: true
-                        )
-                       (CheckBoxSpec
-                          label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
-                          name: 'DisplayErrorMessages'
-                          layout: (LayoutFrame 5 0 55 0 -5 1 77 0)
-                          model: displayErrors
-                          translateLabel: true
-                        )
-                       (CheckBoxSpec
-                          label: 'Other Info Messages'
-                          name: 'OtherInfoMessages'
-                          layout: (LayoutFrame 5 0 80 0 -5 1 102 0)
-                          model: classInfos
-                          translateLabel: true
-                        )
-                       )
-                     
-                    )
-                    extent: (Point 551 133)
-                  )
-                 (FramedBoxSpec
-                    label: 'Audible Bell'
-                    name: 'FramedBox3'
-                    labelPosition: topLeft
-                    translateLabel: true
-                    component: 
-                   (SpecCollection
-                      collection: (
-                       (CheckBoxSpec
-                          label: 'Beep Generally Enabled'
-                          name: 'beepEnabled'
-                          layout: (LayoutFrame 5 0 5 0 226 0 27 0)
-                          model: beepEnabled
-                          translateLabel: true
-                        )
-                       (CheckBoxSpec
-                          label: 'Beep in Editor'
-                          name: 'CheckBox7'
-                          layout: (LayoutFrame 40 0 30 0 300 0 52 0)
-                          enableChannel: beepEnabled
-                          model: beepInEditor
-                          translateLabel: true
-                        )
-                       (CheckBoxSpec
-                          label: 'Beep for Info Dialogs'
-                          name: 'CheckBox3'
-                          layout: (LayoutFrame 40 0 55 0 300 0 77 0)
-                          enableChannel: beepEnabled
-                          model: beepForInfoDialog
-                          translateLabel: true
-                        )
-                       (CheckBoxSpec
-                          label: 'Beep for Warning Dialogs'
-                          name: 'CheckBox4'
-                          layout: (LayoutFrame 40 0 80 0 300 0 102 0)
-                          enableChannel: beepEnabled
-                          model: beepForWarningDialog
-                          translateLabel: true
-                        )
-                       (CheckBoxSpec
-                          label: 'Beep for Error Dialogs'
-                          name: 'CheckBox5'
-                          layout: (LayoutFrame 40 0 105 0 300 0 127 0)
-                          enableChannel: beepEnabled
-                          model: beepForErrorDialog
-                          translateLabel: true
-                        )
-                       )
-                     
-                    )
-                    extent: (Point 551 164)
-                  )
-                 (FramedBoxSpec
-                    label: 'Help'
-                    name: 'FramedBox4'
-                    labelPosition: topLeft
-                    translateLabel: true
-                    component: 
-                   (SpecCollection
-                      collection: (
-                       (CheckBoxSpec
-                          label: 'Tooltips (FlyBy Help)'
-                          name: 'CheckBox6'
-                          layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
-                          activeHelpKey: showToolTips
-                          model: flyByHelpActive
-                          translateLabel: true
-                        )
-                       (InputFieldSpec
-                          name: 'EntryField1'
-                          layout: (LayoutFrame -72 1 5 0 -16 1 27 0)
-                          enableChannel: flyByHelpActive
-                          model: toolTipAutoHideDelay
-                          type: timeDurationOrNil
-                          acceptOnReturn: true
-                          acceptOnTab: true
-                          acceptOnPointerLeave: true
-                        )
-                       (LabelSpec
-                          label: 'Autohide after:'
-                          name: 'Label1'
-                          layout: (LayoutFrame -260 1 6 0 -76 1 28 0)
-                          activeHelpKey: toolTipAutoHideDelay
-                          translateLabel: true
-                          adjust: right
-                        )
-                       (LabelSpec
-                          label: '(s)'
-                          name: 'Label2'
-                          layout: (LayoutFrame -13 1 6 0 7 1 28 0)
-                          translateLabel: true
-                          adjust: left
-                        )
-                       )
-                     
-                    )
-                    extent: (Point 551 62)
-                  )
-                 )
-               
-              )
-            )
-           )
-         
-        )
-      )
+    #(FullSpec
+       name: windowSpec
+       window: 
+      (WindowSpec
+         label: 'Messages Settings'
+         name: 'Messages Settings'
+         min: (Point 10 10)
+         bounds: (Rectangle 0 0 561 478)
+       )
+       component: 
+      (SpecCollection
+         collection: (
+          (VerticalPanelViewSpec
+             name: 'VerticalPanel2'
+             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+             horizontalLayout: fitSpace
+             verticalLayout: topSpace
+             horizontalSpace: 5
+             verticalSpace: 5
+             component: 
+            (SpecCollection
+               collection: (
+                (FramedBoxSpec
+                   label: 'Info & Error Messages'
+                   name: 'FramedBox1'
+                   labelPosition: topLeft
+                   translateLabel: true
+                   component: 
+                  (SpecCollection
+                     collection: (
+                      (CheckBoxSpec
+                         label: 'VM Info Messages'
+                         name: 'VMInfoMessages'
+                         layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
+                         model: vmInfo
+                         translateLabel: true
+                       )
+                      (CheckBoxSpec
+                         label: 'VM Error Messages'
+                         name: 'VMErrorMessages'
+                         layout: (LayoutFrame 5 0 30 0 -5 1 52 0)
+                         model: vmErrors
+                         translateLabel: true
+                       )
+                      (CheckBoxSpec
+                         label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
+                         name: 'DisplayErrorMessages'
+                         layout: (LayoutFrame 5 0 55 0 -5 1 77 0)
+                         model: displayErrors
+                         translateLabel: true
+                       )
+                      (CheckBoxSpec
+                         label: 'Other Info Messages'
+                         name: 'OtherInfoMessages'
+                         layout: (LayoutFrame 5 0 80 0 -5 1 102 0)
+                         model: classInfos
+                         translateLabel: true
+                       )
+                      )
+                    
+                   )
+                   extent: (Point 551 133)
+                 )
+                (FramedBoxSpec
+                   label: 'Audible Bell'
+                   name: 'FramedBox3'
+                   labelPosition: topLeft
+                   translateLabel: true
+                   component: 
+                  (SpecCollection
+                     collection: (
+                      (CheckBoxSpec
+                         label: 'Beep Generally Enabled'
+                         name: 'beepEnabled'
+                         layout: (LayoutFrame 5 0 5 0 0 1 27 0)
+                         model: beepEnabled
+                         translateLabel: true
+                       )
+                      (CheckBoxSpec
+                         label: 'Beep in Editor'
+                         name: 'CheckBox7'
+                         layout: (LayoutFrame 40 0 30 0 0 1 52 0)
+                         enableChannel: beepEnabled
+                         model: beepInEditor
+                         translateLabel: true
+                       )
+                      (CheckBoxSpec
+                         label: 'Beep for Info Dialogs'
+                         name: 'CheckBox3'
+                         layout: (LayoutFrame 40 0 55 0 0 1 77 0)
+                         enableChannel: beepEnabled
+                         model: beepForInfoDialog
+                         translateLabel: true
+                       )
+                      (CheckBoxSpec
+                         label: 'Beep for Warning Dialogs'
+                         name: 'CheckBox4'
+                         layout: (LayoutFrame 40 0 80 0 0 1 102 0)
+                         enableChannel: beepEnabled
+                         model: beepForWarningDialog
+                         translateLabel: true
+                       )
+                      (CheckBoxSpec
+                         label: 'Beep for Error Dialogs'
+                         name: 'CheckBox5'
+                         layout: (LayoutFrame 40 0 105 0 0 1 127 0)
+                         enableChannel: beepEnabled
+                         model: beepForErrorDialog
+                         translateLabel: true
+                       )
+                      )
+                    
+                   )
+                   extent: (Point 551 164)
+                 )
+                (FramedBoxSpec
+                   label: 'Help'
+                   name: 'FramedBox4'
+                   labelPosition: topLeft
+                   translateLabel: true
+                   component: 
+                  (SpecCollection
+                     collection: (
+                      (CheckBoxSpec
+                         label: 'Tooltips (FlyBy Help)'
+                         name: 'CheckBox6'
+                         layout: (LayoutFrame 5 0 5 0 -5 1 27 0)
+                         activeHelpKey: showToolTips
+                         model: flyByHelpActive
+                         translateLabel: true
+                       )
+                      (InputFieldSpec
+                         name: 'EntryField1'
+                         layout: (LayoutFrame -72 1 5 0 -16 1 27 0)
+                         enableChannel: flyByHelpActive
+                         model: toolTipAutoHideDelay
+                         type: timeDurationOrNil
+                         acceptOnReturn: true
+                         acceptOnTab: true
+                         acceptOnPointerLeave: true
+                       )
+                      (LabelSpec
+                         label: 'Autohide after:'
+                         name: 'Label1'
+                         layout: (LayoutFrame -260 1 6 0 -76 1 28 0)
+                         activeHelpKey: toolTipAutoHideDelay
+                         translateLabel: true
+                         adjust: right
+                       )
+                      (LabelSpec
+                         label: '(s)'
+                         name: 'Label2'
+                         layout: (LayoutFrame -13 1 6 0 7 1 28 0)
+                         translateLabel: true
+                         adjust: left
+                       )
+                      )
+                    
+                   )
+                   extent: (Point 551 62)
+                 )
+                )
+              
+             )
+           )
+          )
+        
+       )
+     )
 ! !
 
 !AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
@@ -18383,10 +18383,10 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.505 2013-11-25 16:47:10 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.506 2013-11-26 14:31:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.505 2013-11-25 16:47:10 stefan Exp $'
-! !
-
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.506 2013-11-26 14:31:16 cg Exp $'
+! !
+