author | Claus Gittinger <cg@exept.de> |
Tue, 18 Dec 2018 13:50:54 +0100 | |
changeset 18550 | 8de40a119c04 |
parent 18289 | e1fdf7583090 |
child 18918 | e3e314aab0bb |
permissions | -rw-r--r-- |
18084 | 1 |
"{ Encoding: utf8 }" |
2 |
||
10029 | 3 |
" |
4 |
COPYRIGHT (c) 2011 by eXept Software AG |
|
5 |
All Rights Reserved |
|
6 |
||
7 |
This software is furnished under a license and may be used |
|
8 |
only in accordance with the terms of that license and with the |
|
9 |
inclusion of the above copyright notice. This software may not |
|
10 |
be provided or otherwise made available to, or used by, any |
|
11 |
other person. No title to or ownership of the software is |
|
12 |
hereby transferred. |
|
13 |
" |
|
11546 | 14 |
"{ Package: 'stx:libtool' }" |
15 |
||
16182 | 16 |
"{ NameSpace: Smalltalk }" |
17 |
||
9864 | 18 |
AbstractSourceCodeManagementSettingsAppl subclass:#PerforceSourceCodeManagementSettingsAppl |
11531 | 19 |
instanceVariableNames:'selectedPerModuleRoot perforceExecutableHolder |
20 |
listOfPerforceModules defaultSettingsHolder tableColumns |
|
21 |
defaultSettingsPrototypeList checkLabel' |
|
16657 | 22 |
classVariableNames:'' |
11531 | 23 |
poolDictionaries:'' |
24 |
category:'System-SourceCodeManagement' |
|
9837 | 25 |
! |
26 |
||
27 |
ApplicationModel subclass:#ManagerPerModuleApp |
|
11531 | 28 |
instanceVariableNames:'moduleHolder acceptChannel settingsHolder |
29 |
sourceCodeManagementSettingsApp acceptEnableChannel canceled |
|
30 |
defaultSettingsPrototypeList' |
|
31 |
classVariableNames:'' |
|
32 |
poolDictionaries:'' |
|
33 |
privateIn:PerforceSourceCodeManagementSettingsAppl |
|
9837 | 34 |
! |
35 |
||
36 |
Object subclass:#ModuleManager |
|
11531 | 37 |
instanceVariableNames:'manager module settings app check checkIcon' |
38 |
classVariableNames:'' |
|
39 |
poolDictionaries:'' |
|
40 |
privateIn:PerforceSourceCodeManagementSettingsAppl |
|
11022 | 41 |
! |
42 |
||
11546 | 43 |
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'documentation'! |
11022 | 44 |
|
11546 | 45 |
copyright |
46 |
" |
|
47 |
COPYRIGHT (c) 2011 by eXept Software AG |
|
48 |
All Rights Reserved |
|
49 |
||
50 |
This software is furnished under a license and may be used |
|
51 |
only in accordance with the terms of that license and with the |
|
52 |
inclusion of the above copyright notice. This software may not |
|
53 |
be provided or otherwise made available to, or used by, any |
|
54 |
other person. No title to or ownership of the software is |
|
55 |
hereby transferred. |
|
56 |
" |
|
57 |
! ! |
|
58 |
||
59 |
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'image specs'! |
|
60 |
||
61 |
defaultIcon |
|
14339
8a92b620a2f1
Mark program icons with resource
Stefan Vogel <sv@exept.de>
parents:
14314
diff
changeset
|
62 |
<resource: #programImage> |
8a92b620a2f1
Mark program icons with resource
Stefan Vogel <sv@exept.de>
parents:
14314
diff
changeset
|
63 |
|
11546 | 64 |
^ self defaultIcon4. |
65 |
"/ ^ self defaultIcon3 |
|
66 |
||
67 |
"Created: / 21-12-2011 / 12:35:05 / cg" |
|
68 |
! |
|
69 |
||
70 |
defaultIcon1 |
|
14397
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
71 |
<resource: #image> |
11546 | 72 |
"This resource specification was automatically generated |
73 |
by the ImageEditor of ST/X." |
|
74 |
"Do not manually edit this!! If it is corrupted, |
|
75 |
the ImageEditor may not be able to read the specification." |
|
76 |
" |
|
77 |
self defaultIcon1 inspect |
|
78 |
ImageEditor openOnClass:self andSelector:#defaultIcon1 |
|
14397
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
79 |
Icon flushCachedIcons" |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
80 |
|
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
81 |
^ Icon |
11546 | 82 |
constantNamed:'PerforceSourceCodeManagementSettingsAppl class defaultIcon1' |
14397
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
83 |
ifAbsentPut:[ |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
84 |
(Depth8Image new) |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
85 |
width:22; |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
86 |
height:22; |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
87 |
photometric:(#palette); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
88 |
bitsPerSample:(#[ 8 ]); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
89 |
samplesPerPixel:(1); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
90 |
bits:(ByteArray |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
91 |
fromPackedString:' |
11546 | 92 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PHA@PHA@0D@@@D@@@@@@@@@@@@@@ TFA XFA \B@@@C@ HB@ @@@@@@ |
93 |
@@HIB (IBP(IA@LB@ $JBPH@@@@@@@@BBP(LCPXJB $N@!!@JB!!@B@@@@@@@@@!!@PCP@@D!!@PA (PBP(P@ @@@@@@@@HPDAH@@ALPDA@PD@(PD@H@@@@@@@@B |
|
94 |
EQ@VB (WDA@PEQLMEP(B@@@@@@@@@!!TWEQ$ZE1\WEQ@@F1$S@ @@@@@@@@HZEQ@SF1TUEQT\@AXZA H@@@@@@@@BF!!4S@@4ZF!!4Q@@@^G00B@@@@@@@@@!!8^ |
|
95 |
D2@^F!!(G@@@QH"L$IPH@@@@@@@H''G!!TUG" )AR(EJ2L,KR4B@@@@@@@B@!!D/LBL"H#D1LRH2H3L4@ @@@@@@@@@BJ3L6KB0,KB0#H2L#H0H@@@@@@@@@@ HB |
|
96 |
@ HB@ HBH#(-@ HB@@@@@@@@@@@@@@@@@@@@@#(4KPH@@@@@@@@@@@@@@@@@@@@@@@H=O H@@@@@@@@@@@@@@@@@@@@@@@@B@ HB@@@@@@@@@@@@@@@@@@@@ |
|
14397
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
97 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a'); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
98 |
colorMapFromArray:#[ 240 240 240 224 232 250 208 232 250 224 240 250 160 192 210 128 176 200 144 176 200 160 192 220 144 176 210 112 160 180 128 160 180 160 200 220 128 168 200 160 184 210 208 224 240 176 208 220 112 152 180 176 200 220 144 184 210 144 168 200 192 216 240 112 144 170 128 152 180 112 144 180 128 168 180 96 136 170 112 136 170 144 168 180 192 216 220 96 136 160 96 128 160 48 112 140 176 192 220 144 184 220 16 96 130 32 96 130 144 200 220 192 232 250 176 216 250 96 120 140 80 120 140 80 128 160 112 168 200 80 136 170 32 104 140 96 152 180 128 184 210 96 144 170 48 104 140 16 88 120 32 104 130 16 88 130 0 80 100 176 224 250 32 96 140 144 192 220 160 208 240 160 208 220 16 80 120 80 144 170 80 144 180 0 64 100 0 72 100 ]; |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
99 |
mask:((ImageMask new) |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
100 |
width:22; |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
101 |
height:22; |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
102 |
bits:(ByteArray |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
103 |
fromPackedString:'@@@@@@@@G?H@G?O G?? G?? G''? G''? G?? G?7 G?7 G/'' G?O0G??0G??0A??0A??0@@_@@@^@@@^@@@@@@@@@'); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
104 |
yourself); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
105 |
yourself |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
106 |
] |
11546 | 107 |
! |
108 |
||
109 |
defaultIcon2 |
|
14397
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
110 |
<resource: #image> |
11546 | 111 |
"This resource specification was automatically generated |
112 |
by the ImageEditor of ST/X." |
|
113 |
"Do not manually edit this!! If it is corrupted, |
|
114 |
the ImageEditor may not be able to read the specification." |
|
115 |
" |
|
116 |
self defaultIcon2 inspect |
|
117 |
ImageEditor openOnClass:self andSelector:#defaultIcon2 |
|
14397
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
118 |
Icon flushCachedIcons" |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
119 |
|
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
120 |
^ Icon |
11546 | 121 |
constantNamed:'PerforceSourceCodeManagementSettingsAppl class defaultIcon2' |
14397
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
122 |
ifAbsentPut:[ |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
123 |
(Depth4Image new) |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
124 |
width:24; |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
125 |
height:24; |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
126 |
photometric:(#palette); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
127 |
bitsPerSample:(#[ 4 ]); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
128 |
samplesPerPixel:(1); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
129 |
bits:(ByteArray |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
130 |
fromPackedString:' |
11546 | 131 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@QUUV@@@@@@@@@@A%UUUUUX@@@@@@BUUUUUUUUUTP@@@HUUUUUUUUUUUU$@@@@@UUUU |
132 |
UUUU$@@@@@@@@FUUUUT@@@@@@@@@@@AUUZ@@)B@@@@@@H@@BL@BUUV @@@BEUU @@HUUZP@@@@YUUUUQ!!%UY@@@@@@@$UUUUUUVP@@@@@@@@@BUUUU@@QUP@ |
|
133 |
@@@@@@@AU@B%UP@@@@@@A0@@@@EUP@@@@@@@UUU@@DUY@@@@@@@UUUUUUUV@@@@@@@JH$VUUUU @@@@@@@@@@@@HYY@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
|
14397
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
134 |
@@@@@@@@@@@@@@@@@@@@@@@@'); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
135 |
colorMapFromArray:#[ 255 248 248 240 200 104 255 216 160 255 248 240 240 192 64 240 168 24 240 176 48 255 240 224 255 224 176 255 208 136 255 232 208 ]; |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
136 |
mask:((ImageMask new) |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
137 |
width:24; |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
138 |
height:24; |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
139 |
bits:(ByteArray |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
140 |
fromPackedString:'@@@@@@@@@A @@G8@@_?@C??0O??<@?? @O<@@C88@!!#<C<O0G??@C?>@@O8<@A30@PG @>O@C?>@G?<@@A8@@@@@@@@@@@@@'); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
141 |
yourself); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
142 |
yourself |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
143 |
] |
11546 | 144 |
! |
145 |
||
146 |
defaultIcon3 |
|
14397
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
147 |
<resource: #image> |
11546 | 148 |
"This resource specification was automatically generated |
149 |
by the ImageEditor of ST/X." |
|
150 |
"Do not manually edit this!! If it is corrupted, |
|
151 |
the ImageEditor may not be able to read the specification." |
|
152 |
" |
|
153 |
self defaultIcon3 inspect |
|
154 |
ImageEditor openOnClass:self andSelector:#defaultIcon3 |
|
14397
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
155 |
Icon flushCachedIcons" |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
156 |
|
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
157 |
^ Icon |
11546 | 158 |
constantNamed:'PerforceSourceCodeManagementSettingsAppl class defaultIcon3' |
14397
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
159 |
ifAbsentPut:[ |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
160 |
(Depth8Image new) |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
161 |
width:22; |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
162 |
height:22; |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
163 |
photometric:(#palette); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
164 |
bitsPerSample:(#[ 8 ]); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
165 |
samplesPerPixel:(1); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
166 |
bits:(ByteArray |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
167 |
fromPackedString:' |
11546 | 168 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PHA@PHA@0D@@@D@@@@@@@@@@@@@@ PEAPTEAPXB@@@C@ HB@ @@@@@@ |
169 |
@@HGB@ GA0 GBPLB@ \HA0H@@@@@@@@BA0 JB0THB@\L@ 4HB@4B@@@@@@@@@ 4MB0@@C 4MAP MA0 M@ @@@@@@@@HMCP8@@@<MCP4MCP MCPH@@@@@@@@B |
|
170 |
D@4QB@ RCP4MD@<KD@ B@@@@@@@@@!!@RDALTD!!HRD@4@EQLO@ @@@@@@@@HTM#X3L1@PDA@V@ADTAPH@@@@@@@@BL3X6M#X3EA\X@@@YF (B@@@@@@@@L#X6 |
|
171 |
C1,YECLF@@@XGA4^G0H@@@@@@CL4L1@PFRD"ABLDIA4%I"XB@@@@L3L6MSX7JA48GB$)JQ0*GR,,@ @@@@@3MSX3IB,8NC %IRT]GQ4]GPH@@@@@@CL<@ H8 |
|
172 |
N3,:N@HBGB8&@ HB@@@@@@@@@@@8NC$8NC @@"8,I H@@@@@@@@8@@@@@@@8N@@@@@H/L@H@@@@@@@@@@C 8NC 8NCD@@@@B@ HB@@@@@@@@@@@@NS 8NCD@ |
|
14397
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
173 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a'); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
174 |
colorMapFromArray:#[ 247 247 247 239 243 252 231 243 252 239 247 252 191 215 227 199 215 227 207 223 237 183 207 217 191 207 217 207 223 232 191 211 227 207 219 232 231 239 247 183 203 217 199 219 232 199 211 227 183 199 212 191 203 217 183 199 217 175 195 212 183 195 212 199 211 217 223 235 237 175 195 207 215 227 237 175 191 207 151 183 197 215 223 237 135 175 192 143 175 192 199 227 237 223 243 252 175 187 197 167 187 197 167 191 207 183 211 227 167 195 212 143 179 197 175 203 217 175 199 212 151 179 197 135 171 187 143 179 192 135 171 192 127 167 177 143 175 197 135 167 187 127 159 177 127 163 177 0 0 0 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 ]; |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
175 |
mask:((ImageMask new) |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
176 |
width:22; |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
177 |
height:22; |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
178 |
bits:(ByteArray |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
179 |
fromPackedString:'@@@@@@@@G?H@G?O G?? G?? G''? G''? G?? G?7 G?7 G?'' G?O0G??0_??0O??0G??0@?_@HL^@G<^@C8@@@@@@'); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
180 |
yourself); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
181 |
yourself |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
182 |
] |
11546 | 183 |
! |
184 |
||
185 |
defaultIcon4 |
|
14397
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
186 |
<resource: #image> |
11546 | 187 |
"This resource specification was automatically generated |
188 |
by the ImageEditor of ST/X." |
|
189 |
"Do not manually edit this!! If it is corrupted, |
|
190 |
the ImageEditor may not be able to read the specification." |
|
191 |
" |
|
192 |
self defaultIcon4 inspect |
|
193 |
ImageEditor openOnClass:self andSelector:#defaultIcon4 |
|
14397
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
194 |
Icon flushCachedIcons" |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
195 |
|
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
196 |
^ Icon |
11546 | 197 |
constantNamed:'PerforceSourceCodeManagementSettingsAppl class defaultIcon4' |
14397
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
198 |
ifAbsentPut:[ |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
199 |
(Depth8Image new) |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
200 |
width:22; |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
201 |
height:22; |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
202 |
photometric:(#palette); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
203 |
bitsPerSample:(#[ 8 ]); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
204 |
samplesPerPixel:(1); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
205 |
bits:(ByteArray |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
206 |
fromPackedString:' |
11546 | 207 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AUUUUUU @@@@@@@@@@@@@@@@@@ |
208 |
@@@@U(F.+Y]QJ@@@FB\$(P@@@@@@@@@@@ET)H#U7JS]IFRX)S%\@@@@@@@@@@@@SO6B1E1F+$C5SJSYB@@@@@@@@@@@@D:>MW)>Y_P!!;#8HI\0@@@@@@@@@@ |
|
209 |
@D@)J!!R0& 0])J"CG!!0@@@@@@@@@@@AAJ08J^VM_(1TP_7 G@@@@@@@@@@@@-;^4-J2NM@=5$'':)@@@@@@@@@@@@-K^7-;^4^&T2@C1OK@@@@@@@@@@@,;^7 |
|
210 |
SBB''%+P@''HY/%E$K@@@@@@@@@KR5-@YPHR4A''X]0JU)DSZH@@@@@-KR7-+^8@D"9\WE[CTU!!K0L3@@@@@@B4-+^4@@B9.[$@@C@Z)X0@@@@@@@@@@KR=@@B9 |
|
211 |
/K2;.PBJWT]K@@@@@@@@@@@@@@B9.[*9.[$@@H,[@@@@@@@@@@B9@@@@@@B9.P@@@@@@@@@@@@@@@@@@@K&9.[&9.[H@@@@@@@@@@@@@@@@@@@@@.+&9.[H@ |
|
14397
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
212 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a'); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
213 |
colorMapFromArray:#[ 255 207 52 214 168 55 233 238 244 117 121 125 215 219 225 217 222 228 166 169 170 185 189 193 118 113 66 175 127 29 172 137 46 183 143 46 186 146 50 149 132 77 212 161 47 102 106 106 233 202 75 244 197 63 237 243 249 253 208 64 244 197 65 116 121 116 236 242 248 141 145 139 212 219 146 193 198 148 232 179 53 146 149 152 164 168 171 127 97 27 138 106 37 200 204 209 180 136 36 187 140 37 209 152 33 214 218 223 219 166 45 223 228 234 240 194 60 240 194 64 138 131 107 230 183 62 239 191 65 230 184 63 120 122 121 213 164 49 232 237 244 104 109 109 251 215 73 225 231 235 162 166 166 180 184 188 153 111 25 175 126 27 185 134 29 186 141 39 223 228 223 217 221 226 223 227 230 232 237 235 255 235 80 227 199 81 236 241 247 232 185 63 253 216 78 253 217 79 131 135 134 230 234 240 215 159 40 232 182 60 216 221 223 96 97 95 154 158 159 178 183 183 144 110 31 199 204 209 163 130 45 175 133 40 205 150 34 203 156 46 134 121 82 223 172 50 228 233 234 232 183 60 236 243 248 253 216 79 254 241 108 123 127 129 233 184 62 255 196 50 232 182 57 118 122 120 216 220 226 211 164 51 161 167 160 102 81 27 139 107 33 147 120 48 166 132 45 167 134 50 212 217 221 94 100 98 227 233 231 224 229 234 228 183 56 253 208 63 237 243 247 238 243 250 231 235 242 234 239 246 254 208 63 240 194 65 216 168 53 114 120 119 217 221 227 148 152 153 227 232 238 178 182 180 143 110 31 171 125 28 118 105 65 173 137 46 205 150 33 214 159 37 224 166 38 221 167 46 223 170 49 231 179 56 235 239 244 245 203 72 238 190 64 233 181 58 232 184 62 128 131 126 255 230 77 215 162 44 117 121 122 222 227 232 203 152 38 150 153 155 172 176 177 132 102 33 154 121 40 147 118 49 101 101 82 228 233 221 255 235 71 227 233 230 211 164 52 228 233 237 227 181 61 244 196 63 237 242 248 233 182 59 234 184 60 236 241 248 255 205 50 214 166 51 222 226 230 195 202 151 229 233 240 153 156 155 168 172 176 138 101 24 157 117 33 119 99 56 219 225 216 184 158 61 139 130 81 100 101 96 144 149 103 225 175 53 149 154 112 245 200 66 246 202 71 232 184 63 233 183 61 131 134 130 0 0 0 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 ]; |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
214 |
mask:((ImageMask new) |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
215 |
width:22; |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
216 |
height:22; |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
217 |
bits:(ByteArray |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
218 |
fromPackedString:'@@@C@@@C@@@CA<@CA?OCA??CA??CA??CA??CA??CA?>CC?.CG??CG??#_/?#ON^CF_^C@?LCHL@CG<@CC8@C@@@C'); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
219 |
yourself); |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
220 |
yourself |
00f8034ba2d4
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14339
diff
changeset
|
221 |
] |
11546 | 222 |
! ! |
223 |
||
224 |
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'interface specs'! |
|
225 |
||
226 |
windowSpec |
|
227 |
"This resource specification was automatically generated |
|
228 |
by the UIPainter of ST/X." |
|
229 |
||
230 |
"Do not manually edit this!! If it is corrupted, |
|
231 |
the UIPainter may not be able to read the specification." |
|
232 |
||
233 |
" |
|
234 |
UIPainter new openOnClass:PerforceSourceCodeManagementSettingsAppl andSelector:#windowSpec |
|
235 |
PerforceSourceCodeManagementSettingsAppl new openInterface:#windowSpec |
|
236 |
PerforceSourceCodeManagementSettingsAppl open |
|
237 |
" |
|
238 |
||
239 |
<resource: #canvas> |
|
11530
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
240 |
|
11546 | 241 |
^ |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
242 |
#(FullSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
243 |
name: windowSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
244 |
window: |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
245 |
(WindowSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
246 |
label: 'Source Code Manager Settings' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
247 |
name: 'Source Code Manager Settings' |
14314 | 248 |
flags: 1 |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
249 |
min: (Point 10 10) |
14314 | 250 |
bounds: (Rectangle 0 0 706 596) |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
251 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
252 |
component: |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
253 |
(SpecCollection |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
254 |
collection: ( |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
255 |
(VerticalPanelViewSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
256 |
name: 'VerticalPanel3' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
257 |
layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
258 |
horizontalLayout: fit |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
259 |
verticalLayout: topSpace |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
260 |
horizontalSpace: 3 |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
261 |
verticalSpace: 4 |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
262 |
component: |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
263 |
(SpecCollection |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
264 |
collection: ( |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
265 |
(FramedBoxSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
266 |
label: 'Perforce (P4) Sourcecode Manager Settings' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
267 |
name: 'FramedBox3' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
268 |
labelPosition: topLeft |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
269 |
translateLabel: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
270 |
component: |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
271 |
(SpecCollection |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
272 |
collection: ( |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
273 |
(CheckBoxSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
274 |
label: 'Show in Browser Menus' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
275 |
name: 'CheckBox1' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
276 |
layout: (LayoutFrame 0 0 5 0 -150 1 35 0) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
277 |
activeHelpKey: shownInBrowserMenus |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
278 |
model: shownInBrowserMenusHolder |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
279 |
translateLabel: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
280 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
281 |
(ActionButtonSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
282 |
label: 'Check' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
283 |
name: 'Button6' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
284 |
layout: (LayoutFrame -150 1 5 0 -5 1 35 0) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
285 |
translateLabel: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
286 |
labelChannel: checkLabel |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
287 |
model: checkPerforceSettings |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
288 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
289 |
(ViewSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
290 |
name: 'Box3' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
291 |
layout: (LayoutFrame 0 0 41 0 0 1 117 0) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
292 |
component: |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
293 |
(SpecCollection |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
294 |
collection: ( |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
295 |
(LabelSpec |
16681 | 296 |
label: 'Default P4 Root' |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
297 |
name: 'Label1' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
298 |
layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
299 |
level: 0 |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
300 |
translateLabel: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
301 |
adjust: right |
11546 | 302 |
) |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
303 |
(LabelSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
304 |
label: '(client:user:pass@host:port) ' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
305 |
name: 'Label18' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
306 |
layout: (LayoutFrame 4 0.0 25 0 64 0.25 40 0) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
307 |
style: (FontDescription helvetica medium roman 10) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
308 |
level: 0 |
16681 | 309 |
foregroundColor: (Color 33.0 33.0 33.0) |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
310 |
translateLabel: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
311 |
adjust: right |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
312 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
313 |
(ComboBoxSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
314 |
name: 'cvsRootComboBox' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
315 |
layout: (LayoutFrame 66 0.25 0 0 -5 1 30 0) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
316 |
tabable: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
317 |
model: defaultSettingsHolder |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
318 |
immediateAccept: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
319 |
acceptOnLeave: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
320 |
acceptOnReturn: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
321 |
acceptOnTab: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
322 |
acceptOnLostFocus: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
323 |
acceptChannel: acceptChannel |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
324 |
acceptOnPointerLeave: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
325 |
comboList: defaultSettingsPrototypeList |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
326 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
327 |
(LabelSpec |
16681 | 328 |
label: 'Perforce Command:' |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
329 |
name: 'Label22' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
330 |
layout: (LayoutFrame 0 0.0 38 0 60 0.25 68 0) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
331 |
level: 0 |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
332 |
translateLabel: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
333 |
adjust: right |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
334 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
335 |
(InputFieldSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
336 |
name: 'EntryField8' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
337 |
layout: (LayoutFrame 66 0.25 38 0 -5 1 68 0) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
338 |
tabable: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
339 |
model: perforceExecutableHolder |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
340 |
immediateAccept: false |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
341 |
acceptOnLostFocus: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
342 |
acceptChannel: acceptChannel |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
343 |
acceptOnPointerLeave: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
344 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
345 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
346 |
|
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
347 |
) |
11546 | 348 |
) |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
349 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
350 |
|
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
351 |
) |
14314 | 352 |
extent: (Point 706 154) |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
353 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
354 |
(ViewSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
355 |
name: 'ManagerSetupBoxx' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
356 |
component: |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
357 |
(SpecCollection |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
358 |
collection: ( |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
359 |
(FramedBoxSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
360 |
label: 'Per Module Manager Setup' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
361 |
name: 'PerModuleManagerSetup' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
362 |
layout: (LayoutFrame 0 0 -1 0 0 1 -3 1) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
363 |
labelPosition: topLeft |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
364 |
translateLabel: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
365 |
component: |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
366 |
(SpecCollection |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
367 |
collection: ( |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
368 |
(DataSetSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
369 |
name: 'Table1' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
370 |
layout: (LayoutFrame 5 0 5 0 0 1 -30 1) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
371 |
model: selectedPerModuleRoot |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
372 |
hasHorizontalScrollBar: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
373 |
hasVerticalScrollBar: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
374 |
dataList: listOfModules |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
375 |
useIndex: false |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
376 |
columnHolder: tableColumns |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
377 |
beDependentOfRows: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
378 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
379 |
(HorizontalPanelViewSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
380 |
name: 'HorizontalPanel11' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
381 |
layout: (LayoutFrame 5 0 -30 1 -1 1 0 1) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
382 |
horizontalLayout: fitSpace |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
383 |
verticalLayout: center |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
384 |
horizontalSpace: 3 |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
385 |
verticalSpace: 3 |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
386 |
component: |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
387 |
(SpecCollection |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
388 |
collection: ( |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
389 |
(ActionButtonSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
390 |
label: 'Add/Apply' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
391 |
name: 'Button2' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
392 |
translateLabel: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
393 |
tabable: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
394 |
model: addPerModuleRoot |
16681 | 395 |
extent: (Point 323 30) |
11546 | 396 |
) |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
397 |
(ActionButtonSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
398 |
label: 'Remove' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
399 |
name: 'Button3' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
400 |
translateLabel: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
401 |
tabable: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
402 |
model: removePerModuleRoot |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
403 |
enableChannel: removeEnabled |
16681 | 404 |
extent: (Point 323 30) |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
405 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
406 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
407 |
|
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
408 |
) |
11546 | 409 |
) |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
410 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
411 |
|
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
412 |
) |
11546 | 413 |
) |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
414 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
415 |
|
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
416 |
) |
14314 | 417 |
extent: (Point 706 250) |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
418 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
419 |
(FramedBoxSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
420 |
label: 'Source Cache' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
421 |
name: 'FramedBox2' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
422 |
visibilityChannel: false |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
423 |
labelPosition: topLeft |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
424 |
translateLabel: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
425 |
component: |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
426 |
(SpecCollection |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
427 |
collection: ( |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
428 |
(ViewSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
429 |
name: 'Box4' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
430 |
layout: (LayoutFrame 0 0 0 0 0 1 30 0) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
431 |
component: |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
432 |
(SpecCollection |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
433 |
collection: ( |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
434 |
(LabelSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
435 |
label: 'Source Cache Dir:' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
436 |
name: 'Label23' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
437 |
layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
438 |
translateLabel: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
439 |
adjust: right |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
440 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
441 |
(InputFieldSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
442 |
name: 'EntryField9' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
443 |
layout: (LayoutFrame 64 0.25 0 0 0 1 30 0) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
444 |
model: sourceCacheDir |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
445 |
immediateAccept: false |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
446 |
acceptOnReturn: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
447 |
acceptOnTab: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
448 |
acceptOnLostFocus: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
449 |
acceptOnPointerLeave: true |
11546 | 450 |
) |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
451 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
452 |
|
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
453 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
454 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
455 |
(HorizontalPanelViewSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
456 |
name: 'HorizontalPanel12' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
457 |
layout: (LayoutFrame 44 0.25 33 0 0 1 63 0) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
458 |
horizontalLayout: fitSpace |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
459 |
verticalLayout: center |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
460 |
horizontalSpace: 3 |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
461 |
verticalSpace: 3 |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
462 |
component: |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
463 |
(SpecCollection |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
464 |
collection: ( |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
465 |
(ActionButtonSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
466 |
label: 'Flush Cache now' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
467 |
name: 'Button4' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
468 |
translateLabel: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
469 |
tabable: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
470 |
model: flushSourceCache |
16681 | 471 |
extent: (Point 221 30) |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
472 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
473 |
(ActionButtonSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
474 |
label: 'Condense Cache now' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
475 |
name: 'Button5' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
476 |
translateLabel: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
477 |
tabable: true |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
478 |
model: condenseSourceCache |
16681 | 479 |
extent: (Point 221 30) |
11546 | 480 |
) |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
481 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
482 |
|
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
483 |
) |
11546 | 484 |
) |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
485 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
486 |
|
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
487 |
) |
14314 | 488 |
extent: (Point 706 107) |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
489 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
490 |
(ViewSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
491 |
name: 'VerboseBox' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
492 |
component: |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
493 |
(SpecCollection |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
494 |
collection: ( |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
495 |
(CheckBoxSpec |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
496 |
label: 'Verbose (Trace Access on Transcript)' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
497 |
name: 'CheckBox6' |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
498 |
layout: (LayoutFrame 30 0 5 0 -5 1 35 0) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
499 |
model: verboseSourceCodeAccess |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
500 |
translateLabel: true |
11546 | 501 |
) |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
502 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
503 |
|
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
504 |
) |
14314 | 505 |
extent: (Point 706 25) |
11546 | 506 |
) |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
507 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
508 |
|
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
509 |
) |
11546 | 510 |
) |
14257
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
511 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
512 |
|
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
513 |
) |
c51afcd49135
class: PerforceSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14250
diff
changeset
|
514 |
) |
11546 | 515 |
! ! |
11530
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
516 |
|
11546 | 517 |
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'menu specs'! |
9837 | 518 |
|
11546 | 519 |
menuPerModule |
520 |
"This resource specification was automatically generated |
|
521 |
by the MenuEditor of ST/X." |
|
522 |
||
523 |
"Do not manually edit this!! If it is corrupted, |
|
524 |
the MenuEditor may not be able to read the specification." |
|
9837 | 525 |
|
526 |
||
11546 | 527 |
" |
528 |
MenuEditor new openOnClass:PerforceSourceCodeManagementSettingsAppl andSelector:#menuPerModule |
|
529 |
(Menu new fromLiteralArrayEncoding:(PerforceSourceCodeManagementSettingsAppl menuPerModule)) startUp |
|
530 |
" |
|
9837 | 531 |
|
11546 | 532 |
<resource: #menu> |
533 |
||
534 |
^ |
|
535 |
#(Menu |
|
536 |
( |
|
537 |
(MenuItem |
|
538 |
label: 'Check' |
|
539 |
itemValue: checkPerforceSettings |
|
540 |
translateLabel: true |
|
541 |
) |
|
542 |
) |
|
543 |
nil |
|
544 |
nil |
|
545 |
) |
|
546 |
! ! |
|
547 |
||
548 |
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'queries'! |
|
549 |
||
550 |
managerClass |
|
551 |
"backlink to my manager class (needed by the settings app)" |
|
552 |
||
553 |
^ PerforceSourceCodeManager |
|
554 |
||
555 |
"Created: / 19-04-2011 / 12:52:02 / cg" |
|
556 |
! ! |
|
557 |
||
558 |
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'tableColumns specs'! |
|
559 |
||
560 |
tableColumns |
|
561 |
"This resource specification was automatically generated |
|
562 |
by the DataSetBuilder of ST/X." |
|
563 |
||
564 |
"Do not manually edit this!! If it is corrupted, |
|
565 |
the DataSetBuilder may not be able to read the specification." |
|
566 |
||
567 |
" |
|
568 |
DataSetBuilder new openOnClass:PerforceSourceCodeManagementSettingsAppl andSelector:#tableColumns |
|
569 |
" |
|
570 |
||
571 |
<resource: #tableColumns> |
|
572 |
||
573 |
^#( |
|
574 |
(DataSetColumnSpec |
|
575 |
label: 'Module' |
|
576 |
labelButtonType: Button |
|
577 |
usePreferredWidth: true |
|
578 |
width: 100 |
|
579 |
minWidth: 100 |
|
580 |
model: module |
|
581 |
menuFromApplication: false |
|
582 |
) |
|
583 |
(DataSetColumnSpec |
|
584 |
label: 'Settings' |
|
585 |
labelButtonType: Button |
|
586 |
editorType: InputField |
|
587 |
model: settings |
|
588 |
menuFromApplication: false |
|
589 |
isResizeable: false |
|
590 |
) |
|
591 |
(DataSetColumnSpec |
|
592 |
label: 'Check' |
|
593 |
labelButtonType: Button |
|
594 |
model: check |
|
595 |
menuFromApplication: false |
|
596 |
doubleClickedSelector: doubleClick |
|
597 |
isResizeable: false |
|
598 |
) |
|
599 |
) |
|
600 |
||
601 |
! ! |
|
602 |
||
603 |
!PerforceSourceCodeManagementSettingsAppl methodsFor:'actions'! |
|
604 |
||
605 |
addModule:aModuleManager |
|
606 |
||
607 |
|detectedManager| |
|
608 |
||
609 |
detectedManager := self listOfModules detect:[:eachModuleManager| eachModuleManager module = aModuleManager module] ifNone:nil. |
|
610 |
detectedManager isNil ifTrue:[ |
|
611 |
self listOfModules add:aModuleManager; sort. |
|
612 |
self updateModifiedChannel. |
|
613 |
] ifFalse:[ |
|
614 |
Dialog information:'Manager for Module ', aModuleManager module, ' already exists'. |
|
615 |
]. |
|
9837 | 616 |
|
617 |
||
11546 | 618 |
"Created: / 08-11-2006 / 19:25:21 / cg" |
619 |
! |
|
620 |
||
621 |
addModule:module withData:data |
|
622 |
(self listOfModules includes:module) ifFalse:[ |
|
623 |
self listOfModules add:module; sort. |
|
624 |
]. |
|
625 |
||
626 |
self updateModifiedChannel. |
|
627 |
||
628 |
"Created: / 08-11-2006 / 19:25:21 / cg" |
|
629 |
! |
|
630 |
||
631 |
addPerModuleRoot |
|
632 |
||
633 |
|app moduleManager| |
|
634 |
||
635 |
app := ManagerPerModuleApp openFromSourceCodeManagementSettingsApp:self. |
|
636 |
app canceled ifFalse:[ |
|
637 |
moduleManager := ModuleManager newForApplication:self. |
|
638 |
app moduleHolder value isEmptyOrNil ifTrue:[ |
|
639 |
self information:'Adding without module name not allowed'. |
|
640 |
^ self. |
|
641 |
]. |
|
642 |
moduleManager module:app moduleHolder value. |
|
643 |
moduleManager settings:app settingsHolder value. |
|
644 |
self listOfModules add:moduleManager. |
|
645 |
self updateModifiedChannel. |
|
646 |
]. |
|
647 |
"Modified: / 08-11-2006 / 19:27:39 / cg" |
|
648 |
! |
|
649 |
||
650 |
basicReadSettings |
|
651 |
|moduleManager moduleAndSettings| |
|
652 |
||
653 |
self initialize. |
|
654 |
||
655 |
self defaultSettingsHolder value:PerforceSourceCodeManager getPerforceDefaultSettingsString. |
|
656 |
self listOfModules removeAll. |
|
657 |
moduleAndSettings := PerforceSourceCodeManager repositoryInfoPerModule copy. |
|
658 |
moduleAndSettings notEmptyOrNil ifTrue:[ |
|
659 |
moduleAndSettings keysAndValuesDo:[:module :settings| |
|
660 |
moduleManager := ModuleManager newForApplication:self. |
|
661 |
moduleManager module:module. |
|
662 |
moduleManager settings:settings. |
|
663 |
self listOfModules add:moduleManager. |
|
664 |
]. |
|
665 |
]. |
|
666 |
self listOfModules sort. |
|
667 |
||
668 |
self hasManager ifTrue:[ |
|
669 |
self sourceCacheDir value:(PerforceSourceCodeManager cacheDirectoryName). |
|
670 |
]. |
|
671 |
||
672 |
self perforceExecutableHolder value:PerforceSourceCodeManager perforceExecutable. |
|
673 |
self verboseSourceCodeAccess value:PerforceSourceCodeManager verboseSourceCodeAccess. |
|
674 |
self shownInBrowserMenusHolder value:PerforceSourceCodeManager shownInBrowserMenus. |
|
675 |
||
676 |
"/ self selectedPerModuleRootChanged. |
|
677 |
||
678 |
"Modified: / 10-01-2012 / 00:21:00 / cg" |
|
679 |
! |
|
680 |
||
681 |
basicSaveSettings |
|
682 |
|client repositoryInfoPerModule| |
|
683 |
||
684 |
self hasManager ifTrue:[ |
|
685 |
| nm fn| |
|
686 |
||
687 |
nm := self sourceCacheDir value. |
|
688 |
nm notEmptyOrNil ifTrue:[ |
|
689 |
(fn := nm asFilename) exists ifFalse:[ |
|
690 |
(self confirm:('Perforce cache directory ''' , nm , ''' does not exist\create ?' withCRs)) ifTrue:[ |
|
691 |
fn makeDirectory; |
|
692 |
makeReadableForAll; |
|
693 |
makeWritableForAll; |
|
694 |
makeExecutableForAll. |
|
695 |
] |
|
696 |
]. |
|
13239 | 697 |
(fn isWritableDirectory and:[fn isReadable]) ifTrue:[ |
11546 | 698 |
PerforceSourceCodeManager cacheDirectoryName:nm. |
699 |
] ifFalse:[ |
|
700 |
self warn:'Invalid sourceCache directory.' |
|
701 |
] |
|
702 |
]. |
|
703 |
repositoryInfoPerModule := Dictionary new. |
|
704 |
self listOfModules do:[:aModuleManager| |
|
705 |
repositoryInfoPerModule at:aModuleManager module put:aModuleManager settings. |
|
706 |
]. |
|
707 |
||
708 |
PerforceSourceCodeManager repositoryInfoPerModule:repositoryInfoPerModule. |
|
709 |
PerforceSourceCodeManager perforceExecutable:((self perforceExecutableHolder value ? '') withoutSeparators). |
|
710 |
client := self defaultSettingsHolder value. |
|
711 |
PerforceSourceCodeManager setDefaultPerforceSettingsFromString:client. |
|
712 |
PerforceSourceCodeManager verboseSourceCodeAccess:self verboseSourceCodeAccess value. |
|
713 |
PerforceSourceCodeManager shownInBrowserMenus:self shownInBrowserMenusHolder value. |
|
714 |
]. |
|
715 |
||
716 |
self acceptChannel value. |
|
717 |
||
718 |
"Modified: / 10-01-2012 / 00:21:59 / cg" |
|
719 |
! |
|
720 |
||
721 |
checkPerforceSettings |
|
722 |
||
723 |
|result icon| |
|
724 |
||
725 |
PerforceSourceCodeManager perforceError handle:[:ex| |
|
726 |
self warn:ex description. |
|
727 |
^false |
|
728 |
] do:[ |
|
729 |
result := PerforceSourceCodeManager checkPerforceSettings:(self defaultSettingsHolder value) forPackage:nil. |
|
730 |
result ifTrue:[ |
|
18289 | 731 |
icon := ToolbarIconLibrary ledGreen14x14. |
11546 | 732 |
] ifFalse:[ |
18289 | 733 |
icon := ToolbarIconLibrary ledRed14x14. |
11546 | 734 |
]. |
735 |
self checkLabel value:(LabelAndIcon label:'Check' icon:icon). |
|
736 |
]. |
|
737 |
^false |
|
18289 | 738 |
|
739 |
"Modified: / 28-07-2018 / 10:01:17 / Claus Gittinger" |
|
11546 | 740 |
! |
741 |
||
742 |
condenseSourceCache |
|
743 |
self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ]. |
|
744 |
Method flushSourceStreamCache. |
|
745 |
||
746 |
"Modified: / 28-11-2006 / 12:21:33 / cg" |
|
747 |
! |
|
748 |
||
749 |
flushSourceCache |
|
750 |
self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ]. |
|
751 |
||
752 |
"Modified: / 30-09-2011 / 13:33:51 / cg" |
|
753 |
! |
|
754 |
||
755 |
removePerModuleRoot |
|
756 |
||
757 |
|module| |
|
758 |
||
759 |
acceptChannel value:true. |
|
760 |
module := self selectedPerModuleRoot value. |
|
761 |
self listOfModules remove:module ifAbsent:nil. |
|
762 |
self updateModifiedChannel. |
|
763 |
! ! |
|
764 |
||
765 |
!PerforceSourceCodeManagementSettingsAppl methodsFor:'aspects'! |
|
766 |
||
767 |
checkLabel |
|
768 |
"automatically generated by UIPainter ..." |
|
769 |
||
16182 | 770 |
<resource: #uiAspect> |
11546 | 771 |
|
772 |
checkLabel isNil ifTrue:[ |
|
773 |
checkLabel := 'Check' asValue. |
|
774 |
]. |
|
775 |
^ checkLabel. |
|
776 |
! |
|
777 |
||
778 |
defaultSettingsHolder |
|
779 |
||
780 |
defaultSettingsHolder isNil ifTrue:[ |
|
781 |
defaultSettingsHolder := ValueHolder new. |
|
782 |
defaultSettingsHolder addDependent:self. |
|
783 |
]. |
|
784 |
^ defaultSettingsHolder. |
|
785 |
! |
|
786 |
||
787 |
defaultSettingsPrototypeList |
|
788 |
||
789 |
defaultSettingsPrototypeList isNil ifTrue:[ |
|
790 |
defaultSettingsPrototypeList := self perforcePrototypeList. |
|
791 |
]. |
|
792 |
^ defaultSettingsPrototypeList. |
|
793 |
! |
|
794 |
||
795 |
initialListOfModules |
|
796 |
^ List new. |
|
797 |
||
798 |
"Created: / 02-03-2012 / 14:41:40 / cg" |
|
799 |
! |
|
800 |
||
801 |
perforceExecutableHolder |
|
802 |
perforceExecutableHolder isNil ifTrue:[ |
|
803 |
perforceExecutableHolder := ValueHolder new. |
|
804 |
perforceExecutableHolder onChangeSend:#updateModifiedChannel to:self |
|
805 |
]. |
|
806 |
^ perforceExecutableHolder. |
|
807 |
||
808 |
"Created: / 21-09-2006 / 15:37:06 / cg" |
|
809 |
! |
|
810 |
||
811 |
perforcePrototypeList |
|
812 |
||
813 |
|first client| |
|
814 |
||
815 |
client := PerforceSourceCodeManager perforceClient. |
|
816 |
client isEmptyOrNil ifTrue:[ |
|
817 |
client := 'workspace'. |
|
818 |
]. |
|
819 |
first := (client ,':', PerforceSourceCodeManager perforceUser, ':', |
|
820 |
(PerforceSourceCodeManager perforcePassword ? 'pass'), '@', |
|
821 |
PerforceSourceCodeManager perforcePort). |
|
822 |
^ Array with:first. |
|
823 |
! |
|
824 |
||
825 |
selectedPerModuleRoot |
|
826 |
selectedPerModuleRoot isNil ifTrue:[ |
|
827 |
selectedPerModuleRoot := ValueHolder new. |
|
828 |
selectedPerModuleRoot addDependent:self. |
|
829 |
]. |
|
830 |
^ selectedPerModuleRoot. |
|
831 |
! |
|
832 |
||
833 |
tableColumns |
|
834 |
"automatically generated by UIPainter ..." |
|
835 |
||
16182 | 836 |
<resource: #uiAspect> |
11546 | 837 |
|
838 |
tableColumns isNil ifTrue:[ |
|
839 |
tableColumns := self class tableColumns asValue. |
|
840 |
]. |
|
841 |
^ tableColumns. |
|
842 |
! |
|
843 |
||
844 |
verboseSourceCodeAccess |
|
845 |
verboseSourceCodeAccess isNil ifTrue:[ |
|
846 |
verboseSourceCodeAccess := false asValue. |
|
847 |
verboseSourceCodeAccess onChangeSend:#updateModifiedChannel to:self |
|
848 |
]. |
|
849 |
^ verboseSourceCodeAccess. |
|
850 |
! ! |
|
851 |
||
852 |
!PerforceSourceCodeManagementSettingsAppl methodsFor:'change & update'! |
|
853 |
||
854 |
selectedPerModuleRootChanged |
|
855 |
||
856 |
self removeEnabled value:self selectedPerModuleRoot value notNil. |
|
857 |
! |
|
858 |
||
859 |
update:something with:aParameter from:changedObject |
|
860 |
||
861 |
changedObject == selectedPerModuleRoot ifTrue:[ |
|
862 |
self selectedPerModuleRootChanged. |
|
863 |
^ self |
|
864 |
]. |
|
865 |
||
866 |
changedObject == self listOfModules ifTrue:[ |
|
867 |
self updateModifiedChannel. |
|
868 |
]. |
|
869 |
||
870 |
changedObject == defaultSettingsHolder ifTrue:[ |
|
871 |
self updateModifiedChannel. |
|
872 |
]. |
|
9837 | 873 |
|
874 |
||
11546 | 875 |
super update:something with:aParameter from:changedObject |
876 |
||
877 |
"Modified: / 09-11-2006 / 14:41:10 / cg" |
|
878 |
! ! |
|
879 |
||
880 |
!PerforceSourceCodeManagementSettingsAppl methodsFor:'help'! |
|
881 |
||
14250 | 882 |
editorHelpRelativeWikiURL |
883 |
"the relative URL of the dialog-description in the Wiki" |
|
884 |
||
885 |
^ 'Settings_PerforceSourceCodeManagerSettings' |
|
886 |
! |
|
887 |
||
11546 | 888 |
helpFilename |
889 |
^ 'Launcher/perforceSetup.html' |
|
890 |
||
891 |
"Modified: / 05-08-2011 / 09:10:03 / cg" |
|
892 |
! ! |
|
893 |
||
894 |
!PerforceSourceCodeManagementSettingsAppl methodsFor:'initialization & release'! |
|
895 |
||
896 |
initialize |
|
897 |
(AbstractSourceCodeManager notNil) ifTrue:[ AbstractSourceCodeManager autoload ]. |
|
898 |
||
899 |
sourceCacheDir := nil asValue. |
|
900 |
sourceCacheDir addDependent:self. |
|
901 |
||
902 |
super initialize. |
|
903 |
||
904 |
"Modified: / 08-11-2006 / 19:20:32 / cg" |
|
905 |
! ! |
|
906 |
||
907 |
!PerforceSourceCodeManagementSettingsAppl methodsFor:'queries'! |
|
908 |
||
909 |
hasManager |
|
910 |
"true if ANY source code management class is available" |
|
911 |
||
912 |
^ PerforceSourceCodeManager notNil and:[PerforceSourceCodeManager isLoaded] |
|
913 |
! |
|
914 |
||
915 |
hasUnsavedChanges |
|
916 |
||
917 |
|repositoryInfoPerModule client settings| |
|
918 |
||
919 |
(PerforceSourceCodeManager shownInBrowserMenus ~= self shownInBrowserMenusHolder value) |
|
920 |
ifTrue:[^ true]. |
|
921 |
||
922 |
client := self defaultSettingsHolder value. |
|
923 |
client notNil ifTrue:[ |
|
924 |
settings := PerforceSourceCodeManager getPerforceSettingsFromString:client. |
|
925 |
PerforceSourceCodeManager perforceClient ~= (settings at:#client ifAbsent:nil) ifTrue:[ |
|
926 |
^ true |
|
927 |
]. |
|
928 |
PerforceSourceCodeManager perforceUser ~= (settings at:#user ifAbsent:nil) ifTrue:[ |
|
929 |
^ true |
|
930 |
]. |
|
931 |
PerforceSourceCodeManager perforcePort ~= (settings at:#port ifAbsent:nil) ifTrue:[ |
|
932 |
^ true |
|
933 |
]. |
|
934 |
PerforceSourceCodeManager perforcePassword ~= (settings at:#password ifAbsent:nil) ifTrue:[ |
|
935 |
^ true |
|
936 |
]. |
|
937 |
]. |
|
938 |
||
939 |
repositoryInfoPerModule := Dictionary new. |
|
940 |
self listOfModules do:[:aModuleManager| |
|
941 |
repositoryInfoPerModule at:aModuleManager module put:aModuleManager settings. |
|
942 |
]. |
|
943 |
PerforceSourceCodeManager verboseSourceCodeAccess ~= self verboseSourceCodeAccess value ifTrue:[ |
|
944 |
^true |
|
945 |
]. |
|
946 |
||
947 |
PerforceSourceCodeManager repositoryInfoPerModule keysAndValuesDo:[:module :info | |
|
948 |
((repositoryInfoPerModule includesKey:module) and:[info = (repositoryInfoPerModule at:module)]) |
|
949 |
ifFalse:[^ true]. |
|
950 |
]. |
|
951 |
repositoryInfoPerModule keysAndValuesDo:[:module :info| |
|
952 |
((PerforceSourceCodeManager repositoryInfoPerModule includesKey:module) and:[(PerforceSourceCodeManager repositoryInfoPerModule at:module) = info]) |
|
953 |
ifFalse:[^ true]. |
|
954 |
]. |
|
955 |
self perforceExecutableHolder value ~= PerforceSourceCodeManager perforceExecutable ifTrue:[ |
|
956 |
^true |
|
957 |
]. |
|
958 |
^ false |
|
959 |
||
960 |
"Modified: / 10-01-2012 / 00:31:38 / cg" |
|
961 |
! |
|
962 |
||
963 |
repositoryInfoPerModuleFor:sourceCodeManager |
|
964 |
||
965 |
|repositoryInfoPerModule| |
|
966 |
||
967 |
repositoryInfoPerModule := Dictionary new. |
|
968 |
self listOfModules do:[:aModuleManager| |
|
969 |
repositoryInfoPerModule at:aModuleManager module put:aModuleManager settings. |
|
970 |
]. |
|
971 |
^ repositoryInfoPerModule |
|
972 |
! ! |
|
9837 | 973 |
|
9864 | 974 |
!PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp class methodsFor:'instance creation'! |
9837 | 975 |
|
976 |
openFromSourceCodeManagementSettingsApp:something |
|
977 |
||
978 |
|inst| |
|
979 |
||
980 |
inst := self new. |
|
981 |
inst sourceCodeManagementSettingsApp:something. |
|
982 |
inst openModal. |
|
983 |
^ inst |
|
984 |
! ! |
|
985 |
||
9864 | 986 |
!PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp class methodsFor:'interface specs'! |
9837 | 987 |
|
988 |
windowSpec |
|
989 |
"This resource specification was automatically generated |
|
990 |
by the UIPainter of ST/X." |
|
991 |
||
992 |
"Do not manually edit this!! If it is corrupted, |
|
993 |
the UIPainter may not be able to read the specification." |
|
994 |
||
995 |
" |
|
11530
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
996 |
UIPainter new openOnClass:PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp andSelector:#windowSpec |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
997 |
PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp new openInterface:#windowSpec |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
998 |
PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp open |
9837 | 999 |
" |
1000 |
||
1001 |
<resource: #canvas> |
|
1002 |
||
1003 |
^ |
|
1004 |
#(FullSpec |
|
1005 |
name: windowSpec |
|
1006 |
window: |
|
1007 |
(WindowSpec |
|
1008 |
label: 'Manager per Module' |
|
1009 |
name: 'Manager per Module' |
|
1010 |
min: (Point 10 10) |
|
1011 |
bounds: (Rectangle 0 0 653 100) |
|
1012 |
) |
|
1013 |
component: |
|
1014 |
(SpecCollection |
|
1015 |
collection: ( |
|
1016 |
(VerticalPanelViewSpec |
|
1017 |
name: 'VerticalPanel1' |
|
1018 |
layout: (LayoutFrame 0 0 0 0 -5 1 -30 1) |
|
1019 |
horizontalLayout: fit |
|
1020 |
verticalLayout: topSpace |
|
1021 |
horizontalSpace: 3 |
|
1022 |
verticalSpace: 3 |
|
1023 |
component: |
|
1024 |
(SpecCollection |
|
1025 |
collection: ( |
|
1026 |
(HorizontalPanelViewSpec |
|
1027 |
name: 'HorizontalPanel1' |
|
1028 |
horizontalLayout: leftFit |
|
1029 |
verticalLayout: center |
|
1030 |
horizontalSpace: 3 |
|
1031 |
verticalSpace: 3 |
|
1032 |
component: |
|
1033 |
(SpecCollection |
|
1034 |
collection: ( |
|
1035 |
(LabelSpec |
|
1036 |
label: 'Module:' |
|
1037 |
name: 'Label16' |
|
1038 |
translateLabel: true |
|
1039 |
adjust: right |
|
1040 |
extent: (Point 180 17) |
|
1041 |
) |
|
1042 |
(InputFieldSpec |
|
1043 |
name: 'EntryField7' |
|
1044 |
tabable: true |
|
1045 |
model: moduleHolder |
|
1046 |
acceptChannel: acceptChannel |
|
1047 |
acceptOnPointerLeave: true |
|
9846 | 1048 |
extent: (Point 465 22) |
9837 | 1049 |
) |
1050 |
) |
|
1051 |
||
1052 |
) |
|
1053 |
extent: (Point 648 23) |
|
1054 |
) |
|
1055 |
(HorizontalPanelViewSpec |
|
1056 |
name: 'HorizontalPanel4' |
|
1057 |
horizontalLayout: leftFit |
|
1058 |
verticalLayout: topSpace |
|
1059 |
horizontalSpace: 3 |
|
1060 |
verticalSpace: 3 |
|
1061 |
component: |
|
1062 |
(SpecCollection |
|
1063 |
collection: ( |
|
1064 |
(ViewSpec |
|
1065 |
name: 'Box1' |
|
1066 |
component: |
|
1067 |
(SpecCollection |
|
1068 |
collection: ( |
|
1069 |
(LabelSpec |
|
1070 |
label: 'Manager Info' |
|
1071 |
name: 'Label18' |
|
1072 |
layout: (LayoutFrame 0 0 0 0 149 0 16 0) |
|
1073 |
translateLabel: true |
|
1074 |
adjust: right |
|
1075 |
) |
|
1076 |
(LabelSpec |
|
1077 |
label: 'client:user:pass@host:port ' |
|
1078 |
name: 'Label19' |
|
1079 |
layout: (LayoutFrame 0 0 14 0 180 0 29 0) |
|
1080 |
style: (FontDescription helvetica medium roman 10) |
|
1081 |
level: 0 |
|
1082 |
translateLabel: true |
|
1083 |
adjust: right |
|
1084 |
) |
|
1085 |
) |
|
1086 |
||
1087 |
) |
|
1088 |
extent: (Point 180 35) |
|
1089 |
) |
|
9846 | 1090 |
(ComboBoxSpec |
1091 |
name: 'ComboBox1' |
|
9837 | 1092 |
model: settingsHolder |
11530
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1093 |
immediateAccept: false |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1094 |
acceptOnLostFocus: true |
9846 | 1095 |
acceptOnPointerLeave: false |
9837 | 1096 |
comboList: defaultSettingsPrototypeList |
9846 | 1097 |
extent: (Point 465 20) |
9837 | 1098 |
) |
1099 |
) |
|
1100 |
||
1101 |
) |
|
1102 |
extent: (Point 648 35) |
|
1103 |
) |
|
1104 |
) |
|
1105 |
||
1106 |
) |
|
1107 |
) |
|
1108 |
(HorizontalPanelViewSpec |
|
1109 |
name: 'HorizontalPanel2' |
|
1110 |
layout: (LayoutFrame 0 0 -30 1 0 1 0 1) |
|
1111 |
horizontalLayout: fitSpace |
|
1112 |
verticalLayout: center |
|
1113 |
horizontalSpace: 3 |
|
1114 |
verticalSpace: 3 |
|
1115 |
component: |
|
1116 |
(SpecCollection |
|
1117 |
collection: ( |
|
1118 |
(ActionButtonSpec |
|
1119 |
label: 'Add' |
|
1120 |
name: 'Button1' |
|
1121 |
translateLabel: true |
|
1122 |
model: doAccept |
|
1123 |
enableChannel: acceptEnableChannel |
|
1124 |
extent: (Point 322 22) |
|
1125 |
) |
|
1126 |
(ActionButtonSpec |
|
1127 |
label: 'Cancel' |
|
1128 |
name: 'Button2' |
|
1129 |
translateLabel: true |
|
1130 |
model: doCancel |
|
1131 |
extent: (Point 322 22) |
|
1132 |
) |
|
1133 |
) |
|
1134 |
||
1135 |
) |
|
1136 |
) |
|
1137 |
) |
|
1138 |
||
1139 |
) |
|
1140 |
) |
|
1141 |
! ! |
|
1142 |
||
9864 | 1143 |
!PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp methodsFor:'accessing'! |
9837 | 1144 |
|
1145 |
canceled |
|
1146 |
^ canceled |
|
1147 |
! |
|
1148 |
||
1149 |
defaultSettingsPrototypeList |
|
1150 |
||
1151 |
defaultSettingsPrototypeList isNil ifTrue:[ |
|
9861 | 1152 |
defaultSettingsPrototypeList := sourceCodeManagementSettingsApp perforcePrototypeList. |
9837 | 1153 |
]. |
1154 |
^ defaultSettingsPrototypeList. |
|
1155 |
! |
|
1156 |
||
1157 |
sourceCodeManagementSettingsApp |
|
1158 |
^ sourceCodeManagementSettingsApp |
|
1159 |
! |
|
1160 |
||
1161 |
sourceCodeManagementSettingsApp:something |
|
1162 |
sourceCodeManagementSettingsApp := something. |
|
1163 |
! ! |
|
1164 |
||
9864 | 1165 |
!PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp methodsFor:'aspects'! |
9837 | 1166 |
|
1167 |
acceptChannel |
|
1168 |
"automatically generated by UIPainter ..." |
|
1169 |
||
16182 | 1170 |
<resource: #uiAspect> |
9837 | 1171 |
|
1172 |
acceptChannel isNil ifTrue:[ |
|
9861 | 1173 |
acceptChannel := TriggerValue new. |
9837 | 1174 |
]. |
1175 |
^ acceptChannel. |
|
1176 |
! |
|
1177 |
||
1178 |
acceptEnableChannel |
|
1179 |
"automatically generated by UIPainter ..." |
|
1180 |
||
16182 | 1181 |
<resource: #uiAspect> |
9837 | 1182 |
|
1183 |
acceptEnableChannel isNil ifTrue:[ |
|
9861 | 1184 |
acceptEnableChannel := true asValue. |
9837 | 1185 |
]. |
1186 |
^ acceptEnableChannel. |
|
1187 |
! |
|
1188 |
||
1189 |
moduleHolder |
|
1190 |
"automatically generated by UIPainter ..." |
|
1191 |
||
16182 | 1192 |
<resource: #uiAspect> |
9837 | 1193 |
|
1194 |
moduleHolder isNil ifTrue:[ |
|
9861 | 1195 |
moduleHolder := ValueHolder new. |
1196 |
moduleHolder addDependent:self. |
|
9837 | 1197 |
]. |
1198 |
^ moduleHolder. |
|
1199 |
! |
|
1200 |
||
1201 |
settingsHolder |
|
1202 |
"automatically generated by UIPainter ..." |
|
1203 |
||
16182 | 1204 |
<resource: #uiAspect> |
9837 | 1205 |
|
1206 |
settingsHolder isNil ifTrue:[ |
|
9861 | 1207 |
settingsHolder := ValueHolder new. |
9837 | 1208 |
]. |
1209 |
^ settingsHolder. |
|
1210 |
! ! |
|
1211 |
||
9864 | 1212 |
!PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp methodsFor:'initialization & release'! |
9837 | 1213 |
|
1214 |
doCancel |
|
1215 |
||
1216 |
canceled := true. |
|
1217 |
^ super doCancel |
|
1218 |
! |
|
1219 |
||
1220 |
postBuildWith:aBuilder |
|
1221 |
"This is a hook method generated by the Browser. |
|
1222 |
It will be invoked during the initialization of your app/dialog, |
|
9846 | 1223 |
after all of the visual components have been built, |
9837 | 1224 |
but BEFORE the top window is made visible. |
1225 |
Add any app-specific actions here (reading files, setting up values etc.) |
|
1226 |
See also #postOpenWith:, which is invoked after opening." |
|
1227 |
||
1228 |
"/ add any code here ... |
|
1229 |
||
1230 |
canceled := false. |
|
1231 |
^ super postBuildWith:aBuilder |
|
1232 |
! ! |
|
1233 |
||
9864 | 1234 |
!PerforceSourceCodeManagementSettingsAppl::ModuleManager class methodsFor:'instance creation'! |
9848
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1235 |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1236 |
newForApplication:anApplication |
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1237 |
|instance| |
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1238 |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1239 |
instance := self new. |
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1240 |
instance app:anApplication. |
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1241 |
^instance |
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1242 |
! ! |
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1243 |
|
9864 | 1244 |
!PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'accessing'! |
9837 | 1245 |
|
9848
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1246 |
app |
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1247 |
^ app |
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1248 |
! |
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1249 |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1250 |
app:something |
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1251 |
app := something. |
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1252 |
! |
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1253 |
|
11530
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1254 |
check |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1255 |
|
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1256 |
|icon| |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1257 |
|
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1258 |
check isNil ifTrue:[ |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1259 |
^'unchecked' |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1260 |
]. |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1261 |
check ifTrue:[ |
18289 | 1262 |
icon := ToolbarIconLibrary ledGreen14x14. |
11530
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1263 |
] ifFalse:[ |
18289 | 1264 |
icon := ToolbarIconLibrary ledRed14x14. |
11530
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1265 |
]. |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1266 |
|
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1267 |
^icon |
18289 | 1268 |
|
1269 |
"Modified: / 28-07-2018 / 10:01:10 / Claus Gittinger" |
|
11530
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1270 |
! |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1271 |
|
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1272 |
check:something |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1273 |
check := something. |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1274 |
! |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1275 |
|
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1276 |
checkIcon |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1277 |
^ checkIcon |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1278 |
! |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1279 |
|
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1280 |
checkIcon:something |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1281 |
checkIcon := something. |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1282 |
! |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1283 |
|
9837 | 1284 |
manager |
1285 |
^ manager |
|
1286 |
! |
|
1287 |
||
1288 |
manager:something |
|
1289 |
manager := something. |
|
1290 |
! |
|
1291 |
||
1292 |
module |
|
1293 |
^ module |
|
1294 |
! |
|
1295 |
||
1296 |
module:something |
|
1297 |
module := something. |
|
1298 |
! |
|
1299 |
||
1300 |
settings |
|
1301 |
^ settings |
|
1302 |
! |
|
1303 |
||
1304 |
settings:something |
|
1305 |
settings := something. |
|
9848
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1306 |
app notNil ifTrue:[ |
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1307 |
app listOfModules changed. |
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1308 |
]. |
9837 | 1309 |
! ! |
1310 |
||
11530
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1311 |
!PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'actions'! |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1312 |
|
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1313 |
doubleClick |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1314 |
|
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1315 |
PerforceSourceCodeManager perforceError handle:[:ex| |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1316 |
self warn:ex description. |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1317 |
check := false. |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1318 |
] do:[ |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1319 |
check := PerforceSourceCodeManager checkPerforceSettings:settings forPackage:module. |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1320 |
]. |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1321 |
self changed. |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1322 |
! ! |
ba6b2f17e30d
**** new version from Christian
Claus Gittinger <cg@exept.de>
parents:
11328
diff
changeset
|
1323 |
|
9864 | 1324 |
!PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'comparing'! |
9837 | 1325 |
|
1326 |
< aModuleManager |
|
1327 |
||
1328 |
^ self module < aModuleManager module |
|
1329 |
! ! |
|
1330 |
||
9864 | 1331 |
!PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'queries'! |
9837 | 1332 |
|
1333 |
availableManagerTypeNames |
|
1334 |
^ AbstractSourceCodeManager availableManagers collect:[:cls | cls managerTypeName]. |
|
1335 |
! |
|
1336 |
||
1337 |
managerClass |
|
1338 |
||
1339 |
^ AbstractSourceCodeManager availableManagers detect:[:cls | cls managerTypeName = manager] ifNone:[nil]. |
|
1340 |
! ! |
|
1341 |
||
11546 | 1342 |
!PerforceSourceCodeManagementSettingsAppl class methodsFor:'documentation'! |
1343 |
||
1344 |
version |
|
16182 | 1345 |
^ '$Header$' |
11546 | 1346 |
! |
1347 |
||
1348 |
version_CVS |
|
16182 | 1349 |
^ '$Header$' |
11546 | 1350 |
! |
1351 |
||
1352 |
version_SVN |
|
16182 | 1353 |
^ '$Id$' |
11546 | 1354 |
! ! |
13239 | 1355 |