CVSSourceCodeManagementSettingsAppl.st
changeset 19448 ff159af1959c
parent 19040 fd8d51dcf906
--- a/CVSSourceCodeManagementSettingsAppl.st	Mon Feb 03 09:55:28 2020 +0100
+++ b/CVSSourceCodeManagementSettingsAppl.st	Mon Feb 03 09:56:26 2020 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -256,23 +254,20 @@
     ^ 
     #(FullSpec
        name: windowSpec
-       uuid: '512fa1e4-b67b-11e8-b6ec-b8f6b1108e05'
+       uuid: '5568b40c-1dd8-11b2-877a-c45444825dc9'
        window: 
       (WindowSpec
          label: 'CVS Settings'
          name: 'CVS Settings'
          flags: 1
          uuid: '55071766-3a6b-11e8-98e2-b8f6b1108e05'
-         min: (Point 10 10)
-         bounds: (Rectangle 0 0 748 613)
-       )
-       component: 
+         min: (Point 10 10) bounds: (Rectangle 0 0 748 613)
+      ) component: 
       (SpecCollection
          collection: (
           (VerticalPanelViewSpec
              name: 'VerticalPanel3'
-             layout: (LayoutFrame 0 0 0 0 0 1 0 1)
-             uuid: '55073868-3a6b-11e8-98e2-b8f6b1108e05'
+             layout: (LayoutFrame 0 0 0 0 0 1 0 1) uuid: '55073868-3a6b-11e8-98e2-b8f6b1108e05'
              horizontalLayout: fit
              verticalLayout: topSpace
              horizontalSpace: 3
@@ -289,8 +284,7 @@
                       (FramedBoxSpec
                          label: 'CVS Sourcecode Manager Settings'
                          name: 'CVSSetupBox'
-                         layout: (LayoutFrame 0 0 0 0 0 1 0 1)
-                         uuid: '55073f52-3a6b-11e8-98e2-b8f6b1108e05'
+                         layout: (LayoutFrame 0 0 0 0 0 1 0 1) uuid: '55073f52-3a6b-11e8-98e2-b8f6b1108e05'
                          labelPosition: topLeft
                          translateLabel: true
                          component: 
@@ -299,96 +293,84 @@
                             (CheckBoxSpec
                                label: 'Show in Browser Menus'
                                name: 'CheckBox1'
-                               layout: (LayoutFrame 0 0 5 0 0 1 35 0)
-                               activeHelpKey: shownInBrowserMenus
+                               layout: (LayoutFrame 0 0 5 0 0 1 35 0) activeHelpKey: shownInBrowserMenus
                                uuid: '550741d2-3a6b-11e8-98e2-b8f6b1108e05'
                                model: shownInBrowserMenusHolder
                                translateLabel: true
-                             )
+                            )
                             (ViewSpec
                                name: 'Box1'
-                               layout: (LayoutFrame 0 0 35 0 0 1 65 0)
-                               uuid: '55074538-3a6b-11e8-98e2-b8f6b1108e05'
+                               layout: (LayoutFrame 0 0 35 0 0 1 65 0) uuid: '55074538-3a6b-11e8-98e2-b8f6b1108e05'
                                component: 
                               (SpecCollection
                                  collection: (
                                   (LabelSpec
                                      label: 'CVS Command:'
                                      name: 'Label1'
-                                     layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0)
-                                     activeHelpKey: cvsCommand
+                                     layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0) activeHelpKey: cvsCommand
                                      uuid: '550746a0-3a6b-11e8-98e2-b8f6b1108e05'
                                      level: 0
                                      translateLabel: true
                                      adjust: right
-                                   )
+                                  )
                                   (InputFieldSpec
                                      name: 'CVSExecutableField'
-                                     layout: (LayoutFrame 64 0.25 0 0 -1 1 30 0)
-                                     activeHelpKey: cvsCommand
+                                     layout: (LayoutFrame 64 0.25 0 0 -1 1 30 0) activeHelpKey: cvsCommand
                                      uuid: '550749d4-3a6b-11e8-98e2-b8f6b1108e05'
                                      tabable: true
                                      model: cvsExecutableHolder
                                      acceptChannel: acceptChannel
                                      acceptOnPointerLeave: true
-                                   )
                                   )
-                                
-                               )
-                             )
+                                )
+                              )
+                            )
                             (ViewSpec
                                name: 'Box12'
-                               layout: (LayoutFrame 0 0 69 0 0 1 99 0)
-                               uuid: '55074ede-3a6b-11e8-98e2-b8f6b1108e05'
+                               layout: (LayoutFrame 0 0 69 0 0 1 99 0) uuid: '55074ede-3a6b-11e8-98e2-b8f6b1108e05'
                                component: 
                               (SpecCollection
                                  collection: (
                                   (LabelSpec
                                      label: 'Command Timeout:'
                                      name: 'Label2'
-                                     layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0)
-                                     activeHelpKey: cvsCommandTimeout
+                                     layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0) activeHelpKey: cvsCommandTimeout
                                      uuid: '5507505a-3a6b-11e8-98e2-b8f6b1108e05'
                                      level: 0
                                      translateLabel: true
                                      adjust: right
-                                   )
+                                  )
                                   (InputFieldSpec
                                      name: 'EntryField1'
-                                     layout: (LayoutFrame 64 0.25 0 0 152 0.25 30 0)
-                                     activeHelpKey: cvsCommandTimeout
+                                     layout: (LayoutFrame 64 0.25 0 0 152 0.25 30 0) activeHelpKey: cvsCommandTimeout
                                      uuid: '55075212-3a6b-11e8-98e2-b8f6b1108e05'
                                      tabable: true
                                      model: cvsCommandTimeoutHolder
                                      type: timeDuration
                                      acceptChannel: acceptChannel
                                      acceptOnPointerLeave: true
-                                   )
                                   )
