"

 COPYRIGHT (c) 2002 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool' }"

AbstractSourceCodeManagementSettingsAppl subclass:#CVSSourceCodeManagementSettingsAppl

	instanceVariableNames:'repositoryHolder manager repository cvsRootPrototypeList

		addPerModuleRoot perModuleRootModule removePerModuleRoot

		perModuleRoot cvsRootHolder selectedPerModuleRoot

		cvsBinDirectoryHolder cvsExecutableHolder cvsCommandTimeoutHolder

		rootsPerModule cvsLoginInModuleEnabled cvsLoginEnabled

		cvsInitInModuleEnabled'

	classVariableNames:'RecentlyUsedCVSRoots'

	poolDictionaries:''

	category:'System-SourceCodeManagement'

!

!CVSSourceCodeManagementSettingsAppl class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2002 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    CVS part of the source code settings. 

    This settings app controls the parameters of the CVSSourceCodeManager.

    Extracted for pluggability from SourceCodeManagerSettings in the AbstractSettingsApplication.

"

! !

!CVSSourceCodeManagementSettingsAppl class methodsFor:'defaults'!

defaultRepositoryName

    ^ '/cvs/stx'

    "Created: / 19-04-2011 / 11:00:11 / cg"

! !

!CVSSourceCodeManagementSettingsAppl class methodsFor:'help specs'!

helpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIHelpTool may not be able to read the specification."

    "

     UIHelpTool openOnClass:CVSSourceCodeManagementSettingsAppl    

    "

    <resource: #help>

    ^ super helpSpec addPairsFrom:#(

#addPerModuleRoot

'Add this module-CVSRoot combination or update the corresponding per-module entry'

#addPerPackageManager

'Add a new per-package manager definition'

#addPublicExeptRepository

'Add an entry to access stx''s sources from the public exept repository'

#browseSourceCache

'Open a file browser on the source cache directory'

#checkClassesWhenCheckingIn

'Before checking into the repository, check classes for leftover halt and breakpoint code'

#checkPerPackageManager

'Open a window to show which scm-manager is responsible for which package'

#condenseSourceCache

'Cleanup old cached versions from the source cache.\Will keep only the current (newest) version in the cache.\Access to older code versions will be slowed down (compare with old version browser function)'

#cvsCommand

'The command to use for cvs operations\(the path to "cvs"/"cvs.exe"-command. Not needed, if already in the shell''s PATH value)'

#cvsCommandTimeout

'The command timeout.\For slow connections (ssl-tunnel), it may make sense to increase this value'

#cvsLogin

'Perform a "cvs login" operation for the default CVSROOT'

#cvsRootDefault

'The default CVSROOT.\This will be used for all modules which are not listed below'

#cvsRootPerModule

'Specifies per-module CVSROOTs.\This allows for individual projects to be stored in different cvs repositories'

#cvsRootPerModuleModule

'The module for which a specific CVSROOT is defined'

#cvsRootPerModuleRoot

'The CVSROOT for which this specific module is defined'

#defaultManagerType

'The default repository type.\This is used for packages for which no entry matches in the list below'

#editPerPackageManager

'Modify the selected per-package manager definition'

#flushSourceCache

'Remove all files from the source cache.\Access to source code will temporarily be slowed down,\until sources have been refetched from the repository'

#initPerModuleRoot

'Execute a "cvs init" operation for this CVSROOT (enabled if a new local repository is selected)'

#keepMethodSourceInImage

'After first file access, keep the method sources in the image itself.\All following text search operations will be much faster.\Grows the image over time (but who cares, these days)'

#loginPerModuleRoot

'Execute a "cvs login" operation for this CVSROOT (enabled when a remote repository is selected)'

#moveManagerDown

'Move the selected entry down in the list.\(The first matching definition is used to determine which repository type is used.)'

#moveManagerUp

'Move the selected entry up in the list.\(The first matching definition is used to determine which repository type is used.)'

#perPackageConfiguration

'Define per-package repository types here.\For any non-matching package-id, the default repository type is used'

#removePerModuleRoot

'Remove this per-module entry'

#removePerPackageManager

'Remove the selected per-package manager definition'

#sourceCache

'After checkout, keep the sourcefile in a local file (to avoid repeated checkout of the same file)'

#useLocalSources

'If present, use the local source files (from the development system''s tree).\If checkout fails, these will always be tried as second chance'

#useManager

'Enable source code management.\If off, all queries for sourcecode are resolved by local files (offline operation)'

#verboseSourceCodeAccess

'Output debugging messages on the Transcript\(mostly traces of the underlying scm mechanism, such as cvs commands)'

)

! !

