--- a/PerforceSourceCodeManagementSettingsAppl.st Mon Apr 14 22:38:48 2014 +0200
+++ b/PerforceSourceCodeManagementSettingsAppl.st Mon Apr 14 22:57:49 2014 +0200
@@ -183,278 +183,278 @@
<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 767 642)
- )
- 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: (
- (FramedBoxSpec
- label: 'Perforce (P4) Sourcecode Manager Settings'
- name: 'FramedBox3'
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Show in Browser Menus'
- name: 'CheckBox1'
- layout: (LayoutFrame 0 0 5 0 -150 1 27 0)
- activeHelpKey: shownInBrowserMenus
- model: shownInBrowserMenusHolder
- translateLabel: true
- )
- (ActionButtonSpec
- label: 'Check'
- name: 'Button6'
- layout: (LayoutFrame -150 1 5 0 -5 1 27 0)
- translateLabel: true
- labelChannel: checkLabel
- model: checkPerforceSettings
- )
- (ViewSpec
- name: 'Box3'
- layout: (LayoutFrame 0 0 36 0 0 1 0 1)
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Default Perforce Root'
- name: 'Label1'
- layout: (LayoutFrame 0 0.0 1 0 60 0.25 23 0)
- level: 0
- translateLabel: true
- adjust: right
- )
- (LabelSpec
- label: '(client:user:pass@host:port) '
- name: 'Label18'
- layout: (LayoutFrame 4 0.0 19 0 64 0.25 34 0)
- style: (FontDescription helvetica medium roman 10)
- level: 0
- foregroundColor: (Color 32.9991607537957 32.9991607537957 32.9991607537957)
- translateLabel: true
- adjust: right
- )
- (ComboBoxSpec
- name: 'cvsRootComboBox'
- layout: (LayoutFrame 66 0.25 7 0 -5 1 29 0)
- tabable: true
- model: defaultSettingsHolder
- immediateAccept: true
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptChannel: acceptChannel
- acceptOnPointerLeave: true
- comboList: defaultSettingsPrototypeList
- )
- (LabelSpec
- label: 'Perforce Command or Path:'
- name: 'Label22'
- layout: (LayoutFrame 0 0.0 38 0 60 0.25 60 0)
- level: 0
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField8'
- layout: (LayoutFrame 66 0.25 38 0 -5 1 60 0)
- tabable: true
- model: perforceExecutableHolder
- immediateAccept: false
- acceptOnLostFocus: true
- acceptChannel: acceptChannel
- acceptOnPointerLeave: true
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Source Code Manager Settings'
+ name: 'Source Code Manager Settings'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 755 693)
+ )
+ 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: (
+ (FramedBoxSpec
+ label: 'Perforce (P4) Sourcecode Manager Settings'
+ name: 'FramedBox3'
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Show in Browser Menus'
+ name: 'CheckBox1'
+ layout: (LayoutFrame 0 0 5 0 -150 1 35 0)
+ activeHelpKey: shownInBrowserMenus
+ model: shownInBrowserMenusHolder
+ translateLabel: true
+ )
+ (ActionButtonSpec
+ label: 'Check'
+ name: 'Button6'
+ layout: (LayoutFrame -150 1 5 0 -5 1 35 0)
+ translateLabel: true
+ labelChannel: checkLabel
+ model: checkPerforceSettings
+ )
+ (ViewSpec
+ name: 'Box3'
+ layout: (LayoutFrame 0 0 41 0 0 1 117 0)
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Default Perforce Root'
+ name: 'Label1'
+ layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0)
+ level: 0
+ translateLabel: true
+ adjust: right
)
-
- )
- )
+ (LabelSpec
+ label: '(client:user:pass@host:port) '
+ name: 'Label18'
+ layout: (LayoutFrame 4 0.0 25 0 64 0.25 40 0)
+ style: (FontDescription helvetica medium roman 10)
+ level: 0
+ foregroundColor: (Color 32.9991607537957 32.9991607537957 32.9991607537957)
+ translateLabel: true
+ adjust: right
+ )
+ (ComboBoxSpec
+ name: 'cvsRootComboBox'
+ layout: (LayoutFrame 66 0.25 0 0 -5 1 30 0)
+ tabable: true
+ model: defaultSettingsHolder
+ immediateAccept: true
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptChannel: acceptChannel
+ acceptOnPointerLeave: true
+ comboList: defaultSettingsPrototypeList
+ )
+ (LabelSpec
+ label: 'Perforce Command / Path:'
+ name: 'Label22'
+ layout: (LayoutFrame 0 0.0 38 0 60 0.25 68 0)
+ level: 0
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField8'
+ layout: (LayoutFrame 66 0.25 38 0 -5 1 68 0)
+ tabable: true
+ model: perforceExecutableHolder
+ immediateAccept: false
+ acceptOnLostFocus: true
+ acceptChannel: acceptChannel
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
)
-
- )
- extent: (Point 767 138)
- )
- (ViewSpec
- name: 'ManagerSetupBoxx'
- component:
- (SpecCollection
- collection: (
- (FramedBoxSpec
- label: 'Per Module Manager Setup'
- name: 'PerModuleManagerSetup'
- layout: (LayoutFrame 0 0 -1 0 0 1 -3 1)
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (DataSetSpec
- name: 'Table1'
- layout: (LayoutFrame 5 0 5 0 0 1 180 0)
- model: selectedPerModuleRoot
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- dataList: listOfModules
- useIndex: false
- columnHolder: tableColumns
- beDependentOfRows: true
- )
- (HorizontalPanelViewSpec
- name: 'HorizontalPanel11'
- layout: (LayoutFrame 5 0 -25 1 -1 1 0 1)
- horizontalLayout: fitSpace
- verticalLayout: center
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (ActionButtonSpec
- label: 'Add/Apply'
- name: 'Button2'
- translateLabel: true
- tabable: true
- model: addPerModuleRoot
- extent: (Point 361 22)
- )
- (ActionButtonSpec
- label: 'Remove'
- name: 'Button3'
- translateLabel: true
- tabable: true
- model: removePerModuleRoot
- enableChannel: removeEnabled
- extent: (Point 361 22)
- )
+ )
+
+ )
+ extent: (Point 755 145)
+ )
+ (ViewSpec
+ name: 'ManagerSetupBoxx'
+ component:
+ (SpecCollection
+ collection: (
+ (FramedBoxSpec
+ label: 'Per Module Manager Setup'
+ name: 'PerModuleManagerSetup'
+ layout: (LayoutFrame 0 0 -1 0 0 1 -3 1)
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (DataSetSpec
+ name: 'Table1'
+ layout: (LayoutFrame 5 0 5 0 0 1 -30 1)
+ model: selectedPerModuleRoot
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ dataList: listOfModules
+ useIndex: false
+ columnHolder: tableColumns
+ beDependentOfRows: true
+ )
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel11'
+ layout: (LayoutFrame 5 0 -30 1 -1 1 0 1)
+ horizontalLayout: fitSpace
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Add/Apply'
+ name: 'Button2'
+ translateLabel: true
+ tabable: true
+ model: addPerModuleRoot
+ extent: (Point 352 30)
)
-
- )
- )
+ (ActionButtonSpec
+ label: 'Remove'
+ name: 'Button3'
+ translateLabel: true
+ tabable: true
+ model: removePerModuleRoot
+ enableChannel: removeEnabled
+ extent: (Point 352 30)
+ )
+ )
+
+ )
)
-
- )
- )
+ )
+
+ )
)
-
- )
- extent: (Point 767 250)
- )
- (FramedBoxSpec
- label: 'Source Cache'
- name: 'FramedBox2'
- visibilityChannel: false
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'Box4'
- layout: (LayoutFrame 0 0 0 0 0 1 30 0)
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Source Cache Dir:'
- name: 'Label23'
- layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField9'
- 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 755 250)
+ )
+ (FramedBoxSpec
+ label: 'Source Cache'
+ name: 'FramedBox2'
+ visibilityChannel: false
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'Box4'
+ layout: (LayoutFrame 0 0 0 0 0 1 30 0)
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Source Cache Dir:'
+ name: 'Label23'
+ layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField9'
+ layout: (LayoutFrame 64 0.25 0 0 0 1 30 0)
+ model: sourceCacheDir
+ immediateAccept: false
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
)
-
- )
- )
- (HorizontalPanelViewSpec
- name: 'HorizontalPanel12'
- 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: 'Button4'
- translateLabel: true
- tabable: true
- model: flushSourceCache
- extent: (Point 250 22)
- )
- (ActionButtonSpec
- label: 'Condense Cache now'
- name: 'Button5'
- translateLabel: true
- tabable: true
- model: condenseSourceCache
- extent: (Point 250 22)
- )
+ )
+
+ )
+ )
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel12'
+ layout: (LayoutFrame 44 0.25 33 0 0 1 63 0)
+ horizontalLayout: fitSpace
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Flush Cache now'
+ name: 'Button4'
+ translateLabel: true
+ tabable: true
+ model: flushSourceCache
+ extent: (Point 243 30)
+ )
+ (ActionButtonSpec
+ label: 'Condense Cache now'
+ name: 'Button5'
+ translateLabel: true
+ tabable: true
+ model: condenseSourceCache
+ extent: (Point 243 30)
)
-
- )
- )
+ )
+
+ )
)
-
- )
- extent: (Point 767 95)
- )
- (ViewSpec
- name: 'VerboseBox'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Verbose (Trace Access on Transcript)'
- name: 'CheckBox6'
- layout: (LayoutFrame 30 0 5 0 -5 1 27 0)
- model: verboseSourceCodeAccess
- translateLabel: true
- )
+ )
+
+ )
+ extent: (Point 755 100)
+ )
+ (ViewSpec
+ name: 'VerboseBox'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Verbose (Trace Access on Transcript)'
+ name: 'CheckBox6'
+ layout: (LayoutFrame 30 0 5 0 -5 1 35 0)
+ model: verboseSourceCodeAccess
+ translateLabel: true
)
-
- )
- extent: (Point 767 25)
- )
+ )
+
+ )
+ extent: (Point 755 25)
)
-
- )
- )
+ )
+
+ )
)
-
- )
- )
+ )
+
+ )
+ )
! !
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'menu specs'!
@@ -1337,14 +1337,14 @@
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagementSettingsAppl.st,v 1.27 2014-04-14 19:09:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagementSettingsAppl.st,v 1.28 2014-04-14 20:57:49 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagementSettingsAppl.st,v 1.27 2014-04-14 19:09:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagementSettingsAppl.st,v 1.28 2014-04-14 20:57:49 cg Exp $'
!
version_SVN
- ^ '$Id: PerforceSourceCodeManagementSettingsAppl.st,v 1.27 2014-04-14 19:09:54 cg Exp $'
+ ^ '$Id: PerforceSourceCodeManagementSettingsAppl.st,v 1.28 2014-04-14 20:57:49 cg Exp $'
! !