author | Claus Gittinger <cg@exept.de> |
Mon, 11 Sep 2017 09:08:06 +0200 | |
changeset 17686 | c6fc2da19287 |
parent 16658 | 35e02fb8edae |
child 16664 | ef51c9c52b52 |
child 18908 | 5a91d7cae48b |
permissions | -rw-r--r-- |
9824 | 1 |
" |
10031 | 2 |
COPYRIGHT (c) 2011 by eXept Software AG |
9824 | 3 |
All Rights Reserved |
4 |
||
5 |
This software is furnished under a license and may be used |
|
6 |
only in accordance with the terms of that license and with the |
|
7 |
inclusion of the above copyright notice. This software may not |
|
8 |
be provided or otherwise made available to, or used by, any |
|
9 |
other person. No title to or ownership of the software is |
|
10 |
hereby transferred. |
|
11 |
" |
|
12 |
"{ Package: 'stx:libtool' }" |
|
13 |
||
16152 | 14 |
"{ NameSpace: Smalltalk }" |
15 |
||
9857 | 16 |
AbstractSourceCodeManagementSettingsAppl subclass:#StoreSourceCodeManagementSettingsAppl |
11327 | 17 |
instanceVariableNames:'useManager repositoryHolder manager addPerModuleRoot |
18 |
perModuleRootModule perModuleRoot selectedPerModuleRoot |
|
19 |
rootsPerModule managerIsCVSSourceCodeManager |
|
20 |
managerIsStoreSourceCodeManager storeLoginEnabled |
|
21 |
storeHostPrototypeList storeHostnameHolder storeUsernameHolder |
|
22 |
storePasswordHolder perStoreModuleHostnameHolder |
|
23 |
perStoreModuleUsernameHolder perStoreModulePasswordHolder |
|
24 |
perStoreModuleRoot perStoreModuleRootModule |
|
25 |
selectedPerStoreModuleRoot storeConnectEnabled |
|
26 |
storeConnectInModuleEnabled perModuleFieldsEnableHolder |
|
27 |
managerIsSmallTeamSourceCodeManager |
|
11126 | 28 |
perSmallTeamModuleFieldsEnableHolder' |
16658 | 29 |
classVariableNames:'RecentlyUsedStoreHosts LastStoreHost LastStoreUser |
9824 | 30 |
LastStorePassword' |
31 |
poolDictionaries:'' |
|
32 |
category:'System-SourceCodeManagement' |
|
33 |
! |
|
34 |
||
35 |
!StoreSourceCodeManagementSettingsAppl class methodsFor:'documentation'! |
|
36 |
||
37 |
copyright |
|
38 |
" |
|
10031 | 39 |
COPYRIGHT (c) 2011 by eXept Software AG |
9824 | 40 |
All Rights Reserved |
41 |
||
42 |
This software is furnished under a license and may be used |
|
43 |
only in accordance with the terms of that license and with the |
|
44 |
inclusion of the above copyright notice. This software may not |
|
45 |
be provided or otherwise made available to, or used by, any |
|
46 |
other person. No title to or ownership of the software is |
|
47 |
hereby transferred. |
|
48 |
" |
|
49 |
! |
|
50 |
||
51 |
documentation |
|
52 |
" |
|
53 |
Store (visualWorks repository access) source code settings - highly experimental and unsupported. |
|
54 |
" |
|
55 |
! ! |
|
56 |
||
57 |
!StoreSourceCodeManagementSettingsAppl class methodsFor:'image specs'! |
|
58 |
||
59 |
defaultIcon |
|
14404
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
60 |
<resource: #image> |
9824 | 61 |
"This resource specification was automatically generated |
62 |
by the ImageEditor of ST/X." |
|
63 |
"Do not manually edit this!! If it is corrupted, |
|
64 |
the ImageEditor may not be able to read the specification." |
|
65 |
" |
|
66 |
self defaultIcon inspect |
|
67 |
ImageEditor openOnClass:self andSelector:#defaultIcon |
|
14404
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
68 |
Icon flushCachedIcons" |
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
69 |
|
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
70 |
^ Icon |
10987 | 71 |
constantNamed:'StoreSourceCodeManagementSettingsAppl class defaultIcon' |
14404
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
72 |
ifAbsentPut:[ |
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
73 |
(Depth8Image new) |
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
74 |
width:22; |
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
75 |
height:22; |
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
76 |
photometric:(#palette); |
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
77 |
bitsPerSample:(#[ 8 ]); |
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
78 |
samplesPerPixel:(1); |
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
79 |
bits:(ByteArray |
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
80 |
fromPackedString:' |
10987 | 81 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BFFH=<AS8@@@@@@@@@@@@@ |
82 |
@@@@@E8=X(!!#T!!0-X@D@@@@@@@@@@@@@@C%%CC@K"B9SUF$QR@@@@@@@@@@@@@A[K00LL@.H]P%SGUUZ@@@@@@@@@@@@R"$<F&P0B8]ONGECQ @@@@@@@@@@ |
|
83 |
@BX[G7X, T$BIR)(^E @@@@@@@@@@@A?F4T''[F]@XXNDZFYX@@@@@@@@@@@@Z9VU$)I''PFFC!!H.IV@@@@@@@@@@@@IJU%YVU$$@+["P1N$X@@@@@@@@@@IFU |
|
84 |
%P"ESQBR^3LTHG&N@@@@@@@@@@BR$9IEI61''PFFC!!F!!VZ @@@@@@@IJR%YRU%"],%4A!! 8Q(G% @@@@@@@@@$)RU$$T''%9^WXXNDQDIX@@@@@@@@@@BR&0<G |
|
85 |
%9*Z&Y]]D 9P# @@@@@@@@@@@@AG%9^X%9^WH49AU50@@@@@@@@@%0@@@HA>%9^L#BEF_(@@@@@@@@@@@@BW%9^W%9^P@@@@@@@@@@@@@@@@@@@@@I"W%9^P |
|
14404
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
86 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a'); |
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
87 |
colorMapFromArray:#[ 219 185 65 198 168 74 219 190 79 243 243 243 247 247 247 212 188 103 224 198 109 222 200 122 234 215 144 254 223 141 240 223 165 253 234 173 253 237 183 241 231 193 188 151 42 211 174 48 191 161 59 254 242 210 208 176 66 242 239 229 220 189 76 242 242 242 245 245 245 255 255 255 222 198 111 244 220 117 237 216 141 255 233 149 254 227 155 250 228 170 196 152 26 252 239 190 253 238 192 212 212 212 249 242 210 207 171 55 211 178 65 225 194 72 230 197 74 255 251 236 250 248 244 231 203 98 246 219 105 245 221 117 227 210 143 241 216 146 253 228 154 249 232 171 253 237 182 174 139 37 239 228 192 202 168 50 209 174 52 210 173 51 214 179 60 222 188 68 210 174 70 224 193 81 208 180 89 254 254 254 225 200 105 232 208 118 220 202 138 252 229 143 252 235 160 205 200 181 186 147 30 202 156 27 251 235 189 255 244 201 216 216 216 233 228 211 193 161 65 207 177 72 230 197 73 252 249 237 252 251 244 208 183 100 213 188 101 231 202 112 206 189 131 252 230 145 254 225 148 254 228 160 254 233 176 187 149 35 198 153 27 211 211 211 215 215 215 248 241 209 225 225 225 223 192 70 231 231 231 231 201 81 225 195 86 253 253 253 219 192 114 251 228 125 243 221 145 253 226 149 247 229 168 252 236 180 201 155 26 253 243 195 255 240 196 255 239 199 217 217 217 220 185 61 254 249 224 223 188 69 232 203 81 244 244 244 252 252 252 211 183 100 236 208 111 227 205 125 252 230 144 253 226 148 236 222 171 197 156 25 202 156 26 190 149 32 187 154 48 197 165 54 203 172 59 215 179 59 224 224 224 228 196 72 236 236 236 210 184 89 249 249 249 250 223 100 251 225 111 217 194 122 233 215 148 246 222 149 253 230 161 186 145 25 200 158 27 251 236 189 209 209 209 205 168 48 218 218 218 208 177 64 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 ]; |
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
88 |
mask:((ImageMask new) |
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
89 |
width:22; |
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
90 |
height:22; |
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
91 |
bits:(ByteArray |
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
92 |
fromPackedString:'@@@@@@@@@@@@@O0@@?<@A?>@A??@A??@A??@A??@A??@A??@C??@C??@O??@G??@C??@@??@D_>@C>@@A<@@@@@@'); |
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
93 |
yourself); |
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
94 |
yourself |
08dfb5fbd76e
Change images to use ImageMask instances instead of Depth1Image instances as
Stefan Vogel <sv@exept.de>
parents:
14313
diff
changeset
|
95 |
] |
9824 | 96 |
! ! |
97 |
||
98 |
!StoreSourceCodeManagementSettingsAppl class methodsFor:'interface specs'! |
|
99 |
||
100 |
windowSpec |
|
101 |
"This resource specification was automatically generated |
|
102 |
by the UIPainter of ST/X." |
|
103 |
||
104 |
"Do not manually edit this!! If it is corrupted, |
|
105 |
the UIPainter may not be able to read the specification." |
|
106 |
||
107 |
" |
|
108 |
UIPainter new openOnClass:StoreSourceCodeManagementSettingsAppl andSelector:#windowSpec |
|
109 |
StoreSourceCodeManagementSettingsAppl new openInterface:#windowSpec |
|
110 |
StoreSourceCodeManagementSettingsAppl open |
|
111 |
" |
|
112 |
||
113 |
<resource: #canvas> |
|
114 |
||
115 |
^ |
|
14313
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
116 |
#(FullSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
117 |
name: windowSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
118 |
window: |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
119 |
(WindowSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
120 |
label: 'Source Code Manager Settings' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
121 |
name: 'Source Code Manager Settings' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
122 |
flags: 1 |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
123 |
min: (Point 10 10) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
124 |
bounds: (Rectangle 0 0 670 514) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
125 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
126 |
component: |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
127 |
(SpecCollection |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
128 |
collection: ( |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
129 |
(VerticalPanelViewSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
130 |
name: 'VerticalPanel3' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
131 |
layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
132 |
horizontalLayout: fit |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
133 |
verticalLayout: topSpace |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
134 |
horizontalSpace: 3 |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
135 |
verticalSpace: 4 |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
136 |
component: |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
137 |
(SpecCollection |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
138 |
collection: ( |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
139 |
(LabelSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
140 |
label: 'Experimental (Only for Transport)' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
141 |
name: 'Label10' |
16152 | 142 |
style: (FontDescription #'Segoe UI' medium roman 16 #'ms-default' nil nil) |
143 |
foregroundColor: (Color 87.0 0.0 0.0) |
|
14313
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
144 |
translateLabel: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
145 |
extent: (Point 670 37) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
146 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
147 |
(FramedBoxSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
148 |
label: 'Store-DB Source Repository Settings' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
149 |
name: 'StoreSetupBox' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
150 |
labelPosition: topLeft |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
151 |
translateLabel: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
152 |
component: |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
153 |
(SpecCollection |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
154 |
collection: ( |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
155 |
(ComboBoxSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
156 |
name: 'ComboBox1' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
157 |
layout: (LayoutFrame 44 0.25 222 0 0 1 244 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
158 |
tabable: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
159 |
model: perStoreModuleRoot |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
160 |
acceptChannel: acceptChannel |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
161 |
acceptOnPointerLeave: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
162 |
comboList: sampleModuleList |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
163 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
164 |
(CheckBoxSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
165 |
label: 'Show in Browser Menus' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
166 |
name: 'CheckBox1' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
167 |
layout: (LayoutFrame 0 0 5 0 0 1 27 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
168 |
activeHelpKey: shownInBrowserMenus |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
169 |
model: shownInBrowserMenusHolder |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
170 |
translateLabel: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
171 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
172 |
(ViewSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
173 |
name: 'HostBox' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
174 |
layout: (LayoutFrame 0 0 40 0 0 1 65 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
175 |
component: |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
176 |
(SpecCollection |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
177 |
collection: ( |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
178 |
(LabelSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
179 |
label: 'DB or DB@Host:' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
180 |
name: 'StoreHostLabel' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
181 |
layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
182 |
level: 0 |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
183 |
translateLabel: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
184 |
adjust: right |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
185 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
186 |
(ComboBoxSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
187 |
name: 'StoreHostComboBox' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
188 |
layout: (LayoutFrame 44 0.25 0 0 0 1 22 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
189 |
tabable: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
190 |
model: storeHostnameHolder |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
191 |
immediateAccept: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
192 |
acceptOnLeave: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
193 |
acceptOnReturn: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
194 |
acceptOnTab: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
195 |
acceptOnLostFocus: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
196 |
acceptChannel: acceptChannel |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
197 |
acceptOnPointerLeave: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
198 |
comboList: storeHostPrototypeList |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
199 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
200 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
201 |
|
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
202 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
203 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
204 |
(ViewSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
205 |
name: 'UserBox' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
206 |
layout: (LayoutFrame 0 0.0 67 0 0 1 92 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
207 |
component: |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
208 |
(SpecCollection |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
209 |
collection: ( |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
210 |
(LabelSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
211 |
label: 'Username:' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
212 |
name: 'StoreUserLabel' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
213 |
layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
214 |
level: 0 |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
215 |
translateLabel: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
216 |
adjust: right |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
217 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
218 |
(InputFieldSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
219 |
name: 'StoreUserEntryField' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
220 |
layout: (LayoutFrame 44 0.25 0 0 0 1 22 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
221 |
tabable: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
222 |
model: storeUsernameHolder |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
223 |
acceptChannel: acceptChannel |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
224 |
acceptOnPointerLeave: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
225 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
226 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
227 |
|
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
228 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
229 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
230 |
(ViewSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
231 |
name: 'PasswordBox' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
232 |
layout: (LayoutFrame 0 0.0 94 0 0 1 119 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
233 |
component: |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
234 |
(SpecCollection |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
235 |
collection: ( |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
236 |
(LabelSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
237 |
label: 'Password:' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
238 |
name: 'Label7' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
239 |
layout: (LayoutFrame 0 0.0 0 0 40 0.25 22 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
240 |
level: 0 |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
241 |
translateLabel: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
242 |
adjust: right |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
243 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
244 |
(InputFieldSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
245 |
name: 'PasswordEntryField' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
246 |
layout: (LayoutFrame 44 0.25 0 0 -130 1 22 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
247 |
tabable: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
248 |
model: storePasswordHolder |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
249 |
type: password |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
250 |
acceptChannel: acceptChannel |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
251 |
acceptOnPointerLeave: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
252 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
253 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
254 |
|
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
255 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
256 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
257 |
(HorizontalPanelViewSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
258 |
name: 'HorizontalPanel4' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
259 |
layout: (LayoutFrame -130 1 91 0 0 1 122 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
260 |
horizontalLayout: fitSpace |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
261 |
verticalLayout: center |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
262 |
horizontalSpace: 3 |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
263 |
verticalSpace: 3 |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
264 |
component: |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
265 |
(SpecCollection |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
266 |
collection: ( |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
267 |
(ActionButtonSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
268 |
label: 'Try to Connect' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
269 |
name: 'TryConnectButton1' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
270 |
translateLabel: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
271 |
tabable: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
272 |
model: storeConnect |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
273 |
enableChannel: storeConnectEnabled |
16152 | 274 |
extent: (Point 122 22) |
9824 | 275 |
) |
14313
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
276 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
277 |
|
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
278 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
279 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
280 |
(LabelSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
281 |
label: 'DB per Module:' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
282 |
name: 'Label4' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
283 |
layout: (LayoutFrame 0 0.0 122 0 40 0.25 144 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
284 |
translateLabel: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
285 |
adjust: right |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
286 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
287 |
(SequenceViewSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
288 |
name: 'List2' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
289 |
layout: (LayoutFrame 44 0.25 122 0 0 1 220 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
290 |
tabable: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
291 |
model: selectedPerStoreModuleRoot |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
292 |
hasHorizontalScrollBar: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
293 |
hasVerticalScrollBar: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
294 |
miniScrollerHorizontal: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
295 |
useIndex: false |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
296 |
sequenceList: listOfModules |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
297 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
298 |
(LabelSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
299 |
label: 'Module:' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
300 |
name: 'perModuleModuleLabel' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
301 |
layout: (LayoutFrame 0 0.0 226 0 40 0.25 243 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
302 |
translateLabel: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
303 |
adjust: right |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
304 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
305 |
(LabelSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
306 |
label: 'DB:' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
307 |
name: 'perModuleDBLabel' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
308 |
layout: (LayoutFrame 0 0.0 251 0 40 0.25 268 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
309 |
translateLabel: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
310 |
adjust: right |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
311 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
312 |
(ComboBoxSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
313 |
name: 'perModuleModuleHostComboBox2' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
314 |
layout: (LayoutFrame 44 0.25 247 0 0 1 269 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
315 |
tabable: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
316 |
model: perStoreModuleHostnameHolder |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
317 |
immediateAccept: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
318 |
acceptOnLeave: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
319 |
acceptOnReturn: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
320 |
acceptOnTab: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
321 |
acceptOnLostFocus: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
322 |
acceptChannel: acceptChannel |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
323 |
acceptOnPointerLeave: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
324 |
comboList: storeHostPrototypeList |
11066
906c882b32d1
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11008
diff
changeset
|
325 |
) |
14313
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
326 |
(LabelSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
327 |
label: 'User / Password:' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
328 |
name: 'perModuleUserPasswordLabel' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
329 |
layout: (LayoutFrame 0 0.0 276 0 40 0.25 293 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
330 |
translateLabel: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
331 |
adjust: right |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
332 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
333 |
(InputFieldSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
334 |
name: 'perModuleUserEntryField' |
16152 | 335 |
layout: (LayoutFrame 44 0.25 272 0 -2 0.65000000000000013 294 0) |
14313
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
336 |
tabable: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
337 |
model: perStoreModuleUsernameHolder |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
338 |
acceptChannel: acceptChannel |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
339 |
acceptOnPointerLeave: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
340 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
341 |
(InputFieldSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
342 |
name: 'perModulePasswordEntryField' |
16152 | 343 |
layout: (LayoutFrame 5 0.65000000000000013 272 0 0 1 294 0) |
14313
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
344 |
tabable: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
345 |
model: perStoreModulePasswordHolder |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
346 |
type: password |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
347 |
acceptChannel: acceptChannel |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
348 |
acceptOnPointerLeave: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
349 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
350 |
(HorizontalPanelViewSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
351 |
name: 'HorizontalPanel5' |
16152 | 352 |
layout: (LayoutFrame 44 0.25 298 0 -5 0.65000000000000013 329 0) |
14313
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
353 |
horizontalLayout: fit |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
354 |
verticalLayout: center |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
355 |
horizontalSpace: 3 |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
356 |
verticalSpace: 3 |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
357 |
component: |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
358 |
(SpecCollection |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
359 |
collection: ( |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
360 |
(ActionButtonSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
361 |
label: 'Add/Apply' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
362 |
name: 'AddButton2' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
363 |
translateLabel: true |
16152 | 364 |
resizeForLabel: true |
14313
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
365 |
tabable: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
366 |
model: addPerStoreModuleDB |
16152 | 367 |
extent: (Point 97 27) |
14313
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
368 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
369 |
(ActionButtonSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
370 |
label: 'Remove' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
371 |
name: 'RemoveButton3' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
372 |
translateLabel: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
373 |
tabable: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
374 |
model: removePerStoreModuleDB |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
375 |
enableChannel: removeEnabled |
16152 | 376 |
extent: (Point 98 27) |
9824 | 377 |
) |
14313
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
378 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
379 |
|
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
380 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
381 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
382 |
(HorizontalPanelViewSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
383 |
name: 'HorizontalPanel6' |
16152 | 384 |
layout: (LayoutFrame 5 0.65000000000000013 298 0 0 1 329 0) |
14313
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
385 |
horizontalLayout: fit |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
386 |
verticalLayout: center |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
387 |
horizontalSpace: 3 |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
388 |
verticalSpace: 3 |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
389 |
component: |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
390 |
(SpecCollection |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
391 |
collection: ( |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
392 |
(ActionButtonSpec |
16152 | 393 |
label: 'Try Connect' |
14313
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
394 |
name: 'ConnectPerStoreModuleButton' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
395 |
translateLabel: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
396 |
tabable: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
397 |
model: connectPerStoreModuleDB |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
398 |
enableChannel: storeConnectInModuleEnabled |
16152 | 399 |
extent: (Point 103 27) |
14313
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
400 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
401 |
(ActionButtonSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
402 |
label: 'Browse' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
403 |
name: 'BrowsePerStoreModuleButton' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
404 |
translateLabel: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
405 |
tabable: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
406 |
model: browsePerStoreModuleDB |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
407 |
enableChannel: storeConnectInModuleEnabled |
16152 | 408 |
extent: (Point 104 27) |
11066
906c882b32d1
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11008
diff
changeset
|
409 |
) |
14313
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
410 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
411 |
|
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
412 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
413 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
414 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
415 |
|
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
416 |
) |
16152 | 417 |
extent: (Point 670 365) |
14313
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
418 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
419 |
(FramedBoxSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
420 |
label: 'Source Cache' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
421 |
name: 'FramedBox1' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
422 |
visibilityChannel: false |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
423 |
labelPosition: topLeft |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
424 |
translateLabel: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
425 |
component: |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
426 |
(SpecCollection |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
427 |
collection: ( |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
428 |
(ViewSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
429 |
name: 'SourceCacheDirBox' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
430 |
layout: (LayoutFrame 0 0 0 0 0 1 30 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
431 |
component: |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
432 |
(SpecCollection |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
433 |
collection: ( |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
434 |
(LabelSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
435 |
label: 'Source Cache Dir:' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
436 |
name: 'SourceCacheDirLabel' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
437 |
layout: (LayoutFrame 0 0.0 0 0 60 0.25 22 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
438 |
translateLabel: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
439 |
adjust: right |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
440 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
441 |
(InputFieldSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
442 |
name: 'SourceCacheDirEntryField' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
443 |
layout: (LayoutFrame 64 0.25 0 0 0 1 22 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
444 |
enableChannel: useManager |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
445 |
model: sourceCacheDir |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
446 |
immediateAccept: false |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
447 |
acceptOnReturn: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
448 |
acceptOnTab: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
449 |
acceptOnLostFocus: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
450 |
acceptOnPointerLeave: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
451 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
452 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
453 |
|
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
454 |
) |
9824 | 455 |
) |
14313
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
456 |
(HorizontalPanelViewSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
457 |
name: 'CacheActionsHorizontalPanel' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
458 |
layout: (LayoutFrame 44 0.25 33 0 0 1 67 0) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
459 |
horizontalLayout: fitSpace |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
460 |
verticalLayout: center |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
461 |
horizontalSpace: 3 |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
462 |
verticalSpace: 3 |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
463 |
component: |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
464 |
(SpecCollection |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
465 |
collection: ( |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
466 |
(ActionButtonSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
467 |
label: 'Flush Cache now' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
468 |
name: 'FlushCacheNowButton' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
469 |
translateLabel: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
470 |
tabable: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
471 |
model: flushSourceCache |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
472 |
enableChannel: useManager |
16152 | 473 |
extent: (Point 206 22) |
14313
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
474 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
475 |
(ActionButtonSpec |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
476 |
label: 'Condense Cache now' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
477 |
name: 'CondenseCacheNowButton' |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
478 |
translateLabel: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
479 |
tabable: true |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
480 |
model: condenseSourceCache |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
481 |
enableChannel: useManager |
16152 | 482 |
extent: (Point 206 22) |
14313
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
483 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
484 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
485 |
|
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
486 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
487 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
488 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
489 |
|
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
490 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
491 |
extent: (Point 670 95) |
9824 | 492 |
) |
14313
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
493 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
494 |
|
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
495 |
) |
9824 | 496 |
) |
14313
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
497 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
498 |
|
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
499 |
) |
3338540e6a25
class: StoreSourceCodeManagementSettingsAppl
Claus Gittinger <cg@exept.de>
parents:
14245
diff
changeset
|
500 |
) |
9824 | 501 |
! ! |
502 |
||
9857 | 503 |
!StoreSourceCodeManagementSettingsAppl class methodsFor:'queries'! |
504 |
||
505 |
managerClass |
|
506 |
"backlink to my manager class (needed by the settings app)" |
|
507 |
||
508 |
^ StoreSourceCodeManager |
|
509 |
||
510 |
"Created: / 19-04-2011 / 12:48:57 / cg" |
|
511 |
! ! |
|
512 |
||
9824 | 513 |
!StoreSourceCodeManagementSettingsAppl methodsFor:'actions'! |
514 |
||
515 |
addModule:module withData:data |
|
516 |
(self listOfModules includes:module) ifFalse:[ |
|
517 |
self listOfModules add:module; sort. |
|
518 |
]. |
|
519 |
rootsPerModule at:module put:data. |
|
520 |
||
521 |
self updateModifiedChannel. |
|
522 |
||
523 |
"Created: / 08-11-2006 / 19:25:21 / cg" |
|
524 |
! |
|
525 |
||
526 |
basicReadSettings |
|
527 |
self initialize. |
|
528 |
||
529 |
self sourceCacheDir value:(StoreSourceCodeManager cacheDirectoryName). |
|
530 |
||
531 |
"/ StoreSourceCodeManager forgetDisabledModules. |
|
532 |
self storeHostnameHolder value: (StoreSourceCodeManager hostAndDBName). |
|
533 |
self storeUsernameHolder value: (StoreSourceCodeManager userName). |
|
534 |
self storePasswordHolder value: (StoreSourceCodeManager password). |
|
11072
4dad2f9f15c6
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11066
diff
changeset
|
535 |
self shownInBrowserMenusHolder value:StoreSourceCodeManager shownInBrowserMenus. |
9824 | 536 |
|
537 |
(Array with:StoreSourceCodeManager) "self availableManagers" do:[:eachManager | |
|
538 |
|infoPerModule| |
|
539 |
||
540 |
infoPerModule := eachManager repositoryInfoPerModule. |
|
541 |
infoPerModule keysAndValuesDo:[:module :info | |
|
542 |
rootsPerModule at:module put:(Array with:eachManager with:info). |
|
543 |
]. |
|
544 |
]. |
|
545 |
||
546 |
"/ self updateSelectedManager. |
|
547 |
||
548 |
rootsPerModule notNil ifTrue:[ |
|
549 |
self listOfModules removeAll. |
|
550 |
listOfModules addAll:rootsPerModule keys asList. |
|
551 |
]. |
|
552 |
"/ self selectedPerModuleRootChanged. |
|
553 |
||
11072
4dad2f9f15c6
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11066
diff
changeset
|
554 |
"Modified: / 10-01-2012 / 00:21:13 / cg" |
9824 | 555 |
! |
556 |
||
557 |
basicSaveSettings |
|
11072
4dad2f9f15c6
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11066
diff
changeset
|
558 |
|modules nm fn infoPerModule| |
9824 | 559 |
|
560 |
nm := self sourceCacheDir value. |
|
561 |
nm notEmptyOrNil ifTrue:[ |
|
562 |
(fn := nm asFilename) exists ifFalse:[ |
|
563 |
(self confirm:('Cache directory ''' , nm , ''' does not exist\create ?' withCRs)) ifTrue:[ |
|
564 |
fn recursiveMakeDirectory; |
|
565 |
makeReadableForAll; |
|
566 |
makeWritableForAll; |
|
567 |
makeExecutableForAll. |
|
568 |
] |
|
569 |
]. |
|
13237 | 570 |
(fn isWritableDirectory and:[fn isReadable]) ifTrue:[ |
9824 | 571 |
StoreSourceCodeManager cacheDirectoryName:nm. |
572 |
] ifFalse:[ |
|
573 |
self warn:'Invalid sourceCache directory.' |
|
574 |
] |
|
575 |
]. |
|
576 |
||
11072
4dad2f9f15c6
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11066
diff
changeset
|
577 |
modules := rootsPerModule select:[:entry | entry first == StoreSourceCodeManager]. |
4dad2f9f15c6
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11066
diff
changeset
|
578 |
infoPerModule := Dictionary new. |
4dad2f9f15c6
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11066
diff
changeset
|
579 |
modules keysAndValuesDo:[:module :entry | |
4dad2f9f15c6
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11066
diff
changeset
|
580 |
entry first == StoreSourceCodeManager ifTrue:[ |
4dad2f9f15c6
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11066
diff
changeset
|
581 |
infoPerModule at:module put:(entry second). |
9824 | 582 |
]. |
583 |
]. |
|
11072
4dad2f9f15c6
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11066
diff
changeset
|
584 |
StoreSourceCodeManager repositoryInfoPerModule:infoPerModule. |
4dad2f9f15c6
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11066
diff
changeset
|
585 |
|
4dad2f9f15c6
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11066
diff
changeset
|
586 |
StoreSourceCodeManager shownInBrowserMenus:self shownInBrowserMenusHolder value. |
9824 | 587 |
|
588 |
self basicSaveStoreSettings. |
|
589 |
||
590 |
self sourceCacheDir value:(StoreSourceCodeManager cacheDirectoryName). |
|
591 |
||
592 |
DebugView newDebugger. "/ ??? |
|
593 |
||
594 |
self acceptChannel value. |
|
595 |
||
11072
4dad2f9f15c6
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11066
diff
changeset
|
596 |
"Modified: / 10-01-2012 / 00:22:56 / cg" |
9824 | 597 |
! |
598 |
||
599 |
removePerModuleRoot |
|
600 |
||
601 |
|module| |
|
602 |
||
603 |
acceptChannel value:true. |
|
604 |
module := self perModuleRootModule value. |
|
605 |
self listOfModules remove:module ifAbsent:nil. |
|
606 |
rootsPerModule removeKey:module ifAbsent:nil. |
|
607 |
self perModuleRootModule value:nil. |
|
608 |
self perModuleRoot value:nil. |
|
609 |
self updateModifiedChannel. |
|
610 |
! |
|
611 |
||
612 |
setupSourceCodeManager |
|
613 |
||
614 |
AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog. |
|
615 |
manager := (Smalltalk at:#SourceCodeManager). |
|
616 |
manager notNil ifTrue:[ |
|
617 |
repositoryHolder value: manager repositoryName. |
|
618 |
sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName). |
|
619 |
]. |
|
620 |
||
621 |
"Modified: / 16-08-2006 / 11:07:51 / cg" |
|
622 |
! ! |
|
623 |
||
624 |
!StoreSourceCodeManagementSettingsAppl methodsFor:'actions - store'! |
|
625 |
||
626 |
addPerStoreModuleDB |
|
627 |
|module info| |
|
628 |
||
629 |
acceptChannel value:true. |
|
630 |
||
631 |
module := self perStoreModuleRoot value. |
|
632 |
info := StoreSourceCodeManager newDBInfo. |
|
633 |
info hostAndDBName:perStoreModuleHostnameHolder value. |
|
634 |
info userName:perStoreModuleUsernameHolder value. |
|
635 |
info password:perStoreModulePasswordHolder value. |
|
636 |
||
637 |
self addModule:module withData:(Array with:StoreSourceCodeManager with:info). |
|
638 |
||
639 |
"Modified: / 08-11-2006 / 19:27:35 / cg" |
|
640 |
! |
|
641 |
||
642 |
basicSaveStoreSettings |
|
643 |
|storeHost| |
|
644 |
||
11076
a20cca29f843
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11072
diff
changeset
|
645 |
self storeHostnameHolder value notEmptyOrNil ifTrue:[ |
a20cca29f843
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11072
diff
changeset
|
646 |
StoreSourceCodeManager hostAndDBName:(storeHost := self storeHostnameHolder value withoutSeparators). |
a20cca29f843
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11072
diff
changeset
|
647 |
StoreSourceCodeManager userName:(self storeUsernameHolder value withoutSeparators). |
a20cca29f843
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11072
diff
changeset
|
648 |
StoreSourceCodeManager password:(self storePasswordHolder value withoutSeparators). |
a20cca29f843
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11072
diff
changeset
|
649 |
]. |
9824 | 650 |
|
651 |
storeHost notEmptyOrNil ifTrue:[ |
|
652 |
StoreSourceCodeManager connectToDatabase. |
|
653 |
]. |
|
654 |
||
655 |
RecentlyUsedStoreHosts isNil ifTrue:[ |
|
656 |
RecentlyUsedStoreHosts := OrderedCollection new. |
|
657 |
]. |
|
658 |
(RecentlyUsedStoreHosts includes:storeHost) ifFalse:[ |
|
659 |
RecentlyUsedStoreHosts addFirst:storeHost. |
|
660 |
RecentlyUsedStoreHosts size > 20 ifTrue:[ |
|
661 |
RecentlyUsedStoreHosts removeLast. |
|
662 |
]. |
|
663 |
]. |
|
11076
a20cca29f843
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11072
diff
changeset
|
664 |
|
a20cca29f843
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11072
diff
changeset
|
665 |
"Modified: / 10-01-2012 / 00:32:42 / cg" |
9824 | 666 |
! |
667 |
||
668 |
browsePerStoreModuleDB |
|
669 |
|testInfo| |
|
670 |
||
671 |
testInfo := StoreSourceCodeManager newDBInfo. |
|
672 |
testInfo hostAndDBName:(perStoreModuleHostnameHolder value). |
|
673 |
testInfo userName:(perStoreModuleUsernameHolder value). |
|
674 |
testInfo password:(perStoreModulePasswordHolder value). |
|
675 |
self browseStoreDB:testInfo |
|
676 |
! |
|
677 |
||
678 |
browseStoreDB:dbInfo |
|
679 |
Tools::StoreProjectBrowser openOn:dbInfo |
|
680 |
! |
|
681 |
||
682 |
connectPerStoreModuleDB |
|
683 |
|testInfo| |
|
684 |
||
685 |
testInfo := StoreSourceCodeManager newDBInfo. |
|
686 |
testInfo hostAndDBName:(perStoreModuleHostnameHolder value). |
|
687 |
testInfo userName:(perStoreModuleUsernameHolder value). |
|
688 |
testInfo password:(perStoreModulePasswordHolder value). |
|
689 |
||
690 |
(self tryToConnectTo:testInfo) |
|
691 |
! |
|
692 |
||
693 |
storeConnect |
|
694 |
|testInfo| |
|
695 |
||
696 |
testInfo := StoreSourceCodeManager newDBInfo. |
|
697 |
testInfo hostAndDBName:(storeHostnameHolder value). |
|
698 |
testInfo userName:(storeUsernameHolder value). |
|
699 |
testInfo password:(storePasswordHolder value). |
|
700 |
||
701 |
(self tryToConnectTo:testInfo) ifTrue:[ |
|
702 |
LastStoreHost := storeHostnameHolder value. |
|
703 |
LastStoreUser := storeUsernameHolder value. |
|
704 |
LastStorePassword := storePasswordHolder value. |
|
705 |
]. |
|
706 |
! |
|
707 |
||
708 |
tryToConnectTo:dbInfo |
|
709 |
|session| |
|
710 |
||
711 |
SQL::SQLError handle:[:ex | |
|
712 |
self warn:('Failed to connect to Database:\\' withCRs,ex description). |
|
713 |
^ false. |
|
714 |
] do:[ |
|
715 |
self withWaitCursorDo:[ |
|
716 |
session := StoreSourceCodeManager tryToConnectToDatabase:dbInfo. |
|
717 |
] |
|
718 |
]. |
|
719 |
session isNil ifTrue:[ |
|
720 |
self warn:'OOPS - Failed to connect'. |
|
721 |
^ false. |
|
722 |
]. |
|
723 |
||
724 |
self information:('Successfully connected to ',dbInfo dbName,'.'). |
|
725 |
session disconnect. |
|
726 |
^ true |
|
727 |
! ! |
|
728 |
||
729 |
!StoreSourceCodeManagementSettingsAppl methodsFor:'aspects'! |
|
730 |
||
731 |
acceptChannel |
|
732 |
||
733 |
acceptChannel isNil ifTrue:[ |
|
734 |
acceptChannel := TriggerValue new. |
|
735 |
]. |
|
736 |
^ acceptChannel. |
|
737 |
! |
|
738 |
||
11327 | 739 |
initialListOfModules |
740 |
^ rootsPerModule keys asList sort. |
|
9824 | 741 |
|
11327 | 742 |
"Created: / 02-03-2012 / 14:42:39 / cg" |
9824 | 743 |
! |
744 |
||
745 |
managerIsCVSSourceCodeManager |
|
746 |
managerIsCVSSourceCodeManager isNil ifTrue:[ |
|
747 |
managerIsCVSSourceCodeManager := (SourceCodeManager notNil and: |
|
748 |
[SourceCodeManager isCVS]) asValue. |
|
749 |
]. |
|
750 |
^ managerIsCVSSourceCodeManager. |
|
751 |
||
752 |
"Created: / 16-08-2006 / 10:56:38 / cg" |
|
753 |
! |
|
754 |
||
755 |
managerIsSmallTeamSourceCodeManager |
|
756 |
managerIsSmallTeamSourceCodeManager isNil ifTrue:[ |
|
757 |
managerIsSmallTeamSourceCodeManager := (SourceCodeManager notNil and: |
|
758 |
[SourceCodeManager isSmallTeam]) asValue. |
|
759 |
]. |
|
760 |
^ managerIsSmallTeamSourceCodeManager. |
|
761 |
||
762 |
"Created: / 09-11-2006 / 14:33:53 / cg" |
|
763 |
! |
|
764 |
||
765 |
managerIsStoreSourceCodeManager |
|
766 |
managerIsStoreSourceCodeManager isNil ifTrue:[ |
|
767 |
managerIsStoreSourceCodeManager := (SourceCodeManager notNil and: |
|
768 |
[SourceCodeManager isStore]) asValue. |
|
769 |
]. |
|
770 |
^ managerIsStoreSourceCodeManager. |
|
771 |
||
772 |
"Created: / 16-08-2006 / 10:57:13 / cg" |
|
773 |
! |
|
774 |
||
775 |
perModuleFieldsEnableHolder |
|
776 |
||
777 |
perModuleFieldsEnableHolder isNil ifTrue:[ |
|
778 |
perModuleFieldsEnableHolder := true asValue. |
|
779 |
perModuleFieldsEnableHolder addDependent:self. |
|
780 |
]. |
|
781 |
^ perModuleFieldsEnableHolder. |
|
782 |
! |
|
783 |
||
784 |
perModuleRoot |
|
785 |
perModuleRoot isNil ifTrue:[ |
|
786 |
perModuleRoot := ValueHolder new. |
|
787 |
perModuleRoot addDependent:self. |
|
788 |
]. |
|
789 |
^ perModuleRoot. |
|
790 |
! |
|
791 |
||
792 |
perModuleRootModule |
|
793 |
perModuleRootModule isNil ifTrue:[ |
|
794 |
perModuleRootModule := ValueHolder new. |
|
795 |
]. |
|
796 |
^ perModuleRootModule. |
|
797 |
! |
|
798 |
||
799 |
perStoreModuleFieldsEnableHolder |
|
800 |
||
801 |
perSmallTeamModuleFieldsEnableHolder isNil ifTrue:[ |
|
802 |
perSmallTeamModuleFieldsEnableHolder := true asValue. |
|
803 |
perSmallTeamModuleFieldsEnableHolder addDependent:self. |
|
804 |
]. |
|
805 |
^ perSmallTeamModuleFieldsEnableHolder. |
|
806 |
! |
|
807 |
||
808 |
perStoreModuleHostnameHolder |
|
809 |
||
810 |
perStoreModuleHostnameHolder isNil ifTrue:[ |
|
811 |
perStoreModuleHostnameHolder := '' asValue. |
|
812 |
perStoreModuleHostnameHolder addDependent:self. |
|
813 |
]. |
|
814 |
^ perStoreModuleHostnameHolder. |
|
815 |
! |
|
816 |
||
817 |
perStoreModulePasswordHolder |
|
818 |
||
819 |
perStoreModulePasswordHolder isNil ifTrue:[ |
|
820 |
perStoreModulePasswordHolder := '' asValue. |
|
821 |
perStoreModulePasswordHolder addDependent:self. |
|
822 |
]. |
|
823 |
^ perStoreModulePasswordHolder. |
|
824 |
! |
|
825 |
||
826 |
perStoreModuleRoot |
|
827 |
perStoreModuleRoot isNil ifTrue:[ |
|
828 |
perStoreModuleRoot := ValueHolder new. |
|
829 |
perStoreModuleRoot addDependent:self. |
|
830 |
]. |
|
831 |
^ perStoreModuleRoot. |
|
832 |
! |
|
833 |
||
834 |
perStoreModuleRootModule |
|
835 |
perStoreModuleRootModule isNil ifTrue:[ |
|
836 |
perStoreModuleRootModule := ValueHolder new. |
|
837 |
]. |
|
838 |
^ perStoreModuleRootModule. |
|
839 |
! |
|
840 |
||
841 |
perStoreModuleUsernameHolder |
|
842 |
||
843 |
perStoreModuleUsernameHolder isNil ifTrue:[ |
|
844 |
perStoreModuleUsernameHolder := '' asValue. |
|
845 |
perStoreModuleUsernameHolder addDependent:self. |
|
846 |
]. |
|
847 |
^ perStoreModuleUsernameHolder. |
|
848 |
! |
|
849 |
||
850 |
selectedPerModuleRoot |
|
851 |
selectedPerModuleRoot isNil ifTrue:[ |
|
852 |
selectedPerModuleRoot := ValueHolder new. |
|
853 |
selectedPerModuleRoot addDependent:self. |
|
854 |
]. |
|
855 |
^ selectedPerModuleRoot. |
|
856 |
! |
|
857 |
||
858 |
selectedPerStoreModuleRoot |
|
859 |
selectedPerStoreModuleRoot isNil ifTrue:[ |
|
860 |
selectedPerStoreModuleRoot := ValueHolder new. |
|
861 |
selectedPerStoreModuleRoot addDependent:self. |
|
862 |
]. |
|
863 |
^ selectedPerStoreModuleRoot. |
|
864 |
! |
|
865 |
||
866 |
storeConnectEnabled |
|
867 |
storeConnectEnabled isNil ifTrue:[ |
|
868 |
storeConnectEnabled := false asValue. |
|
869 |
]. |
|
870 |
^ storeConnectEnabled. |
|
871 |
! |
|
872 |
||
873 |
storeConnectInModuleEnabled |
|
874 |
storeConnectInModuleEnabled isNil ifTrue:[ |
|
875 |
storeConnectInModuleEnabled := false asValue. |
|
876 |
]. |
|
877 |
^ storeConnectInModuleEnabled. |
|
878 |
! |
|
879 |
||
880 |
storeHostPrototypeList |
|
881 |
|prototypeList| |
|
882 |
||
883 |
storeHostPrototypeList isNil ifTrue:[ |
|
884 |
prototypeList := OrderedSet new. |
|
885 |
||
886 |
prototypeList add:('public@store.smalltalk-x.de:5432'). |
|
887 |
prototypeList add:('public'). |
|
888 |
prototypeList add:('stx'). |
|
889 |
||
890 |
OperatingSystem getLoginName = 'cg' ifTrue:[ |
|
891 |
prototypeList add:('oyster@store.smalltalk-x.de:5432'). |
|
892 |
prototypeList add:('oyster'). |
|
893 |
]. |
|
894 |
||
895 |
OperatingSystem getDomainName = 'exept.de' ifTrue:[ |
|
896 |
prototypeList add:('stx@exept.exept.de:5432'). |
|
897 |
] ifFalse:[ |
|
898 |
prototypeList add:('db@host'). |
|
899 |
prototypeList add:('db@host:port'). |
|
900 |
]. |
|
901 |
storeHostPrototypeList := prototypeList asOrderedCollection. |
|
902 |
]. |
|
903 |
^ storeHostPrototypeList. |
|
904 |
! |
|
905 |
||
906 |
storeHostnameHolder |
|
907 |
||
908 |
storeHostnameHolder isNil ifTrue:[ |
|
909 |
storeHostnameHolder := ("LastStoreHost ?" '') asValue. |
|
910 |
storeHostnameHolder addDependent:self. |
|
911 |
]. |
|
912 |
^ storeHostnameHolder. |
|
913 |
! |
|
914 |
||
915 |
storeLoginEnabled |
|
916 |
storeLoginEnabled isNil ifTrue:[ |
|
917 |
storeLoginEnabled := false asValue. |
|
918 |
]. |
|
919 |
^ storeLoginEnabled. |
|
920 |
||
921 |
"Created: / 16-08-2006 / 11:11:15 / cg" |
|
922 |
! |
|
923 |
||
924 |
storePasswordHolder |
|
925 |
||
926 |
storePasswordHolder isNil ifTrue:[ |
|
927 |
storePasswordHolder := ("LastStorePassword ?" '') asValue. |
|
928 |
storePasswordHolder addDependent:self. |
|
929 |
]. |
|
930 |
^ storePasswordHolder. |
|
931 |
! |
|
932 |
||
933 |
storeUsernameHolder |
|
934 |
||
935 |
storeUsernameHolder isNil ifTrue:[ |
|
936 |
storeUsernameHolder := ("LastStoreUser ?" '') asValue. |
|
937 |
storeUsernameHolder addDependent:self. |
|
938 |
]. |
|
939 |
^ storeUsernameHolder. |
|
940 |
! |
|
941 |
||
942 |
useManager |
|
943 |
useManager isNil ifTrue:[ |
|
944 |
useManager := ValueHolder new. |
|
945 |
useManager onChangeSend:#updateModifiedChannel to:self |
|
946 |
]. |
|
947 |
^ useManager. |
|
948 |
! ! |
|
949 |
||
950 |
!StoreSourceCodeManagementSettingsAppl methodsFor:'change & update'! |
|
951 |
||
952 |
selectedPerModuleRootChanged |
|
953 |
|module entry| |
|
954 |
||
955 |
self acceptChannel value:true. |
|
956 |
module := self selectedPerModuleRoot value. |
|
957 |
module isNil ifTrue:[ |
|
958 |
self removeEnabled value:false. |
|
959 |
self perModuleRootModule value:' '. |
|
960 |
self perModuleRoot value:''. |
|
961 |
^ self |
|
962 |
]. |
|
963 |
||
964 |
entry := rootsPerModule at:module ifAbsent:#(). |
|
965 |
(entry first = CVSSourceCodeManager) ifTrue:[ |
|
966 |
self removeEnabled value:true. |
|
967 |
self perModuleRootModule value:module. |
|
968 |
self perModuleRoot value:(entry at:2). |
|
969 |
] ifFalse:[ |
|
970 |
self removeEnabled value:false. |
|
971 |
self perModuleRootModule value:module , ' ',('<<use ',entry first managerTypeName,'>>') allBold. |
|
972 |
self perModuleRoot value:''. |
|
973 |
]. |
|
974 |
! |
|
975 |
||
976 |
selectedPerStoreModuleRootChanged |
|
977 |
|module entry| |
|
978 |
||
979 |
self acceptChannel value:true. |
|
980 |
||
981 |
module := self selectedPerStoreModuleRoot value. |
|
982 |
module isNil ifTrue:[ |
|
983 |
self removeEnabled value:false. |
|
984 |
self perStoreModuleRoot value:''. |
|
985 |
self perStoreModuleHostnameHolder value:''. |
|
986 |
self perStoreModuleUsernameHolder value:''. |
|
987 |
self perStoreModulePasswordHolder value:''. |
|
988 |
^ self |
|
989 |
]. |
|
990 |
||
991 |
entry := rootsPerModule at:module ifAbsent:#(). |
|
992 |
(entry first = StoreSourceCodeManager) ifTrue:[ |
|
993 |
self removeEnabled value:true. |
|
994 |
self perStoreModuleRoot value:module. |
|
995 |
self perStoreModuleHostnameHolder value:(entry at:2) hostAndDBName. |
|
996 |
self perStoreModuleUsernameHolder value:(entry at:2) userName. |
|
997 |
self perStoreModulePasswordHolder value:(entry at:2) password. |
|
998 |
] ifFalse:[ |
|
999 |
self removeEnabled value:false. |
|
1000 |
self perStoreModuleRoot value:module , ' ',('<<use ',entry first managerTypeName,'>>') allBold. |
|
1001 |
self perStoreModuleHostnameHolder value:''. |
|
1002 |
self perStoreModuleUsernameHolder value:''. |
|
1003 |
self perStoreModulePasswordHolder value:''. |
|
1004 |
]. |
|
1005 |
! |
|
1006 |
||
1007 |
update:something with:aParameter from:changedObject |
|
1008 |
"/ store |
|
1009 |
changedObject == storeHostnameHolder ifTrue:[ |
|
1010 |
self updateConnectEnableHolders. |
|
1011 |
^ self |
|
1012 |
]. |
|
1013 |
changedObject == storeUsernameHolder ifTrue:[ |
|
1014 |
self updateConnectEnableHolders. |
|
1015 |
^ self |
|
1016 |
]. |
|
1017 |
changedObject == storePasswordHolder ifTrue:[ |
|
1018 |
self updateConnectEnableHolders. |
|
1019 |
^ self |
|
1020 |
]. |
|
1021 |
changedObject == perStoreModuleRoot ifTrue:[ |
|
1022 |
self updateConnectEnableHolders. |
|
1023 |
^ self |
|
1024 |
]. |
|
1025 |
changedObject == perStoreModuleHostnameHolder ifTrue:[ |
|
1026 |
self updateConnectEnableHolders. |
|
1027 |
^ self |
|
1028 |
]. |
|
1029 |
changedObject == perStoreModuleUsernameHolder ifTrue:[ |
|
1030 |
self updateConnectEnableHolders. |
|
1031 |
^ self |
|
1032 |
]. |
|
1033 |
changedObject == perStoreModulePasswordHolder ifTrue:[ |
|
1034 |
self updateConnectEnableHolders. |
|
1035 |
^ self |
|
1036 |
]. |
|
1037 |
changedObject == selectedPerStoreModuleRoot ifTrue:[ |
|
1038 |
self selectedPerStoreModuleRootChanged. |
|
1039 |
^ self |
|
1040 |
]. |
|
1041 |
||
1042 |
super update:something with:aParameter from:changedObject |
|
1043 |
||
11656
7c2dda57187c
changed: #update:with:from:
Claus Gittinger <cg@exept.de>
parents:
11623
diff
changeset
|
1044 |
"Modified: / 24-07-2012 / 15:45:26 / cg" |
9824 | 1045 |
! |
1046 |
||
1047 |
updateConnectEnableHolders |
|
1048 |
self storeConnectEnabled |
|
1049 |
value:(storeHostnameHolder value notEmptyOrNil |
|
1050 |
and:[ storeUsernameHolder value notEmptyOrNil |
|
1051 |
and:[ storePasswordHolder value notEmptyOrNil ]]). |
|
1052 |
||
1053 |
self storeConnectInModuleEnabled |
|
1054 |
value:(perStoreModuleHostnameHolder value notEmptyOrNil |
|
1055 |
and:[ perStoreModuleUsernameHolder value notEmptyOrNil |
|
1056 |
and:[ perStoreModulePasswordHolder value notEmptyOrNil ]]). |
|
1057 |
! ! |
|
1058 |
||
1059 |
!StoreSourceCodeManagementSettingsAppl methodsFor:'help'! |
|
1060 |
||
14245 | 1061 |
editorHelpRelativeWikiURL |
1062 |
"the relative URL of the dialog-description in the Wiki" |
|
1063 |
||
1064 |
^ 'Settings_StoreDBSourceCodeManagerSettings' |
|
1065 |
! |
|
1066 |
||
9824 | 1067 |
helpFilename |
10481 | 1068 |
^ 'Launcher/storeDBSetup.html' |
1069 |
||
1070 |
"Modified: / 05-08-2011 / 09:20:28 / cg" |
|
9824 | 1071 |
! ! |
1072 |
||
1073 |
!StoreSourceCodeManagementSettingsAppl methodsFor:'initialization & release'! |
|
1074 |
||
1075 |
initialize |
|
1076 |
(AbstractSourceCodeManager notNil) ifTrue:[ AbstractSourceCodeManager autoload ]. |
|
1077 |
||
1078 |
useManager := false asValue. |
|
1079 |
useManager onChangeSend:#updateModifiedChannel to:self. |
|
1080 |
||
1081 |
sourceCacheDir := nil asValue. |
|
1082 |
sourceCacheDir addDependent:self. |
|
1083 |
||
1084 |
repositoryHolder := '' asValue. |
|
1085 |
rootsPerModule := Dictionary new. |
|
1086 |
||
11126 | 1087 |
StoreSourceCodeManager repositoryInfoPerModule |
1088 |
keysAndValuesDo:[:module :info | |
|
1089 |
module withoutSeparators ~= module ifTrue:[ |
|
1090 |
self halt:'should not happen any longer' |
|
9824 | 1091 |
]. |
11126 | 1092 |
rootsPerModule at:module put:(Array with:StoreSourceCodeManager with:info) |
1093 |
]. |
|
9824 | 1094 |
|
1095 |
super initialize. |
|
1096 |
||
11126 | 1097 |
"Modified: / 14-01-2012 / 20:28:30 / cg" |
9824 | 1098 |
! ! |
1099 |
||
1100 |
!StoreSourceCodeManagementSettingsAppl methodsFor:'queries'! |
|
1101 |
||
1102 |
cvsRootFromCVSRootFileOrNil |
|
1103 |
|cvsDir cvsRootFile cvsRoot| |
|
1104 |
||
1105 |
cvsDir := 'CVS' asFilename. |
|
1106 |
cvsDir isDirectory ifTrue:[ |
|
1107 |
cvsRootFile := cvsDir construct:'Root'. |
|
1108 |
cvsRootFile isReadable ifTrue:[ |
|
1109 |
cvsRoot := cvsRootFile contents firstIfEmpty:nil. |
|
1110 |
]. |
|
1111 |
]. |
|
1112 |
^ cvsRoot |
|
1113 |
! |
|
1114 |
||
1115 |
hasManager |
|
1116 |
"true if ANY source code management class is available" |
|
1117 |
||
1118 |
^ AbstractSourceCodeManager notNil and:[AbstractSourceCodeManager isLoaded] |
|
1119 |
! |
|
1120 |
||
1121 |
hasUnsavedChanges |
|
1122 |
((StoreSourceCodeManager cacheDirectoryName ? '') ~= (self sourceCacheDir value ? '')) ifTrue:[^ true]. |
|
1123 |
||
11076
a20cca29f843
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11072
diff
changeset
|
1124 |
(StoreSourceCodeManager shownInBrowserMenus ~= self shownInBrowserMenusHolder value) |
a20cca29f843
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11072
diff
changeset
|
1125 |
ifTrue:[^ true]. |
a20cca29f843
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11072
diff
changeset
|
1126 |
|
9824 | 1127 |
(Array with:StoreSourceCodeManager) "self availableManagers" do:[:mgr | |
1128 |
|modules| |
|
1129 |
||
1130 |
modules := rootsPerModule select:[:entry | entry first == mgr]. |
|
1131 |
||
1132 |
mgr repositoryInfoPerModule keysAndValuesDo:[:module :info | |
|
1133 |
((modules includesKey:module) and:[info = (modules at:module) second]) |
|
1134 |
ifFalse:[^ true]. |
|
1135 |
]. |
|
1136 |
modules keysAndValuesDo:[:module :info| |
|
1137 |
((mgr repositoryInfoPerModule includesKey:module) and:[(mgr repositoryInfoPerModule at:module) = info second]) |
|
1138 |
ifFalse:[^ true]. |
|
1139 |
]. |
|
1140 |
]. |
|
1141 |
||
1142 |
((StoreSourceCodeManager hostAndDBName ? '') ~= (self storeHostnameHolder value ? '') withoutSeparators) |
|
1143 |
ifTrue:[^ true]. |
|
1144 |
((StoreSourceCodeManager userName ? '') ~= (self storeUsernameHolder value ? '') withoutSeparators) |
|
1145 |
ifTrue:[^ true]. |
|
1146 |
((StoreSourceCodeManager password ? '') ~= (self storePasswordHolder value ? '') withoutSeparators) |
|
1147 |
ifTrue:[^ true]. |
|
1148 |
||
1149 |
^ false |
|
1150 |
||
11076
a20cca29f843
preps for \"showInBrowserMenus\"
Claus Gittinger <cg@exept.de>
parents:
11072
diff
changeset
|
1151 |
"Modified: / 10-01-2012 / 00:31:49 / cg" |
9824 | 1152 |
! ! |
1153 |
||
1154 |
!StoreSourceCodeManagementSettingsAppl class methodsFor:'documentation'! |
|
1155 |
||
11008
faed3b21631c
helpSpec, cache settings only in top page
Claus Gittinger <cg@exept.de>
parents:
10987
diff
changeset
|
1156 |
version |
16152 | 1157 |
^ '$Header$' |
11008
faed3b21631c
helpSpec, cache settings only in top page
Claus Gittinger <cg@exept.de>
parents:
10987
diff
changeset
|
1158 |
! |
faed3b21631c
helpSpec, cache settings only in top page
Claus Gittinger <cg@exept.de>
parents:
10987
diff
changeset
|
1159 |
|
9824 | 1160 |
version_CVS |
16152 | 1161 |
^ '$Header$' |
10031 | 1162 |
! |
1163 |
||
1164 |
version_SVN |
|
16152 | 1165 |
^ '$Id$' |
9824 | 1166 |
! ! |
13237 | 1167 |