-                                
-                               )
-                             )
+                                )
+                              )
+                            )
                             (ViewSpec
                                name: 'Box7'
-                               layout: (LayoutFrame 0 0.0 104 0 0 1 134 0)
-                               uuid: '55075488-3a6b-11e8-98e2-b8f6b1108e05'
+                               layout: (LayoutFrame 0 0.0 104 0 0 1 134 0) uuid: '55075488-3a6b-11e8-98e2-b8f6b1108e05'
                                component: 
                               (SpecCollection
                                  collection: (
                                   (LabelSpec
                                      label: 'CVSRoot default:'
                                      name: 'defaultCvsRootLabel'
-                                     layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0)
-                                     activeHelpKey: cvsRootDefault
+                                     layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0) activeHelpKey: cvsRootDefault
                                      uuid: '550755d2-3a6b-11e8-98e2-b8f6b1108e05'
                                      level: 0
                                      translateLabel: true
                                      adjust: right
-                                   )
+                                  )
                                   (ComboBoxSpec
                                      name: 'cvsRootComboBox'
-                                     layout: (LayoutFrame 64 0.25 0 0 -1 1 30 0)
-                                     activeHelpKey: cvsRootDefault
+                                     layout: (LayoutFrame 64 0.25 0 0 -1 1 30 0) activeHelpKey: cvsRootDefault
                                      uuid: '55075762-3a6b-11e8-98e2-b8f6b1108e05'
                                      tabable: true
                                      model: cvsRootHolder
@@ -400,59 +382,51 @@
                                      acceptChannel: acceptChannel
                                      acceptOnPointerLeave: true
                                      comboList: cvsRootPrototypeList
-                                   )
                                   )
