"

 COPYRIGHT (c) 2011 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:#StoreSourceCodeManagementSettingsAppl

	instanceVariableNames:'useManager repositoryHolder manager addPerModuleRoot

		perModuleRootModule perModuleRoot selectedPerModuleRoot

		rootsPerModule managerIsCVSSourceCodeManager

		managerIsStoreSourceCodeManager storeLoginEnabled

		storeHostPrototypeList storeHostnameHolder storeUsernameHolder

		storePasswordHolder perStoreModuleHostnameHolder

		perStoreModuleUsernameHolder perStoreModulePasswordHolder

		perStoreModuleRoot perStoreModuleRootModule

		selectedPerStoreModuleRoot storeConnectEnabled

		storeConnectInModuleEnabled perModuleFieldsEnableHolder

		managerIsSmallTeamSourceCodeManager

		perSmallTeamModuleFieldsEnableHolder'

	classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts

		RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser

		LastStorePassword'

	poolDictionaries:''

	category:'System-SourceCodeManagement'

!

!StoreSourceCodeManagementSettingsAppl class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2011 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

"

    Store (visualWorks repository access) source code settings - highly experimental and unsupported.  

"

! !

!StoreSourceCodeManagementSettingsAppl class methodsFor:'image specs'!

defaultIcon

    "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 defaultIcon inspect

     ImageEditor openOnClass:self andSelector:#defaultIcon

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:'StoreSourceCodeManagementSettingsAppl class defaultIcon'

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

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BFFH=<AS8@@@@@@@@@@@@@

