--- a/CVSSourceCodeManagementSettingsAppl.st Thu Aug 08 10:48:08 2013 +0100
+++ b/CVSSourceCodeManagementSettingsAppl.st Thu Aug 08 11:08:29 2013 +0100
@@ -244,381 +244,381 @@
<resource: #canvas>
^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'CVS Settings'
- name: 'CVS Settings'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 800 526)
- )
- 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 0 1)
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (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: 'Box1'
- layout: (LayoutFrame 0 0 35 0 0 1 60 0)
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'CVS Command or Path:'
- name: 'Label1'
- layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
- activeHelpKey: cvsCommand
- level: 0
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'CVSExecutableField'
- layout: (LayoutFrame 64 0.25 0 0 -1 1 22 0)
- activeHelpKey: cvsCommand
- tabable: true
- model: cvsExecutableHolder
- acceptChannel: acceptChannel
- acceptOnPointerLeave: true
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'CVS Settings'
+ name: 'CVS Settings'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 800 526)
+ )
+ 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 0 1)
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (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: 'Box1'
+ layout: (LayoutFrame 0 0 35 0 0 1 60 0)
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'CVS Command or Path:'
+ name: 'Label1'
+ layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
+ activeHelpKey: cvsCommand
+ level: 0
+ translateLabel: true
+ adjust: right
)
-
- )
- )
- (ViewSpec
- name: 'Box12'
- layout: (LayoutFrame 0 0 61 0 0 1 86 0)
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'CVS Command Timeout:'
- name: 'Label2'
- layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
- activeHelpKey: cvsCommandTimeout
- level: 0
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField1'
- layout: (LayoutFrame 64 0.25 0 0 152 0.25 22 0)
- activeHelpKey: cvsCommandTimeout
- tabable: true
- model: cvsCommandTimeoutHolder
- type: timeDuration
- acceptChannel: acceptChannel
- acceptOnPointerLeave: true
- )
+ (InputFieldSpec
+ name: 'CVSExecutableField'
+ layout: (LayoutFrame 64 0.25 0 0 -1 1 22 0)
+ activeHelpKey: cvsCommand
+ tabable: true
+ model: cvsExecutableHolder
+ acceptChannel: acceptChannel
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ )
+ (ViewSpec
+ name: 'Box12'
+ layout: (LayoutFrame 0 0 61 0 0 1 86 0)
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'CVS Command Timeout:'
+ name: 'Label2'
+ layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
+ activeHelpKey: cvsCommandTimeout
+ level: 0
+ translateLabel: true
+ adjust: right
)
-
- )
- )
- (ViewSpec
- name: 'Box7'
- layout: (LayoutFrame 0 0.0 92 0 0 1 117 0)
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'CVSRoot default:'
- name: 'defaultCvsRootLabel'
- layout: (LayoutFrame 0 0.0 2 0 60 0.25 24 0)
- activeHelpKey: cvsRootDefault
- level: 0
- translateLabel: true
- adjust: right
- )
- (ComboBoxSpec
- name: 'cvsRootComboBox'
- layout: (LayoutFrame 64 0.25 2 0 -1 1 24 0)
- activeHelpKey: cvsRootDefault
- tabable: true
- model: cvsRootHolder
- immediateAccept: true
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptChannel: acceptChannel
- acceptOnPointerLeave: true
- comboList: cvsRootPrototypeList
- )
+ (InputFieldSpec
+ name: 'EntryField1'
+ layout: (LayoutFrame 64 0.25 0 0 152 0.25 22 0)
+ activeHelpKey: cvsCommandTimeout
+ tabable: true
+ model: cvsCommandTimeoutHolder
+ type: timeDuration
+ acceptChannel: acceptChannel
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ )
+ (ViewSpec
+ name: 'Box7'
+ layout: (LayoutFrame 0 0.0 92 0 0 1 117 0)
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'CVSRoot default:'
+ name: 'defaultCvsRootLabel'
+ layout: (LayoutFrame 0 0.0 2 0 60 0.25 24 0)
+ activeHelpKey: cvsRootDefault
+ level: 0
+ translateLabel: true
+ adjust: right
+ )
+ (ComboBoxSpec
+ name: 'cvsRootComboBox'
+ layout: (LayoutFrame 64 0.25 2 0 -1 1 24 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 122 0 0 1 144 0)
- activeHelpKey: cvsLogin
- translateLabel: true
- tabable: true
- model: loginCVSRoot
- enableChannel: cvsLoginEnabled
- )
- (LabelSpec
- label: 'CVSRoot per Module:'
- name: 'knownModulesLabel'
- layout: (LayoutFrame 0 0.0 150 0 60 0.25 172 0)
- activeHelpKey: cvsRootPerModule
- translateLabel: true
- adjust: right
- )
- (SequenceViewSpec
- name: 'List1'
- layout: (LayoutFrame 64 0.25 150 0 0 1 269 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 279 0 60 0.25 296 0)
- activeHelpKey: cvsRootPerModuleModule
- translateLabel: true
- adjust: right
- )
- (ComboBoxSpec
- name: 'ComboBox1'
- layout: (LayoutFrame 64 0.25 275 0 0 1 297 0)
- activeHelpKey: cvsRootPerModuleModule
- tabable: true
- model: perModuleRootModule
- acceptChannel: acceptChannel
- acceptOnPointerLeave: true
- comboList: sampleModuleList
- )
- (LabelSpec
- label: 'CVSRoot:'
- name: 'cvsRootLabel'
- layout: (LayoutFrame 0 0.0 304 0 60 0.25 321 0)
- activeHelpKey: cvsRootPerModuleRoot
- translateLabel: true
- adjust: right
- )
- (ComboBoxSpec
- name: 'perModuleRootComboBox'
- layout: (LayoutFrame 64 0.25 300 0 0 1.0 322 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 64 0.25 327 0 -1 1 352 0)
- horizontalLayout: fitSpace
- verticalLayout: center
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (ActionButtonSpec
- label: 'Add/Apply'
- name: 'addButton'
- activeHelpKey: addPerModuleRoot
- translateLabel: true
- tabable: true
- model: addPerModuleRoot
- extent: (Point 98 22)
- )
- (ActionButtonSpec
- label: 'Remove'
- name: 'removeButton'
- activeHelpKey: removePerModuleRoot
- translateLabel: true
- tabable: true
- model: removePerModuleRoot
- enableChannel: removeEnabled
- extent: (Point 98 22)
- )
- (ViewSpec
- name: 'Box11'
- extent: (Point 99 10)
- )
- (ActionButtonSpec
- label: 'Init'
- name: 'loginButton2'
- activeHelpKey: initPerModuleRoot
- translateLabel: true
- tabable: true
- model: initPerModuleRoot
- enableChannel: cvsInitInModuleEnabled
- extent: (Point 98 22)
- )
- (ActionButtonSpec
- label: 'Login'
- name: 'Button3'
- activeHelpKey: loginPerModuleRoot
- translateLabel: true
- tabable: true
- model: loginPerModuleRoot
- enableChannel: cvsLoginInModuleEnabled
- extent: (Point 99 22)
- )
+ )
+
+ )
+ )
+ (ActionButtonSpec
+ label: 'CVS-Login'
+ name: 'Button1'
+ layout: (LayoutFrame -117 1 122 0 0 1 144 0)
+ activeHelpKey: cvsLogin
+ translateLabel: true
+ tabable: true
+ model: loginCVSRoot
+ enableChannel: cvsLoginEnabled
+ )
+ (LabelSpec
+ label: 'CVSRoot per Module:'
+ name: 'knownModulesLabel'
+ layout: (LayoutFrame 0 0.0 150 0 60 0.25 172 0)
+ activeHelpKey: cvsRootPerModule
+ translateLabel: true
+ adjust: right
+ )
+ (SequenceViewSpec
+ name: 'List1'
+ layout: (LayoutFrame 64 0.25 150 0 0 1 269 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 279 0 60 0.25 296 0)
+ activeHelpKey: cvsRootPerModuleModule
+ translateLabel: true
+ adjust: right
+ )
+ (ComboBoxSpec
+ name: 'ComboBox1'
+ layout: (LayoutFrame 64 0.25 275 0 0 1 297 0)
+ activeHelpKey: cvsRootPerModuleModule
+ tabable: true
+ model: perModuleRootModule
+ acceptChannel: acceptChannel
+ acceptOnPointerLeave: true
+ comboList: sampleModuleList
+ )
+ (LabelSpec
+ label: 'CVSRoot:'
+ name: 'cvsRootLabel'
+ layout: (LayoutFrame 0 0.0 304 0 60 0.25 321 0)
+ activeHelpKey: cvsRootPerModuleRoot
+ translateLabel: true
+ adjust: right
+ )
+ (ComboBoxSpec
+ name: 'perModuleRootComboBox'
+ layout: (LayoutFrame 64 0.25 300 0 0 1.0 322 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 327 0 -1 1 352 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 71 10)
+ )
+ (ActionButtonSpec
+ label: 'Init'
+ name: 'loginButton2'
+ activeHelpKey: initPerModuleRoot
+ translateLabel: true
+ tabable: true
+ model: initPerModuleRoot
+ enableChannel: cvsInitInModuleEnabled
+ useDefaultExtent: true
)
-
- )
- )
- (HorizontalPanelViewSpec
- name: 'HorizontalPanel3'
- layout: (LayoutFrame 64 0.25 359 0 -1 1 384 0)
- horizontalLayout: right
- verticalLayout: center
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (ActionButtonSpec
- label: 'Add eXept''s Public Repository'
- name: 'Button2'
- activeHelpKey: addPublicExeptRepository
- translateLabel: true
- resizeForLabel: true
- tabable: true
- model: addPublicExeptRepository
- extent: (Point 209 22)
- )
+ (ActionButtonSpec
+ label: 'Login'
+ name: 'Button3'
+ activeHelpKey: loginPerModuleRoot
+ translateLabel: true
+ tabable: true
+ model: loginPerModuleRoot
+ enableChannel: cvsLoginInModuleEnabled
+ useDefaultExtent: true
)
-
- )
- )
+ )
+
+ )
)
-
- )
- )
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel3'
+ layout: (LayoutFrame 64 0.25 359 0 -1 1 384 0)
+ horizontalLayout: right
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Add eXept''s Public Repository'
+ name: 'Button2'
+ activeHelpKey: addPublicExeptRepository
+ translateLabel: true
+ resizeForLabel: true
+ tabable: true
+ model: addPublicExeptRepository
+ extent: (Point 209 22)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
)
-
- )
- extent: (Point 800 415)
- )
- (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)
- model: sourceCacheDir
- immediateAccept: false
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
+ )
+
+ )
+ extent: (Point 800 415)
+ )
+ (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)
+ 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
- extent: (Point 261 22)
- )
- (ActionButtonSpec
- label: 'Condense Cache now'
- name: 'CondenseCacheNowButton'
- translateLabel: true
- tabable: true
- model: condenseSourceCache
- extent: (Point 261 22)
- )
+ )
+
+ )
+ )
+ (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
+ extent: (Point 261 22)
)
-
- )
- )
+ (ActionButtonSpec
+ label: 'Condense Cache now'
+ name: 'CondenseCacheNowButton'
+ translateLabel: true
+ tabable: true
+ model: condenseSourceCache
+ extent: (Point 261 22)
+ )
+ )
+
+ )
)
-
- )
- extent: (Point 800 95)
- )
+ )
+
+ )
+ extent: (Point 800 95)
)
-
- )
- )
+ )
+
+ )
)
-
- )
- )
+ )
+
+ )
+ )
! !
!CVSSourceCodeManagementSettingsAppl class methodsFor:'queries'!
@@ -801,7 +801,8 @@
].
rootLocal := cvsRoot withoutPrefix:':local:'.
-
+ rootLocal := rootLocal asFilename asAbsoluteFilename pathName.
+self halt.
term showCR:(('Close this terminal window, when finished') allBold colorizeAllWith:Color red).
term showCR:''.
term endEntry.
@@ -819,6 +820,8 @@
"
self basicNew cvsInit:':local:c:\users\exept\cvs'
"
+
+ "Modified: / 31-07-2013 / 18:29:19 / cg"
!
cvsLogin:cvsRoot
@@ -1140,11 +1143,11 @@
!CVSSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.32 2013-07-29 14:08:14 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.33 2013-07-31 17:32:33 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.32 2013-07-29 14:08:14 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/CVSSourceCodeManagementSettingsAppl.st,v 1.33 2013-07-31 17:32:33 cg Exp $'
!
version_HG