-                                
-                               )
-                             )
+                                )
+                              )
+                            )
                             (LabelSpec
                                label: 'CVS-login with:'
                                name: 'Label4'
-                               layout: (LayoutFrame -4 0.0 142 0 150 0 164 0)
-                               activeHelpKey: loginInfo
+                               layout: (LayoutFrame -4 0.0 142 0 150 0 164 0) activeHelpKey: loginInfo
                                uuid: 'c0af580e-b679-11e8-b6ec-b8f6b1108e05'
                                visibilityChannel: cvsLoginInfoVisibleHolder
-                               foregroundColor: (Color 50.0 50.0 50.0)
-                               translateLabel: true
+                               foregroundColor: (Color 50.0 50.0 50.0) translateLabel: true
                                adjust: left
-                             )
+                            )
                             (LabelSpec
                                label: 'cvsLoginInfoLabel'
                                name: 'Label3'
-                               layout: (LayoutFrame 150 0.0 142 0 0 1.0 164 0)
-                               activeHelpKey: loginInfo
+                               layout: (LayoutFrame 150 0.0 142 0 0 1.0 164 0) activeHelpKey: loginInfo
                                uuid: 'c0af580e-b679-11e8-b6ec-b8f6b1108e05'
                                visibilityChannel: cvsLoginInfoVisibleHolder
-                               foregroundColor: (Color 50.0 50.0 50.0)
-                               translateLabel: true
+                               foregroundColor: (Color 50.0 50.0 50.0) translateLabel: true
                                labelChannel: cvsLoginInfoTextHolder
                                adjust: left
-                             )
+                            )
                             (ActionButtonSpec
                                label: 'CVS-Login'
                                name: 'Button1'
-                               layout: (LayoutFrame -117 1 137 0 0 1 167 0)
-                               activeHelpKey: cvsLogin
+                               layout: (LayoutFrame -117 1 137 0 0 1 167 0) activeHelpKey: cvsLogin
                                uuid: '55075b40-3a6b-11e8-98e2-b8f6b1108e05'
                                visibilityChannel: cvsLoginVisible
                                translateLabel: true
                                tabable: true
                                model: loginCVSRoot
                                enableChannel: cvsLoginEnabled
-                             )
+                            )
                             (LabelSpec
                                label: 'CVSRoot per Module:'
                                name: 'knownModulesLabel'
-                               layout: (LayoutFrame 0 0.0 171 0 60 0.25 201 0)
-                               activeHelpKey: cvsRootPerModule
+                               layout: (LayoutFrame 0 0.0 171 0 60 0.25 201 0) activeHelpKey: cvsRootPerModule
                                uuid: '55075f82-3a6b-11e8-98e2-b8f6b1108e05'
                                translateLabel: true
                                adjust: right
-                             )
+                            )
                             (SequenceViewSpec
                                name: 'List1'
-                               layout: (LayoutFrame 64 0.25 171 0 0 1 290 0)
-                               activeHelpKey: cvsRootPerModule
+                               layout: (LayoutFrame 64 0.25 171 0 0 1 290 0) activeHelpKey: cvsRootPerModule
                                uuid: '5507613a-3a6b-11e8-98e2-b8f6b1108e05'
                                tabable: true
                                model: selectedPerModuleRoot
@@ -461,40 +435,36 @@
                                miniScrollerHorizontal: true
                                useIndex: false
                                sequenceList: listOfModules
-                             )
+                            )
                             (LabelSpec
                                label: 'Module:'
                                name: 'moduleLabel'
-                               layout: (LayoutFrame 0 0.0 300 0 60 0.25 330 0)
-                               activeHelpKey: cvsRootPerModuleModule
+                               layout: (LayoutFrame 0 0.0 300 0 60 0.25 330 0) activeHelpKey: cvsRootPerModuleModule
                                uuid: '550764d2-3a6b-11e8-98e2-b8f6b1108e05'
                                translateLabel: true
                                adjust: right
-                             )
+                            )
                             (ComboBoxSpec
                                name: 'ComboBox1'
-                               layout: (LayoutFrame 64 0.25 300 0 0 1 330 0)
-                               activeHelpKey: cvsRootPerModuleModule
+                               layout: (LayoutFrame 64 0.25 300 0 0 1 330 0) activeHelpKey: cvsRootPerModuleModule
                                uuid: '55076662-3a6b-11e8-98e2-b8f6b1108e05'
                                tabable: true
                                model: perModuleRootModule
                                acceptChannel: acceptChannel
                                acceptOnPointerLeave: true
                                comboList: sampleModuleList
-                             )
+                            )
                             (LabelSpec
                                label: 'CVSRoot:'
                                name: 'cvsRootLabel'
-                               layout: (LayoutFrame 0 0.0 333 0 60 0.25 363 0)
-                               activeHelpKey: cvsRootPerModuleRoot
+                               layout: (LayoutFrame 0 0.0 333 0 60 0.25 363 0) activeHelpKey: cvsRootPerModuleRoot
                                uuid: '550768ce-3a6b-11e8-98e2-b8f6b1108e05'
                                translateLabel: true
                                adjust: right
-                             )
+                            )
                             (ComboBoxSpec
                                name: 'perModuleRootComboBox'
-                               layout: (LayoutFrame 64 0.25 333 0 0 1.0 363 0)
-                               activeHelpKey: cvsRootPerModuleRoot
+                               layout: (LayoutFrame 64 0.25 333 0 0 1.0 363 0) activeHelpKey: cvsRootPerModuleRoot
                                uuid: '55076a36-3a6b-11e8-98e2-b8f6b1108e05'
                                tabable: true
                                model: perModuleRoot
@@ -506,12 +476,11 @@
                                acceptChannel: acceptChannel
                                acceptOnPointerLeave: true
                                comboList: cvsRootPrototypeList
-                             )
+                            )
                             (HorizontalPanelViewSpec
                                name: 'HorizontalPanel2'
-                               layout: (LayoutFrame 0 0 369 0 0 1 400 0)
-                               uuid: '55076ca2-3a6b-11e8-98e2-b8f6b1108e05'
-                               horizontalLayout: rightSpaceMax
+                               layout: (LayoutFrame 0 0 369 0 0 1 400 0) uuid: '55076ca2-3a6b-11e8-98e2-b8f6b1108e05'
+                               horizontalLayout: rightSpace
                                verticalLayout: fit
                                horizontalSpace: 3
                                verticalSpace: 3
@@ -527,8 +496,8 @@
                                      resizeForLabel: true
                                      tabable: true
                                      model: addPerModuleRoot
-                                     useDefaultExtent: true
-                                   )
+                                     extent: (Point 69 31)
+                                  )
                                   (ActionButtonSpec
                                      label: 'Remove'
                                      name: 'removeButton'
@@ -539,8 +508,8 @@
                                      tabable: true
                                      model: removePerModuleRoot
                                      enableChannel: removeEnabled
-                                     useDefaultExtent: true
-                                   )
+                                     extent: (Point 69 31)
+                                  )
                                   (ActionButtonSpec
                                      label: 'Init'
                                      name: 'loginButton2'
@@ -551,8 +520,8 @@
                                      tabable: true
                                      model: initPerModuleRoot
                                      enableChannel: cvsInitInModuleEnabled
-                                     useDefaultExtent: true
-                                   )
+                                     extent: (Point 69 31)
+                                  )
                                   (ActionButtonSpec
                                      label: 'Login'
                                      name: 'Button3'
@@ -563,16 +532,14 @@
                                      tabable: true
                                      model: loginPerModuleRoot
                                      enableChannel: cvsLoginInModuleEnabled
-                                     useDefaultExtent: true
-                                   )
+                                     extent: (Point 69 31)
                                   )