!CVSSourceCodeManagementSettingsAppl class methodsFor:'image specs'!

defaultIcon

    <resource: #programImage>

    ^ self defaultIcon2

    "Created: / 22-12-2011 / 13:47:11 / cg"

!

defaultIcon1

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self defaultIcon1 inspect

     ImageEditor openOnClass:self andSelector:#defaultIcon1

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:'CVSSourceCodeManagementSettingsAppl class defaultIcon1'

        ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

@@@@@@@@@@DB@@@@@@@@@@@@@@@@@@@@@@@@@@LDAPLFA0 I@@@@@@@@@@@@@@@@@@@@@@(KC@0MC <D@@@@@@@@@@@@@@@@@@@CB04LD@DAA@8C@ D@@@@@

@@@@@@@@@@@OC 4HDP(IBAHND0 @@@@@@@@@@@@@@@@EE@PU@@@@APLV@0@@@@@@@@@@@@@@@@LVC!!\E@@@@@@PXA  Y@@@@@@@@@@@@@@PVEA$Z@@@@@@P[

A!!0]@@@@@@@@@@@@@@@EEAXW@@@@APL[G @@@@@@@@@@@@@@@@@SD!!P_DB@JHQ8FD0 @@@@@@@@@@@@@@@@]BRHTF2L$IRX''D0 @@PH@@@@@@@@@@@@@JBD)

J",,KR$!!@0PE@0XGB@$@@@@@@@@@@B8!!F"4-F"D.B ,LC@4NC0P@@@@@@@@@@@@@@A\]@@LKCP0P@PDDC LB@P@@@@@@@@@@@@@@@@<NCP QB $HD 8SB@@@

@@@@@@@@@@@@@@TTAAT@@@@E@1XC@@@@@@@@@@@@@@@@@1XNE0T@@@@@AA FBA$@@@@@@@@@@@@@AAXTFQ(@@@@@AA,FGA4@@@@@@@@@@@@@@@TTE!!\@@@@E

@1,^@@@@@@@@@@@@@@@@@ALREA<PH@(!!G XSB@@@@@@@@@@@@@@@@A4IH!!P[H2P%I"\SB@@@@@@@@@@@@@@@@@@(HR$*J20-JRD@@@@@@@@@@@@@@@@@@@@@

K"DZKR4ZHR8@@@@@@@@@@@@@@@@@@@@@@@@@E14@@@@@@@@@') ; colorMapFromArray:#[0 0 0 160 176 200 176 192 210 176 200 220 192 208 220 224 232 240 176 208 220 208 224 220 144 168 180 192 200 220 208 216 220 208 224 240 224 232 250 224 240 250 208 232 240 160 192 210 176 184 180 128 136 140 192 216 220 160 184 210 208 240 250 144 144 160 192 224 240 160 168 180 192 232 240 160 176 180 224 224 220 192 232 250 144 168 200 176 184 200 160 200 220 192 216 240 176 192 200 160 184 200 192 224 220 176 224 250 176 216 250 160 208 240 144 192 250 144 176 210 255 248 250 160 192 220 144 184 210 160 200 240 160 192 240 128 160 180 128 152 180]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@X@@C?@@C?@@O?0@O?0@OG @_C8@_C8@OG @O?0@O?6@G??0C??0@[?<@C?<@C18@G0>@G0>@C18@C?<@C?<@A?0@@?0@@F@') ; yourself); yourself]

!

defaultIcon2

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self defaultIcon2 inspect

     ImageEditor openOnClass:self andSelector:#defaultIcon2

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:'CVSSourceCodeManagementSettingsAppl class defaultIcon2'

        ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

@@@@@@@@@@DB@@@@@@@@@@@@@@@@@@@@@@@@@@LDAPLFA0 I@@@@@@@@@@@@@@@@@@@@@@(KC@0MC <D@@@@@@@@@@@@@@@@@@@CB04LD@DAA@8C@ D@@@@@

@@@@@@@@@@@OC 4HDP(IBAHND0 @@@@@@@@@@@@@@@@EE@PU@@@@APLV@0@@@@@@@@@@@@@@@@LVC!!\E@@@@@@PXA  Y@@@@@@@@@@@@@@PVEA$Z@@@@@@P[

A!!0]@@@@@@@@@@@@@@@EEAXW@@@@APL[G @@@@@@@@@@@@@@@@@SD!!P_DB@JHQ8FD0 @@@@@@@@@@@@@@@@]BRHTF2L$IRX''D0 @@PH@@@@@@@@@@@@@JBD)

J",,KR$!!@0PE@0XGB@$@@@@@@@@@@B83L3@0F"D.B ,LC@4NC0P@@@@@@@@@@C@3L3L3L@LKCP0P@PDDC LB@P@@@@@@K3L3@@@@@C@NCP QB $HD 8SB@@@

@@@@LCD0@@@@@@TTAAT@@@@E@1XC@@@@@C@0L3H3M@@@MQXNE0T@@@@@AA FBA$@@@@0L#L0@@@5MSTTFQ(@@@@@AA,FGA4@@@@@LC$@@CT8NC\5E!!\@@@@E

@1,^@@@@@@@@@@@@MST6MST5EA<PH@(!!G XSB@@@@@@5@@@@@@@5MQ4IH!!P[H2P%I"\SB@@@@@@@MST5MST5@@@(HR$*J20-JRD@@@@@@@@@@CX5MST@@@@@

K"DZKR4ZHR8@@@@@@@@@@@@@@@@@@@@@@@@@E14@@@@@@@@@') ; colorMapFromArray:#[0 0 0 160 176 200 176 192 210 176 200 220 192 208 220 224 232 240 176 208 220 208 224 220 144 168 180 192 200 220 208 216 220 208 224 240 224 232 250 224 240 250 208 232 240 160 192 210 176 184 180 128 136 140 192 216 220 160 184 210 208 240 250 144 144 160 192 224 240 160 168 180 192 232 240 160 176 180 224 224 220 192 232 250 144 168 200 176 184 200 160 200 220 192 216 240 176 192 200 160 184 200 192 224 220 176 224 250 176 216 250 160 208 240 144 192 250 144 176 210 255 248 250 160 192 220 144 184 210 160 200 240 160 192 240 128 160 180 128 152 180 0 64 0 32 96 32 96 192 128 32 128 64 32 160 64 32 128 32 64 64 64 96 96 96 128 128 128 32 32 32 32 64 32]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@X@@C?@@C?@@O?0@O?0@OG @_C8@_C8@OG @O?0@O?6@G??0C??0C??<GC?<GC18_''0>OO0>F_18@??<HO?<G=?0C8?0@@F@') ; yourself); yourself]

! !

!CVSSourceCodeManagementSettingsAppl class methodsFor:'interface specs'!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:CVSSourceCodeManagementSettingsAppl andSelector:#windowSpec

     CVSSourceCodeManagementSettingsAppl new openInterface:#windowSpec

     CVSSourceCodeManagementSettingsAppl open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       window: 

      (WindowSpec

         label: 'CVS Settings'

         name: 'CVS Settings'

         flags: 1

         min: (Point 10 10)

         bounds: (Rectangle 0 0 764 589)

       )

       component: 

      (SpecCollection

         collection: (

          (VerticalPanelViewSpec

             name: 'VerticalPanel3'

             layout: (LayoutFrame 0 0 0 0 0 1 0 1)

             horizontalLayout: fit

             verticalLayout: topSpace

             horizontalSpace: 3

             verticalSpace: 4

             component: 

            (SpecCollection

               collection: (

                (ViewSpec

                   name: 'ManagerSetupBoxx'

                   component: 

                  (SpecCollection

                     collection: (

                      (FramedBoxSpec

                         label: 'CVS Sourcecode Manager Settings'

                         name: 'CVSSetupBox'

                         layout: (LayoutFrame 0 0 0 0 0 1 6 1)

                         labelPosition: topLeft

                         translateLabel: true

                         component: 

                        (SpecCollection

                           collection: (

                            (CheckBoxSpec

                               label: 'Show in Browser Menus'

                               name: 'CheckBox1'

                               layout: (LayoutFrame 0 0 5 0 0 1 35 0)

                               activeHelpKey: shownInBrowserMenus

                               model: shownInBrowserMenusHolder

                               translateLabel: true

                             )

                            (ViewSpec

                               name: 'Box1'

                               layout: (LayoutFrame 0 0 35 0 0 1 65 0)

                               component: 

                              (SpecCollection

                                 collection: (

                                  (LabelSpec

                                     label: 'CVS Command or Path:'

                                     name: 'Label1'

                                     layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0)

                                     activeHelpKey: cvsCommand

                                     level: 0

                                     translateLabel: true

                                     adjust: right

                                   )

                                  (InputFieldSpec

                                     name: 'CVSExecutableField'

                                     layout: (LayoutFrame 64 0.25 0 0 -1 1 30 0)

                                     activeHelpKey: cvsCommand

                                     tabable: true

                                     model: cvsExecutableHolder

                                     acceptChannel: acceptChannel

                                     acceptOnPointerLeave: true

                                   )

                                  )

                               )

                             )

                            (ViewSpec

                               name: 'Box12'

                               layout: (LayoutFrame 0 0 69 0 0 1 99 0)

                               component: 

                              (SpecCollection

                                 collection: (

                                  (LabelSpec

                                     label: 'CVS Command Timeout:'

                                     name: 'Label2'

                                     layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0)

                                     activeHelpKey: cvsCommandTimeout

                                     level: 0

                                     translateLabel: true

                                     adjust: right

                                   )

                                  (InputFieldSpec

                                     name: 'EntryField1'

                                     layout: (LayoutFrame 64 0.25 0 0 152 0.25 30 0)

                                     activeHelpKey: cvsCommandTimeout

                                     tabable: true

                                     model: cvsCommandTimeoutHolder

                                     type: timeDuration

                                     acceptChannel: acceptChannel

                                     acceptOnPointerLeave: true

                                   )

                                  )

                               )

                             )

                            (ViewSpec

                               name: 'Box7'

                               layout: (LayoutFrame 0 0.0 104 0 0 1 134 0)

                               component: 

                              (SpecCollection

                                 collection: (

                                  (LabelSpec

                                     label: 'CVSRoot default:'

                                     name: 'defaultCvsRootLabel'

                                     layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0)

                                     activeHelpKey: cvsRootDefault

                                     level: 0

                                     translateLabel: true

                                     adjust: right

                                   )

                                  (ComboBoxSpec

                                     name: 'cvsRootComboBox'

                                     layout: (LayoutFrame 64 0.25 0 0 -1 1 30 0)

                                     activeHelpKey: cvsRootDefault

                                     tabable: true

                                     model: cvsRootHolder

                                     immediateAccept: true

                                     acceptOnLeave: true

                                     acceptOnReturn: true

                                     acceptOnTab: true

                                     acceptOnLostFocus: true

                                     acceptChannel: acceptChannel

                                     acceptOnPointerLeave: true

                                     comboList: cvsRootPrototypeList

                                   )

                                  )

                               )

                             )

                            (ActionButtonSpec

                               label: 'CVS-Login'

                               name: 'Button1'

                               layout: (LayoutFrame -117 1 138 0 0 1 168 0)

                               activeHelpKey: cvsLogin

                               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

                               translateLabel: true

                               adjust: right

                             )

                            (SequenceViewSpec

                               name: 'List1'

                               layout: (LayoutFrame 64 0.25 171 0 0 1 290 0)

                               activeHelpKey: cvsRootPerModule

                               tabable: true

                               model: selectedPerModuleRoot

                               hasHorizontalScrollBar: true

                               hasVerticalScrollBar: true

                               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

                               translateLabel: true

                               adjust: right

                             )

                            (ComboBoxSpec

                               name: 'ComboBox1'

                               layout: (LayoutFrame 64 0.25 300 0 0 1 330 0)

                               activeHelpKey: cvsRootPerModuleModule

                               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

                               translateLabel: true

                               adjust: right

                             )

                            (ComboBoxSpec

                               name: 'perModuleRootComboBox'

                               layout: (LayoutFrame 64 0.25 333 0 0 1.0 363 0)

                               activeHelpKey: cvsRootPerModuleRoot

                               tabable: true

                               model: perModuleRoot

                               immediateAccept: true

                               acceptOnLeave: true

                               acceptOnReturn: true

                               acceptOnTab: true

                               acceptOnLostFocus: true

                               acceptChannel: acceptChannel

                               acceptOnPointerLeave: true

                               comboList: cvsRootPrototypeList

                             )

                            (HorizontalPanelViewSpec

                               name: 'HorizontalPanel2'

                               layout: (LayoutFrame 0 0 369 0 -1 1 399 0)

                               horizontalLayout: rightSpaceMax

                               verticalLayout: center

                               horizontalSpace: 3

                               verticalSpace: 3

                               component: 

                              (SpecCollection

                                 collection: (

                                  (ActionButtonSpec

                                     label: 'Add/Apply'

                                     name: 'addButton'

                                     activeHelpKey: addPerModuleRoot

                                     translateLabel: true

                                     tabable: true

                                     model: addPerModuleRoot

                                     useDefaultExtent: true

                                   )

                                  (ActionButtonSpec

                                     label: 'Remove'

                                     name: 'removeButton'

                                     activeHelpKey: removePerModuleRoot

                                     translateLabel: true

                                     tabable: true

                                     model: removePerModuleRoot

                                     enableChannel: removeEnabled

                                     useDefaultExtent: true

                                   )

                                  (ViewSpec

                                     name: 'Box11'

                                     extent: (Point 93 10)

                                   )

                                  (ActionButtonSpec

                                     label: 'Init'

                                     name: 'loginButton2'

                                     activeHelpKey: initPerModuleRoot

                                     translateLabel: true