@@@@@E8=X(!!#T!!0-X@D@@@@@@@@@@@@@@C%%CC@K"B9SUF$QR@@@@@@@@@@@@@A[K00LL@.H]P%SGUUZ@@@@@@@@@@@@R"$<F&P0B8]ONGECQ @@@@@@@@@@

@BX[G7X, T$BIR)(^E @@@@@@@@@@@A?F4T''[F]@XXNDZFYX@@@@@@@@@@@@Z9VU$)I''PFFC!!H.IV@@@@@@@@@@@@IJU%YVU$$@+["P1N$X@@@@@@@@@@IFU

%P"ESQBR^3LTHG&N@@@@@@@@@@BR$9IEI61''PFFC!!F!!VZ @@@@@@@IJR%YRU%"],%4A!! 8Q(G% @@@@@@@@@$)RU$$T''%9^WXXNDQDIX@@@@@@@@@@BR&0<G

%9*Z&Y]]D 9P# @@@@@@@@@@@@AG%9^X%9^WH49AU50@@@@@@@@@%0@@@HA>%9^L#BEF_(@@@@@@@@@@@@BW%9^W%9^P@@@@@@@@@@@@@@@@@@@@@I"W%9^P

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[219 185 65 198 168 74 219 190 79 243 243 243 247 247 247 212 188 103 224 198 109 222 200 122 234 215 144 254 223 141 240 223 165 253 234 173 253 237 183 241 231 193 188 151 42 211 174 48 191 161 59 254 242 210 208 176 66 242 239 229 220 189 76 242 242 242 245 245 245 255 255 255 222 198 111 244 220 117 237 216 141 255 233 149 254 227 155 250 228 170 196 152 26 252 239 190 253 238 192 212 212 212 249 242 210 207 171 55 211 178 65 225 194 72 230 197 74 255 251 236 250 248 244 231 203 98 246 219 105 245 221 117 227 210 143 241 216 146 253 228 154 249 232 171 253 237 182 174 139 37 239 228 192 202 168 50 209 174 52 210 173 51 214 179 60 222 188 68 210 174 70 224 193 81 208 180 89 254 254 254 225 200 105 232 208 118 220 202 138 252 229 143 252 235 160 205 200 181 186 147 30 202 156 27 251 235 189 255 244 201 216 216 216 233 228 211 193 161 65 207 177 72 230 197 73 252 249 237 252 251 244 208 183 100 213 188 101 231 202 112 206 189 131 252 230 145 254 225 148 254 228 160 254 233 176 187 149 35 198 153 27 211 211 211 215 215 215 248 241 209 225 225 225 223 192 70 231 231 231 231 201 81 225 195 86 253 253 253 219 192 114 251 228 125 243 221 145 253 226 149 247 229 168 252 236 180 201 155 26 253 243 195 255 240 196 255 239 199 217 217 217 220 185 61 254 249 224 223 188 69 232 203 81 244 244 244 252 252 252 211 183 100 236 208 111 227 205 125 252 230 144 253 226 148 236 222 171 197 156 25 202 156 26 190 149 32 187 154 48 197 165 54 203 172 59 215 179 59 224 224 224 228 196 72 236 236 236 210 184 89 249 249 249 250 223 100 251 225 111 217 194 122 233 215 148 246 222 149 253 230 161 186 145 25 200 158 27 251 236 189 209 209 209 205 168 48 218 218 218 208 177 64 0 0 0 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: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@O0@@?<@A?>@A??@A??@A??@A??@A??@A??@C??@C??@O??@G??@C??@@??@D_>@C>@@A<@@@@@@') ; yourself); yourself]

! !

!StoreSourceCodeManagementSettingsAppl 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:StoreSourceCodeManagementSettingsAppl andSelector:#windowSpec

     StoreSourceCodeManagementSettingsAppl new openInterface:#windowSpec

     StoreSourceCodeManagementSettingsAppl open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Source Code Manager Settings'

          name: 'Source Code Manager Settings'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 659 592)

        )

        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: (

                 (LabelSpec

                    label: 'Experimental (Only for Transport)'

                    name: 'Label10'

                    style: (FontDescription #'Segoe UI' medium roman 16 #'ms-default')

                    foregroundColor: (Color 86.9993133440146 0.0 0.0)

                    translateLabel: true

                    extent: (Point 659 37)

                  )

                 (ViewSpec

                    name: 'ManagerSetupBoxx'

                    component: 

                   (SpecCollection

                      collection: (

                       (FramedBoxSpec

                          label: 'Store-DB Source Repository Settings'

                          name: 'StoreSetupBox'

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

                          labelPosition: topLeft

                          translateLabel: true

                          component: 

                         (SpecCollection

                            collection: (

                             (ComboBoxSpec

                                name: 'ComboBox1'

                                layout: (LayoutFrame 44 0.25 222 0 0 1 244 0)

                                tabable: true

                                model: perStoreModuleRoot

                                acceptChannel: acceptChannel

                                acceptOnPointerLeave: true

                                comboList: sampleModuleList

                              )

                             (CheckBoxSpec

                                label: 'Show in Browser Menus'

                                name: 'CheckBox1'

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

                                activeHelpKey: shownInBrowserMenus

                                model: shownInBrowserMenusHolder

                                translateLabel: true

                              )

                             (ViewSpec

                                name: 'HostBox'

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

                                component: 

                               (SpecCollection

                                  collection: (

                                   (LabelSpec

                                      label: 'DB or DB@Host:'

                                      name: 'StoreHostLabel'

                                      layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0)

                                      level: 0

                                      translateLabel: true

                                      adjust: right

                                    )

                                   (ComboBoxSpec

                                      name: 'StoreHostComboBox'

                                      layout: (LayoutFrame 44 0.25 0 0 0 1 22 0)

                                      tabable: true

                                      model: storeHostnameHolder

                                      immediateAccept: true

                                      acceptOnLeave: true

                                      acceptOnReturn: true

                                      acceptOnTab: true

                                      acceptOnLostFocus: true

                                      acceptChannel: acceptChannel

                                      acceptOnPointerLeave: true

                                      comboList: storeHostPrototypeList

                                    )

                                   )

                                )

                              )

                             (ViewSpec

                                name: 'UserBox'

                                layout: (LayoutFrame 0 0.0 67 0 0 1 92 0)

                                component: 

                               (SpecCollection

                                  collection: (

                                   (LabelSpec

                                      label: 'Username:'

                                      name: 'StoreUserLabel'

                                      layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0)

                                      level: 0

                                      translateLabel: true

                                      adjust: right

                                    )

                                   (InputFieldSpec

                                      name: 'StoreUserEntryField'

                                      layout: (LayoutFrame 44 0.25 0 0 0 1 22 0)

                                      tabable: true

                                      model: storeUsernameHolder

                                      acceptChannel: acceptChannel

                                      acceptOnPointerLeave: true

                                    )

                                   )

                                )

                              )

                             (ViewSpec

                                name: 'PasswordBox'

                                layout: (LayoutFrame 0 0.0 94 0 0 1 119 0)

                                component: 

                               (SpecCollection

                                  collection: (

                                   (LabelSpec

                                      label: 'Password:'

                                      name: 'Label7'

                                      layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0)

                                      level: 0

                                      translateLabel: true

                                      adjust: right

                                    )

                                   (InputFieldSpec

                                      name: 'PasswordEntryField'

                                      layout: (LayoutFrame 44 0.25 0 0 -130 1 22 0)

                                      tabable: true

                                      model: storePasswordHolder

                                      type: password

                                      acceptChannel: acceptChannel

                                      acceptOnPointerLeave: true

                                    )

                                   )

                                )

                              )

                             (HorizontalPanelViewSpec

                                name: 'HorizontalPanel4'

                                layout: (LayoutFrame -130 1 91 0 0 1 122 0)

                                horizontalLayout: fitSpace

                                verticalLayout: center

                                horizontalSpace: 3

                                verticalSpace: 3

                                component: 

                               (SpecCollection

                                  collection: (

                                   (ActionButtonSpec

                                      label: 'Try to Connect'

                                      name: 'TryConnectButton1'

                                      translateLabel: true

                                      tabable: true

                                      model: storeConnect

                                      enableChannel: storeConnectEnabled

                                      extent: (Point 124 22)

                                    )

                                   )

                                )

                              )

                             (LabelSpec

                                label: 'DB per Module:'

                                name: 'Label4'

                                layout: (LayoutFrame 0 0.0 122 0 40 0.25 144 0)

                                translateLabel: true

                                adjust: right

                              )

                             (SequenceViewSpec

                                name: 'List2'

                                layout: (LayoutFrame 44 0.25 122 0 0 1 220 0)

                                tabable: true

                                model: selectedPerStoreModuleRoot

                                hasHorizontalScrollBar: true

                                hasVerticalScrollBar: true

                                miniScrollerHorizontal: true

                                useIndex: false

                                sequenceList: listOfModules

                              )

                             (LabelSpec

                                label: 'Module:'

                                name: 'perModuleModuleLabel'

                                layout: (LayoutFrame 0 0.0 226 0 40 0.25 243 0)

                                translateLabel: true

                                adjust: right

                              )

                             (LabelSpec

                                label: 'DB:'

                                name: 'perModuleDBLabel'

                                layout: (LayoutFrame 0 0.0 251 0 40 0.25 268 0)

                                translateLabel: true

                                adjust: right

                              )

                             (ComboBoxSpec

                                name: 'perModuleModuleHostComboBox2'

                                layout: (LayoutFrame 44 0.25 247 0 0 1 269 0)

                                tabable: true

                                model: perStoreModuleHostnameHolder

                                immediateAccept: true

                                acceptOnLeave: true

                                acceptOnReturn: true

                                acceptOnTab: true

                                acceptOnLostFocus: true

                                acceptChannel: acceptChannel

                                acceptOnPointerLeave: true

                                comboList: storeHostPrototypeList

                              )

                             (LabelSpec

                                label: 'User / Password:'

                                name: 'perModuleUserPasswordLabel'

                                layout: (LayoutFrame 0 0.0 276 0 40 0.25 293 0)

                                translateLabel: true

                                adjust: right

                              )

                             (InputFieldSpec

                                name: 'perModuleUserEntryField'

                                layout: (LayoutFrame 44 0.25 272 0 -2 0.65 294 0)

                                tabable: true

                                model: perStoreModuleUsernameHolder

                                acceptChannel: acceptChannel

                                acceptOnPointerLeave: true

                              )

                             (InputFieldSpec

                                name: 'perModulePasswordEntryField'

                                layout: (LayoutFrame 5 0.65 272 0 0 1 294 0)

                                tabable: true

                                model: perStoreModulePasswordHolder

                                type: password

                                acceptChannel: acceptChannel

                                acceptOnPointerLeave: true

                              )

                             (HorizontalPanelViewSpec

                                name: 'HorizontalPanel5'

                                layout: (LayoutFrame 44 0.25 295 0 -10 0.65 326 0)

                                horizontalLayout: fit

                                verticalLayout: center

                                horizontalSpace: 3

                                verticalSpace: 3

                                component: 

                               (SpecCollection

                                  collection: (

                                   (ActionButtonSpec

                                      label: 'Add/Apply'

                                      name: 'AddButton2'

                                      translateLabel: true

                                      tabable: true

                                      model: addPerStoreModuleDB

                                      extent: (Point 96 22)

                                    )

                                   (ActionButtonSpec

                                      label: 'Remove'

                                      name: 'RemoveButton3'

                                      translateLabel: true

                                      tabable: true

                                      model: removePerStoreModuleDB

                                      enableChannel: removeEnabled

                                      extent: (Point 97 22)

                                    )

                                   )

                                )

                              )

                             (HorizontalPanelViewSpec

                                name: 'HorizontalPanel6'

                                layout: (LayoutFrame 10 0.65 295 0 0 1 326 0)

                                horizontalLayout: fit

                                verticalLayout: center

                                horizontalSpace: 3

                                verticalSpace: 3

                                component: 

                               (SpecCollection

                                  collection: (

                                   (ActionButtonSpec

                                      label: 'Try to Connect'

                                      name: 'ConnectPerStoreModuleButton'

                                      translateLabel: true

                                      tabable: true

                                      model: connectPerStoreModuleDB

                                      enableChannel: storeConnectInModuleEnabled

                                      extent: (Point 103 22)

                                    )

                                   (ActionButtonSpec

                                      label: 'Browse'

                                      name: 'BrowsePerStoreModuleButton'

                                      translateLabel: true

                                      tabable: true

                                      model: browsePerStoreModuleDB

                                      enableChannel: storeConnectInModuleEnabled

                                      extent: (Point 103 22)

                                    )

                                   )

                                )

                              )

                             )

                          )

                        )

                       )

                    )

                    extent: (Point 659 357)

                  )

                 (FramedBoxSpec

                    label: 'Source Cache'

                    name: 'FramedBox1'

                    visibilityChannel: false

                    labelPosition: topLeft

                    translateLabel: true

                    component: 

                   (SpecCollection

                      collection: (

                       (ViewSpec

                          name: 'SourceCacheDirBox'

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

                          component: 

                         (SpecCollection

                            collection: (

                             (LabelSpec

                                label: 'Source Cache Dir:'

                                name: 'SourceCacheDirLabel'

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

                                translateLabel: true

                                adjust: right

                              )

                             (InputFieldSpec

                                name: 'SourceCacheDirEntryField'

                                layout: (LayoutFrame 64 0.25 0 0 0 1 22 0)

                                enableChannel: useManager

                                model: sourceCacheDir

                                immediateAccept: false

                                acceptOnReturn: true

                                acceptOnTab: true

                                acceptOnLostFocus: true

                                acceptOnPointerLeave: true

                              )

                             )

                          )

                        )

                       (HorizontalPanelViewSpec

                          name: 'CacheActionsHorizontalPanel'

                          layout: (LayoutFrame 44 0.25 33 0 0 1 67 0)

                          horizontalLayout: fitSpace

                          verticalLayout: center

                          horizontalSpace: 3

                          verticalSpace: 3

                          component: 

                         (SpecCollection

                            collection: (

                             (ActionButtonSpec

                                label: 'Flush Cache now'

                                name: 'FlushCacheNowButton'

                                translateLabel: true

                                tabable: true

                                model: flushSourceCache

                                enableChannel: useManager

                                extent: (Point 208 22)

                              )

                             (ActionButtonSpec

                                label: 'Condense Cache now'

                                name: 'CondenseCacheNowButton'

                                translateLabel: true

                                tabable: true

                                model: condenseSourceCache

                                enableChannel: useManager

                                extent: (Point 208 22)

                              )

                             )

                          )

                        )

                       )

                    )

                    extent: (Point 659 95)

                  )

                 )

              )

            )

           )

        )

      )

! !

!StoreSourceCodeManagementSettingsAppl class methodsFor:'queries'!

managerClass

    "backlink to my manager class (needed by the settings app)"

    ^ StoreSourceCodeManager