--- a/FileBasedSourceCodeManagementSettingsAppl.st Wed Mar 21 14:05:42 2012 +0000
+++ b/FileBasedSourceCodeManagementSettingsAppl.st Wed Mar 21 17:50:14 2012 +0000
@@ -12,8 +12,8 @@
"{ Package: 'stx:libtool' }"
AbstractSourceCodeManagementSettingsAppl subclass:#FileBasedSourceCodeManagementSettingsAppl
- instanceVariableNames:'listOfModules removeEnabled pathPerModule repositoryPathHolder
- perModulePath perModulePathModule selectedPerModulePath'
+ instanceVariableNames:'pathPerModule repositoryPathHolder perModulePath
+ perModulePathModule selectedPerModulePath'
classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts
RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser
LastStorePassword'
@@ -185,6 +185,14 @@
component:
(SpecCollection
collection: (
+ (LabelSpec
+ label: 'Demo Only'
+ 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)
+ )
(VerticalPanelViewSpec
name: 'VerticalPanel3'
horizontalLayout: fit
@@ -208,12 +216,22 @@
component:
(SpecCollection
collection: (
+ (ComboBoxSpec
+ name: 'ComboBox1'
+ layout: (LayoutFrame 64 0.25 207 0 0 1 229 0)
+ activeHelpKey: perModuleModule
+ tabable: true
+ model: perModulePathModule
+ 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
- activeHelpKey: shownInBrowserMenus
translateLabel: true
)
(ViewSpec
@@ -272,15 +290,6 @@
translateLabel: true
adjust: right
)
- (InputFieldSpec
- name: 'perModulePathModuleEntryField'
- layout: (LayoutFrame 64 0.25 207 0 0 1 229 0)
- activeHelpKey: perModuleModule
- tabable: true
- model: perModulePathModule
- acceptChannel: acceptChannel
- acceptOnPointerLeave: true
- )
(LabelSpec
label: 'Path:'
name: 'cvsRootLabel'
@@ -361,8 +370,6 @@
)
)
-
- "Modified: / 11-01-2012 / 15:39:37 / cg"
! !
!FileBasedSourceCodeManagementSettingsAppl class methodsFor:'others'!
@@ -452,18 +459,9 @@
"Modified: / 10-01-2012 / 00:21:49 / cg"
!
-condenseSourceCache
- self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ].
- Method flushSourceStreamCache.
+
- "Modified: / 28-11-2006 / 12:21:33 / cg"
-!
-flushSourceCache
- self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ].
-
- "Modified: / 30-09-2011 / 13:33:47 / cg"
-!
removePerModulePath
|module|
@@ -482,19 +480,13 @@
!FileBasedSourceCodeManagementSettingsAppl methodsFor:'aspects'!
-listOfModules
+initialListOfModules
+ ^ pathPerModule keys asList sort
- listOfModules isNil ifTrue:[
- pathPerModule notNil ifTrue:[
- listOfModules := pathPerModule keys asList.
- ].
- listOfModules sort.
- listOfModules onChangeSend:#updateModifiedChannel to:self
- ].
- ^ listOfModules.
+ "Created: / 02-03-2012 / 14:40:32 / cg"
+!
- "Modified: / 21-12-2011 / 14:32:59 / cg"
-!
+
pathPrototypeList
^ #(
@@ -523,13 +515,7 @@
"Created: / 21-12-2011 / 14:31:09 / cg"
!
-removeEnabled
- removeEnabled isNil ifTrue:[
- removeEnabled := false asValue.
- ].
- ^ removeEnabled.
-!
repositoryPathHolder
repositoryPathHolder isNil ifTrue:[
@@ -551,13 +537,7 @@
"Created: / 21-12-2011 / 14:35:37 / cg"
!
-verboseSourceCodeAccess
- verboseSourceCodeAccess isNil ifTrue:[
- verboseSourceCodeAccess := false asValue.
- verboseSourceCodeAccess onChangeSend:#updateModifiedChannel to:self
- ].
- ^ verboseSourceCodeAccess.
-! !
+ !
!FileBasedSourceCodeManagementSettingsAppl methodsFor:'change & update'!
@@ -712,13 +692,13 @@
!FileBasedSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
version
- ^ '$Id: FileBasedSourceCodeManagementSettingsAppl.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+ ^ '§Header: /cvs/stx/stx/libtool/FileBasedSourceCodeManagementSettingsAppl.st,v 1.13 2012/03/16 11:15:17 cg Exp §'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libtool/FileBasedSourceCodeManagementSettingsAppl.st,v 1.9 2012/01/14 20:05:44 cg Exp §'
+ ^ '§Header: /cvs/stx/stx/libtool/FileBasedSourceCodeManagementSettingsAppl.st,v 1.13 2012/03/16 11:15:17 cg Exp §'
!
version_SVN
- ^ '$Id: FileBasedSourceCodeManagementSettingsAppl.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+ ^ '$Id: FileBasedSourceCodeManagementSettingsAppl.st 7952 2012-03-21 17:50:14Z vranyj1 $'
! !