FileBasedSourceCodeManagementSettingsAppl.st
changeset 14256 99c9828ff9c5
parent 14248 e08d038ccdac
child 14315 0a76133b6b5c
equal deleted inserted replaced
14255:9442e9d5491e 14256:99c9828ff9c5
   161     "
   161     "
   162 
   162 
   163     <resource: #canvas>
   163     <resource: #canvas>
   164 
   164 
   165     ^ 
   165     ^ 
   166      #(FullSpec
   166     #(FullSpec
   167         name: windowSpec
   167        name: windowSpec
   168         window: 
   168        window: 
   169        (WindowSpec
   169       (WindowSpec
   170           label: 'FileBased SCM Settings'
   170          label: 'FileBased SCM Settings'
   171           name: 'FileBased SCM Settings'
   171          name: 'FileBased SCM Settings'
   172           min: (Point 10 10)
   172          min: (Point 10 10)
   173           bounds: (Rectangle 0 0 659 580)
   173          bounds: (Rectangle 0 0 668 391)
   174         )
   174        )
   175         component: 
   175        component: 
   176        (SpecCollection
   176       (SpecCollection
   177           collection: (
   177          collection: (
   178            (VerticalPanelViewSpec
   178           (VerticalPanelViewSpec
   179               name: 'VerticalPanel2'
   179              name: 'VerticalPanel2'
   180               layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
   180              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
   181               horizontalLayout: fit
   181              horizontalLayout: fit
   182               verticalLayout: topSpace
   182              verticalLayout: topSpace
   183               horizontalSpace: 3
   183              horizontalSpace: 3
   184               verticalSpace: 20
   184              verticalSpace: 20
   185               component: 
   185              component: 
   186              (SpecCollection
   186             (SpecCollection
   187                 collection: (
   187                collection: (
   188                  (LabelSpec
   188                 (LabelSpec
   189                     label: 'Demo Only'
   189                    label: 'Demo Only'
   190                     name: 'Label10'
   190                    name: 'Label10'
   191                     style: (FontDescription #'Segoe UI' medium roman 16 #'ms-default')
   191                    style: (FontDescription #'Segoe UI' medium roman 16 #'ms-default')
   192                     foregroundColor: (Color 86.9993133440146 0.0 0.0)
   192                    foregroundColor: (Color 86.9993133440147 0.0 0.0)
   193                     translateLabel: true
   193                    translateLabel: true
   194                     extent: (Point 659 37)
   194                    extent: (Point 668 37)
   195                   )
   195                  )
   196                  (VerticalPanelViewSpec
   196                 (VerticalPanelViewSpec
   197                     name: 'VerticalPanel3'
   197                    name: 'VerticalPanel3'
   198                     horizontalLayout: fit
   198                    horizontalLayout: fit
   199                     verticalLayout: top
   199                    verticalLayout: top
   200                     horizontalSpace: 3
   200                    horizontalSpace: 3
   201                     verticalSpace: 4
   201                    verticalSpace: 4
   202                     component: 
   202                    component: 
   203                    (SpecCollection
   203                   (SpecCollection
   204                       collection: (
   204                      collection: (
   205                        (ViewSpec
   205                       (ViewSpec
   206                           name: 'ManagerSetupBoxx'
   206                          name: 'ManagerSetupBoxx'
   207                           component: 
   207                          component: 
   208                          (SpecCollection
   208                         (SpecCollection
   209                             collection: (
   209                            collection: (
   210                              (FramedBoxSpec
   210                             (FramedBoxSpec
   211                                 label: 'File Based Source Repository Manager Settings'
   211                                label: 'File Based Source Repository Manager Settings'
   212                                 name: 'FileRepositorySetupBox'
   212                                name: 'FileRepositorySetupBox'
   213                                 layout: (LayoutFrame 0 0 0 0 0 1 0 1)
   213                                layout: (LayoutFrame 0 0 0 0 0 1 -20 1)
   214                                 labelPosition: topLeft
   214                                labelPosition: topLeft
   215                                 translateLabel: true
   215                                translateLabel: true
   216                                 component: 
   216                                component: 
   217                                (SpecCollection
   217                               (SpecCollection
   218                                   collection: (
   218                                  collection: (
   219                                    (ComboBoxSpec
   219                                   (CheckBoxSpec
   220                                       name: 'ComboBox1'
   220                                      label: 'Show in Browser Menus'
   221                                       layout: (LayoutFrame 64 0.25 207 0 0 1 229 0)
   221                                      name: 'CheckBox1'
   222                                       activeHelpKey: perModuleModule
   222                                      layout: (LayoutFrame 0 0 5 0 0 1 35 0)
   223                                       tabable: true
   223                                      activeHelpKey: shownInBrowserMenus
   224                                       model: perModulePathModule
   224                                      model: shownInBrowserMenusHolder
   225                                       acceptChannel: acceptChannel
   225                                      translateLabel: true
   226                                       acceptOnPointerLeave: true
   226                                    )
   227                                       comboList: sampleModuleList
   227                                   (ViewSpec
   228                                     )
   228                                      name: 'Box1'
   229                                    (CheckBoxSpec
   229                                      layout: (LayoutFrame 0 0 38 0 0 1 68 0)
   230                                       label: 'Show in Browser Menus'
   230                                      component: 
   231                                       name: 'CheckBox1'
   231                                     (SpecCollection
   232                                       layout: (LayoutFrame 0 0 5 0 0 1 27 0)
   232                                        collection: (
   233                                       activeHelpKey: shownInBrowserMenus
   233                                         (LabelSpec
   234                                       model: shownInBrowserMenusHolder
   234                                            label: 'Repository Path:'
   235                                       translateLabel: true
   235                                            name: 'Label1'
   236                                     )
   236                                            layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0)
   237                                    (ViewSpec
   237                                            activeHelpKey: defaultRepositoryPath
   238                                       name: 'Box1'
   238                                            level: 0
   239                                       layout: (LayoutFrame 0 0 38 0 0 1 63 0)
   239                                            translateLabel: true
   240                                       component: 
   240                                            adjust: right
   241                                      (SpecCollection
       
   242                                         collection: (
       
   243                                          (LabelSpec
       
   244                                             label: 'Repository Path:'
       
   245                                             name: 'Label1'
       
   246                                             layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
       
   247                                             activeHelpKey: defaultRepositoryPath
       
   248                                             level: 0
       
   249                                             translateLabel: true
       
   250                                             adjust: right
       
   251                                           )
       
   252                                          (InputFieldSpec
       
   253                                             name: 'RepositoryPathField'
       
   254                                             layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)
       
   255                                             activeHelpKey: defaultRepositoryPath
       
   256                                             tabable: true
       
   257                                             model: repositoryPathHolder
       
   258                                             acceptChannel: acceptChannel
       
   259                                             acceptOnPointerLeave: true
       
   260                                           )
       
   261                                          )
   241                                          )
   262                                        
   242                                         (InputFieldSpec
   263                                       )
   243                                            name: 'RepositoryPathField'
   264                                     )
   244                                            layout: (LayoutFrame 64 0.25 0 0 0 1 30 0)
   265                                    (LabelSpec
   245                                            activeHelpKey: defaultRepositoryPath
   266                                       label: 'Path per Module:'
   246                                            tabable: true
   267                                       name: 'knownModulesLabel'
   247                                            model: repositoryPathHolder
   268                                       layout: (LayoutFrame 0 0.0 82 0 60 0.25 104 0)
   248                                            acceptChannel: acceptChannel
   269                                       activeHelpKey: repositoryPathPerModule
   249                                            acceptOnPointerLeave: true
   270                                       translateLabel: true
       
   271                                       adjust: right
       
   272                                     )
       
   273                                    (SequenceViewSpec
       
   274                                       name: 'List1'
       
   275                                       layout: (LayoutFrame 64 0.25 82 0 0 1 201 0)
       
   276                                       activeHelpKey: repositoryPathPerModule
       
   277                                       tabable: true
       
   278                                       model: selectedPerModulePath
       
   279                                       hasHorizontalScrollBar: true
       
   280                                       hasVerticalScrollBar: true
       
   281                                       miniScrollerHorizontal: true
       
   282                                       useIndex: false
       
   283                                       sequenceList: listOfModules
       
   284                                     )
       
   285                                    (LabelSpec
       
   286                                       label: 'Module:'
       
   287                                       name: 'moduleLabel'
       
   288                                       layout: (LayoutFrame 0 0.0 211 0 60 0.25 228 0)
       
   289                                       activeHelpKey: perModuleModule
       
   290                                       translateLabel: true
       
   291                                       adjust: right
       
   292                                     )
       
   293                                    (LabelSpec
       
   294                                       label: 'Path:'
       
   295                                       name: 'cvsRootLabel'
       
   296                                       layout: (LayoutFrame 0 0.0 236 0 60 0.25 253 0)
       
   297                                       activeHelpKey: perModuleRepositoryPath
       
   298                                       translateLabel: true
       
   299                                       adjust: right
       
   300                                     )
       
   301                                    (ComboBoxSpec
       
   302                                       name: 'perModulePathComboBox'
       
   303                                       layout: (LayoutFrame 64 0.25 232 0 0 1.0 254 0)
       
   304                                       activeHelpKey: perModuleRepositoryPath
       
   305                                       tabable: true
       
   306                                       model: perModulePath
       
   307                                       immediateAccept: true
       
   308                                       acceptOnLeave: true
       
   309                                       acceptOnReturn: true
       
   310                                       acceptOnTab: true
       
   311                                       acceptOnLostFocus: true
       
   312                                       acceptChannel: acceptChannel
       
   313                                       acceptOnPointerLeave: true
       
   314                                       comboList: pathPrototypeList
       
   315                                     )
       
   316                                    (HorizontalPanelViewSpec
       
   317                                       name: 'HorizontalPanel2'
       
   318                                       layout: (LayoutFrame 64 0.25 257 0 -1 1 282 0)
       
   319                                       horizontalLayout: fitSpace
       
   320                                       verticalLayout: center
       
   321                                       horizontalSpace: 3
       
   322                                       verticalSpace: 3
       
   323                                       component: 
       
   324                                      (SpecCollection
       
   325                                         collection: (
       
   326                                          (ActionButtonSpec
       
   327                                             label: 'Add/Apply'
       
   328                                             name: 'addButton'
       
   329                                             translateLabel: true
       
   330                                             tabable: true
       
   331                                             model: addPerModulePath
       
   332                                             extent: (Point 130 22)
       
   333                                           )
       
   334                                          (ActionButtonSpec
       
   335                                             label: 'Remove'
       
   336                                             name: 'removeButton'
       
   337                                             translateLabel: true
       
   338                                             tabable: true
       
   339                                             model: removePerModulePath
       
   340                                             enableChannel: removeEnabled
       
   341                                             extent: (Point 131 22)
       
   342                                           )
       
   343                                          (ViewSpec
       
   344                                             name: 'Box11'
       
   345                                             extent: (Point 131 10)
       
   346                                           )
       
   347                                          )
   250                                          )
   348                                        
   251                                         )
   349                                       )
   252                                       
   350                                     )
   253                                      )
   351                                    )
   254                                    )
   352                                  
   255                                   (LabelSpec
   353                                 )
   256                                      label: 'Path per Module:'
   354                               )
   257                                      name: 'knownModulesLabel'
       
   258                                      layout: (LayoutFrame 0 0.0 82 0 60 0.25 112 0)
       
   259                                      activeHelpKey: repositoryPathPerModule
       
   260                                      translateLabel: true
       
   261                                      adjust: right
       
   262                                    )
       
   263                                   (SequenceViewSpec
       
   264                                      name: 'List1'
       
   265                                      layout: (LayoutFrame 64 0.25 82 0 0 1 201 0)
       
   266                                      activeHelpKey: repositoryPathPerModule
       
   267                                      tabable: true
       
   268                                      model: selectedPerModulePath
       
   269                                      hasHorizontalScrollBar: true
       
   270                                      hasVerticalScrollBar: true
       
   271                                      miniScrollerHorizontal: true
       
   272                                      useIndex: false
       
   273                                      sequenceList: listOfModules
       
   274                                    )
       
   275                                   (LabelSpec
       
   276                                      label: 'Module:'
       
   277                                      name: 'moduleLabel'
       
   278                                      layout: (LayoutFrame 0 0.0 207 0 60 0.25 237 0)
       
   279                                      activeHelpKey: perModuleModule
       
   280                                      translateLabel: true
       
   281                                      adjust: right
       
   282                                    )
       
   283                                   (ComboBoxSpec
       
   284                                      name: 'ComboBox1'
       
   285                                      layout: (LayoutFrame 64 0.25 207 0 0 1 237 0)
       
   286                                      activeHelpKey: perModuleModule
       
   287                                      tabable: true
       
   288                                      model: perModulePathModule
       
   289                                      acceptChannel: acceptChannel
       
   290                                      acceptOnPointerLeave: true
       
   291                                      comboList: sampleModuleList
       
   292                                    )
       
   293                                   (LabelSpec
       
   294                                      label: 'Path:'
       
   295                                      name: 'cvsRootLabel'
       
   296                                      layout: (LayoutFrame 0 0.0 240 0 60 0.25 270 0)
       
   297                                      activeHelpKey: perModuleRepositoryPath
       
   298                                      translateLabel: true
       
   299                                      adjust: right
       
   300                                    )
       
   301                                   (ComboBoxSpec
       
   302                                      name: 'perModulePathComboBox'
       
   303                                      layout: (LayoutFrame 64 0.25 240 0 0 1.0 270 0)
       
   304                                      activeHelpKey: perModuleRepositoryPath
       
   305                                      tabable: true
       
   306                                      model: perModulePath
       
   307                                      immediateAccept: true
       
   308                                      acceptOnLeave: true
       
   309                                      acceptOnReturn: true
       
   310                                      acceptOnTab: true
       
   311                                      acceptOnLostFocus: true
       
   312                                      acceptChannel: acceptChannel
       
   313                                      acceptOnPointerLeave: true
       
   314                                      comboList: pathPrototypeList
       
   315                                    )
       
   316                                   (HorizontalPanelViewSpec
       
   317                                      name: 'HorizontalPanel2'
       
   318                                      layout: (LayoutFrame 64 0.25 274 0 -1 1 304 0)
       
   319                                      horizontalLayout: fitSpace
       
   320                                      verticalLayout: center
       
   321                                      horizontalSpace: 3
       
   322                                      verticalSpace: 3
       
   323                                      component: 
       
   324                                     (SpecCollection
       
   325                                        collection: (
       
   326                                         (ActionButtonSpec
       
   327                                            label: 'Add/Apply'
       
   328                                            name: 'addButton'
       
   329                                            translateLabel: true
       
   330                                            tabable: true
       
   331                                            model: addPerModulePath
       
   332                                            extent: (Point 132 30)
       
   333                                          )
       
   334                                         (ActionButtonSpec
       
   335                                            label: 'Remove'
       
   336                                            name: 'removeButton'
       
   337                                            translateLabel: true
       
   338                                            tabable: true
       
   339                                            model: removePerModulePath
       
   340                                            enableChannel: removeEnabled
       
   341                                            extent: (Point 132 30)
       
   342                                          )
       
   343                                         (ViewSpec
       
   344                                            name: 'Box11'
       
   345                                            extent: (Point 133 10)
       
   346                                          )
       
   347                                         )
       
   348                                       
       
   349                                      )
       
   350                                    )
       
   351                                   )
       
   352                                 
       
   353                                )
   355                              )
   354                              )
   356                            
   355                             )
   357                           )
   356                           
   358                           extent: (Point 659 327)
   357                          )
   359                         )
   358                          extent: (Point 668 364)
   360                        )
   359                        )
   361                      
   360                       )
   362                     )
   361                     
   363                     extent: (Point 659 768)
   362                    )
   364                   )
   363                    extent: (Point 668 800)
   365                  )
   364                  )
   366                
   365                 )
   367               )
   366               
   368             )
   367              )
   369            )
   368            )
   370          
   369           )
   371         )
   370         
   372       )
   371        )
       
   372      )
   373 ! !
   373 ! !
   374 
   374 
   375 !FileBasedSourceCodeManagementSettingsAppl class methodsFor:'others'!
   375 !FileBasedSourceCodeManagementSettingsAppl class methodsFor:'others'!
   376 
   376 
   377 version_FileRepository
   377 version_FileRepository
   686 ! !
   686 ! !
   687 
   687 
   688 !FileBasedSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
   688 !FileBasedSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
   689 
   689 
   690 version
   690 version
   691     ^ '$Header: /cvs/stx/stx/libtool/FileBasedSourceCodeManagementSettingsAppl.st,v 1.16 2014-04-14 19:09:48 cg Exp $'
   691     ^ '$Header: /cvs/stx/stx/libtool/FileBasedSourceCodeManagementSettingsAppl.st,v 1.17 2014-04-14 20:38:48 cg Exp $'
   692 !
   692 !
   693 
   693 
   694 version_CVS
   694 version_CVS
   695     ^ '$Header: /cvs/stx/stx/libtool/FileBasedSourceCodeManagementSettingsAppl.st,v 1.16 2014-04-14 19:09:48 cg Exp $'
   695     ^ '$Header: /cvs/stx/stx/libtool/FileBasedSourceCodeManagementSettingsAppl.st,v 1.17 2014-04-14 20:38:48 cg Exp $'
   696 ! !
   696 ! !
   697 
   697