-                                
-                               )
-                             )
+                                )
+                              )
+                            )
                             (HorizontalPanelViewSpec
                                name: 'HorizontalPanel3'
-                               layout: (LayoutFrame 0 0 405 0 0 1 438 0)
-                               uuid: '55077756-3a6b-11e8-98e2-b8f6b1108e05'
+                               layout: (LayoutFrame 0 0 405 0 0 1 438 0) uuid: '55077756-3a6b-11e8-98e2-b8f6b1108e05'
                                horizontalLayout: rightSpace
                                verticalLayout: center
                                horizontalSpace: 3
@@ -591,20 +558,16 @@
                                      tabable: true
                                      model: addPublicExeptRepository
                                      extent: (Point 232 31)
-                                   )
                                   )
-                                
-                               )
-                             )
+                                )
+                              )
                             )
-                          
-                         )
-                       )
+                          )
+                        )
                       )
-                    
-                   )
-                   extent: (Point 748 474)
-                 )
+                    )
+                  ) extent: (Point 748 474)
+                )
                 (FramedBoxSpec
                    label: 'Source Cache'
                    name: 'FramedBox1'
@@ -617,38 +580,33 @@
                      collection: (
                       (ViewSpec
                          name: 'SourceCacheDirBox'
-                         layout: (LayoutFrame 0 0 0 0 -1 1 30 0)
-                         uuid: '55077daa-3a6b-11e8-98e2-b8f6b1108e05'
+                         layout: (LayoutFrame 0 0 0 0 -1 1 30 0) uuid: '55077daa-3a6b-11e8-98e2-b8f6b1108e05'
                          component: 
                         (SpecCollection
                            collection: (
                             (LabelSpec
                                label: 'Source Cache Dir:'
                                name: 'SourceCacheDirLabel'
-                               layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0)
-                               uuid: '55077fda-3a6b-11e8-98e2-b8f6b1108e05'
+                               layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0) uuid: '55077fda-3a6b-11e8-98e2-b8f6b1108e05'
                                translateLabel: true
                                adjust: right
-                             )
+                            )
                             (InputFieldSpec
                                name: 'SourceCacheDirEntryField'
-                               layout: (LayoutFrame 64 0.25 0 0 -1 1 30 0)
-                               uuid: '55078188-3a6b-11e8-98e2-b8f6b1108e05'
+                               layout: (LayoutFrame 64 0.25 0 0 -1 1 30 0) uuid: '55078188-3a6b-11e8-98e2-b8f6b1108e05'
                                model: sourceCacheDir
                                immediateAccept: false
                                acceptOnReturn: true
                                acceptOnTab: true
                                acceptOnLostFocus: true
                                acceptOnPointerLeave: true
-                             )
                             )
-                          
-                         )
-                       )
+                          )
+                        )
+                      )
                       (HorizontalPanelViewSpec
                          name: 'CacheActionsHorizontalPanel'
-                         layout: (LayoutFrame 44 0.25 33 0 -1 1 63 0)
-                         uuid: '550785de-3a6b-11e8-98e2-b8f6b1108e05'
+                         layout: (LayoutFrame 44 0.25 33 0 -1 1 63 0) uuid: '550785de-3a6b-11e8-98e2-b8f6b1108e05'
                          horizontalLayout: rightMax
                          verticalLayout: center
                          horizontalSpace: 3
@@ -663,8 +621,8 @@
                                translateLabel: true
                                tabable: true
                                model: flushSourceCache
-                               extent: (Point 142 30)
-                             )
+                               extent: (Point 126 30)
+                            )
                             (ActionButtonSpec
                                label: 'Condense Cache now'
                                name: 'CondenseCacheNowButton'
@@ -672,25 +630,20 @@
                                translateLabel: true
                                tabable: true
                                model: condenseSourceCache
-                               extent: (Point 142 30)
-                             )
+                               extent: (Point 126 30)
                             )
-                          
-                         )
-                       )
+                          )
+                        )
                       )
-                    
-                   )
-                   extent: (Point 748 101)
-                 )
+                    )
+                  ) extent: (Point 748 101)
                 )
-              
-             )
-           )
+              )
+            )
           )
-        
-       )
-     )
+        )
+      )
+    )
 ! !
 
 !CVSSourceCodeManagementSettingsAppl class methodsFor:'queries'!