author | Claus Gittinger <cg@exept.de> |
Mon, 11 Sep 2017 09:11:40 +0200 | |
changeset 17687 | 01e713d1af75 |
parent 16679 | cf99c8da73cf |
child 16689 | 70b43a6c4755 |
child 18033 | 35ab63777f8e |
permissions | -rw-r--r-- |
9822 | 1 |
" |
2 |
COPYRIGHT (c) 2002 by eXept Software AG |
|
3 |
All Rights Reserved |
|
4 |
||
5 |
This software is furnished under a license and may be used |
|
6 |
only in accordance with the terms of that license and with the |
|
7 |
inclusion of the above copyright notice. This software may not |
|
8 |
be provided or otherwise made available to, or used by, any |
|
9 |
other person. No title to or ownership of the software is |
|
10 |
hereby transferred. |
|
11 |
" |
|
12 |
"{ Package: 'stx:libtool' }" |
|
13 |
||
16155 | 14 |
"{ NameSpace: Smalltalk }" |
15 |
||
9858 | 16 |
AbstractSourceCodeManagementSettingsAppl subclass:#CVSSourceCodeManagementSettingsAppl |
11331 | 17 |
instanceVariableNames:'repositoryHolder manager repository cvsRootPrototypeList |
18 |
addPerModuleRoot perModuleRootModule removePerModuleRoot |
|
19 |
perModuleRoot cvsRootHolder selectedPerModuleRoot |
|
20 |
cvsBinDirectoryHolder cvsExecutableHolder cvsCommandTimeoutHolder |
|
12749
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
21 |
rootsPerModule cvsLoginInModuleEnabled cvsLoginEnabled |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
22 |
cvsInitInModuleEnabled' |
10999 | 23 |
classVariableNames:'RecentlyUsedCVSRoots' |
9822 | 24 |
poolDictionaries:'' |
25 |
category:'System-SourceCodeManagement' |
|
26 |
! |
|
27 |
||
28 |
!CVSSourceCodeManagementSettingsAppl class methodsFor:'documentation'! |
|
29 |
||
30 |
copyright |
|
31 |
" |
|
32 |
COPYRIGHT (c) 2002 by eXept Software AG |
|
33 |
All Rights Reserved |
|
34 |
||
35 |
This software is furnished under a license and may be used |
|
36 |
only in accordance with the terms of that license and with the |
|
37 |
inclusion of the above copyright notice. This software may not |
|
38 |
be provided or otherwise made available to, or used by, any |
|
39 |
other person. No title to or ownership of the software is |
|
40 |
hereby transferred. |
|
41 |
" |
|
42 |
! |
|
43 |
||
44 |
documentation |
|
45 |
" |
|
10981 | 46 |
CVS part of the source code settings. |
47 |
This settings app controls the parameters of the CVSSourceCodeManager. |
|
48 |
||
11335 | 49 |
Extracted for pluggability from SourceCodeManagerSettings in the AbstractSettingsApplication. |
9822 | 50 |
" |
51 |
! ! |
|
52 |
||
9845
bfb845fd9ff2
added: #defaultRepositoryName
Claus Gittinger <cg@exept.de>
parents:
9822
diff
changeset
|
53 |
!CVSSourceCodeManagementSettingsAppl class methodsFor:'defaults'! |
bfb845fd9ff2
added: #defaultRepositoryName
Claus Gittinger <cg@exept.de>
parents:
9822
diff
changeset
|
54 |
|
bfb845fd9ff2
added: #defaultRepositoryName
Claus Gittinger <cg@exept.de>
parents:
9822
diff
changeset
|
55 |
defaultRepositoryName |
bfb845fd9ff2
added: #defaultRepositoryName
Claus Gittinger <cg@exept.de>
parents:
9822
diff
changeset
|
56 |
|
bfb845fd9ff2
added: #defaultRepositoryName
Claus Gittinger <cg@exept.de>
parents:
9822
diff
changeset
|
57 |
^ '/cvs/stx' |
bfb845fd9ff2
added: #defaultRepositoryName
Claus Gittinger <cg@exept.de>
parents:
9822
diff
changeset
|
58 |
|
bfb845fd9ff2
added: #defaultRepositoryName
Claus Gittinger <cg@exept.de>
parents:
9822
diff
changeset
|
59 |
"Created: / 19-04-2011 / 11:00:11 / cg" |
bfb845fd9ff2
added: #defaultRepositoryName
Claus Gittinger <cg@exept.de>
parents:
9822
diff
changeset
|
60 |
! ! |
bfb845fd9ff2
added: #defaultRepositoryName
Claus Gittinger <cg@exept.de>
parents:
9822
diff
changeset
|
61 |
|
11006 | 62 |
!CVSSourceCodeManagementSettingsAppl class methodsFor:'help specs'! |
63 |
||
64 |
helpSpec |
|
65 |
"This resource specification was automatically generated |
|
66 |
by the UIHelpTool of ST/X." |
|
67 |
||
68 |
"Do not manually edit this!! If it is corrupted, |
|
69 |
the UIHelpTool may not be able to read the specification." |
|
70 |
||
71 |
" |
|
72 |
UIHelpTool openOnClass:CVSSourceCodeManagementSettingsAppl |
|
73 |
" |
|
74 |
||
75 |
<resource: #help> |
|
76 |
||
77 |
^ super helpSpec addPairsFrom:#( |
|
78 |
||
79 |
#addPerModuleRoot |
|
12749
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
80 |
'Add this module-CVSRoot combination or update the corresponding per-module entry' |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
81 |
|
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
82 |
#addPerPackageManager |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
83 |
'Add a new per-package manager definition' |
11006 | 84 |
|
11840
abf92167eea8
added: #addPublicExeptRepository
Claus Gittinger <cg@exept.de>
parents:
11733
diff
changeset
|
85 |
#addPublicExeptRepository |
abf92167eea8
added: #addPublicExeptRepository
Claus Gittinger <cg@exept.de>
parents:
11733
diff
changeset
|
86 |
'Add an entry to access stx''s sources from the public exept repository' |
abf92167eea8
added: #addPublicExeptRepository
Claus Gittinger <cg@exept.de>
parents:
11733
diff
changeset
|
87 |
|
11006 | 88 |
#browseSourceCache |
89 |
'Open a file browser on the source cache directory' |
|
90 |
||
91 |
#checkClassesWhenCheckingIn |
|
11733 | 92 |
'Before checking into the repository, check classes for leftover halt and breakpoint code' |
11006 | 93 |
|
94 |
#checkPerPackageManager |
|
11733 | 95 |
'Open a window to show which scm-manager is responsible for which package' |
11006 | 96 |
|
97 |
#condenseSourceCache |
|
98 |
'Cleanup old cached versions from the source cache.\Will keep only the current (newest) version in the cache.\Access to older code versions will be slowed down (compare with old version browser function)' |
|
99 |
||
100 |
#cvsCommand |
|
101 |
'The command to use for cvs operations\(the path to "cvs"/"cvs.exe"-command. Not needed, if already in the shell''s PATH value)' |
|
102 |
||
11061
0742839089e1
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11059
diff
changeset
|
103 |
#cvsCommandTimeout |
11733 | 104 |
'The command timeout.\For slow connections (ssl-tunnel), it may make sense to increase this value' |
11061
0742839089e1
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11059
diff
changeset
|
105 |
|
11006 | 106 |
#cvsLogin |
107 |
'Perform a "cvs login" operation for the default CVSROOT' |
|
108 |
||
109 |
#cvsRootDefault |
|
11733 | 110 |
'The default CVSROOT.\This will be used for all modules which are not listed below' |
11006 | 111 |
|
112 |
#cvsRootPerModule |
|
11733 | 113 |
'Specifies per-module CVSROOTs.\This allows for individual projects to be stored in different cvs repositories' |
11006 | 114 |
|
115 |
#cvsRootPerModuleModule |
|
116 |
'The module for which a specific CVSROOT is defined' |
|
117 |
||
118 |
#cvsRootPerModuleRoot |
|
119 |
'The CVSROOT for which this specific module is defined' |
|
120 |
||
121 |
#defaultManagerType |
|
122 |
'The default repository type.\This is used for packages for which no entry matches in the list below' |
|
123 |
||
124 |
#editPerPackageManager |
|
125 |
'Modify the selected per-package manager definition' |
|
126 |
||
127 |
#flushSourceCache |
|
128 |
'Remove all files from the source cache.\Access to source code will temporarily be slowed down,\until sources have been refetched from the repository' |
|
129 |
||
12749
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
130 |
#initPerModuleRoot |
12752
e890b4041563
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12751
diff
changeset
|
131 |
'Execute a "cvs init" operation for this CVSROOT (enabled if a new local repository is selected)' |
12749
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
132 |
|
11006 | 133 |
#keepMethodSourceInImage |
134 |
'After first file access, keep the method sources in the image itself.\All following text search operations will be much faster.\Grows the image over time (but who cares, these days)' |
|
135 |
||
136 |
#loginPerModuleRoot |
|
12749
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
137 |
'Execute a "cvs login" operation for this CVSROOT (enabled when a remote repository is selected)' |
11006 | 138 |
|
139 |
#moveManagerDown |
|
140 |
'Move the selected entry down in the list.\(The first matching definition is used to determine which repository type is used.)' |
|
141 |
||
142 |
#moveManagerUp |
|
143 |
'Move the selected entry up in the list.\(The first matching definition is used to determine which repository type is used.)' |
|
144 |
||
145 |
#perPackageConfiguration |
|
11733 | 146 |
'Define per-package repository types here.\For any non-matching package-id, the default repository type is used' |
11006 | 147 |
|
148 |
#removePerModuleRoot |
|
149 |
'Remove this per-module entry' |
|
150 |
||
151 |
#removePerPackageManager |
|
152 |
'Remove the selected per-package manager definition' |
|
153 |
||
154 |
#sourceCache |
|
155 |
'After checkout, keep the sourcefile in a local file (to avoid repeated checkout of the same file)' |
|
156 |
||
157 |
#useLocalSources |
|
11733 | 158 |
'If present, use the local source files (from the development system''s tree).\If checkout fails, these will always be tried as second chance' |
11006 | 159 |
|
160 |
#useManager |
|
161 |
'Enable source code management.\If off, all queries for sourcecode are resolved by local files (offline operation)' |
|
162 |
||
163 |
#verboseSourceCodeAccess |
|
164 |
'Output debugging messages on the Transcript\(mostly traces of the underlying scm mechanism, such as cvs commands)' |
|
165 |
||
166 |
) |
|
167 |
! ! |
|
168 |
||
11010 | 169 |
!CVSSourceCodeManagementSettingsAppl class methodsFor:'image specs'! |
170 |
||
171 |
defaultIcon |
|
14340
015e211830cc
Mark program icons with resource
Stefan Vogel <sv@exept.de>
parents:
14316
diff
changeset
|
172 |
<resource: #programImage> |
015e211830cc
Mark program icons with resource
Stefan Vogel <sv@exept.de>
parents:
14316
diff
changeset
|
173 |
|
11010 | 174 |
^ self defaultIcon2 |
175 |
||
176 |
"Created: / 22-12-2011 / 13:47:11 / cg" |
|
177 |
! |
|
178 |
||
179 |
defaultIcon1 |
|
180 |
"This resource specification was automatically generated |
|
181 |
by the ImageEditor of ST/X." |
|
182 |
||
183 |
"Do not manually edit this!! If it is corrupted, |
|
184 |
the ImageEditor may not be able to read the specification." |
|
185 |
||
186 |
" |
|
187 |
self defaultIcon1 inspect |
|
188 |
ImageEditor openOnClass:self andSelector:#defaultIcon1 |
|
189 |
Icon flushCachedIcons |
|
190 |
" |
|
191 |
||
192 |
<resource: #image> |
|
193 |
||
194 |
^Icon |
|
195 |
constantNamed:'CVSSourceCodeManagementSettingsAppl class defaultIcon1' |
|
196 |
ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
|
197 |
@@@@@@@@@@DB@@@@@@@@@@@@@@@@@@@@@@@@@@LDAPLFA0 I@@@@@@@@@@@@@@@@@@@@@@(KC@0MC <D@@@@@@@@@@@@@@@@@@@CB04LD@DAA@8C@ D@@@@@ |
|
198 |
@@@@@@@@@@@OC 4HDP(IBAHND0 @@@@@@@@@@@@@@@@EE@PU@@@@APLV@0@@@@@@@@@@@@@@@@LVC!!\E@@@@@@PXA Y@@@@@@@@@@@@@@PVEA$Z@@@@@@P[ |
|
199 |
A!!0]@@@@@@@@@@@@@@@EEAXW@@@@APL[G @@@@@@@@@@@@@@@@@SD!!P_DB@JHQ8FD0 @@@@@@@@@@@@@@@@]BRHTF2L$IRX''D0 @@PH@@@@@@@@@@@@@JBD) |
|
200 |
J",,KR$!!@0PE@0XGB@$@@@@@@@@@@B8!!F"4-F"D.B ,LC@4NC0P@@@@@@@@@@@@@@A\]@@LKCP0P@PDDC LB@P@@@@@@@@@@@@@@@@<NCP QB $HD 8SB@@@ |
|
201 |
@@@@@@@@@@@@@@TTAAT@@@@E@1XC@@@@@@@@@@@@@@@@@1XNE0T@@@@@AA FBA$@@@@@@@@@@@@@AAXTFQ(@@@@@AA,FGA4@@@@@@@@@@@@@@@TTE!!\@@@@E |
|
202 |
@1,^@@@@@@@@@@@@@@@@@ALREA<PH@(!!G XSB@@@@@@@@@@@@@@@@A4IH!!P[H2P%I"\SB@@@@@@@@@@@@@@@@@@(HR$*J20-JRD@@@@@@@@@@@@@@@@@@@@@ |
|
14403
393d05aed909
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14340
diff
changeset
|
203 |
K"DZKR4ZHR8@@@@@@@@@@@@@@@@@@@@@@@@@E14@@@@@@@@@') ; colorMapFromArray:#[0 0 0 160 176 200 176 192 210 176 200 220 192 208 220 224 232 240 176 208 220 208 224 220 144 168 180 192 200 220 208 216 220 208 224 240 224 232 250 224 240 250 208 232 240 160 192 210 176 184 180 128 136 140 192 216 220 160 184 210 208 240 250 144 144 160 192 224 240 160 168 180 192 232 240 160 176 180 224 224 220 192 232 250 144 168 200 176 184 200 160 200 220 192 216 240 176 192 200 160 184 200 192 224 220 176 224 250 176 216 250 160 208 240 144 192 250 144 176 210 255 248 250 160 192 220 144 184 210 160 200 240 160 192 240 128 160 180 128 152 180]; mask:((ImageMask new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@X@@C?@@C?@@O?0@O?0@OG @_C8@_C8@OG @O?0@O?6@G??0C??0@[?<@C?<@C18@G0>@G0>@C18@C?<@C?<@A?0@@?0@@F@') ; yourself); yourself] |
11010 | 204 |
! |
205 |
||
206 |
defaultIcon2 |
|
207 |
"This resource specification was automatically generated |
|
208 |
by the ImageEditor of ST/X." |
|
209 |
||
210 |
"Do not manually edit this!! If it is corrupted, |
|
211 |
the ImageEditor may not be able to read the specification." |
|
212 |
||
213 |
" |
|
214 |
self defaultIcon2 inspect |
|
215 |
ImageEditor openOnClass:self andSelector:#defaultIcon2 |
|
216 |
Icon flushCachedIcons |
|
217 |
" |
|
218 |
||
219 |
<resource: #image> |
|
220 |
||
221 |
^Icon |
|
222 |
constantNamed:'CVSSourceCodeManagementSettingsAppl class defaultIcon2' |
|
223 |
ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
|
224 |
@@@@@@@@@@DB@@@@@@@@@@@@@@@@@@@@@@@@@@LDAPLFA0 I@@@@@@@@@@@@@@@@@@@@@@(KC@0MC <D@@@@@@@@@@@@@@@@@@@CB04LD@DAA@8C@ D@@@@@ |
|
225 |
@@@@@@@@@@@OC 4HDP(IBAHND0 @@@@@@@@@@@@@@@@EE@PU@@@@APLV@0@@@@@@@@@@@@@@@@LVC!!\E@@@@@@PXA Y@@@@@@@@@@@@@@PVEA$Z@@@@@@P[ |
|
226 |
A!!0]@@@@@@@@@@@@@@@EEAXW@@@@APL[G @@@@@@@@@@@@@@@@@SD!!P_DB@JHQ8FD0 @@@@@@@@@@@@@@@@]BRHTF2L$IRX''D0 @@PH@@@@@@@@@@@@@JBD) |
|
227 |
J",,KR$!!@0PE@0XGB@$@@@@@@@@@@B83L3@0F"D.B ,LC@4NC0P@@@@@@@@@@C@3L3L3L@LKCP0P@PDDC LB@P@@@@@@K3L3@@@@@C@NCP QB $HD 8SB@@@ |
|
228 |
@@@@LCD0@@@@@@TTAAT@@@@E@1XC@@@@@C@0L3H3M@@@MQXNE0T@@@@@AA FBA$@@@@0L#L0@@@5MSTTFQ(@@@@@AA,FGA4@@@@@LC$@@CT8NC\5E!!\@@@@E |
|
229 |
@1,^@@@@@@@@@@@@MST6MST5EA<PH@(!!G XSB@@@@@@5@@@@@@@5MQ4IH!!P[H2P%I"\SB@@@@@@@MST5MST5@@@(HR$*J20-JRD@@@@@@@@@@CX5MST@@@@@ |
|
14403
393d05aed909
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14340
diff
changeset
|
230 |
K"DZKR4ZHR8@@@@@@@@@@@@@@@@@@@@@@@@@E14@@@@@@@@@') ; colorMapFromArray:#[0 0 0 160 176 200 176 192 210 176 200 220 192 208 220 224 232 240 176 208 220 208 224 220 144 168 180 192 200 220 208 216 220 208 224 240 224 232 250 224 240 250 208 232 240 160 192 210 176 184 180 128 136 140 192 216 220 160 184 210 208 240 250 144 144 160 192 224 240 160 168 180 192 232 240 160 176 180 224 224 220 192 232 250 144 168 200 176 184 200 160 200 220 192 216 240 176 192 200 160 184 200 192 224 220 176 224 250 176 216 250 160 208 240 144 192 250 144 176 210 255 248 250 160 192 220 144 184 210 160 200 240 160 192 240 128 160 180 128 152 180 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:((ImageMask new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@X@@C?@@C?@@O?0@O?0@OG @_C8@_C8@OG @O?0@O?6@G??0C??0C??<GC?<GC18_''0>OO0>F_18@??<HO?<G=?0C8?0@@F@') ; yourself); yourself] |
11010 | 231 |
! ! |
232 |
||
9822 | 233 |
!CVSSourceCodeManagementSettingsAppl class methodsFor:'interface specs'! |
234 |
||
235 |
windowSpec |
|
236 |
"This resource specification was automatically generated |
|
237 |
by the UIPainter of ST/X." |
|
238 |
||
239 |
"Do not manually edit this!! If it is corrupted, |
|
240 |
the UIPainter may not be able to read the specification." |
|
241 |
||
242 |
" |
|
243 |
UIPainter new openOnClass:CVSSourceCodeManagementSettingsAppl andSelector:#windowSpec |
|
244 |
CVSSourceCodeManagementSettingsAppl new openInterface:#windowSpec |
|
245 |
CVSSourceCodeManagementSettingsAppl open |
|
246 |
" |
|
247 |
||
248 |
<resource: #canvas> |
|
249 |
||
250 |
^ |
|
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
251 |
#(FullSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
252 |
name: windowSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
253 |
window: |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
254 |
(WindowSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
255 |
label: 'CVS Settings' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
256 |
name: 'CVS Settings' |
14316 | 257 |
flags: 1 |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
258 |
min: (Point 10 10) |
14253
d19d1162aa39
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14251
diff
changeset
|
259 |
bounds: (Rectangle 0 0 764 589) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
260 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
261 |
component: |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
262 |
(SpecCollection |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
263 |
collection: ( |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
264 |
(VerticalPanelViewSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
265 |
name: 'VerticalPanel3' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
266 |
layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
267 |
horizontalLayout: fit |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
268 |
verticalLayout: topSpace |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
269 |
horizontalSpace: 3 |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
270 |
verticalSpace: 4 |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
271 |
component: |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
272 |
(SpecCollection |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
273 |
collection: ( |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
274 |
(ViewSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
275 |
name: 'ManagerSetupBoxx' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
276 |
component: |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
277 |
(SpecCollection |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
278 |
collection: ( |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
279 |
(FramedBoxSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
280 |
label: 'CVS Sourcecode Manager Settings' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
281 |
name: 'CVSSetupBox' |
16679 | 282 |
layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
283 |
labelPosition: topLeft |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
284 |
translateLabel: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
285 |
component: |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
286 |
(SpecCollection |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
287 |
collection: ( |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
288 |
(CheckBoxSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
289 |
label: 'Show in Browser Menus' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
290 |
name: 'CheckBox1' |
14253
d19d1162aa39
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14251
diff
changeset
|
291 |
layout: (LayoutFrame 0 0 5 0 0 1 35 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
292 |
activeHelpKey: shownInBrowserMenus |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
293 |
model: shownInBrowserMenusHolder |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
294 |
translateLabel: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
295 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
296 |
(ViewSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
297 |
name: 'Box1' |
14253
d19d1162aa39
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14251
diff
changeset
|
298 |
layout: (LayoutFrame 0 0 35 0 0 1 65 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
299 |
component: |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
300 |
(SpecCollection |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
301 |
collection: ( |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
302 |
(LabelSpec |
16679 | 303 |
label: 'CVS Command:' |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
304 |
name: 'Label1' |
14253
d19d1162aa39
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14251
diff
changeset
|
305 |
layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
306 |
activeHelpKey: cvsCommand |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
307 |
level: 0 |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
308 |
translateLabel: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
309 |
adjust: right |
11061
0742839089e1
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11059
diff
changeset
|
310 |
) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
311 |
(InputFieldSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
312 |
name: 'CVSExecutableField' |
14253
d19d1162aa39
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14251
diff
changeset
|
313 |
layout: (LayoutFrame 64 0.25 0 0 -1 1 30 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
314 |
activeHelpKey: cvsCommand |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
315 |
tabable: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
316 |
model: cvsExecutableHolder |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
317 |
acceptChannel: acceptChannel |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
318 |
acceptOnPointerLeave: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
319 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
320 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
321 |
|
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
322 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
323 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
324 |
(ViewSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
325 |
name: 'Box12' |
14253
d19d1162aa39
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14251
diff
changeset
|
326 |
layout: (LayoutFrame 0 0 69 0 0 1 99 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
327 |
component: |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
328 |
(SpecCollection |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
329 |
collection: ( |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
330 |
(LabelSpec |
16679 | 331 |
label: 'Command Timeout:' |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
332 |
name: 'Label2' |
14253
d19d1162aa39
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14251
diff
changeset
|
333 |
layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
334 |
activeHelpKey: cvsCommandTimeout |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
335 |
level: 0 |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
336 |
translateLabel: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
337 |
adjust: right |
11061
0742839089e1
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11059
diff
changeset
|
338 |
) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
339 |
(InputFieldSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
340 |
name: 'EntryField1' |
14253
d19d1162aa39
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14251
diff
changeset
|
341 |
layout: (LayoutFrame 64 0.25 0 0 152 0.25 30 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
342 |
activeHelpKey: cvsCommandTimeout |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
343 |
tabable: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
344 |
model: cvsCommandTimeoutHolder |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
345 |
type: timeDuration |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
346 |
acceptChannel: acceptChannel |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
347 |
acceptOnPointerLeave: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
348 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
349 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
350 |
|
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
351 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
352 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
353 |
(ViewSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
354 |
name: 'Box7' |
14253
d19d1162aa39
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14251
diff
changeset
|
355 |
layout: (LayoutFrame 0 0.0 104 0 0 1 134 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
356 |
component: |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
357 |
(SpecCollection |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
358 |
collection: ( |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
359 |
(LabelSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
360 |
label: 'CVSRoot default:' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
361 |
name: 'defaultCvsRootLabel' |
14253
d19d1162aa39
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14251
diff
changeset
|
362 |
layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
363 |
activeHelpKey: cvsRootDefault |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
364 |
level: 0 |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
365 |
translateLabel: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
366 |
adjust: right |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
367 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
368 |
(ComboBoxSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
369 |
name: 'cvsRootComboBox' |
14253
d19d1162aa39
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14251
diff
changeset
|
370 |
layout: (LayoutFrame 64 0.25 0 0 -1 1 30 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
371 |
activeHelpKey: cvsRootDefault |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
372 |
tabable: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
373 |
model: cvsRootHolder |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
374 |
immediateAccept: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
375 |
acceptOnLeave: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
376 |
acceptOnReturn: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
377 |
acceptOnTab: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
378 |
acceptOnLostFocus: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
379 |
acceptChannel: acceptChannel |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
380 |
acceptOnPointerLeave: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
381 |
comboList: cvsRootPrototypeList |
11061
0742839089e1
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11059
diff
changeset
|
382 |
) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
383 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
384 |
|
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
385 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
386 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
387 |
(ActionButtonSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
388 |
label: 'CVS-Login' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
389 |
name: 'Button1' |
16155 | 390 |
layout: (LayoutFrame -117 1 137 0 0 1 167 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
391 |
activeHelpKey: cvsLogin |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
392 |
translateLabel: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
393 |
tabable: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
394 |
model: loginCVSRoot |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
395 |
enableChannel: cvsLoginEnabled |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
396 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
397 |
(LabelSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
398 |
label: 'CVSRoot per Module:' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
399 |
name: 'knownModulesLabel' |
14253
d19d1162aa39
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14251
diff
changeset
|
400 |
layout: (LayoutFrame 0 0.0 171 0 60 0.25 201 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
401 |
activeHelpKey: cvsRootPerModule |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
402 |
translateLabel: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
403 |
adjust: right |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
404 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
405 |
(SequenceViewSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
406 |
name: 'List1' |
14253
d19d1162aa39
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14251
diff
changeset
|
407 |
layout: (LayoutFrame 64 0.25 171 0 0 1 290 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
408 |
activeHelpKey: cvsRootPerModule |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
409 |
tabable: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
410 |
model: selectedPerModuleRoot |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
411 |
hasHorizontalScrollBar: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
412 |
hasVerticalScrollBar: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
413 |
miniScrollerHorizontal: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
414 |
useIndex: false |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
415 |
sequenceList: listOfModules |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
416 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
417 |
(LabelSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
418 |
label: 'Module:' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
419 |
name: 'moduleLabel' |
14253
d19d1162aa39
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14251
diff
changeset
|
420 |
layout: (LayoutFrame 0 0.0 300 0 60 0.25 330 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
421 |
activeHelpKey: cvsRootPerModuleModule |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
422 |
translateLabel: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
423 |
adjust: right |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
424 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
425 |
(ComboBoxSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
426 |
name: 'ComboBox1' |
14253
d19d1162aa39
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14251
diff
changeset
|
427 |
layout: (LayoutFrame 64 0.25 300 0 0 1 330 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
428 |
activeHelpKey: cvsRootPerModuleModule |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
429 |
tabable: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
430 |
model: perModuleRootModule |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
431 |
acceptChannel: acceptChannel |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
432 |
acceptOnPointerLeave: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
433 |
comboList: sampleModuleList |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
434 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
435 |
(LabelSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
436 |
label: 'CVSRoot:' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
437 |
name: 'cvsRootLabel' |
14253
d19d1162aa39
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14251
diff
changeset
|
438 |
layout: (LayoutFrame 0 0.0 333 0 60 0.25 363 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
439 |
activeHelpKey: cvsRootPerModuleRoot |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
440 |
translateLabel: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
441 |
adjust: right |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
442 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
443 |
(ComboBoxSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
444 |
name: 'perModuleRootComboBox' |
14253
d19d1162aa39
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14251
diff
changeset
|
445 |
layout: (LayoutFrame 64 0.25 333 0 0 1.0 363 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
446 |
activeHelpKey: cvsRootPerModuleRoot |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
447 |
tabable: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
448 |
model: perModuleRoot |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
449 |
immediateAccept: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
450 |
acceptOnLeave: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
451 |
acceptOnReturn: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
452 |
acceptOnTab: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
453 |
acceptOnLostFocus: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
454 |
acceptChannel: acceptChannel |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
455 |
acceptOnPointerLeave: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
456 |
comboList: cvsRootPrototypeList |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
457 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
458 |
(HorizontalPanelViewSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
459 |
name: 'HorizontalPanel2' |
16155 | 460 |
layout: (LayoutFrame 0 0 369 0 -1 1 400 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
461 |
horizontalLayout: rightSpaceMax |
16155 | 462 |
verticalLayout: fit |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
463 |
horizontalSpace: 3 |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
464 |
verticalSpace: 3 |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
465 |
component: |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
466 |
(SpecCollection |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
467 |
collection: ( |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
468 |
(ActionButtonSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
469 |
label: 'Add/Apply' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
470 |
name: 'addButton' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
471 |
activeHelpKey: addPerModuleRoot |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
472 |
translateLabel: true |
16155 | 473 |
resizeForLabel: true |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
474 |
tabable: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
475 |
model: addPerModuleRoot |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
476 |
useDefaultExtent: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
477 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
478 |
(ActionButtonSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
479 |
label: 'Remove' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
480 |
name: 'removeButton' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
481 |
activeHelpKey: removePerModuleRoot |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
482 |
translateLabel: true |
16155 | 483 |
resizeForLabel: true |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
484 |
tabable: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
485 |
model: removePerModuleRoot |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
486 |
enableChannel: removeEnabled |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
487 |
useDefaultExtent: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
488 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
489 |
(ActionButtonSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
490 |
label: 'Init' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
491 |
name: 'loginButton2' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
492 |
activeHelpKey: initPerModuleRoot |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
493 |
translateLabel: true |
16155 | 494 |
resizeForLabel: true |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
495 |
tabable: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
496 |
model: initPerModuleRoot |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
497 |
enableChannel: cvsInitInModuleEnabled |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
498 |
useDefaultExtent: true |
9822 | 499 |
) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
500 |
(ActionButtonSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
501 |
label: 'Login' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
502 |
name: 'Button3' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
503 |
activeHelpKey: loginPerModuleRoot |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
504 |
translateLabel: true |
16155 | 505 |
resizeForLabel: true |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
506 |
tabable: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
507 |
model: loginPerModuleRoot |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
508 |
enableChannel: cvsLoginInModuleEnabled |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
509 |
useDefaultExtent: true |
11840
abf92167eea8
added: #addPublicExeptRepository
Claus Gittinger <cg@exept.de>
parents:
11733
diff
changeset
|
510 |
) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
511 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
512 |
|
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
513 |
) |
9822 | 514 |
) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
515 |
(HorizontalPanelViewSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
516 |
name: 'HorizontalPanel3' |
16679 | 517 |
layout: (LayoutFrame 64 0.25 403 0 -1 1 436 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
518 |
horizontalLayout: right |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
519 |
verticalLayout: center |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
520 |
horizontalSpace: 3 |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
521 |
verticalSpace: 3 |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
522 |
component: |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
523 |
(SpecCollection |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
524 |
collection: ( |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
525 |
(ActionButtonSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
526 |
label: 'Add eXept''s Public Repository' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
527 |
name: 'Button2' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
528 |
activeHelpKey: addPublicExeptRepository |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
529 |
translateLabel: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
530 |
resizeForLabel: true |
14253
d19d1162aa39
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14251
diff
changeset
|
531 |
adjust: right |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
532 |
tabable: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
533 |
model: addPublicExeptRepository |
16679 | 534 |
extent: (Point 272 32) |
14267
ecc826f4dee3
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14253
diff
changeset
|
535 |
usePreferredWidth: true |
14253
d19d1162aa39
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14251
diff
changeset
|
536 |
useDynamicPreferredHeight: true |
16155 | 537 |
usePreferredHeight: true |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
538 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
539 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
540 |
|
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
541 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
542 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
543 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
544 |
|
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
545 |
) |
11061
0742839089e1
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11059
diff
changeset
|
546 |
) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
547 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
548 |
|
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
549 |
) |
16679 | 550 |
extent: (Point 764 474) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
551 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
552 |
(FramedBoxSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
553 |
label: 'Source Cache' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
554 |
name: 'FramedBox1' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
555 |
visibilityChannel: false |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
556 |
labelPosition: topLeft |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
557 |
translateLabel: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
558 |
component: |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
559 |
(SpecCollection |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
560 |
collection: ( |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
561 |
(ViewSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
562 |
name: 'SourceCacheDirBox' |
16155 | 563 |
layout: (LayoutFrame 0 0 0 0 -1 1 30 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
564 |
component: |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
565 |
(SpecCollection |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
566 |
collection: ( |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
567 |
(LabelSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
568 |
label: 'Source Cache Dir:' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
569 |
name: 'SourceCacheDirLabel' |
14253
d19d1162aa39
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14251
diff
changeset
|
570 |
layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
571 |
translateLabel: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
572 |
adjust: right |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
573 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
574 |
(InputFieldSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
575 |
name: 'SourceCacheDirEntryField' |
16155 | 576 |
layout: (LayoutFrame 64 0.25 0 0 -1 1 30 0) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
577 |
model: sourceCacheDir |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
578 |
immediateAccept: false |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
579 |
acceptOnReturn: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
580 |
acceptOnTab: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
581 |
acceptOnLostFocus: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
582 |
acceptOnPointerLeave: true |
9822 | 583 |
) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
584 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
585 |
|
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
586 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
587 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
588 |
(HorizontalPanelViewSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
589 |
name: 'CacheActionsHorizontalPanel' |
16155 | 590 |
layout: (LayoutFrame 44 0.25 33 0 -1 1 63 0) |
591 |
horizontalLayout: rightMax |
|
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
592 |
verticalLayout: center |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
593 |
horizontalSpace: 3 |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
594 |
verticalSpace: 3 |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
595 |
component: |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
596 |
(SpecCollection |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
597 |
collection: ( |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
598 |
(ActionButtonSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
599 |
label: 'Flush Cache now' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
600 |
name: 'FlushCacheNowButton' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
601 |
translateLabel: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
602 |
tabable: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
603 |
model: flushSourceCache |
16679 | 604 |
extent: (Point 227 30) |
11061
0742839089e1
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11059
diff
changeset
|
605 |
) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
606 |
(ActionButtonSpec |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
607 |
label: 'Condense Cache now' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
608 |
name: 'CondenseCacheNowButton' |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
609 |
translateLabel: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
610 |
tabable: true |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
611 |
model: condenseSourceCache |
16679 | 612 |
extent: (Point 227 30) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
613 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
614 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
615 |
|
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
616 |
) |
9822 | 617 |
) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
618 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
619 |
|
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
620 |
) |
14253
d19d1162aa39
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14251
diff
changeset
|
621 |
extent: (Point 764 101) |
9822 | 622 |
) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
623 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
624 |
|
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
625 |
) |
9822 | 626 |
) |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
627 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
628 |
|
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
629 |
) |
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
630 |
) |
9822 | 631 |
! ! |
632 |
||
9858 | 633 |
!CVSSourceCodeManagementSettingsAppl class methodsFor:'queries'! |
634 |
||
635 |
managerClass |
|
636 |
"backlink to my manager class (needed by the settings app)" |
|
637 |
||
638 |
^ CVSSourceCodeManager |
|
639 |
||
640 |
"Created: / 19-04-2011 / 12:46:52 / cg" |
|
641 |
! ! |
|
642 |
||
9822 | 643 |
!CVSSourceCodeManagementSettingsAppl methodsFor:'actions'! |
644 |
||
645 |
addModule:module withData:data |
|
646 |
(self listOfModules includes:module) ifFalse:[ |
|
647 |
self listOfModules add:module; sort. |
|
648 |
]. |
|
649 |
rootsPerModule at:module put:data. |
|
650 |
||
651 |
self updateModifiedChannel. |
|
652 |
||
653 |
"Created: / 08-11-2006 / 19:25:21 / cg" |
|
654 |
! |
|
655 |
||
11840
abf92167eea8
added: #addPublicExeptRepository
Claus Gittinger <cg@exept.de>
parents:
11733
diff
changeset
|
656 |
addPublicExeptRepository |
abf92167eea8
added: #addPublicExeptRepository
Claus Gittinger <cg@exept.de>
parents:
11733
diff
changeset
|
657 |
self addModule:'stx' withData:{ CVSSourceCodeManager . (CVSSourceCodeManager exeptsPublicSTXRepositoryModuleRoot) }. |
abf92167eea8
added: #addPublicExeptRepository
Claus Gittinger <cg@exept.de>
parents:
11733
diff
changeset
|
658 |
! |
abf92167eea8
added: #addPublicExeptRepository
Claus Gittinger <cg@exept.de>
parents:
11733
diff
changeset
|
659 |
|
9822 | 660 |
basicReadSettings |
10986
79f022aaa60d
comment/format in: #removePerModuleRoot
Claus Gittinger <cg@exept.de>
parents:
10982
diff
changeset
|
661 |
|infoPerModule| |
79f022aaa60d
comment/format in: #removePerModuleRoot
Claus Gittinger <cg@exept.de>
parents:
10982
diff
changeset
|
662 |
|
9822 | 663 |
self initialize. |
664 |
||
665 |
self sourceCacheDir value:(CVSSourceCodeManager cacheDirectoryName). |
|
666 |
||
667 |
CVSSourceCodeManager forgetDisabledModules. |
|
668 |
repository := CVSSourceCodeManager repositoryName. |
|
669 |
repositoryHolder := (repository ? '') asValue. |
|
670 |
||
10986
79f022aaa60d
comment/format in: #removePerModuleRoot
Claus Gittinger <cg@exept.de>
parents:
10982
diff
changeset
|
671 |
infoPerModule := CVSSourceCodeManager repositoryInfoPerModule. |
79f022aaa60d
comment/format in: #removePerModuleRoot
Claus Gittinger <cg@exept.de>
parents:
10982
diff
changeset
|
672 |
infoPerModule keysAndValuesDo:[:module :info | |
79f022aaa60d
comment/format in: #removePerModuleRoot
Claus Gittinger <cg@exept.de>
parents:
10982
diff
changeset
|
673 |
rootsPerModule at:module put:(Array with:CVSSourceCodeManager with:info). |
9822 | 674 |
]. |
675 |
||
9845
bfb845fd9ff2
added: #defaultRepositoryName
Claus Gittinger <cg@exept.de>
parents:
9822
diff
changeset
|
676 |
self cvsRootHolder value:CVSSourceCodeManager repositoryName ? self class defaultRepositoryName. |
9822 | 677 |
self cvsExecutableHolder value:CVSSourceCodeManager cvsExecutable. |
11059 | 678 |
self cvsCommandTimeoutHolder value:CVSSourceCodeManager cvsCommandTimeout. |
9822 | 679 |
self verboseSourceCodeAccess value:CVSSourceCodeManager verboseSourceCodeAccess. |
11069
8f99a7115be3
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11061
diff
changeset
|
680 |
self shownInBrowserMenusHolder value:CVSSourceCodeManager shownInBrowserMenus. |
9822 | 681 |
|
682 |
rootsPerModule notNil ifTrue:[ |
|
683 |
self listOfModules removeAll. |
|
684 |
listOfModules addAll:rootsPerModule keys asList. |
|
685 |
]. |
|
686 |
"/ self selectedPerModuleRootChanged. |
|
687 |
||
11069
8f99a7115be3
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11061
diff
changeset
|
688 |
"Modified: / 10-01-2012 / 00:17:09 / cg" |
9822 | 689 |
! |
690 |
||
691 |
basicSaveSettings |
|
692 |
|modules nm fn| |
|
693 |
||
694 |
nm := self sourceCacheDir value. |
|
695 |
nm notEmptyOrNil ifTrue:[ |
|
696 |
(fn := nm asFilename) exists ifFalse:[ |
|
697 |
(self confirm:('CVS cache directory ''' , nm , ''' does not exist\create ?' withCRs)) ifTrue:[ |
|
698 |
fn recursiveMakeDirectory; |
|
699 |
makeReadableForAll; |
|
700 |
makeWritableForAll; |
|
701 |
makeExecutableForAll. |
|
702 |
] |
|
703 |
]. |
|
13234 | 704 |
(fn isWritableDirectory and:[fn isReadable]) ifTrue:[ |
9822 | 705 |
CVSSourceCodeManager cacheDirectoryName:nm. |
706 |
] ifFalse:[ |
|
707 |
self warn:'Invalid sourceCache directory.' |
|
708 |
] |
|
709 |
]. |
|
710 |
||
11059 | 711 |
CVSSourceCodeManager cvsCommandTimeout:(self cvsCommandTimeoutHolder value). |
712 |
||
9822 | 713 |
(Array with:CVSSourceCodeManager) "self availableManagers" do:[:eachManager | |
714 |
|infoPerModule| |
|
11059 | 715 |
|
9822 | 716 |
modules := rootsPerModule select:[:entry | entry first == eachManager]. |
717 |
infoPerModule := Dictionary new. |
|
718 |
modules keysAndValuesDo:[:module :entry | |
|
719 |
entry first == eachManager ifTrue:[ |
|
720 |
infoPerModule at:module put:(entry second). |
|
721 |
]. |
|
722 |
]. |
|
723 |
eachManager repositoryInfoPerModule:infoPerModule. |
|
724 |
]. |
|
725 |
||
726 |
self basicSaveCVSSettings. |
|
727 |
||
728 |
self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName). |
|
729 |
||
730 |
DebugView newDebugger. "/ ??? |
|
731 |
||
732 |
self acceptChannel value. |
|
733 |
||
11059 | 734 |
"Modified: / 08-01-2012 / 18:59:58 / cg" |
9822 | 735 |
! |
736 |
||
737 |
removePerModuleRoot |
|
738 |
|module| |
|
739 |
||
740 |
acceptChannel value:true. |
|
741 |
module := self perModuleRootModule value. |
|
742 |
self listOfModules remove:module ifAbsent:nil. |
|
743 |
rootsPerModule removeKey:module ifAbsent:nil. |
|
744 |
self perModuleRootModule value:nil. |
|
745 |
self perModuleRoot value:nil. |
|
746 |
self updateModifiedChannel. |
|
747 |
||
10986
79f022aaa60d
comment/format in: #removePerModuleRoot
Claus Gittinger <cg@exept.de>
parents:
10982
diff
changeset
|
748 |
"Modified (format): / 21-12-2011 / 14:25:29 / cg" |
9822 | 749 |
! ! |
750 |
||
751 |
!CVSSourceCodeManagementSettingsAppl methodsFor:'actions - cvs'! |
|
752 |
||
753 |
addPerModuleRoot |
|
754 |
|module cvsRoot| |
|
755 |
||
756 |
acceptChannel value:true. |
|
757 |
||
758 |
module := self perModuleRootModule value. |
|
759 |
cvsRoot := self perModuleRoot value. |
|
760 |
||
761 |
cvsRoot size > 0 ifTrue:[ |
|
762 |
self addModule:module withData:(Array with:CVSSourceCodeManager with:cvsRoot). |
|
763 |
]. |
|
764 |
||
765 |
"Modified: / 08-11-2006 / 19:27:39 / cg" |
|
766 |
! |
|
767 |
||
768 |
basicSaveCVSSettings |
|
769 |
|cvsRoot| |
|
770 |
||
771 |
repositoryHolder notNil ifTrue:[ |
|
772 |
repositoryHolder value size > 0 ifTrue:[ |
|
773 |
manager notNil ifTrue:[ |
|
774 |
manager initializeForRepository:repositoryHolder value. |
|
775 |
] |
|
776 |
]. |
|
777 |
]. |
|
778 |
CVSSourceCodeManager cvsExecutable:((self cvsExecutableHolder value ? '') withoutSeparators). |
|
779 |
CVSSourceCodeManager initializeForRepository:(cvsRoot := self cvsRootHolder value). |
|
780 |
CVSSourceCodeManager verboseSourceCodeAccess: verboseSourceCodeAccess value. |
|
11069
8f99a7115be3
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11061
diff
changeset
|
781 |
CVSSourceCodeManager shownInBrowserMenus:self shownInBrowserMenusHolder value. |
9822 | 782 |
|
783 |
RecentlyUsedCVSRoots isNil ifTrue:[ |
|
784 |
RecentlyUsedCVSRoots := OrderedCollection new. |
|
785 |
]. |
|
786 |
(RecentlyUsedCVSRoots includes:cvsRoot) ifFalse:[ |
|
787 |
RecentlyUsedCVSRoots addFirst:cvsRoot. |
|
788 |
RecentlyUsedCVSRoots size > 20 ifTrue:[ |
|
789 |
RecentlyUsedCVSRoots removeLast. |
|
790 |
]. |
|
791 |
]. |
|
792 |
||
11069
8f99a7115be3
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11061
diff
changeset
|
793 |
"Modified: / 10-01-2012 / 00:18:15 / cg" |
9822 | 794 |
! |
795 |
||
12749
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
796 |
cvsInit:cvsRoot |
13687
47e667a018f6
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13285
diff
changeset
|
797 |
|terminalEmulatorClass cmd term rootLocal| |
12749
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
798 |
|
13687
47e667a018f6
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13285
diff
changeset
|
799 |
terminalEmulatorClass := "VT100TerminalView ?" TerminalView. |
47e667a018f6
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13285
diff
changeset
|
800 |
terminalEmulatorClass isNil ifTrue:[ |
12749
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
801 |
self warn:'Function not available (missing terminal emulation class)'. |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
802 |
^ self. |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
803 |
]. |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
804 |
|
13687
47e667a018f6
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13285
diff
changeset
|
805 |
term := terminalEmulatorClass open. |
12749
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
806 |
term topView |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
807 |
label:'CVS init for ' , cvsRoot; |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
808 |
waitUntilVisible. |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
809 |
term shellTerminateAction:[ |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
810 |
"/ term topView destroy |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
811 |
]. |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
812 |
|
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
813 |
rootLocal := cvsRoot withoutPrefix:':local:'. |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
814 |
rootLocal := rootLocal asFilename asAbsoluteFilename pathName. |
13687
47e667a018f6
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13285
diff
changeset
|
815 |
"/ self halt. |
16518 | 816 |
term showCR:(('Close this terminal window, when finished') withColor:#red). |
12750
35bc6c3e605e
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12749
diff
changeset
|
817 |
term showCR:''. |
35bc6c3e605e
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12749
diff
changeset
|
818 |
term endEntry. |
35bc6c3e605e
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12749
diff
changeset
|
819 |
|
12749
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
820 |
Delay waitForSeconds:1. |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
821 |
cmd := 'md "%1"' bindWith:rootLocal. |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
822 |
term sendLine:cmd. |
12751
7073ae7a0169
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12750
diff
changeset
|
823 |
"/ cmd := 'set CVSROOT="%1"' bindWith:rootLocal. |
7073ae7a0169
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12750
diff
changeset
|
824 |
"/ term sendLine:cmd. |
7073ae7a0169
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12750
diff
changeset
|
825 |
cmd := 'cvs -d "%1" init' bindWith:rootLocal. |
12749
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
826 |
term sendLine:cmd. |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
827 |
cmd := 'exit'. |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
828 |
term sendLine:cmd. |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
829 |
|
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
830 |
" |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
831 |
self basicNew cvsInit:':local:c:\users\exept\cvs' |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
832 |
" |
13285
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
833 |
|
5dcf6ce8b684
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13234
diff
changeset
|
834 |
"Modified: / 31-07-2013 / 18:29:19 / cg" |
12749
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
835 |
! |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
836 |
|
9822 | 837 |
cvsLogin:cvsRoot |
13687
47e667a018f6
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13285
diff
changeset
|
838 |
|terminalEmulatorClass cmd term| |
9822 | 839 |
|
13687
47e667a018f6
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13285
diff
changeset
|
840 |
terminalEmulatorClass := "VT100TerminalView ?" TerminalView. |
47e667a018f6
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13285
diff
changeset
|
841 |
terminalEmulatorClass isNil ifTrue:[ |
12749
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
842 |
self warn:'Function not available (missing terminal emulation class)'. |
9822 | 843 |
^ self. |
844 |
]. |
|
845 |
||
13687
47e667a018f6
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
13285
diff
changeset
|
846 |
term := terminalEmulatorClass open. |
9822 | 847 |
term topView |
848 |
label:'CVS Login for ' , cvsRoot; |
|
849 |
waitUntilVisible. |
|
850 |
term shellTerminateAction:[ |
|
851 |
"/ term topView destroy |
|
852 |
]. |
|
853 |
||
16518 | 854 |
term showCR:(('Please enter the CVS-password then close this terminal window.') withColor:#red). |
9822 | 855 |
term showCR:''. |
856 |
term endEntry. |
|
12750
35bc6c3e605e
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12749
diff
changeset
|
857 |
|
9822 | 858 |
Delay waitForSeconds:1. |
12750
35bc6c3e605e
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12749
diff
changeset
|
859 |
cmd := 'cvs -d "%1" login' bindWith:cvsRoot. |
35bc6c3e605e
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12749
diff
changeset
|
860 |
term sendLine:cmd. |
35bc6c3e605e
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12749
diff
changeset
|
861 |
cmd := 'exit'. |
9822 | 862 |
term sendLine:cmd. |
863 |
||
864 |
" |
|
865 |
self basicNew cvsLogin:':pserver:stx@exept.eu.org:/stx' |
|
866 |
" |
|
867 |
||
868 |
"Modified: / 25-08-2010 / 23:03:19 / cg" |
|
869 |
! |
|
870 |
||
12749
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
871 |
initPerModuleRoot |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
872 |
self cvsInit:perModuleRoot value. |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
873 |
! |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
874 |
|
9822 | 875 |
loginCVSRoot |
876 |
self cvsLogin:cvsRootHolder value. |
|
877 |
! |
|
878 |
||
879 |
loginPerModuleRoot |
|
880 |
self cvsLogin:perModuleRoot value. |
|
881 |
! ! |
|
882 |
||
883 |
!CVSSourceCodeManagementSettingsAppl methodsFor:'aspects'! |
|
884 |
||
11059 | 885 |
cvsCommandTimeoutHolder |
886 |
cvsCommandTimeoutHolder isNil ifTrue:[ |
|
887 |
cvsCommandTimeoutHolder := ValueHolder new. |
|
888 |
cvsCommandTimeoutHolder onChangeSend:#updateModifiedChannel to:self |
|
889 |
]. |
|
890 |
^ cvsCommandTimeoutHolder. |
|
891 |
||
892 |
"Created: / 08-01-2012 / 18:57:05 / cg" |
|
893 |
! |
|
894 |
||
9822 | 895 |
cvsExecutableHolder |
896 |
cvsExecutableHolder isNil ifTrue:[ |
|
897 |
cvsExecutableHolder := ValueHolder new. |
|
898 |
cvsExecutableHolder onChangeSend:#updateModifiedChannel to:self |
|
899 |
]. |
|
900 |
^ cvsExecutableHolder. |
|
901 |
||
902 |
"Created: / 21-09-2006 / 15:37:06 / cg" |
|
903 |
! |
|
904 |
||
12749
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
905 |
cvsInitInModuleEnabled |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
906 |
cvsInitInModuleEnabled isNil ifTrue:[ |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
907 |
cvsInitInModuleEnabled := false asValue. |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
908 |
]. |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
909 |
^ cvsInitInModuleEnabled. |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
910 |
! |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
911 |
|
9822 | 912 |
cvsLoginEnabled |
913 |
cvsLoginEnabled isNil ifTrue:[ |
|
914 |
cvsLoginEnabled := false asValue. |
|
915 |
]. |
|
916 |
^ cvsLoginEnabled. |
|
917 |
! |
|
918 |
||
919 |
cvsLoginInModuleEnabled |
|
920 |
cvsLoginInModuleEnabled isNil ifTrue:[ |
|
921 |
cvsLoginInModuleEnabled := false asValue. |
|
922 |
]. |
|
923 |
^ cvsLoginInModuleEnabled. |
|
924 |
! |
|
925 |
||
926 |
cvsRootHolder |
|
927 |
||
928 |
cvsRootHolder isNil ifTrue:[ |
|
929 |
cvsRootHolder := self cvsRootFromCVSRootFileOrNil asValue. |
|
930 |
cvsRootHolder addDependent:self. |
|
931 |
]. |
|
932 |
^ cvsRootHolder. |
|
933 |
! |
|
934 |
||
935 |
cvsRootPrototypeList |
|
936 |
|cvsRoot prototypeList| |
|
937 |
||
938 |
cvsRootPrototypeList isNil ifTrue:[ |
|
939 |
prototypeList := OrderedSet new. |
|
940 |
||
941 |
cvsRoot := self cvsRootFromCVSRootFileOrNil. |
|
942 |
cvsRoot notNil ifTrue:[ |
|
943 |
prototypeList add:cvsRoot |
|
944 |
]. |
|
945 |
||
946 |
prototypeList add:(':pserver:cvs@cvs.smalltalk-x.de:/cvs/stx'). |
|
947 |
||
948 |
OperatingSystem getDomainName = 'bh.exept.de' ifTrue:[ |
|
949 |
prototypeList add:(':pserver:' , OperatingSystem getLoginName , '@cvs.bh.exept.de:/cvs/stx') |
|
950 |
] ifFalse:[ |
|
951 |
prototypeList add:(':pserver:' , OperatingSystem getLoginName , '@CVSHOST:/cvs/stx'). |
|
952 |
]. |
|
953 |
||
954 |
OperatingSystem isUNIXlike ifTrue:[ |
|
12749
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
955 |
prototypeList add:(':local:',OperatingSystem getHomeDirectory,'/cvs'). |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
956 |
prototypeList add:':local:/cvs/stx'. |
9822 | 957 |
] ifFalse:[ |
958 |
OperatingSystem isMSDOSlike ifTrue:[ |
|
12749
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
959 |
prototypeList add:(':local:',OperatingSystem getHomeDirectory asLowercase,'\cvs'). |
11166
3e6429352ab7
changed: #cvsRootPrototypeList
Claus Gittinger <cg@exept.de>
parents:
11124
diff
changeset
|
960 |
prototypeList add:':local:c:\cvs\stx'. |
9822 | 961 |
] ifFalse:[ |
962 |
"there might be more here in the future" |
|
963 |
] |
|
964 |
]. |
|
965 |
||
966 |
cvsRootPrototypeList := prototypeList asOrderedCollection. |
|
967 |
]. |
|
968 |
^ cvsRootPrototypeList. |
|
11166
3e6429352ab7
changed: #cvsRootPrototypeList
Claus Gittinger <cg@exept.de>
parents:
11124
diff
changeset
|
969 |
|
3e6429352ab7
changed: #cvsRootPrototypeList
Claus Gittinger <cg@exept.de>
parents:
11124
diff
changeset
|
970 |
"Modified: / 20-01-2012 / 16:17:35 / cg" |
9822 | 971 |
! |
972 |
||
11331 | 973 |
initialListOfModules |
974 |
^ rootsPerModule keys asList sort. |
|
9822 | 975 |
|
11331 | 976 |
"Created: / 02-03-2012 / 14:39:15 / cg" |
9822 | 977 |
! |
978 |
||
979 |
perModuleRoot |
|
980 |
perModuleRoot isNil ifTrue:[ |
|
981 |
perModuleRoot := ValueHolder new. |
|
982 |
perModuleRoot addDependent:self. |
|
983 |
]. |
|
984 |
^ perModuleRoot. |
|
985 |
! |
|
986 |
||
987 |
perModuleRootModule |
|
988 |
perModuleRootModule isNil ifTrue:[ |
|
989 |
perModuleRootModule := ValueHolder new. |
|
990 |
]. |
|
991 |
^ perModuleRootModule. |
|
992 |
! |
|
993 |
||
994 |
selectedPerModuleRoot |
|
995 |
selectedPerModuleRoot isNil ifTrue:[ |
|
996 |
selectedPerModuleRoot := ValueHolder new. |
|
997 |
selectedPerModuleRoot addDependent:self. |
|
998 |
]. |
|
999 |
^ selectedPerModuleRoot. |
|
1000 |
! ! |
|
1001 |
||
1002 |
!CVSSourceCodeManagementSettingsAppl methodsFor:'change & update'! |
|
1003 |
||
1004 |
selectedPerModuleRootChanged |
|
1005 |
|module entry| |
|
1006 |
||
1007 |
self acceptChannel value:true. |
|
1008 |
module := self selectedPerModuleRoot value. |
|
1009 |
module isNil ifTrue:[ |
|
1010 |
self removeEnabled value:false. |
|
1011 |
self perModuleRootModule value:' '. |
|
1012 |
self perModuleRoot value:''. |
|
1013 |
^ self |
|
1014 |
]. |
|
1015 |
||
1016 |
entry := rootsPerModule at:module ifAbsent:#(). |
|
1017 |
(entry first = CVSSourceCodeManager) ifTrue:[ |
|
1018 |
self removeEnabled value:true. |
|
1019 |
self perModuleRootModule value:module. |
|
1020 |
self perModuleRoot value:(entry at:2). |
|
1021 |
] ifFalse:[ |
|
1022 |
self removeEnabled value:false. |
|
1023 |
self perModuleRootModule value:module , ' ',('<<use ',entry first managerTypeName,'>>') allBold. |
|
1024 |
self perModuleRoot value:''. |
|
1025 |
]. |
|
1026 |
! |
|
1027 |
||
1028 |
update:something with:aParameter from:changedObject |
|
1029 |
||
1030 |
"/ cvs |
|
1031 |
changedObject == cvsRootHolder ifTrue:[ |
|
1032 |
self updateModifiedChannel. |
|
1033 |
self updateLoginEnableHolders. |
|
1034 |
^ self |
|
1035 |
]. |
|
1036 |
changedObject == perModuleRoot ifTrue:[ |
|
1037 |
self updateLoginEnableHolders. |
|
12749
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
1038 |
self updateInitEnableHolders. |
9822 | 1039 |
^ self |
1040 |
]. |
|
1041 |
changedObject == selectedPerModuleRoot ifTrue:[ |
|
1042 |
self selectedPerModuleRootChanged. |
|
1043 |
^ self |
|
1044 |
]. |
|
1045 |
||
1046 |
super update:something with:aParameter from:changedObject |
|
1047 |
||
1048 |
"Modified: / 18-04-2011 / 18:18:04 / cg" |
|
1049 |
! |
|
1050 |
||
12749
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
1051 |
updateInitEnableHolders |
12752
e890b4041563
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12751
diff
changeset
|
1052 |
|cvsRoot rootDir hasLocalRepository isAlreadyInitialized| |
e890b4041563
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12751
diff
changeset
|
1053 |
|
e890b4041563
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12751
diff
changeset
|
1054 |
isAlreadyInitialized := false. |
e890b4041563
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12751
diff
changeset
|
1055 |
cvsRoot := (perModuleRoot value ? ''). |
e890b4041563
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12751
diff
changeset
|
1056 |
(hasLocalRepository := (cvsRoot startsWith:':local:')) ifTrue:[ |
e890b4041563
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12751
diff
changeset
|
1057 |
rootDir := (cvsRoot withoutPrefix:':local:') asFilename. |
e890b4041563
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12751
diff
changeset
|
1058 |
isAlreadyInitialized := rootDir exists |
e890b4041563
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12751
diff
changeset
|
1059 |
and:[ (rootDir / 'CVSROOT') exists]. |
e890b4041563
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12751
diff
changeset
|
1060 |
]. |
e890b4041563
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12751
diff
changeset
|
1061 |
self cvsInitInModuleEnabled value:isAlreadyInitialized not. |
12749
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
1062 |
! |
88644659f5bb
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
12420
diff
changeset
|
1063 |
|
9822 | 1064 |
updateLoginEnableHolders |
1065 |
self cvsLoginEnabled value:((cvsRootHolder value ? '') startsWith:':pserver:'). |
|
1066 |
self cvsLoginInModuleEnabled value:((perModuleRoot value ? '') startsWith:':pserver:'). |
|
1067 |
! ! |
|
1068 |
||
1069 |
!CVSSourceCodeManagementSettingsAppl methodsFor:'help'! |
|
1070 |
||
14251 | 1071 |
editorHelpRelativeWikiURL |
1072 |
"the relative URL of the dialog-description in the Wiki" |
|
1073 |
||
1074 |
^ 'Settings_CVSSourceCodeManagerSettings' |
|
1075 |
! |
|
1076 |
||
9822 | 1077 |
helpFilename |
1078 |
^ 'Launcher/cvsSetup.html' |
|
1079 |
! ! |
|
1080 |
||
1081 |
!CVSSourceCodeManagementSettingsAppl methodsFor:'initialization & release'! |
|
1082 |
||
1083 |
initialize |
|
1084 |
(AbstractSourceCodeManager notNil) ifTrue:[ AbstractSourceCodeManager autoload ]. |
|
1085 |
||
1086 |
sourceCacheDir := nil asValue. |
|
1087 |
sourceCacheDir addDependent:self. |
|
1088 |
||
1089 |
repositoryHolder := '' asValue. |
|
1090 |
rootsPerModule := Dictionary new. |
|
1091 |
||
11124 | 1092 |
CVSSourceCodeManager repositoryInfoPerModule |
1093 |
keysAndValuesDo:[:module :info | |
|
1094 |
module withoutSeparators ~= module ifTrue:[ |
|
1095 |
self halt:'should not happen any longer' |
|
9822 | 1096 |
]. |
11124 | 1097 |
rootsPerModule at:module put:(Array with:CVSSourceCodeManager with:info) |
1098 |
]. |
|
9822 | 1099 |
|
1100 |
super initialize. |
|
1101 |
||
11124 | 1102 |
"Modified: / 14-01-2012 / 20:28:00 / cg" |
9822 | 1103 |
! ! |
1104 |
||
1105 |
!CVSSourceCodeManagementSettingsAppl methodsFor:'queries'! |
|
1106 |
||
1107 |
cvsRootFromCVSRootFileOrNil |
|
11124 | 1108 |
"see if there is a local CVS directory; if so, extract a default CVSRoot from it" |
1109 |
||
9822 | 1110 |
|cvsDir cvsRootFile cvsRoot| |
1111 |
||
1112 |
cvsDir := 'CVS' asFilename. |
|
10999 | 1113 |
cvsDir isDirectory ifFalse:[ ^ nil ]. |
1114 |
||
1115 |
cvsRootFile := cvsDir construct:'Root'. |
|
1116 |
cvsRootFile isReadable ifTrue:[ |
|
1117 |
cvsRoot := cvsRootFile contents firstIfEmpty:nil. |
|
9822 | 1118 |
]. |
1119 |
^ cvsRoot |
|
10999 | 1120 |
|
1121 |
"Modified: / 22-12-2011 / 00:12:42 / cg" |
|
11124 | 1122 |
"Modified (comment): / 14-01-2012 / 20:29:11 / cg" |
9822 | 1123 |
! |
1124 |
||
1125 |
hasUnsavedChanges |
|
10999 | 1126 |
|modules| |
1127 |
||
9822 | 1128 |
((CVSSourceCodeManager cacheDirectoryName ? '') ~= (self sourceCacheDir value ? '')) ifTrue:[^ true]. |
1129 |
||
10999 | 1130 |
modules := rootsPerModule select:[:entry | entry first == CVSSourceCodeManager]. |
9822 | 1131 |
|
10999 | 1132 |
CVSSourceCodeManager repositoryInfoPerModule keysAndValuesDo:[:module :info | |
1133 |
((modules includesKey:module) and:[info = (modules at:module) second]) |
|
1134 |
ifFalse:[^ true]. |
|
1135 |
]. |
|
1136 |
modules keysAndValuesDo:[:module :info| |
|
1137 |
((CVSSourceCodeManager repositoryInfoPerModule includesKey:module) and:[(CVSSourceCodeManager repositoryInfoPerModule at:module) = info second]) |
|
1138 |
ifFalse:[^ true]. |
|
9822 | 1139 |
]. |
11174 | 1140 |
(CVSSourceCodeManager cvsCommandTimeout ~= self cvsCommandTimeoutHolder value) |
11059 | 1141 |
ifTrue:[^ true]. |
9822 | 1142 |
|
1143 |
((CVSSourceCodeManager cvsExecutable ? '') ~= (self cvsExecutableHolder value ? '') withoutSeparators) |
|
1144 |
ifTrue:[^ true]. |
|
1145 |
||
9845
bfb845fd9ff2
added: #defaultRepositoryName
Claus Gittinger <cg@exept.de>
parents:
9822
diff
changeset
|
1146 |
(CVSSourceCodeManager repositoryName ? self class defaultRepositoryName ~= self cvsRootHolder value) |
9822 | 1147 |
ifTrue:[^ true]. |
1148 |
||
1149 |
(CVSSourceCodeManager verboseSourceCodeAccess ~= self verboseSourceCodeAccess value) |
|
1150 |
ifTrue:[^ true]. |
|
1151 |
||
11069
8f99a7115be3
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11061
diff
changeset
|
1152 |
(CVSSourceCodeManager shownInBrowserMenus ~= self shownInBrowserMenusHolder value) |
8f99a7115be3
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11061
diff
changeset
|
1153 |
ifTrue:[^ true]. |
8f99a7115be3
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11061
diff
changeset
|
1154 |
|
9822 | 1155 |
^ false |
1156 |
||
11174 | 1157 |
"Modified: / 22-01-2012 / 11:25:53 / cg" |
9822 | 1158 |
! ! |
1159 |
||
1160 |
!CVSSourceCodeManagementSettingsAppl class methodsFor:'documentation'! |
|
1161 |
||
10982 | 1162 |
version |
16155 | 1163 |
^ '$Header$' |
10982 | 1164 |
! |
1165 |
||
9822 | 1166 |
version_CVS |
16155 | 1167 |
^ '$Header$' |
9822 | 1168 |
! ! |
12420
d36dd938ef4d
class: CVSSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
11840
diff
changeset
|
1169 |