| author | Claus Gittinger <cg@exept.de> |
| Tue, 19 Apr 2011 12:42:04 +0200 | |
| changeset 9848 | 74fc0d845a9b |
| parent 9846 | 646dc5b511fe |
| child 9861 | 2fb5f110fe82 |
| permissions | -rw-r--r-- |
| 9837 | 1 |
"{ Package: 'stx:libtool' }"
|
2 |
||
3 |
AbstractSettingsApplication subclass:#P4SourceCodeManagementSettingsAppl |
|
4 |
instanceVariableNames:'sourceCacheDir listOfModules removeEnabled acceptChannel |
|
5 |
selectedPerModuleRoot verboseSourceCodeAccess |
|
6 |
perforceExecutableHolder listOfPerforceModules |
|
7 |
defaultSettingsHolder tableColumns defaultSettingsPrototypeList' |
|
8 |
classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts |
|
9 |
RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser |
|
10 |
LastStorePassword' |
|
11 |
poolDictionaries:'' |
|
12 |
category:'Interface-Smalltalk' |
|
13 |
! |
|
14 |
||
15 |
ApplicationModel subclass:#ManagerPerModuleApp |
|
16 |
instanceVariableNames:'moduleHolder acceptChannel settingsHolder |
|
17 |
sourceCodeManagementSettingsApp acceptEnableChannel canceled |
|
18 |
defaultSettingsPrototypeList' |
|
19 |
classVariableNames:'' |
|
20 |
poolDictionaries:'' |
|
21 |
privateIn:P4SourceCodeManagementSettingsAppl |
|
22 |
! |
|
23 |
||
24 |
Object subclass:#ModuleManager |
|
|
9848
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
25 |
instanceVariableNames:'manager module settings app' |
| 9837 | 26 |
classVariableNames:'' |
27 |
poolDictionaries:'' |
|
28 |
privateIn:P4SourceCodeManagementSettingsAppl |
|
29 |
! |
|
30 |
||
31 |
||
32 |
!P4SourceCodeManagementSettingsAppl class methodsFor:'image specs'! |
|
33 |
||
34 |
defaultIcon |
|
35 |
"This resource specification was automatically generated |
|
36 |
by the ImageEditor of ST/X." |
|
37 |
||
38 |
"Do not manually edit this!! If it is corrupted, |
|
39 |
the ImageEditor may not be able to read the specification." |
|
40 |
||
41 |
" |
|
42 |
self defaultIcon inspect |
|
43 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
44 |
Icon flushCachedIcons |
|
45 |
" |
|
46 |
||
47 |
<resource: #image> |
|
48 |
||
49 |
^Icon |
|
| 9846 | 50 |
constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon' |
51 |
ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' |
|
| 9837 | 52 |
@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@ |
53 |
@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S |
|
54 |
A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E |
|
55 |
F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@ |
|
56 |
@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W |
|
57 |
EQXVE @@@@@@@@@@@@@@@@@@@@@@@A(Z@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 64 0 0 64 0 32 32 0 0 32 0 32 96 32 96 192 128 192 224 192 160 224 160 32 128 64 64 96 64 64 96 32 32 160 64 160 224 192 64 160 96 32 128 32 224 224 224 64 128 64 160 192 160 224 224 192 32 160 96 160 160 160 64 64 64 96 96 96 128 128 128 192 192 192 32 32 32 32 64 32]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@O8@@?>@A??@A?C C<@0C8@PC8@@??@@??F@_>O@O<_ G8?0C1?8A#?<@C?<@@_@H@_@L@?@GC>@C?>@A?<@@_0@') ; yourself); yourself] |
|
58 |
! ! |
|
59 |
||
60 |
!P4SourceCodeManagementSettingsAppl class methodsFor:'interface specs'! |
|
61 |
||
62 |
windowSpec |
|
63 |
"This resource specification was automatically generated |
|
64 |
by the UIPainter of ST/X." |
|
65 |
||
66 |
"Do not manually edit this!! If it is corrupted, |
|
67 |
the UIPainter may not be able to read the specification." |
|
68 |
||
69 |
" |
|
70 |
UIPainter new openOnClass:P4SourceCodeManagementSettingsAppl andSelector:#windowSpec |
|
71 |
P4SourceCodeManagementSettingsAppl new openInterface:#windowSpec |
|
72 |
P4SourceCodeManagementSettingsAppl open |
|
73 |
" |
|
74 |
||
75 |
<resource: #canvas> |
|
76 |
||
|
9848
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
77 |
^ |
| 9837 | 78 |
#(FullSpec |
|
9848
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
79 |
name: windowSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
80 |
window: |
| 9837 | 81 |
(WindowSpec |
|
9848
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
82 |
label: 'Source Code Manager Settings' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
83 |
name: 'Source Code Manager Settings' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
84 |
min: (Point 10 10) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
85 |
bounds: (Rectangle 0 0 726 653) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
86 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
87 |
component: |
| 9837 | 88 |
(SpecCollection |
|
9848
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
89 |
collection: ( |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
90 |
(VerticalPanelViewSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
91 |
name: 'VerticalPanel2' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
92 |
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
93 |
horizontalLayout: fit |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
94 |
verticalLayout: topSpace |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
95 |
horizontalSpace: 3 |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
96 |
verticalSpace: 20 |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
97 |
component: |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
98 |
(SpecCollection |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
99 |
collection: ( |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
100 |
(VerticalPanelViewSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
101 |
name: 'VerticalPanel3' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
102 |
horizontalLayout: fit |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
103 |
verticalLayout: top |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
104 |
horizontalSpace: 3 |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
105 |
verticalSpace: 4 |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
106 |
component: |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
107 |
(SpecCollection |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
108 |
collection: ( |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
109 |
(ViewSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
110 |
name: 'Box3' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
111 |
component: |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
112 |
(SpecCollection |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
113 |
collection: ( |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
114 |
(LabelSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
115 |
label: 'Perforce Command or Path:' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
116 |
name: 'Label22' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
117 |
layout: (LayoutFrame 0 0.0 59 0 60 0.25 81 0) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
118 |
level: 0 |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
119 |
translateLabel: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
120 |
adjust: right |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
121 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
122 |
(InputFieldSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
123 |
name: 'EntryField8' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
124 |
layout: (LayoutFrame 66 0.25 59 0 -5 1 81 0) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
125 |
tabable: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
126 |
model: perforceExecutableHolder |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
127 |
immediateAccept: false |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
128 |
acceptOnLostFocus: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
129 |
acceptChannel: acceptChannel |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
130 |
acceptOnPointerLeave: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
131 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
132 |
(LabelSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
133 |
label: 'Default Perforce Root' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
134 |
name: '' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
135 |
layout: (LayoutFrame 0 0.0 22 0 60 0.25 44 0) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
136 |
level: 0 |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
137 |
translateLabel: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
138 |
adjust: right |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
139 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
140 |
(LabelSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
141 |
label: 'client:user:pass@host:port ' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
142 |
name: 'Label18' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
143 |
layout: (LayoutFrame 4 0.0 40 0 64 0.25 55 0) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
144 |
style: (FontDescription helvetica medium roman 10) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
145 |
level: 0 |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
146 |
translateLabel: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
147 |
adjust: right |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
148 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
149 |
(ComboBoxSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
150 |
name: 'cvsRootComboBox' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
151 |
layout: (LayoutFrame 66 0.25 28 0 -5 1 50 0) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
152 |
tabable: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
153 |
model: defaultSettingsHolder |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
154 |
immediateAccept: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
155 |
acceptOnLeave: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
156 |
acceptOnReturn: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
157 |
acceptOnTab: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
158 |
acceptOnLostFocus: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
159 |
acceptChannel: acceptChannel |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
160 |
acceptOnPointerLeave: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
161 |
comboList: defaultSettingsPrototypeList |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
162 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
163 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
164 |
|
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
165 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
166 |
extent: (Point 726 105) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
167 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
168 |
(ViewSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
169 |
name: 'ManagerSetupBoxx' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
170 |
component: |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
171 |
(SpecCollection |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
172 |
collection: ( |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
173 |
(FramedBoxSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
174 |
label: 'Per Module Manager Setup' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
175 |
name: 'PerModuleManagerSetup' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
176 |
layout: (LayoutFrame 0 0 -1 0 0 1 -3 1) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
177 |
labelPosition: topLeft |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
178 |
translateLabel: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
179 |
component: |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
180 |
(SpecCollection |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
181 |
collection: ( |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
182 |
(DataSetSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
183 |
name: 'Table1' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
184 |
layout: (LayoutFrame 5 0 5 0 0 1 180 0) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
185 |
model: selectedPerModuleRoot |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
186 |
hasHorizontalScrollBar: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
187 |
hasVerticalScrollBar: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
188 |
dataList: listOfModules |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
189 |
useIndex: false |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
190 |
columnHolder: tableColumns |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
191 |
beDependentOfRows: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
192 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
193 |
(HorizontalPanelViewSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
194 |
name: 'HorizontalPanel11' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
195 |
layout: (LayoutFrame 5 0 -25 1 -1 1 0 1) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
196 |
horizontalLayout: fitSpace |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
197 |
verticalLayout: center |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
198 |
horizontalSpace: 3 |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
199 |
verticalSpace: 3 |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
200 |
component: |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
201 |
(SpecCollection |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
202 |
collection: ( |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
203 |
(ActionButtonSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
204 |
label: 'Add/Apply' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
205 |
name: 'Button2' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
206 |
translateLabel: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
207 |
tabable: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
208 |
model: addPerModuleRoot |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
209 |
extent: (Point 340 22) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
210 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
211 |
(ActionButtonSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
212 |
label: 'Remove' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
213 |
name: 'Button3' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
214 |
translateLabel: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
215 |
tabable: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
216 |
model: removePerModuleRoot |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
217 |
enableChannel: removeEnabled |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
218 |
extent: (Point 341 22) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
219 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
220 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
221 |
|
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
222 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
223 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
224 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
225 |
|
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
226 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
227 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
228 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
229 |
|
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
230 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
231 |
extent: (Point 726 250) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
232 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
233 |
(FramedBoxSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
234 |
label: 'Source Cache' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
235 |
name: 'FramedBox2' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
236 |
labelPosition: topLeft |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
237 |
translateLabel: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
238 |
component: |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
239 |
(SpecCollection |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
240 |
collection: ( |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
241 |
(ViewSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
242 |
name: 'Box4' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
243 |
layout: (LayoutFrame 0 0 0 0 0 1 30 0) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
244 |
component: |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
245 |
(SpecCollection |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
246 |
collection: ( |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
247 |
(LabelSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
248 |
label: 'Source Cache Dir:' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
249 |
name: 'Label23' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
250 |
layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
251 |
translateLabel: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
252 |
adjust: right |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
253 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
254 |
(InputFieldSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
255 |
name: 'EntryField9' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
256 |
layout: (LayoutFrame 64 0.25 0 0 0 1 22 0) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
257 |
model: sourceCacheDir |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
258 |
immediateAccept: false |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
259 |
acceptOnReturn: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
260 |
acceptOnTab: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
261 |
acceptOnLostFocus: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
262 |
acceptOnPointerLeave: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
263 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
264 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
265 |
|
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
266 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
267 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
268 |
(HorizontalPanelViewSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
269 |
name: 'HorizontalPanel12' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
270 |
layout: (LayoutFrame 44 0.25 33 0 0 1 67 0) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
271 |
horizontalLayout: fitSpace |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
272 |
verticalLayout: center |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
273 |
horizontalSpace: 3 |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
274 |
verticalSpace: 3 |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
275 |
component: |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
276 |
(SpecCollection |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
277 |
collection: ( |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
278 |
(ActionButtonSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
279 |
label: 'Flush Cache now' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
280 |
name: 'Button4' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
281 |
translateLabel: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
282 |
tabable: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
283 |
model: flushSourceCache |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
284 |
extent: (Point 234 22) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
285 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
286 |
(ActionButtonSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
287 |
label: 'Condense Cache now' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
288 |
name: 'Button5' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
289 |
translateLabel: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
290 |
tabable: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
291 |
model: condenseSourceCache |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
292 |
extent: (Point 235 22) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
293 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
294 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
295 |
|
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
296 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
297 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
298 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
299 |
|
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
300 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
301 |
extent: (Point 726 95) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
302 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
303 |
(ViewSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
304 |
name: 'VerboseBox' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
305 |
component: |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
306 |
(SpecCollection |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
307 |
collection: ( |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
308 |
(CheckBoxSpec |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
309 |
label: 'Verbose (Trace Access on Transcript)' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
310 |
name: 'CheckBox6' |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
311 |
layout: (LayoutFrame 30 0 5 0 -5 1 27 0) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
312 |
model: verboseSourceCodeAccess |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
313 |
translateLabel: true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
314 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
315 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
316 |
|
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
317 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
318 |
extent: (Point 726 25) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
319 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
320 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
321 |
|
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
322 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
323 |
extent: (Point 726 768) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
324 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
325 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
326 |
|
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
327 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
328 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
329 |
) |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
330 |
|
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
331 |
) |
| 9837 | 332 |
) |
333 |
! ! |
|
334 |
||
335 |
!P4SourceCodeManagementSettingsAppl class methodsFor:'tableColumns specs'! |
|
336 |
||
337 |
tableColumns |
|
338 |
"This resource specification was automatically generated |
|
339 |
by the DataSetBuilder of ST/X." |
|
340 |
||
341 |
"Do not manually edit this!! If it is corrupted, |
|
342 |
the DataSetBuilder may not be able to read the specification." |
|
343 |
||
344 |
" |
|
345 |
DataSetBuilder new openOnClass:P4SourceCodeManagementSettingsAppl andSelector:#tableColumns |
|
346 |
" |
|
347 |
||
348 |
<resource: #tableColumns> |
|
349 |
||
350 |
^#( |
|
351 |
(DataSetColumnSpec |
|
| 9846 | 352 |
label: 'Module' |
353 |
labelButtonType: Button |
|
354 |
usePreferredWidth: true |
|
355 |
model: module |
|
| 9837 | 356 |
) |
357 |
(DataSetColumnSpec |
|
| 9846 | 358 |
label: 'Settings' |
359 |
labelButtonType: Button |
|
360 |
editorType: InputField |
|
361 |
model: settings |
|
362 |
isResizeable: false |
|
| 9837 | 363 |
) |
364 |
) |
|
| 9846 | 365 |
|
| 9837 | 366 |
! ! |
367 |
||
368 |
!P4SourceCodeManagementSettingsAppl methodsFor:'actions'! |
|
369 |
||
370 |
addModule:aModuleManager |
|
371 |
||
372 |
|detectedManager| |
|
373 |
||
374 |
detectedManager := self listOfModules detect:[:eachModuleManager| eachModuleManager module = aModuleManager module] ifNone:nil. |
|
375 |
detectedManager isNil ifTrue:[ |
|
| 9846 | 376 |
self listOfModules add:aModuleManager; sort. |
377 |
self updateModifiedChannel. |
|
| 9837 | 378 |
] ifFalse:[ |
| 9846 | 379 |
Dialog information:'Manager for Module ', aModuleManager module, ' already exists'. |
| 9837 | 380 |
]. |
381 |
||
382 |
||
383 |
"Created: / 08-11-2006 / 19:25:21 / cg" |
|
384 |
! |
|
385 |
||
386 |
addModule:module withData:data |
|
387 |
(self listOfModules includes:module) ifFalse:[ |
|
| 9846 | 388 |
self listOfModules add:module; sort. |
| 9837 | 389 |
]. |
390 |
||
391 |
self updateModifiedChannel. |
|
392 |
||
393 |
"Created: / 08-11-2006 / 19:25:21 / cg" |
|
394 |
! |
|
395 |
||
396 |
addPerModuleRoot |
|
397 |
||
398 |
|app moduleManager| |
|
399 |
||
400 |
app := ManagerPerModuleApp openFromSourceCodeManagementSettingsApp:self. |
|
401 |
app canceled ifFalse:[ |
|
|
9848
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
402 |
moduleManager := ModuleManager newForApplication:self. |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
403 |
app moduleHolder value isEmptyOrNil ifTrue:[ |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
404 |
self information:'Adding without module name not allowed'. |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
405 |
^ self. |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
406 |
]. |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
407 |
moduleManager module:app moduleHolder value. |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
408 |
moduleManager settings:app settingsHolder value. |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
409 |
moduleManager settings:app settingsHolder value. |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
410 |
self listOfModules add:moduleManager. |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
411 |
self updateModifiedChannel. |
| 9837 | 412 |
]. |
413 |
"Modified: / 08-11-2006 / 19:27:39 / cg" |
|
414 |
! |
|
415 |
||
416 |
basicReadSettings |
|
417 |
|moduleManager moduleAndSettings| |
|
418 |
||
419 |
self initialize. |
|
420 |
||
421 |
self defaultSettingsHolder value:PerforceSourceCodeManager getPerforceDefaultSettingsString. |
|
422 |
self listOfModules removeAll. |
|
423 |
moduleAndSettings := PerforceSourceCodeManager repositoryInfoPerModule copy. |
|
424 |
moduleAndSettings notEmptyOrNil ifTrue:[ |
|
425 |
moduleAndSettings keysAndValuesDo:[:module :settings| |
|
|
9848
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
426 |
moduleManager := ModuleManager newForApplication:self. |
| 9837 | 427 |
moduleManager module:module. |
428 |
moduleManager settings:settings. |
|
429 |
self listOfModules add:moduleManager. |
|
430 |
]. |
|
431 |
]. |
|
432 |
self listOfModules sort. |
|
433 |
||
434 |
self hasManager ifTrue:[ |
|
435 |
self sourceCacheDir value:(PerforceSourceCodeManager cacheDirectoryName). |
|
436 |
]. |
|
437 |
||
438 |
self perforceExecutableHolder value:PerforceSourceCodeManager perforceExecutable. |
|
| 9846 | 439 |
self verboseSourceCodeAccess value:PerforceSourceCodeManager verboseSourceCodeAccess. |
| 9837 | 440 |
|
441 |
"/ self selectedPerModuleRootChanged. |
|
442 |
||
| 9846 | 443 |
"Modified: / 19-04-2011 / 10:53:15 / cg" |
| 9837 | 444 |
! |
445 |
||
446 |
basicSaveSettings |
|
447 |
|client settings repositoryInfoPerModule| |
|
448 |
||
449 |
self hasManager ifTrue:[ |
|
450 |
| nm fn| |
|
451 |
||
452 |
nm := self sourceCacheDir value. |
|
453 |
nm notEmptyOrNil ifTrue:[ |
|
454 |
(fn := nm asFilename) exists ifFalse:[ |
|
455 |
(self confirm:('Perforce cache directory ''' , nm , ''' does not exist\create ?' withCRs)) ifTrue:[
|
|
| 9846 | 456 |
fn makeDirectory; |
| 9837 | 457 |
makeReadableForAll; |
458 |
makeWritableForAll; |
|
459 |
makeExecutableForAll. |
|
460 |
] |
|
461 |
]. |
|
462 |
(fn isDirectory |
|
463 |
and:[fn isReadable |
|
464 |
and:[fn isWritable]]) ifTrue:[ |
|
465 |
PerforceSourceCodeManager cacheDirectoryName:nm. |
|
466 |
] ifFalse:[ |
|
467 |
self warn:'Invalid sourceCache directory.' |
|
468 |
] |
|
469 |
]. |
|
470 |
repositoryInfoPerModule := Dictionary new. |
|
471 |
self listOfModules do:[:aModuleManager| |
|
472 |
repositoryInfoPerModule at:aModuleManager module put:aModuleManager settings. |
|
473 |
]. |
|
474 |
||
475 |
PerforceSourceCodeManager repositoryInfoPerModule:repositoryInfoPerModule. |
|
476 |
PerforceSourceCodeManager perforceExecutable:((self perforceExecutableHolder value ? '') withoutSeparators). |
|
477 |
client := self defaultSettingsHolder value. |
|
478 |
client notNil ifTrue:[ |
|
479 |
settings := PerforceSourceCodeManager getPerforceSettingsFromString:client. |
|
480 |
PerforceSourceCodeManager perforceClient:(settings at:#client ifAbsent:nil). |
|
481 |
PerforceSourceCodeManager perforceUser:(settings at:#user ifAbsent:nil). |
|
482 |
PerforceSourceCodeManager perforcePort:(settings at:#port ifAbsent:nil). |
|
483 |
PerforceSourceCodeManager perforcePassword:(settings at:#password ifAbsent:nil). |
|
484 |
]. |
|
| 9846 | 485 |
PerforceSourceCodeManager verboseSourceCodeAccess:self verboseSourceCodeAccess value. |
| 9837 | 486 |
]. |
487 |
||
488 |
self acceptChannel value. |
|
489 |
||
| 9846 | 490 |
"Modified: / 19-04-2011 / 10:53:46 / cg" |
| 9837 | 491 |
! |
492 |
||
493 |
condenseSourceCache |
|
494 |
self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ]. |
|
495 |
Method flushSourceStreamCache. |
|
496 |
||
497 |
"Modified: / 28-11-2006 / 12:21:33 / cg" |
|
498 |
! |
|
499 |
||
500 |
flushSourceCache |
|
501 |
self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ]. |
|
502 |
Method flushSourceStreamCache. |
|
503 |
||
504 |
"Modified: / 28-11-2006 / 12:21:21 / cg" |
|
505 |
! |
|
506 |
||
507 |
removePerModuleRoot |
|
508 |
||
509 |
|module| |
|
510 |
||
| 9846 | 511 |
acceptChannel value:true. |
| 9837 | 512 |
module := self selectedPerModuleRoot value. |
513 |
self listOfModules remove:module ifAbsent:nil. |
|
514 |
self updateModifiedChannel. |
|
515 |
! ! |
|
516 |
||
517 |
!P4SourceCodeManagementSettingsAppl methodsFor:'aspects'! |
|
518 |
||
519 |
acceptChannel |
|
520 |
||
521 |
acceptChannel isNil ifTrue:[ |
|
| 9846 | 522 |
acceptChannel := TriggerValue new. |
| 9837 | 523 |
]. |
524 |
^ acceptChannel. |
|
525 |
! |
|
526 |
||
527 |
defaultSettingsHolder |
|
528 |
||
529 |
defaultSettingsHolder isNil ifTrue:[ |
|
| 9846 | 530 |
defaultSettingsHolder := ValueHolder new. |
531 |
defaultSettingsHolder addDependent:self. |
|
| 9837 | 532 |
]. |
533 |
^ defaultSettingsHolder. |
|
534 |
! |
|
535 |
||
536 |
defaultSettingsPrototypeList |
|
537 |
||
538 |
defaultSettingsPrototypeList isNil ifTrue:[ |
|
| 9846 | 539 |
defaultSettingsPrototypeList := self perforcePrototypeList. |
| 9837 | 540 |
]. |
541 |
^ defaultSettingsPrototypeList. |
|
542 |
! |
|
543 |
||
544 |
listOfModules |
|
545 |
||
| 9846 | 546 |
listOfModules isNil ifTrue:[ |
547 |
listOfModules := List new. |
|
548 |
listOfModules addDependent:self. |
|
| 9837 | 549 |
]. |
550 |
^ listOfModules. |
|
551 |
! |
|
552 |
||
553 |
perforceExecutableHolder |
|
554 |
perforceExecutableHolder isNil ifTrue:[ |
|
| 9846 | 555 |
perforceExecutableHolder := ValueHolder new. |
556 |
perforceExecutableHolder onChangeSend:#updateModifiedChannel to:self |
|
| 9837 | 557 |
]. |
558 |
^ perforceExecutableHolder. |
|
559 |
||
560 |
"Created: / 21-09-2006 / 15:37:06 / cg" |
|
561 |
! |
|
562 |
||
563 |
perforcePrototypeList |
|
564 |
||
565 |
|first client| |
|
566 |
||
567 |
client := PerforceSourceCodeManager perforceClient. |
|
568 |
client isEmptyOrNil ifTrue:[ |
|
| 9846 | 569 |
client := 'workspace'. |
| 9837 | 570 |
]. |
| 9846 | 571 |
first := (client ,':', PerforceSourceCodeManager perforceUser, ':', |
572 |
(PerforceSourceCodeManager perforcePassword ? 'pass'), '@', |
|
573 |
PerforceSourceCodeManager perforcePort). |
|
| 9837 | 574 |
^ Array with:first. |
575 |
! |
|
576 |
||
577 |
removeEnabled |
|
578 |
||
579 |
removeEnabled isNil ifTrue:[ |
|
| 9846 | 580 |
removeEnabled := false asValue. |
| 9837 | 581 |
]. |
582 |
^ removeEnabled. |
|
583 |
! |
|
584 |
||
585 |
selectedPerModuleRoot |
|
586 |
selectedPerModuleRoot isNil ifTrue:[ |
|
| 9846 | 587 |
selectedPerModuleRoot := ValueHolder new. |
588 |
selectedPerModuleRoot addDependent:self. |
|
| 9837 | 589 |
]. |
590 |
^ selectedPerModuleRoot. |
|
591 |
! |
|
592 |
||
593 |
sourceCacheDir |
|
594 |
sourceCacheDir isNil ifTrue:[ |
|
| 9846 | 595 |
sourceCacheDir := ValueHolder new. |
596 |
sourceCacheDir onChangeSend:#updateModifiedChannel to:self |
|
| 9837 | 597 |
]. |
598 |
^ sourceCacheDir. |
|
599 |
! |
|
600 |
||
601 |
tableColumns |
|
602 |
<resource: #uiAspect> |
|
603 |
||
604 |
"automatically generated by UIPainter ..." |
|
605 |
||
606 |
"*** the code below creates a default model when invoked." |
|
607 |
"*** (which may not be the one you wanted)" |
|
608 |
"*** Please change as required and accept it in the browser." |
|
609 |
"*** (and replace this comment by something more useful ;-)" |
|
610 |
||
611 |
tableColumns isNil ifTrue:[ |
|
| 9846 | 612 |
tableColumns := self class tableColumns asValue. |
| 9837 | 613 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
614 |
"/ tableColumns addDependent:self. |
|
615 |
"/ tableColumns onChangeSend:#tableColumnsChanged to:self. |
|
616 |
]. |
|
617 |
^ tableColumns. |
|
618 |
! |
|
619 |
||
620 |
verboseSourceCodeAccess |
|
621 |
verboseSourceCodeAccess isNil ifTrue:[ |
|
| 9846 | 622 |
verboseSourceCodeAccess := false asValue. |
623 |
verboseSourceCodeAccess onChangeSend:#updateModifiedChannel to:self |
|
| 9837 | 624 |
]. |
625 |
^ verboseSourceCodeAccess. |
|
626 |
! ! |
|
627 |
||
628 |
!P4SourceCodeManagementSettingsAppl methodsFor:'change & update'! |
|
629 |
||
630 |
selectedPerModuleRootChanged |
|
631 |
||
632 |
self removeEnabled value:self selectedPerModuleRoot value notNil. |
|
633 |
! |
|
634 |
||
635 |
sourceDirChanged |
|
636 |
| nm fn| |
|
637 |
||
638 |
nm := self sourceCacheDir value. |
|
639 |
nm isEmptyOrNil ifTrue:[^ self]. |
|
640 |
||
641 |
(fn := nm asFilename) exists ifFalse:[ |
|
| 9846 | 642 |
(self confirm:('SourceCache directory ''' , nm , ''' does not exist.\Create ?' withCRs)) ifTrue:[
|
643 |
fn makeDirectory; |
|
644 |
makeReadableForAll; |
|
645 |
makeWritableForAll; |
|
646 |
makeExecutableForAll. |
|
647 |
] ifFalse:[ |
|
648 |
self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName). |
|
649 |
^ self. |
|
650 |
]. |
|
| 9837 | 651 |
]. |
652 |
(fn isDirectory |
|
653 |
and:[fn isReadable |
|
654 |
and:[fn isWritable]]) ifTrue:[ |
|
| 9846 | 655 |
AbstractSourceCodeManager cacheDirectoryName:nm. |
| 9837 | 656 |
] ifFalse:[ |
| 9846 | 657 |
self warn:'Invalid sourceCache directory.'. |
658 |
self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName). |
|
| 9837 | 659 |
]. |
660 |
! |
|
661 |
||
| 9846 | 662 |
update:something with:aParameter from:changedObject |
663 |
"/ common |
|
| 9837 | 664 |
changedObject == sourceCacheDir ifTrue:[ |
|
9848
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
665 |
self sourceDirChanged. |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
666 |
self updateModifiedChannel. |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
667 |
^ self |
| 9837 | 668 |
]. |
669 |
||
670 |
changedObject == selectedPerModuleRoot ifTrue:[ |
|
|
9848
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
671 |
self selectedPerModuleRootChanged. |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
672 |
^ self |
| 9837 | 673 |
]. |
674 |
||
675 |
changedObject == self listOfModules ifTrue:[ |
|
|
9848
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
676 |
self updateModifiedChannel. |
| 9837 | 677 |
]. |
678 |
||
679 |
changedObject == defaultSettingsHolder ifTrue:[ |
|
|
9848
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
680 |
self updateModifiedChannel. |
| 9837 | 681 |
]. |
682 |
||
683 |
||
684 |
super update:something with:aParameter from:changedObject |
|
685 |
||
686 |
"Modified: / 09-11-2006 / 14:41:10 / cg" |
|
687 |
! ! |
|
688 |
||
689 |
!P4SourceCodeManagementSettingsAppl methodsFor:'help'! |
|
690 |
||
691 |
helpFilename |
|
692 |
^ 'Launcher/cvsSetup.html' |
|
693 |
! ! |
|
694 |
||
695 |
!P4SourceCodeManagementSettingsAppl methodsFor:'initialization & release'! |
|
696 |
||
697 |
initialize |
|
698 |
(AbstractSourceCodeManager notNil) ifTrue:[ AbstractSourceCodeManager autoload ]. |
|
699 |
||
700 |
sourceCacheDir := nil asValue. |
|
701 |
sourceCacheDir addDependent:self. |
|
702 |
||
703 |
super initialize. |
|
704 |
||
705 |
"Modified: / 08-11-2006 / 19:20:32 / cg" |
|
706 |
! ! |
|
707 |
||
708 |
!P4SourceCodeManagementSettingsAppl methodsFor:'queries'! |
|
709 |
||
710 |
hasManager |
|
711 |
"true if ANY source code management class is available" |
|
712 |
||
713 |
^ PerforceSourceCodeManager notNil and:[PerforceSourceCodeManager isLoaded] |
|
714 |
! |
|
715 |
||
716 |
hasUnsavedChanges |
|
717 |
||
718 |
|repositoryInfoPerModule client settings| |
|
719 |
||
720 |
client := self defaultSettingsHolder value. |
|
721 |
client notNil ifTrue:[ |
|
722 |
settings := PerforceSourceCodeManager getPerforceSettingsFromString:client. |
|
723 |
PerforceSourceCodeManager perforceClient ~= (settings at:#client ifAbsent:nil) ifTrue:[ |
|
724 |
^ true |
|
725 |
]. |
|
726 |
PerforceSourceCodeManager perforceUser ~= (settings at:#user ifAbsent:nil) ifTrue:[ |
|
727 |
^ true |
|
728 |
]. |
|
729 |
PerforceSourceCodeManager perforcePort ~= (settings at:#port ifAbsent:nil) ifTrue:[ |
|
730 |
^ true |
|
731 |
]. |
|
732 |
PerforceSourceCodeManager perforcePassword ~= (settings at:#password ifAbsent:nil) ifTrue:[ |
|
733 |
^ true |
|
734 |
]. |
|
735 |
]. |
|
736 |
||
737 |
repositoryInfoPerModule := Dictionary new. |
|
738 |
self listOfModules do:[:aModuleManager| |
|
739 |
repositoryInfoPerModule at:aModuleManager module put:aModuleManager settings. |
|
740 |
]. |
|
| 9846 | 741 |
PerforceSourceCodeManager verboseSourceCodeAccess ~= self verboseSourceCodeAccess value ifTrue:[ |
742 |
^true |
|
743 |
]. |
|
| 9837 | 744 |
|
745 |
PerforceSourceCodeManager repositoryInfoPerModule keysAndValuesDo:[:module :info | |
|
746 |
((repositoryInfoPerModule includesKey:module) and:[info = (repositoryInfoPerModule at:module)]) |
|
747 |
ifFalse:[^ true]. |
|
748 |
]. |
|
749 |
repositoryInfoPerModule keysAndValuesDo:[:module :info| |
|
750 |
((PerforceSourceCodeManager repositoryInfoPerModule includesKey:module) and:[(PerforceSourceCodeManager repositoryInfoPerModule at:module) = info]) |
|
751 |
ifFalse:[^ true]. |
|
752 |
]. |
|
|
9848
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
753 |
self perforceExecutableHolder value ~= PerforceSourceCodeManager perforceExecutable ifTrue:[ |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
754 |
^true |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
755 |
]. |
| 9837 | 756 |
^ false |
757 |
||
| 9846 | 758 |
"Modified: / 19-04-2011 / 10:54:31 / cg" |
| 9837 | 759 |
! |
760 |
||
761 |
repositoryInfoPerModuleFor:sourceCodeManager |
|
762 |
||
763 |
|repositoryInfoPerModule| |
|
764 |
||
765 |
repositoryInfoPerModule := Dictionary new. |
|
766 |
self listOfModules do:[:aModuleManager| |
|
| 9846 | 767 |
repositoryInfoPerModule at:aModuleManager module put:aModuleManager settings. |
| 9837 | 768 |
]. |
769 |
^ repositoryInfoPerModule |
|
770 |
! ! |
|
771 |
||
772 |
!P4SourceCodeManagementSettingsAppl::ManagerPerModuleApp class methodsFor:'instance creation'! |
|
773 |
||
774 |
openFromSourceCodeManagementSettingsApp:something |
|
775 |
||
776 |
|inst| |
|
777 |
||
778 |
inst := self new. |
|
779 |
inst sourceCodeManagementSettingsApp:something. |
|
780 |
inst openModal. |
|
781 |
^ inst |
|
782 |
! ! |
|
783 |
||
784 |
!P4SourceCodeManagementSettingsAppl::ManagerPerModuleApp class methodsFor:'interface specs'! |
|
785 |
||
786 |
windowSpec |
|
787 |
"This resource specification was automatically generated |
|
788 |
by the UIPainter of ST/X." |
|
789 |
||
790 |
"Do not manually edit this!! If it is corrupted, |
|
791 |
the UIPainter may not be able to read the specification." |
|
792 |
||
793 |
" |
|
794 |
UIPainter new openOnClass:P4SourceCodeManagementSettingsAppl::ManagerPerModuleApp andSelector:#windowSpec |
|
795 |
P4SourceCodeManagementSettingsAppl::ManagerPerModuleApp new openInterface:#windowSpec |
|
796 |
P4SourceCodeManagementSettingsAppl::ManagerPerModuleApp open |
|
797 |
" |
|
798 |
||
799 |
<resource: #canvas> |
|
800 |
||
801 |
^ |
|
802 |
#(FullSpec |
|
803 |
name: windowSpec |
|
804 |
window: |
|
805 |
(WindowSpec |
|
806 |
label: 'Manager per Module' |
|
807 |
name: 'Manager per Module' |
|
808 |
min: (Point 10 10) |
|
809 |
max: (Point 1024 768) |
|
810 |
bounds: (Rectangle 0 0 653 100) |
|
811 |
) |
|
812 |
component: |
|
813 |
(SpecCollection |
|
814 |
collection: ( |
|
815 |
(VerticalPanelViewSpec |
|
816 |
name: 'VerticalPanel1' |
|
817 |
layout: (LayoutFrame 0 0 0 0 -5 1 -30 1) |
|
818 |
horizontalLayout: fit |
|
819 |
verticalLayout: topSpace |
|
820 |
horizontalSpace: 3 |
|
821 |
verticalSpace: 3 |
|
822 |
component: |
|
823 |
(SpecCollection |
|
824 |
collection: ( |
|
825 |
(HorizontalPanelViewSpec |
|
826 |
name: 'HorizontalPanel1' |
|
827 |
horizontalLayout: leftFit |
|
828 |
verticalLayout: center |
|
829 |
horizontalSpace: 3 |
|
830 |
verticalSpace: 3 |
|
831 |
component: |
|
832 |
(SpecCollection |
|
833 |
collection: ( |
|
834 |
(LabelSpec |
|
835 |
label: 'Module:' |
|
836 |
name: 'Label16' |
|
837 |
translateLabel: true |
|
838 |
adjust: right |
|
839 |
extent: (Point 180 17) |
|
840 |
) |
|
841 |
(InputFieldSpec |
|
842 |
name: 'EntryField7' |
|
843 |
tabable: true |
|
844 |
model: moduleHolder |
|
845 |
acceptChannel: acceptChannel |
|
846 |
acceptOnPointerLeave: true |
|
| 9846 | 847 |
extent: (Point 465 22) |
| 9837 | 848 |
) |
849 |
) |
|
850 |
||
851 |
) |
|
852 |
extent: (Point 648 23) |
|
853 |
) |
|
854 |
(HorizontalPanelViewSpec |
|
855 |
name: 'HorizontalPanel4' |
|
856 |
horizontalLayout: leftFit |
|
857 |
verticalLayout: topSpace |
|
858 |
horizontalSpace: 3 |
|
859 |
verticalSpace: 3 |
|
860 |
component: |
|
861 |
(SpecCollection |
|
862 |
collection: ( |
|
863 |
(ViewSpec |
|
864 |
name: 'Box1' |
|
865 |
component: |
|
866 |
(SpecCollection |
|
867 |
collection: ( |
|
868 |
(LabelSpec |
|
869 |
label: 'Manager Info' |
|
870 |
name: 'Label18' |
|
871 |
layout: (LayoutFrame 0 0 0 0 149 0 16 0) |
|
872 |
translateLabel: true |
|
873 |
adjust: right |
|
874 |
) |
|
875 |
(LabelSpec |
|
876 |
label: 'client:user:pass@host:port ' |
|
877 |
name: 'Label19' |
|
878 |
layout: (LayoutFrame 0 0 14 0 180 0 29 0) |
|
879 |
style: (FontDescription helvetica medium roman 10) |
|
880 |
level: 0 |
|
881 |
translateLabel: true |
|
882 |
adjust: right |
|
883 |
) |
|
884 |
) |
|
885 |
||
886 |
) |
|
887 |
extent: (Point 180 35) |
|
888 |
) |
|
| 9846 | 889 |
(ComboBoxSpec |
890 |
name: 'ComboBox1' |
|
| 9837 | 891 |
model: settingsHolder |
| 9846 | 892 |
acceptOnPointerLeave: false |
| 9837 | 893 |
comboList: defaultSettingsPrototypeList |
| 9846 | 894 |
extent: (Point 465 20) |
| 9837 | 895 |
) |
896 |
) |
|
897 |
||
898 |
) |
|
899 |
extent: (Point 648 35) |
|
900 |
) |
|
901 |
) |
|
902 |
||
903 |
) |
|
904 |
) |
|
905 |
(HorizontalPanelViewSpec |
|
906 |
name: 'HorizontalPanel2' |
|
907 |
layout: (LayoutFrame 0 0 -30 1 0 1 0 1) |
|
908 |
horizontalLayout: fitSpace |
|
909 |
verticalLayout: center |
|
910 |
horizontalSpace: 3 |
|
911 |
verticalSpace: 3 |
|
912 |
component: |
|
913 |
(SpecCollection |
|
914 |
collection: ( |
|
915 |
(ActionButtonSpec |
|
916 |
label: 'Add' |
|
917 |
name: 'Button1' |
|
918 |
translateLabel: true |
|
919 |
model: doAccept |
|
920 |
enableChannel: acceptEnableChannel |
|
921 |
extent: (Point 322 22) |
|
922 |
) |
|
923 |
(ActionButtonSpec |
|
924 |
label: 'Cancel' |
|
925 |
name: 'Button2' |
|
926 |
translateLabel: true |
|
927 |
model: doCancel |
|
928 |
extent: (Point 322 22) |
|
929 |
) |
|
930 |
) |
|
931 |
||
932 |
) |
|
933 |
) |
|
934 |
) |
|
935 |
||
936 |
) |
|
937 |
) |
|
938 |
! ! |
|
939 |
||
940 |
!P4SourceCodeManagementSettingsAppl::ManagerPerModuleApp methodsFor:'accessing'! |
|
941 |
||
942 |
canceled |
|
943 |
^ canceled |
|
944 |
! |
|
945 |
||
946 |
defaultSettingsPrototypeList |
|
947 |
||
948 |
defaultSettingsPrototypeList isNil ifTrue:[ |
|
| 9846 | 949 |
defaultSettingsPrototypeList := sourceCodeManagementSettingsApp perforcePrototypeList. |
| 9837 | 950 |
]. |
951 |
^ defaultSettingsPrototypeList. |
|
952 |
! |
|
953 |
||
954 |
sourceCodeManagementSettingsApp |
|
955 |
^ sourceCodeManagementSettingsApp |
|
956 |
! |
|
957 |
||
958 |
sourceCodeManagementSettingsApp:something |
|
959 |
sourceCodeManagementSettingsApp := something. |
|
960 |
! ! |
|
961 |
||
962 |
!P4SourceCodeManagementSettingsAppl::ManagerPerModuleApp methodsFor:'aspects'! |
|
963 |
||
964 |
acceptChannel |
|
965 |
<resource: #uiAspect> |
|
966 |
||
967 |
"automatically generated by UIPainter ..." |
|
968 |
||
969 |
"*** the code below creates a default model when invoked." |
|
970 |
"*** (which may not be the one you wanted)" |
|
971 |
"*** Please change as required and accept it in the browser." |
|
972 |
"*** (and replace this comment by something more useful ;-)" |
|
973 |
||
974 |
acceptChannel isNil ifTrue:[ |
|
| 9846 | 975 |
acceptChannel := TriggerValue new. |
| 9837 | 976 |
]. |
977 |
^ acceptChannel. |
|
978 |
! |
|
979 |
||
980 |
acceptEnableChannel |
|
981 |
<resource: #uiAspect> |
|
982 |
||
983 |
"automatically generated by UIPainter ..." |
|
984 |
||
985 |
"*** the code below creates a default model when invoked." |
|
986 |
"*** (which may not be the one you wanted)" |
|
987 |
"*** Please change as required and accept it in the browser." |
|
988 |
"*** (and replace this comment by something more useful ;-)" |
|
989 |
||
990 |
acceptEnableChannel isNil ifTrue:[ |
|
| 9846 | 991 |
acceptEnableChannel := true asValue. |
| 9837 | 992 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
993 |
"/ acceptEnableChannel addDependent:self. |
|
994 |
"/ acceptEnableChannel onChangeSend:#acceptEnableChannelChanged to:self. |
|
995 |
]. |
|
996 |
^ acceptEnableChannel. |
|
997 |
! |
|
998 |
||
999 |
moduleHolder |
|
1000 |
<resource: #uiAspect> |
|
1001 |
||
1002 |
"automatically generated by UIPainter ..." |
|
1003 |
||
1004 |
"*** the code below creates a default model when invoked." |
|
1005 |
"*** (which may not be the one you wanted)" |
|
1006 |
"*** Please change as required and accept it in the browser." |
|
1007 |
"*** (and replace this comment by something more useful ;-)" |
|
1008 |
||
1009 |
moduleHolder isNil ifTrue:[ |
|
| 9846 | 1010 |
moduleHolder := ValueHolder new. |
| 9837 | 1011 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
| 9846 | 1012 |
moduleHolder addDependent:self. |
| 9837 | 1013 |
"/ moduleHolder onChangeSend:#moduleHolderChanged to:self. |
1014 |
]. |
|
1015 |
^ moduleHolder. |
|
1016 |
! |
|
1017 |
||
1018 |
settingsHolder |
|
1019 |
<resource: #uiAspect> |
|
1020 |
||
1021 |
"automatically generated by UIPainter ..." |
|
1022 |
||
1023 |
"*** the code below creates a default model when invoked." |
|
1024 |
"*** (which may not be the one you wanted)" |
|
1025 |
"*** Please change as required and accept it in the browser." |
|
1026 |
"*** (and replace this comment by something more useful ;-)" |
|
1027 |
||
1028 |
settingsHolder isNil ifTrue:[ |
|
| 9846 | 1029 |
settingsHolder := ValueHolder new. |
| 9837 | 1030 |
"/ if your app needs to be notified of changes, uncomment one of the lines below: |
1031 |
"/ settingsHolder addDependent:self. |
|
1032 |
"/ settingsHolder onChangeSend:#settingsHolderChanged to:self. |
|
1033 |
]. |
|
1034 |
^ settingsHolder. |
|
1035 |
! ! |
|
1036 |
||
1037 |
!P4SourceCodeManagementSettingsAppl::ManagerPerModuleApp methodsFor:'initialization & release'! |
|
1038 |
||
1039 |
doCancel |
|
1040 |
||
1041 |
canceled := true. |
|
1042 |
^ super doCancel |
|
1043 |
! |
|
1044 |
||
1045 |
postBuildWith:aBuilder |
|
1046 |
"This is a hook method generated by the Browser. |
|
1047 |
It will be invoked during the initialization of your app/dialog, |
|
| 9846 | 1048 |
after all of the visual components have been built, |
| 9837 | 1049 |
but BEFORE the top window is made visible. |
1050 |
Add any app-specific actions here (reading files, setting up values etc.) |
|
1051 |
See also #postOpenWith:, which is invoked after opening." |
|
1052 |
||
1053 |
"/ add any code here ... |
|
1054 |
||
1055 |
canceled := false. |
|
1056 |
^ super postBuildWith:aBuilder |
|
1057 |
! |
|
1058 |
||
1059 |
postOpenWith:aBuilder |
|
1060 |
"This is a hook method generated by the Browser. |
|
1061 |
It will be invoked right after the applications window has been opened. |
|
1062 |
Add any app-specific actions here (starting background processes etc.). |
|
1063 |
See also #postBuildWith:, which is invoked before opening." |
|
1064 |
||
1065 |
"/ add any code here ... |
|
1066 |
||
1067 |
^ super postOpenWith:aBuilder |
|
1068 |
! ! |
|
1069 |
||
|
9848
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1070 |
!P4SourceCodeManagementSettingsAppl::ModuleManager class methodsFor:'instance creation'! |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1071 |
|
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1072 |
newForApplication:anApplication |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1073 |
|instance| |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1074 |
|
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1075 |
instance := self new. |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1076 |
instance app:anApplication. |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1077 |
^instance |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1078 |
! ! |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1079 |
|
| 9837 | 1080 |
!P4SourceCodeManagementSettingsAppl::ModuleManager methodsFor:'accessing'! |
1081 |
||
|
9848
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1082 |
app |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1083 |
^ app |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1084 |
! |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1085 |
|
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1086 |
app:something |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1087 |
app := something. |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1088 |
! |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1089 |
|
| 9837 | 1090 |
manager |
1091 |
^ manager |
|
1092 |
! |
|
1093 |
||
1094 |
manager:something |
|
1095 |
manager := something. |
|
1096 |
! |
|
1097 |
||
1098 |
module |
|
1099 |
^ module |
|
1100 |
! |
|
1101 |
||
1102 |
module:something |
|
1103 |
module := something. |
|
1104 |
! |
|
1105 |
||
1106 |
settings |
|
1107 |
^ settings |
|
1108 |
! |
|
1109 |
||
1110 |
settings:something |
|
1111 |
settings := something. |
|
|
9848
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1112 |
app notNil ifTrue:[ |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1113 |
app listOfModules changed. |
|
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1114 |
]. |
| 9837 | 1115 |
! ! |
1116 |
||
1117 |
!P4SourceCodeManagementSettingsAppl::ModuleManager methodsFor:'comparing'! |
|
1118 |
||
1119 |
< aModuleManager |
|
1120 |
||
1121 |
^ self module < aModuleManager module |
|
1122 |
! ! |
|
1123 |
||
1124 |
!P4SourceCodeManagementSettingsAppl::ModuleManager methodsFor:'queries'! |
|
1125 |
||
1126 |
availableManagerTypeNames |
|
1127 |
^ AbstractSourceCodeManager availableManagers collect:[:cls | cls managerTypeName]. |
|
1128 |
! |
|
1129 |
||
1130 |
managerClass |
|
1131 |
||
1132 |
^ AbstractSourceCodeManager availableManagers detect:[:cls | cls managerTypeName = manager] ifNone:[nil]. |
|
1133 |
! ! |
|
1134 |
||
1135 |
!P4SourceCodeManagementSettingsAppl class methodsFor:'documentation'! |
|
1136 |
||
1137 |
version_CVS |
|
|
9848
74fc0d845a9b
comment/format in: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
9846
diff
changeset
|
1138 |
^ '$Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagementSettingsAppl.st,v 1.3 2011-04-19 10:42:04 cg Exp $' |
| 9837 | 1139 |
! ! |