author | Claus Gittinger <cg@exept.de> |
Sat, 14 Jan 2012 21:01:33 +0100 | |
changeset 11125 | 59ee0c157f3c |
parent 11085 | a7bc28fc65f0 |
child 11324 | 15caf5cc5f9c |
child 12123 | 4bde08cebd48 |
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 |
||
14 |
AbstractSettingsApplication subclass:#AbstractSourceCodeManagementSettingsAppl |
|
11125 | 15 |
instanceVariableNames:'shownInBrowserMenusHolder sourceCacheDir acceptChannel |
16 |
verboseSourceCodeAccess' |
|
10057 | 17 |
classVariableNames:'' |
18 |
poolDictionaries:'' |
|
19 |
category:'System-SourceCodeManagement' |
|
9849 | 20 |
! |
21 |
||
10030 | 22 |
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'documentation'! |
23 |
||
24 |
copyright |
|
25 |
" |
|
10056 | 26 |
COPYRIGHT (c) 2006 by eXept Software AG |
10057 | 27 |
All Rights Reserved |
10030 | 28 |
|
29 |
This software is furnished under a license and may be used |
|
30 |
only in accordance with the terms of that license and with the |
|
31 |
inclusion of the above copyright notice. This software may not |
|
32 |
be provided or otherwise made available to, or used by, any |
|
33 |
other person. No title to or ownership of the software is |
|
34 |
hereby transferred. |
|
35 |
" |
|
10056 | 36 |
! |
37 |
||
38 |
documentation |
|
39 |
" |
|
40 |
Abstract superclass of all source-code managers. |
|
41 |
||
42 |
These should implement an interface similar to what is found in CVSSourceCodeManager, |
|
43 |
providing methods to checkin/out files from a central repository. |
|
44 |
||
10144 | 45 |
Not all managers will probably provide the same set of functions; |
10056 | 46 |
time will show, if such an abstraction is possible |
47 |
(the way source code management systems organize their code is different, some |
|
48 |
keep individual per-class version numbers (CVS, RCS, Store) others keep an overall |
|
49 |
(configuration-) id (SVN). |
|
50 |
" |
|
10030 | 51 |
! ! |
9849 | 52 |
|
11082 | 53 |
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'help specs'! |
54 |
||
55 |
helpSpec |
|
56 |
"This resource specification was automatically generated |
|
57 |
by the UIHelpTool of ST/X." |
|
58 |
||
59 |
"Do not manually edit this!! If it is corrupted, |
|
60 |
the UIHelpTool may not be able to read the specification." |
|
61 |
||
62 |
" |
|
63 |
UIHelpTool openOnClass:CVSSourceCodeManagementSettingsAppl |
|
64 |
" |
|
65 |
||
66 |
<resource: #help> |
|
67 |
||
68 |
^ super helpSpec addPairsFrom:#( |
|
69 |
||
70 |
#shownInBrowserMenus |
|
11085 | 71 |
'If checked, the Systembrowser includes operations for me in its SCM menus.' |
11082 | 72 |
|
73 |
) |
|
74 |
||
75 |
"Created: / 11-01-2012 / 15:38:11 / cg" |
|
76 |
! ! |
|
77 |
||
10979 | 78 |
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'image specs'! |
79 |
||
80 |
defaultIcon |
|
81 |
"This resource specification was automatically generated |
|
82 |
by the ImageEditor of ST/X." |
|
83 |
||
84 |
"Do not manually edit this!! If it is corrupted, |
|
85 |
the ImageEditor may not be able to read the specification." |
|
86 |
||
87 |
" |
|
88 |
self defaultIcon inspect |
|
89 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
90 |
Icon flushCachedIcons |
|
91 |
" |
|
92 |
||
93 |
<resource: #image> |
|
94 |
||
95 |
^Icon |
|
96 |
constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon' |
|
97 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
|
98 |
@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@ |
|
99 |
@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S |
|
100 |
A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E |
|
101 |
F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@ |
|
102 |
@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W |
|
103 |
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; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); 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 | 104 |
! |
105 |
||
106 |
defaultIconSmall |
|
107 |
"This resource specification was automatically generated |
|
108 |
by the ImageEditor of ST/X." |
|
109 |
||
110 |
"Do not manually edit this!! If it is corrupted, |
|
111 |
the ImageEditor may not be able to read the specification." |
|
112 |
||
113 |
" |
|
114 |
self defaultIconSmall inspect |
|
115 |
ImageEditor openOnClass:self andSelector:#defaultIconSmall |
|
116 |
Icon flushCachedIcons |
|
117 |
" |
|
118 |
||
119 |
<resource: #image> |
|
120 |
||
121 |
^Icon |
|
122 |
constantNamed:'AbstractSourceCodeManagementSettingsAppl class defaultIconSmall' |
|
123 |
ifAbsentPut:[(Depth8Image new) width: 11; height: 11; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
|
124 |
@@@@@@0LAPT@@@@@@@@EC@0LC@T@@@@@@ 0L@@@@@@T@@@@EA T@@@@@@@@EAP0IC@<@@AX@@@@EBP0E@@@VE!!X@@@@EF0@@E!!(ZFAX@@@@@@AXVE1XVE @V |
|
125 |
@@@@@@@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 | 126 |
! ! |
127 |
||
9849 | 128 |
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'queries'! |
129 |
||
130 |
managerClass |
|
131 |
"backlink to my manager class (needed by the settings app)" |
|
132 |
||
133 |
self subclassResponsibility |
|
134 |
||
135 |
"Created: / 19-04-2011 / 12:47:28 / cg" |
|
136 |
! |
|
137 |
||
138 |
managerTypeName |
|
139 |
^ self managerClass managerTypeName |
|
140 |
||
141 |
"Created: / 19-04-2011 / 12:48:37 / cg" |
|
142 |
! ! |
|
143 |
||
11125 | 144 |
!AbstractSourceCodeManagementSettingsAppl methodsFor:'actions'! |
145 |
||
146 |
condenseSourceCache |
|
147 |
self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ]. |
|
148 |
Method flushSourceStreamCache. |
|
149 |
||
150 |
"Modified: / 28-11-2006 / 12:21:33 / cg" |
|
151 |
! |
|
152 |
||
153 |
flushSourceCache |
|
154 |
self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ]. |
|
155 |
||
156 |
"Modified: / 30-09-2011 / 13:33:47 / cg" |
|
157 |
! ! |
|
158 |
||
11063
bae37a424fa8
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
10984
diff
changeset
|
159 |
!AbstractSourceCodeManagementSettingsAppl methodsFor:'aspects'! |
bae37a424fa8
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
10984
diff
changeset
|
160 |
|
11125 | 161 |
acceptChannel |
162 |
||
163 |
acceptChannel isNil ifTrue:[ |
|
164 |
acceptChannel := TriggerValue new. |
|
165 |
]. |
|
166 |
^ acceptChannel. |
|
167 |
! |
|
168 |
||
11068
dcd5bc8ed585
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11063
diff
changeset
|
169 |
shownInBrowserMenusHolder |
dcd5bc8ed585
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11063
diff
changeset
|
170 |
shownInBrowserMenusHolder isNil ifTrue:[ |
dcd5bc8ed585
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11063
diff
changeset
|
171 |
shownInBrowserMenusHolder := true asValue. |
dcd5bc8ed585
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11063
diff
changeset
|
172 |
shownInBrowserMenusHolder onChangeSend:#updateModifiedChannel to:self |
11063
bae37a424fa8
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
10984
diff
changeset
|
173 |
]. |
11068
dcd5bc8ed585
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11063
diff
changeset
|
174 |
^ shownInBrowserMenusHolder. |
11063
bae37a424fa8
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
10984
diff
changeset
|
175 |
|
11068
dcd5bc8ed585
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11063
diff
changeset
|
176 |
"Created: / 10-01-2012 / 00:16:13 / cg" |
11125 | 177 |
! |
178 |
||
179 |
sourceCacheDir |
|
180 |
sourceCacheDir isNil ifTrue:[ |
|
181 |
sourceCacheDir := ValueHolder new. |
|
182 |
sourceCacheDir onChangeSend:#updateModifiedChannel to:self |
|
183 |
]. |
|
184 |
^ sourceCacheDir. |
|
11063
bae37a424fa8
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
10984
diff
changeset
|
185 |
! ! |
bae37a424fa8
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
10984
diff
changeset
|
186 |
|
9849 | 187 |
!AbstractSourceCodeManagementSettingsAppl class methodsFor:'documentation'! |
188 |
||
10984 | 189 |
version |
11125 | 190 |
^ '$Header: /cvs/stx/stx/libtool/AbstractSourceCodeManagementSettingsAppl.st,v 1.12 2012-01-14 20:01:33 cg Exp $' |
10984 | 191 |
! |
192 |
||
9849 | 193 |
version_CVS |
11125 | 194 |
^ '$Header: /cvs/stx/stx/libtool/AbstractSourceCodeManagementSettingsAppl.st,v 1.12 2012-01-14 20:01:33 cg Exp $' |
10030 | 195 |
! |
196 |
||
197 |
version_SVN |
|
198 |
^ '§Id§' |
|
9849 | 199 |
! ! |