diff -r c574d5af6621 -r 02d6c2d848a0 CVSSourceCodeManagementSettingsAppl.st --- 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 @@ ^ - #(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