AbstractSettingsApplication.st
branchjv
changeset 16689 70b43a6c4755
parent 16677 0b0b210aa155
parent 16682 c338771ee657
child 16719 909111047a1d
--- a/AbstractSettingsApplication.st	Thu Jun 09 08:35:39 2016 +0100
+++ b/AbstractSettingsApplication.st	Fri Jun 10 07:10:24 2016 +0200
@@ -15660,10 +15660,10 @@
 
     <resource: #canvas>
 
-    ^
+    ^ 
     #(FullSpec
        name: windowSpec
-       window:
+       window: 
       (WindowSpec
          label: 'Source Code Manager Settings'
          name: 'Source Code Manager Settings'
@@ -15671,7 +15671,7 @@
          min: (Point 10 10)
          bounds: (Rectangle 0 0 660 639)
        )
-       component:
+       component: 
       (SpecCollection
          collection: (
           (VerticalPanelViewSpec
@@ -15681,7 +15681,7 @@
              verticalLayout: topSpace
              horizontalSpace: 3
              verticalSpace: 20
-             component:
+             component: 
             (SpecCollection
                collection: (
                 (VerticalPanelViewSpec
@@ -15690,12 +15690,12 @@
                    verticalLayout: top
                    horizontalSpace: 3
                    verticalSpace: 4
-                   component:
+                   component: 
                   (SpecCollection
                      collection: (
                       (ViewSpec
                          name: 'Box3'
-                         component:
+                         component: 
                         (SpecCollection
                            collection: (
                             (CheckBoxSpec
@@ -15726,7 +15726,7 @@
                                adjust: right
                              )
                             )
-
+                          
                          )
                          extent: (Point 660 30)
                        )
@@ -15736,7 +15736,7 @@
                          activeHelpKey: perPackageConfiguration
                          labelPosition: topLeft
                          translateLabel: true
-                         component:
+                         component: 
                         (SpecCollection
                            collection: (
                             (VerticalPanelViewSpec
@@ -15747,13 +15747,13 @@
                                verticalLayout: bottomFit
                                horizontalSpace: 3
                                verticalSpace: 3
-                               component:
+                               component: 
                               (SpecCollection
                                  collection: (
                                   (ViewSpec
                                      name: 'RepositoryConfigurationListBox'
                                      activeHelpKey: perPackageConfiguration
-                                     component:
+                                     component: 
                                     (SpecCollection
                                        collection: (
                                         (DataSetSpec
@@ -15774,7 +15774,7 @@
                                            verticalLayout: top
                                            horizontalSpace: 5
                                            verticalSpace: 3
-                                           component:
+                                           component: 
                                           (SpecCollection
                                              collection: (
                                               (ActionButtonSpec
@@ -15783,7 +15783,7 @@
                                                  activeHelpKey: addPerPackageManager
                                                  translateLabel: true
                                                  model: actionAdd
-                                                 extent: (Point 121 30)
+                                                 extent: (Point 119 30)
                                                )
                                               (ActionButtonSpec
                                                  label: 'Edit...'
@@ -15792,7 +15792,7 @@
                                                  translateLabel: true
                                                  model: actionEdit
                                                  enableChannel: canRemoveManagerPerPackageEntry
-                                                 extent: (Point 121 30)
+                                                 extent: (Point 119 30)
                                                )
                                               (ActionButtonSpec
                                                  label: 'Move Up'
@@ -15801,7 +15801,7 @@
                                                  translateLabel: true
                                                  model: actionMoveUp
                                                  enableChannel: canMoveUp
-                                                 extent: (Point 121 30)
+                                                 extent: (Point 119 30)
                                                )
                                               (ActionButtonSpec
                                                  label: 'Move Down'
@@ -15810,7 +15810,7 @@
                                                  translateLabel: true
                                                  model: actionMoveDown
                                                  enableChannel: canMoveDown
-                                                 extent: (Point 121 30)
+                                                 extent: (Point 119 30)
                                                )
                                               (LabelSpec
                                                  name: 'SpacingLabel'
@@ -15824,10 +15824,10 @@
                                                  translateLabel: true
                                                  model: actionRemove
                                                  enableChannel: canRemoveManagerPerPackageEntry
-                                                 extent: (Point 121 30)
+                                                 extent: (Point 119 30)
                                                )
                                               )
-
+                                            
                                            )
                                          )
                                         (ActionButtonSpec
@@ -15839,16 +15839,16 @@
                                            model: actionTest
                                          )
                                         )
-
+                                      
                                      )
-                                     extent: (Point 626 266)
+                                     extent: (Point 618 258)
                                    )
                                   )
-
+                                
                                )
                              )
                             )
-
+                          
                          )
                          extent: (Point 660 300)
                        )
@@ -15858,18 +15858,18 @@
                          activeHelpKey: sourceCache
                          labelPosition: topLeft
                          translateLabel: true
-                         component:
+                         component: 
                         (SpecCollection
                            collection: (
                             (ViewSpec
                                name: 'SourceCacheDirBox'
                                layout: (LayoutFrame 0 0 0 0 0 1 30 0)
-                               component:
+                               component: 
                               (SpecCollection
                                  collection: (
                                   (FilenameInputFieldSpec
                                      name: 'FilenameEntryField1'
-                                     layout: (LayoutFrame 64 0.25 0 0 0 1 30 0)
+                                     layout: (LayoutFrame 64 0.25 0 0 -2 1 30 0)
                                      enableChannel: useManager
                                      model: sourceCacheDir
                                      immediateAccept: false
@@ -15886,17 +15886,17 @@
                                      adjust: right
                                    )
                                   )
-
+                                
                                )
                              )
                             (HorizontalPanelViewSpec
                                name: 'CacheActionsHorizontalPanel1'
-                               layout: (LayoutFrame 0 0 37 0 0 1 67 0)
+                               layout: (LayoutFrame 0 0 37 0 -1 1 67 0)
                                horizontalLayout: right
                                verticalLayout: center
                                horizontalSpace: 3
                                verticalSpace: 3
-                               component:
+                               component: 
                               (SpecCollection
                                  collection: (
                                   (ActionButtonSpec
@@ -15907,20 +15907,20 @@
                                      tabable: true
                                      model: fillSourceCache
                                      enableChannel: useManager
-                                     extent: (Point 171 30)
+                                     extent: (Point 150 30)
                                    )
                                   )
-
+                                
                                )
                              )
                             (HorizontalPanelViewSpec
                                name: 'CacheActionsHorizontalPanel2'
-                               layout: (LayoutFrame 0 0 70 0 0 1 100 0)
+                               layout: (LayoutFrame 0 0 70 0 -1 1 100 0)
                                horizontalLayout: right
                                verticalLayout: center
                                horizontalSpace: 3
                                verticalSpace: 3
-                               component:
+                               component: 
                               (SpecCollection
                                  collection: (
                                   (ActionButtonSpec
@@ -15945,7 +15945,7 @@
                                      tabable: true
                                      model: flushSourceCache
                                      enableChannel: useManager
-                                     extent: (Point 171 30)
+                                     extent: (Point 150 30)
                                    )
                                   (ActionButtonSpec
                                      label: 'Condense'
@@ -15955,20 +15955,20 @@
                                      tabable: true
                                      model: condenseSourceCache
                                      enableChannel: useManager
-                                     extent: (Point 171 30)
+                                     extent: (Point 150 30)
                                    )
                                   )
-
+                                
                                )
                              )
                             )
-
+                          
                          )
                          extent: (Point 660 136)
                        )
                       (ViewSpec
                          name: 'UseLocalSourceBox'
-                         component:
+                         component: 
                         (SpecCollection
                            collection: (
                             (CheckBoxSpec
@@ -15981,14 +15981,14 @@
                                translateLabel: true
                              )
                             )
-
+                          
                          )
                          extent: (Point 660 30)
                        )
                       (ViewSpec
                          name: 'KeepMethodSourceBox'
                          activeHelpKey: keepMethodSourceInImage
-                         component:
+                         component: 
                         (SpecCollection
                            collection: (
                             (CheckBoxSpec
@@ -16001,14 +16001,14 @@
                                translateLabel: true
                              )
                             )
-
+                          
                          )
                          extent: (Point 660 30)
                        )
                       (ViewSpec
                          name: 'CheckForHaltSendsBox'
                          activeHelpKey: checkClassesWhenCheckingIn
-                         component:
+                         component: 
                         (SpecCollection
                            collection: (
                             (CheckBoxSpec
@@ -16021,14 +16021,14 @@
                                translateLabel: true
                              )
                             )
-
+                          
                          )
                          extent: (Point 660 30)
                        )
                       (ViewSpec
                          name: 'VerboseBox'
                          activeHelpKey: verboseSourceCodeAccess
-                         component:
+                         component: 
                         (SpecCollection
                            collection: (
                             (CheckBoxSpec
@@ -16041,21 +16041,21 @@
                                translateLabel: true
                              )
                             )
-
+                          
                          )
                          extent: (Point 660 30)
                        )
                       )
-
+                    
                    )
                    extent: (Point 660 768)
                  )
                 )
-
+              
              )
            )
           )
-
+        
        )
      )
 ! !