author | Claus Gittinger <cg@exept.de> |
Tue, 18 Dec 2018 13:50:54 +0100 | |
changeset 18550 | 8de40a119c04 |
parent 16211 | 6768525558d8 |
child 16213 | f667b5b42a11 |
child 18922 | 36dfc8ef8a5b |
permissions | -rw-r--r-- |
10057 | 1 |
" |
10056 | 2 |
COPYRIGHT (c) 2006 by eXept Software AG |
10057 | 3 |
All Rights Reserved |
10030 | 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 |
" |
|
9849 | 12 |
"{ Package: 'stx:libtool' }" |
13 |
||
15758
f8410463bfde
class: AbstractSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
11820
diff
changeset
|
14 |
"{ NameSpace: Smalltalk }" |
f8410463bfde
class: AbstractSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
11820
diff
changeset
|
15 |
|
9849 | 16 |
AbstractSettingsApplication subclass:#AbstractSourceCodeManagementSettingsAppl |
16211 | 17 |
instanceVariableNames:'shownInBrowserMenusHolder sourceCacheDir verboseSourceCodeAccess |
18 |
removeEnabled listOfModules' |
|
10057 | 19 |
classVariableNames:'' |
20 |
poolDictionaries:'' |
|
21 |
category:'System-SourceCodeManagement' |
|
9849 | 22 |
! |
23 |
||
10030 | 24 |
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'documentation'! |
25 |
||
26 |
copyright |
|
27 |
" |
|
10056 | 28 |
COPYRIGHT (c) 2006 by eXept Software AG |
10057 | 29 |
All Rights Reserved |
10030 | 30 |
|
31 |
This software is furnished under a license and may be used |
|
32 |
only in accordance with the terms of that license and with the |
|
33 |
inclusion of the above copyright notice. This software may not |
|
34 |
be provided or otherwise made available to, or used by, any |
|
35 |
other person. No title to or ownership of the software is |
|
36 |
hereby transferred. |
|
37 |
" |
|
10056 | 38 |
! |
39 |
||
40 |
documentation |
|
41 |
" |
|
42 |
Abstract superclass of all source-code managers. |
|
43 |
||
44 |
These should implement an interface similar to what is found in CVSSourceCodeManager, |
|
45 |
providing methods to checkin/out files from a central repository. |
|
46 |
||
10144 | 47 |
Not all managers will probably provide the same set of functions; |
10056 | 48 |
time will show, if such an abstraction is possible |
11820 | 49 |
(the way source code management systems organize their code is different, |
50 |
some keep individual per-class version numbers (CVS, RCS, SVN) |
|
51 |
others keep an overall (configuration-) id (SVN, Git and Hg). |
|
10056 | 52 |
" |
10030 | 53 |
! ! |
9849 | 54 |
|
11082 | 55 |
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'help specs'! |
56 |
||
57 |
helpSpec |
|
58 |
"This resource specification was automatically generated |
|
59 |
by the UIHelpTool of ST/X." |
|
60 |
||
61 |
"Do not manually edit this!! If it is corrupted, |
|
62 |
the UIHelpTool may not be able to read the specification." |
|
63 |
||
64 |
" |
|
65 |
UIHelpTool openOnClass:CVSSourceCodeManagementSettingsAppl |
|
66 |
" |
|
67 |
||
68 |
<resource: #help> |
|
69 |
||
70 |
^ super helpSpec addPairsFrom:#( |
|
71 |
||
11358 | 72 |
#workDirectory |
73 |
'Directory where checkin/checkout happens (temporary source directory)' |
|
74 |
||
11082 | 75 |
#shownInBrowserMenus |
11734 | 76 |
'If checked, the Systembrowser includes operations for me in its SCM menus' |
11082 | 77 |
|
78 |
) |
|
79 |
||
80 |
"Created: / 11-01-2012 / 15:38:11 / cg" |
|
81 |
! ! |
|
82 |
||
10979 | 83 |
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'image specs'! |
84 |
||
85 |
defaultIcon |
|
86 |
"This resource specification was automatically generated |
|
87 |
by the ImageEditor of ST/X." |
|
88 |
||
89 |
"Do not manually edit this!! If it is corrupted, |
|
90 |
the ImageEditor may not be able to read the specification." |
|
91 |
||
92 |
" |
|
93 |
self defaultIcon inspect |
|
94 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
95 |
Icon flushCachedIcons |
|
96 |
" |
|
97 |
||
98 |
<resource: #image> |
|
99 |
||
100 |
^Icon |
|
15758
f8410463bfde
class: AbstractSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
11820
diff
changeset
|
101 |
constantNamed:'AbstractSourceCodeManagementSettingsAppl defaultIcon' |
f8410463bfde
class: AbstractSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
11820
diff
changeset
|
102 |
ifAbsentPut:[(Depth8Image new) width:22; height:22; bits:(ByteArray fromPackedString:' |
10979 | 103 |
@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@ |
104 |
@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S |
|
105 |
A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E |
|
106 |
F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@ |
|
107 |
@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W |
|
15758
f8410463bfde
class: AbstractSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
11820
diff
changeset
|
108 |
EQXVE @@@@@@@@@@@@@@@@@@@@@@@A(Z@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 64 0 0 64 0 32 32 0 0 32 0 32 96 32 96 192 128 192 224 192 160 224 160 32 128 64 64 96 64 64 96 32 32 160 64 160 224 192 64 160 96 32 128 32 224 224 224 64 128 64 160 192 160 224 224 192 32 160 96 160 160 160 64 64 64 96 96 96 128 128 128 192 192 192 32 32 32 32 64 32]; mask:((ImageMask new) width:22; height:22; bits:(ByteArray fromPackedString:'@O8@@?>@A??@A?C C<@0C8@PC8@@??@@??F@_>O@O<_ G8?0C1?8A#?<@C?<@@_@H@_@L@?@GC>@C?>@A?<@@_0@') ; yourself); yourself] |
10984 | 109 |
! |
110 |
||
111 |
defaultIconSmall |
|
112 |
"This resource specification was automatically generated |
|
113 |
by the ImageEditor of ST/X." |
|
114 |
||
115 |
"Do not manually edit this!! If it is corrupted, |
|
116 |
the ImageEditor may not be able to read the specification." |
|
117 |
||
118 |
" |
|
119 |
self defaultIconSmall inspect |
|
120 |
ImageEditor openOnClass:self andSelector:#defaultIconSmall |
|
121 |
Icon flushCachedIcons |
|
122 |
" |
|
123 |
||
124 |
<resource: #image> |
|
125 |
||
126 |
^Icon |
|
127 |
constantNamed:'AbstractSourceCodeManagementSettingsAppl class defaultIconSmall' |
|
128 |
ifAbsentPut:[(Depth8Image new) width: 11; height: 11; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
|
129 |
@@@@@@0LAPT@@@@@@@@EC@0LC@T@@@@@@ 0L@@@@@@T@@@@EA T@@@@@@@@EAP0IC@<@@AX@@@@EBP0E@@@VE!!X@@@@EF0@@E!!(ZFAX@@@@@@AXVE1XVE @V |
|
130 |
@@@@@@@VE @@@@@VE!!XVE!!X@@@@@@@@WE!!XV@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 64 0 0 64 0 32 32 0 0 32 0 32 96 32 96 192 128 192 224 192 160 224 160 32 128 64 64 96 64 64 96 32 32 160 64 160 224 192 64 160 96 32 128 32 224 224 224 64 128 64 160 192 160 224 224 192 32 160 96 160 160 160 64 64 64 96 96 96 128 128 128 192 192 192 32 32 32 32 64 32]; mask:((ImageMask new) width: 11; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C0@_ C!!@N@C< G''@L>@G8DF@O8@_@@@a') ; yourself); yourself] |
|
10979 | 131 |
! ! |
132 |
||
9849 | 133 |
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'queries'! |
134 |
||
11345 | 135 |
isAbstract |
136 |
^ self == AbstractSourceCodeManagementSettingsAppl |
|
137 |
||
138 |
"Created: / 02-03-2012 / 15:55:41 / cg" |
|
139 |
! |
|
140 |
||
9849 | 141 |
managerClass |
142 |
"backlink to my manager class (needed by the settings app)" |
|
143 |
||
144 |
self subclassResponsibility |
|
145 |
||
146 |
"Created: / 19-04-2011 / 12:47:28 / cg" |
|
147 |
! |
|
148 |
||
149 |
managerTypeName |
|
150 |
^ self managerClass managerTypeName |
|
151 |
||
152 |
"Created: / 19-04-2011 / 12:48:37 / cg" |
|
153 |
! ! |
|
154 |
||
11125 | 155 |
!AbstractSourceCodeManagementSettingsAppl methodsFor:'actions'! |
156 |
||
157 |
condenseSourceCache |
|
158 |
self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ]. |
|
159 |
Method flushSourceStreamCache. |
|
160 |
||
161 |
"Modified: / 28-11-2006 / 12:21:33 / cg" |
|
162 |
! |
|
163 |
||
164 |
flushSourceCache |
|
165 |
self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ]. |
|
166 |
||
167 |
"Modified: / 30-09-2011 / 13:33:47 / cg" |
|
168 |
! ! |
|
169 |
||
11063
bae37a424fa8
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
10984
diff
changeset
|
170 |
!AbstractSourceCodeManagementSettingsAppl methodsFor:'aspects'! |
bae37a424fa8
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
10984
diff
changeset
|
171 |
|
11125 | 172 |
acceptChannel |
173 |
||
174 |
acceptChannel isNil ifTrue:[ |
|
175 |
acceptChannel := TriggerValue new. |
|
176 |
]. |
|
177 |
^ acceptChannel. |
|
178 |
! |
|
179 |
||
11326 | 180 |
initialListOfModules |
181 |
"raise an error: must be redefined in concrete subclass(es)" |
|
182 |
||
183 |
^ self subclassResponsibility |
|
184 |
! |
|
185 |
||
186 |
listOfModules |
|
187 |
listOfModules isNil ifTrue:[ |
|
188 |
listOfModules := self initialListOfModules. |
|
189 |
listOfModules onChangeSend:#updateModifiedChannel to:self |
|
190 |
]. |
|
191 |
^ listOfModules. |
|
192 |
||
193 |
"Modified: / 02-03-2012 / 14:42:53 / cg" |
|
194 |
! |
|
195 |
||
196 |
removeEnabled |
|
197 |
||
198 |
removeEnabled isNil ifTrue:[ |
|
199 |
removeEnabled := false asValue. |
|
200 |
]. |
|
201 |
^ removeEnabled. |
|
202 |
! |
|
203 |
||
11405 | 204 |
sampleModuleList |
205 |
<resource: #uiAspect> |
|
206 |
||
207 |
|modules| |
|
208 |
||
16211 | 209 |
modules := Smalltalk allPackageIDs |
11405 | 210 |
collect:[:packageId | packageId asPackageId module ] |
211 |
as:Set. |
|
212 |
||
11418 | 213 |
modules remove:(PackageId noProjectID) ifAbsent:[]. |
11405 | 214 |
^ modules asSortedCollection |
215 |
||
216 |
"Created: / 12-03-2012 / 11:54:25 / cg" |
|
217 |
! |
|
218 |
||
11068
dcd5bc8ed585
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11063
diff
changeset
|
219 |
shownInBrowserMenusHolder |
dcd5bc8ed585
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11063
diff
changeset
|
220 |
shownInBrowserMenusHolder isNil ifTrue:[ |
dcd5bc8ed585
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11063
diff
changeset
|
221 |
shownInBrowserMenusHolder := true asValue. |
dcd5bc8ed585
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11063
diff
changeset
|
222 |
shownInBrowserMenusHolder onChangeSend:#updateModifiedChannel to:self |
11063
bae37a424fa8
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
10984
diff
changeset
|
223 |
]. |
11068
dcd5bc8ed585
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11063
diff
changeset
|
224 |
^ shownInBrowserMenusHolder. |
11063
bae37a424fa8
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
10984
diff
changeset
|
225 |
|
11068
dcd5bc8ed585
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11063
diff
changeset
|
226 |
"Created: / 10-01-2012 / 00:16:13 / cg" |
11125 | 227 |
! |
228 |
||
229 |
sourceCacheDir |
|
230 |
sourceCacheDir isNil ifTrue:[ |
|
231 |
sourceCacheDir := ValueHolder new. |
|
232 |
sourceCacheDir onChangeSend:#updateModifiedChannel to:self |
|
233 |
]. |
|
234 |
^ sourceCacheDir. |
|
11324 | 235 |
! |
236 |
||
237 |
verboseSourceCodeAccess |
|
238 |
verboseSourceCodeAccess isNil ifTrue:[ |
|
239 |
verboseSourceCodeAccess := false asValue. |
|
240 |
verboseSourceCodeAccess onChangeSend:#updateModifiedChannel to:self |
|
241 |
]. |
|
242 |
^ verboseSourceCodeAccess. |
|
11063
bae37a424fa8
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
10984
diff
changeset
|
243 |
! ! |
bae37a424fa8
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
10984
diff
changeset
|
244 |
|
9849 | 245 |
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'documentation'! |
246 |
||
10984 | 247 |
version |
15758
f8410463bfde
class: AbstractSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
11820
diff
changeset
|
248 |
^ '$Header$' |
10984 | 249 |
! |
250 |
||
9849 | 251 |
version_CVS |
15758
f8410463bfde
class: AbstractSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
11820
diff
changeset
|
252 |
^ '$Header$' |
10030 | 253 |
! |
254 |
||
255 |
version_SVN |
|
15758
f8410463bfde
class: AbstractSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
11820
diff
changeset
|
256 |
^ '$Id$' |
9849 | 257 |
! ! |
15758
f8410463bfde
class: AbstractSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
11820
diff
changeset
|
258 |