|
7006
|
1 |
"{ Package: 'stx:libtool' }"
|
|
|
2 |
|
|
|
3 |
"{ NameSpace: Tools }"
|
|
|
4 |
|
|
|
5 |
ApplicationModel subclass:#StoreProjectBrowser
|
|
7010
|
6 |
instanceVariableNames:'dbInfo connection commentTextHolder packagesList
|
|
|
7 |
selectedVersionHolder versionsList selectedPackageHolder
|
|
|
8 |
packagesFilterHolder infoLabelHolder selectedBundleOrPackage
|
|
|
9 |
selectedVersion'
|
|
7006
|
10 |
classVariableNames:''
|
|
|
11 |
poolDictionaries:''
|
|
|
12 |
category:'System-SourceCodeManagement'
|
|
|
13 |
!
|
|
|
14 |
|
|
7008
|
15 |
Object subclass:#Pundle
|
|
|
16 |
instanceVariableNames:'name'
|
|
|
17 |
classVariableNames:''
|
|
|
18 |
poolDictionaries:''
|
|
|
19 |
privateIn:StoreProjectBrowser
|
|
|
20 |
!
|
|
|
21 |
|
|
|
22 |
StoreProjectBrowser::Pundle subclass:#Package
|
|
|
23 |
instanceVariableNames:''
|
|
|
24 |
classVariableNames:''
|
|
|
25 |
poolDictionaries:''
|
|
|
26 |
privateIn:StoreProjectBrowser
|
|
|
27 |
!
|
|
|
28 |
|
|
|
29 |
StoreProjectBrowser::Pundle subclass:#Bundle
|
|
|
30 |
instanceVariableNames:''
|
|
|
31 |
classVariableNames:''
|
|
|
32 |
poolDictionaries:''
|
|
|
33 |
privateIn:StoreProjectBrowser
|
|
|
34 |
!
|
|
|
35 |
|
|
|
36 |
Object subclass:#PundleVersion
|
|
7010
|
37 |
instanceVariableNames:'id pundle version user timestamp comment timestampInt commentId
|
|
8731
|
38 |
isBundle blessingLevel'
|
|
|
39 |
classVariableNames:''
|
|
|
40 |
poolDictionaries:''
|
|
|
41 |
privateIn:StoreProjectBrowser
|
|
|
42 |
!
|
|
|
43 |
|
|
|
44 |
Object subclass:#StoreProjectChangeSetReader
|
|
|
45 |
instanceVariableNames:'browser dbConnection bundleOrPackage version changeSet'
|
|
7008
|
46 |
classVariableNames:''
|
|
|
47 |
poolDictionaries:''
|
|
|
48 |
privateIn:StoreProjectBrowser
|
|
|
49 |
!
|
|
|
50 |
|
|
7006
|
51 |
!StoreProjectBrowser class methodsFor:'documentation'!
|
|
|
52 |
|
|
|
53 |
documentation
|
|
|
54 |
"
|
|
7011
|
55 |
An experimental first attempt to access a Store database.
|
|
|
56 |
As I dont have (and dont want) access to a VW implementation for reference,
|
|
|
57 |
the layout and contents of the tables has been guessed.
|
|
|
58 |
The goal is to be able to read public domain code from a store DB.
|
|
7006
|
59 |
"
|
|
|
60 |
!
|
|
|
61 |
|
|
|
62 |
examples
|
|
|
63 |
"
|
|
|
64 |
Starting the application:
|
|
|
65 |
[exBegin]
|
|
|
66 |
Tools::StoreProjectBrowser open
|
|
|
67 |
|
|
|
68 |
[exEnd]
|
|
|
69 |
|
|
|
70 |
more examples to be added:
|
|
|
71 |
[exBegin]
|
|
|
72 |
... add code fragment for
|
|
|
73 |
... executable example here ...
|
|
|
74 |
[exEnd]
|
|
|
75 |
"
|
|
|
76 |
! !
|
|
|
77 |
|
|
8731
|
78 |
!StoreProjectBrowser class methodsFor:'image specs'!
|
|
|
79 |
|
|
|
80 |
bundleImage
|
|
|
81 |
"This resource specification was automatically generated
|
|
|
82 |
by the ImageEditor of ST/X."
|
|
|
83 |
|
|
|
84 |
"Do not manually edit this!! If it is corrupted,
|
|
|
85 |
the ImageEditor may not be able to read the specification."
|
|
|
86 |
|
|
|
87 |
"
|
|
|
88 |
self bundleImage inspect
|
|
|
89 |
ImageEditor openOnClass:self andSelector:#bundleImage
|
|
|
90 |
Icon flushCachedIcons
|
|
|
91 |
"
|
|
|
92 |
|
|
|
93 |
<resource: #image>
|
|
|
94 |
|
|
|
95 |
^Icon
|
|
|
96 |
constantNamed:'Tools::StoreProjectBrowser class bundleImage'
|
|
|
97 |
ifAbsentPut:[(Depth8Image new) width: 17; height: 16; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
|
|
|
98 |
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BP$IBP$IBP$IBP$IBP@@@@@INS$9A!!\$BQ$YFRDI@@@@@@$9KSX?MP4IFP@*K0$@@@@@BS$C
|
|
|
99 |
E@PIEP$YJ#0VBP@@@@@IA!!PDBQ$IBSL<LP8I@@@@@@$WI@4IFQ$3N \XI $@@@@@BS SGP$@J!!DGL!!@^BP@@@@@IAQ,%BRDIBTMDN3\I@@@@@@%AH2,ABQHI
|
|
|
100 |
JS,(K $@@@@@BT@4OP(Z@ $*LB@''BP@@@@@IJ00\KC8KBRH_C4HI@@@@@@$IBP$IBP$IBP$IBP$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
|
|
|
101 |
@@@b') ; colorMapFromArray:#[229 232 255 221 221 160 202 203 179 252 253 186 222 223 196 240 241 213 247 248 218 219 223 255 255 255 255 0 0 0 216 216 156 200 201 178 209 210 185 219 220 194 192 194 214 178 181 214 209 214 255 224 226 255 212 211 153 240 241 177 249 249 184 217 217 192 194 196 214 245 246 217 214 219 255 241 243 255 212 212 153 235 236 173 206 207 183 216 217 192 186 189 214 181 184 214 194 200 255 227 229 255 199 204 255 231 231 169 245 245 181 214 214 190 189 192 214 178 182 214 199 205 255 231 233 255 227 230 255 226 225 164 204 205 181 255 255 189 180 184 214 196 198 214 198 205 255 219 222 255 215 218 255 240 241 255 225 226 164 245 245 180 253 252 187 183 187 214 243 244 215 249 249 219 223 226 255 204 209 255 223 227 255 221 220 160 202 202 179 250 249 184 235 237 208 238 239 211 176 180 214 215 219 255 210 214 255]; mask:((Depth1Image new) width: 17; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@A?@@A?O?9?O?9?O?9?O?9?O?9?O?9?O?9?O?9?O?9?O?9?O?9?O?9?@@A?@@A?') ; yourself); yourself]
|
|
|
102 |
! !
|
|
|
103 |
|
|
7006
|
104 |
!StoreProjectBrowser class methodsFor:'interface specs'!
|
|
|
105 |
|
|
|
106 |
windowSpec
|
|
|
107 |
"This resource specification was automatically generated
|
|
|
108 |
by the UIPainter of ST/X."
|
|
|
109 |
|
|
|
110 |
"Do not manually edit this!! If it is corrupted,
|
|
|
111 |
the UIPainter may not be able to read the specification."
|
|
|
112 |
|
|
|
113 |
"
|
|
|
114 |
UIPainter new openOnClass:Tools::StoreProjectBrowser andSelector:#windowSpec
|
|
|
115 |
Tools::StoreProjectBrowser new openInterface:#windowSpec
|
|
|
116 |
Tools::StoreProjectBrowser open
|
|
|
117 |
"
|
|
|
118 |
|
|
|
119 |
<resource: #canvas>
|
|
|
120 |
|
|
|
121 |
^
|
|
|
122 |
#(FullSpec
|
|
|
123 |
name: windowSpec
|
|
|
124 |
window:
|
|
|
125 |
(WindowSpec
|
|
|
126 |
label: 'Tools::StoreProjectBrowser'
|
|
|
127 |
name: 'Tools::StoreProjectBrowser'
|
|
|
128 |
min: (Point 10 10)
|
|
|
129 |
max: (Point 1024 768)
|
|
|
130 |
bounds: (Rectangle 0 0 527 369)
|
|
|
131 |
menu: mainMenu
|
|
|
132 |
)
|
|
|
133 |
component:
|
|
|
134 |
(SpecCollection
|
|
|
135 |
collection: (
|
|
|
136 |
(VariableHorizontalPanelSpec
|
|
|
137 |
name: 'VariableHorizontalPanel1'
|
|
|
138 |
layout: (LayoutFrame 0 0 0 0 0 1 -30 1)
|
|
|
139 |
snapMode: both
|
|
|
140 |
handlePosition: right
|
|
|
141 |
component:
|
|
|
142 |
(SpecCollection
|
|
|
143 |
collection: (
|
|
|
144 |
(ViewSpec
|
|
|
145 |
name: 'Box1'
|
|
|
146 |
component:
|
|
|
147 |
(SpecCollection
|
|
|
148 |
collection: (
|
|
|
149 |
(LabelSpec
|
|
|
150 |
label: 'Bundles and Packages:'
|
|
|
151 |
name: 'Label1'
|
|
|
152 |
layout: (LayoutFrame 0 0 0 0 0 1 30 0)
|
|
|
153 |
translateLabel: true
|
|
|
154 |
adjust: left
|
|
|
155 |
)
|
|
|
156 |
(InputFieldSpec
|
|
7008
|
157 |
name: 'PackageFilterEntryField'
|
|
7006
|
158 |
layout: (LayoutFrame 2 0 30 0 -2 1 58 0)
|
|
|
159 |
model: packagesFilterHolder
|
|
|
160 |
immediateAccept: true
|
|
|
161 |
acceptOnReturn: true
|
|
|
162 |
acceptOnTab: true
|
|
|
163 |
acceptOnLostFocus: true
|
|
|
164 |
acceptOnPointerLeave: false
|
|
|
165 |
)
|
|
|
166 |
(SequenceViewSpec
|
|
7008
|
167 |
name: 'PackageList'
|
|
7006
|
168 |
layout: (LayoutFrame 0 0 60 0 0 1 0 1)
|
|
|
169 |
model: selectedPackageHolder
|
|
7028
|
170 |
menu: packageListMenu
|
|
7006
|
171 |
hasHorizontalScrollBar: true
|
|
|
172 |
hasVerticalScrollBar: true
|
|
7008
|
173 |
valueChangeSelector: packageSelectionChanged
|
|
7006
|
174 |
useIndex: true
|
|
|
175 |
sequenceList: packagesList
|
|
|
176 |
)
|
|
|
177 |
)
|
|
|
178 |
|
|
|
179 |
)
|
|
|
180 |
)
|
|
|
181 |
(ViewSpec
|
|
|
182 |
name: 'Box3'
|
|
|
183 |
component:
|
|
|
184 |
(SpecCollection
|
|
|
185 |
collection: (
|
|
|
186 |
(LabelSpec
|
|
|
187 |
label: 'Versions:'
|
|
|
188 |
name: 'Label2'
|
|
|
189 |
layout: (LayoutFrame 0 0 0 0 0 1 30 0)
|
|
|
190 |
translateLabel: true
|
|
|
191 |
adjust: left
|
|
|
192 |
)
|
|
|
193 |
(VariableVerticalPanelSpec
|
|
|
194 |
name: 'VariableVerticalPanel1'
|
|
|
195 |
layout: (LayoutFrame 0 0 30 0 0 1 0 1)
|
|
|
196 |
component:
|
|
|
197 |
(SpecCollection
|
|
|
198 |
collection: (
|
|
|
199 |
(SequenceViewSpec
|
|
|
200 |
name: 'VersionsList'
|
|
|
201 |
model: selectedVersionHolder
|
|
7028
|
202 |
menu: versionsListMenu
|
|
7006
|
203 |
hasHorizontalScrollBar: true
|
|
|
204 |
hasVerticalScrollBar: true
|
|
7028
|
205 |
valueChangeSelector: versionSelectionChanged
|
|
7006
|
206 |
useIndex: true
|
|
|
207 |
sequenceList: versionsList
|
|
|
208 |
)
|
|
|
209 |
(ViewSpec
|
|
|
210 |
name: 'Box2'
|
|
|
211 |
component:
|
|
|
212 |
(SpecCollection
|
|
|
213 |
collection: (
|
|
|
214 |
(LabelSpec
|
|
|
215 |
label: 'Comment:'
|
|
|
216 |
name: 'Label3'
|
|
|
217 |
layout: (LayoutFrame 0 0 0 0 0 1 30 0)
|
|
|
218 |
translateLabel: true
|
|
|
219 |
adjust: left
|
|
|
220 |
)
|
|
|
221 |
(TextEditorSpec
|
|
|
222 |
name: 'CommentTextEditor'
|
|
|
223 |
layout: (LayoutFrame 0 0 30 0 0 1 -1 1)
|
|
|
224 |
model: commentTextHolder
|
|
|
225 |
hasHorizontalScrollBar: true
|
|
|
226 |
hasVerticalScrollBar: true
|
|
|
227 |
)
|
|
|
228 |
)
|
|
|
229 |
|
|
|
230 |
)
|
|
|
231 |
)
|
|
|
232 |
)
|
|
|
233 |
|
|
|
234 |
)
|
|
|
235 |
handles: (Any 0.5 1.0)
|
|
|
236 |
)
|
|
|
237 |
)
|
|
|
238 |
|
|
|
239 |
)
|
|
|
240 |
)
|
|
|
241 |
)
|
|
|
242 |
|
|
|
243 |
)
|
|
|
244 |
handles: (Any 0.5 1.0)
|
|
|
245 |
)
|
|
|
246 |
(LabelSpec
|
|
|
247 |
name: 'InfoLabel'
|
|
|
248 |
layout: (LayoutFrame 2 0 -28 1 -1 1 -1 1)
|
|
|
249 |
level: -1
|
|
|
250 |
translateLabel: true
|
|
|
251 |
labelChannel: infoLabelHolder
|
|
|
252 |
adjust: left
|
|
|
253 |
)
|
|
|
254 |
)
|
|
|
255 |
|
|
|
256 |
)
|
|
|
257 |
)
|
|
|
258 |
! !
|
|
|
259 |
|
|
|
260 |
!StoreProjectBrowser class methodsFor:'internationalization'!
|
|
|
261 |
|
|
|
262 |
resourcePackName
|
|
|
263 |
^ 'StoreProjectBrowser'
|
|
|
264 |
! !
|
|
|
265 |
|
|
|
266 |
!StoreProjectBrowser class methodsFor:'menu specs'!
|
|
|
267 |
|
|
|
268 |
mainMenu
|
|
|
269 |
"This resource specification was automatically generated
|
|
|
270 |
by the MenuEditor of ST/X."
|
|
|
271 |
|
|
|
272 |
"Do not manually edit this!! If it is corrupted,
|
|
|
273 |
the MenuEditor may not be able to read the specification."
|
|
|
274 |
|
|
|
275 |
"
|
|
|
276 |
MenuEditor new openOnClass:Tools::StoreProjectBrowser andSelector:#mainMenu
|
|
|
277 |
(Menu new fromLiteralArrayEncoding:(Tools::StoreProjectBrowser mainMenu)) startUp
|
|
|
278 |
"
|
|
|
279 |
|
|
|
280 |
<resource: #menu>
|
|
|
281 |
|
|
|
282 |
^
|
|
|
283 |
#(Menu
|
|
|
284 |
(
|
|
|
285 |
(MenuItem
|
|
|
286 |
label: 'File'
|
|
|
287 |
translateLabel: true
|
|
|
288 |
submenu:
|
|
|
289 |
(Menu
|
|
|
290 |
(
|
|
|
291 |
(MenuItem
|
|
|
292 |
label: 'Fileout As...'
|
|
|
293 |
itemValue: menuFileoutAs
|
|
|
294 |
translateLabel: true
|
|
|
295 |
)
|
|
|
296 |
(MenuItem
|
|
|
297 |
label: '-'
|
|
|
298 |
)
|
|
|
299 |
(MenuItem
|
|
|
300 |
label: 'Update'
|
|
|
301 |
itemValue: menuUpdate
|
|
|
302 |
translateLabel: true
|
|
|
303 |
)
|
|
|
304 |
(MenuItem
|
|
|
305 |
label: '-'
|
|
|
306 |
)
|
|
|
307 |
(MenuItem
|
|
|
308 |
label: 'Exit'
|
|
|
309 |
itemValue: closeRequest
|
|
|
310 |
translateLabel: true
|
|
|
311 |
)
|
|
|
312 |
)
|
|
|
313 |
nil
|
|
|
314 |
nil
|
|
|
315 |
)
|
|
|
316 |
)
|
|
|
317 |
(MenuItem
|
|
7010
|
318 |
label: 'Connection'
|
|
|
319 |
translateLabel: true
|
|
|
320 |
submenu:
|
|
|
321 |
(Menu
|
|
|
322 |
(
|
|
|
323 |
(MenuItem
|
|
|
324 |
label: 'Connect'
|
|
|
325 |
itemValue: menuConnect
|
|
|
326 |
translateLabel: true
|
|
|
327 |
isVisible: notConnectedHolder
|
|
|
328 |
)
|
|
|
329 |
(MenuItem
|
|
|
330 |
label: 'Disconnect'
|
|
|
331 |
itemValue: menuDisconnect
|
|
|
332 |
translateLabel: true
|
|
|
333 |
isVisible: isConnectedHolder
|
|
|
334 |
)
|
|
|
335 |
)
|
|
|
336 |
nil
|
|
|
337 |
nil
|
|
|
338 |
)
|
|
|
339 |
)
|
|
|
340 |
(MenuItem
|
|
7006
|
341 |
label: 'Help'
|
|
|
342 |
translateLabel: true
|
|
|
343 |
startGroup: right
|
|
|
344 |
submenu:
|
|
|
345 |
(Menu
|
|
|
346 |
(
|
|
|
347 |
(MenuItem
|
|
|
348 |
label: 'Documentation'
|
|
|
349 |
itemValue: openDocumentation
|
|
|
350 |
translateLabel: true
|
|
|
351 |
)
|
|
|
352 |
(MenuItem
|
|
|
353 |
label: '-'
|
|
|
354 |
)
|
|
|
355 |
(MenuItem
|
|
|
356 |
label: 'About this Application...'
|
|
|
357 |
itemValue: openAboutThisApplication
|
|
|
358 |
translateLabel: true
|
|
|
359 |
)
|
|
|
360 |
)
|
|
|
361 |
nil
|
|
|
362 |
nil
|
|
|
363 |
)
|
|
|
364 |
)
|
|
|
365 |
)
|
|
|
366 |
nil
|
|
|
367 |
nil
|
|
|
368 |
)
|
|
7028
|
369 |
!
|
|
|
370 |
|
|
|
371 |
packageListMenu
|
|
|
372 |
"This resource specification was automatically generated
|
|
|
373 |
by the MenuEditor of ST/X."
|
|
|
374 |
|
|
|
375 |
"Do not manually edit this!! If it is corrupted,
|
|
|
376 |
the MenuEditor may not be able to read the specification."
|
|
|
377 |
|
|
|
378 |
"
|
|
|
379 |
MenuEditor new openOnClass:Tools::StoreProjectBrowser andSelector:#packageListMenu
|
|
|
380 |
(Menu new fromLiteralArrayEncoding:(Tools::StoreProjectBrowser packageListMenu)) startUp
|
|
|
381 |
"
|
|
|
382 |
|
|
|
383 |
<resource: #menu>
|
|
|
384 |
|
|
|
385 |
^
|
|
|
386 |
#(Menu
|
|
|
387 |
(
|
|
|
388 |
(MenuItem
|
|
|
389 |
label: 'Update'
|
|
|
390 |
itemValue: menuUpdatePackageList
|
|
|
391 |
translateLabel: true
|
|
|
392 |
)
|
|
|
393 |
)
|
|
|
394 |
nil
|
|
|
395 |
nil
|
|
|
396 |
)
|
|
|
397 |
!
|
|
|
398 |
|
|
|
399 |
versionsListMenu
|
|
|
400 |
"This resource specification was automatically generated
|
|
|
401 |
by the MenuEditor of ST/X."
|
|
|
402 |
|
|
|
403 |
"Do not manually edit this!! If it is corrupted,
|
|
|
404 |
the MenuEditor may not be able to read the specification."
|
|
|
405 |
|
|
|
406 |
"
|
|
|
407 |
MenuEditor new openOnClass:Tools::StoreProjectBrowser andSelector:#versionsListMenu
|
|
|
408 |
(Menu new fromLiteralArrayEncoding:(Tools::StoreProjectBrowser versionsListMenu)) startUp
|
|
|
409 |
"
|
|
|
410 |
|
|
|
411 |
<resource: #menu>
|
|
|
412 |
|
|
|
413 |
^
|
|
|
414 |
#(Menu
|
|
|
415 |
(
|
|
|
416 |
(MenuItem
|
|
|
417 |
label: 'Load'
|
|
|
418 |
itemValue: versionsListMenuLoad
|
|
|
419 |
translateLabel: true
|
|
|
420 |
)
|
|
|
421 |
(MenuItem
|
|
8731
|
422 |
label: 'Browse'
|
|
|
423 |
itemValue: versionsListMenuBrowse
|
|
|
424 |
translateLabel: true
|
|
|
425 |
)
|
|
|
426 |
(MenuItem
|
|
7028
|
427 |
label: '-'
|
|
|
428 |
)
|
|
|
429 |
(MenuItem
|
|
|
430 |
label: 'Update'
|
|
|
431 |
itemValue: versionsListMenuUpdate
|
|
|
432 |
translateLabel: true
|
|
|
433 |
)
|
|
|
434 |
)
|
|
|
435 |
nil
|
|
|
436 |
nil
|
|
|
437 |
)
|
|
7006
|
438 |
! !
|
|
|
439 |
|
|
|
440 |
!StoreProjectBrowser class methodsFor:'startup'!
|
|
|
441 |
|
|
|
442 |
openOn:aDBInfo
|
|
|
443 |
|newApp|
|
|
|
444 |
|
|
|
445 |
newApp := self new.
|
|
|
446 |
newApp allButOpen.
|
|
|
447 |
newApp dbInfo:aDBInfo.
|
|
|
448 |
newApp open.
|
|
|
449 |
^ newApp
|
|
|
450 |
! !
|
|
|
451 |
|
|
7008
|
452 |
!StoreProjectBrowser methodsFor:'actions'!
|
|
|
453 |
|
|
|
454 |
packageSelectionChanged
|
|
7009
|
455 |
|newest|
|
|
7008
|
456 |
|
|
7010
|
457 |
self withReadCursorDo:[
|
|
|
458 |
selectedBundleOrPackage := packagesList value at:(selectedPackageHolder value).
|
|
|
459 |
self updateVersionsListFor:selectedBundleOrPackage.
|
|
7008
|
460 |
|
|
7028
|
461 |
versionsList value notEmptyOrNil ifTrue:[
|
|
7010
|
462 |
newest := versionsList value first.
|
|
|
463 |
self updateCommentFor:newest
|
|
|
464 |
]
|
|
7008
|
465 |
].
|
|
|
466 |
!
|
|
|
467 |
|
|
|
468 |
versionSelectionChanged
|
|
8731
|
469 |
|selIndex|
|
|
7008
|
470 |
|
|
7010
|
471 |
selIndex := selectedVersionHolder value.
|
|
|
472 |
selIndex isNil ifTrue:[
|
|
8731
|
473 |
self commentTextHolder value:nil.
|
|
|
474 |
selectedVersion := nil.
|
|
7010
|
475 |
] ifFalse:[
|
|
8731
|
476 |
selectedVersion := versionsList value at:selIndex.
|
|
7010
|
477 |
self withReadCursorDo:[
|
|
8731
|
478 |
self updateBlessingCommentFor:selectedVersion
|
|
7010
|
479 |
].
|
|
|
480 |
]
|
|
7008
|
481 |
! !
|
|
|
482 |
|
|
7006
|
483 |
!StoreProjectBrowser methodsFor:'aspects'!
|
|
|
484 |
|
|
|
485 |
commentTextHolder
|
|
|
486 |
"automatically generated by UIPainter ..."
|
|
|
487 |
|
|
|
488 |
"*** the code below creates a default model when invoked."
|
|
|
489 |
"*** (which may not be the one you wanted)"
|
|
|
490 |
"*** Please change as required and accept it in the browser."
|
|
|
491 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
492 |
|
|
|
493 |
commentTextHolder isNil ifTrue:[
|
|
|
494 |
commentTextHolder := '' asValue.
|
|
|
495 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
496 |
"/ commentTextHolder addDependent:self.
|
|
|
497 |
"/ commentTextHolder onChangeSend:#commentTextHolderChanged to:self.
|
|
|
498 |
].
|
|
|
499 |
^ commentTextHolder.
|
|
|
500 |
!
|
|
|
501 |
|
|
|
502 |
infoLabelHolder
|
|
|
503 |
"automatically generated by UIPainter ..."
|
|
|
504 |
|
|
|
505 |
"*** the code below creates a default model when invoked."
|
|
|
506 |
"*** (which may not be the one you wanted)"
|
|
|
507 |
"*** Please change as required and accept it in the browser."
|
|
|
508 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
509 |
|
|
|
510 |
infoLabelHolder isNil ifTrue:[
|
|
|
511 |
infoLabelHolder := ValueHolder new.
|
|
|
512 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
513 |
"/ infoLabelHolder addDependent:self.
|
|
|
514 |
"/ infoLabelHolder onChangeSend:#infoLabelHolderChanged to:self.
|
|
|
515 |
].
|
|
|
516 |
^ infoLabelHolder.
|
|
|
517 |
!
|
|
|
518 |
|
|
7010
|
519 |
isConnected
|
|
|
520 |
^ connection notNil and:[ connection isConnected ].
|
|
|
521 |
!
|
|
|
522 |
|
|
|
523 |
isConnectedHolder
|
|
|
524 |
^ [ self isConnected ]
|
|
|
525 |
!
|
|
|
526 |
|
|
|
527 |
notConnectedHolder
|
|
|
528 |
^ [ self isConnected not ]
|
|
|
529 |
!
|
|
|
530 |
|
|
7006
|
531 |
packagesFilterHolder
|
|
|
532 |
"automatically generated by UIPainter ..."
|
|
|
533 |
|
|
|
534 |
"*** the code below creates a default model when invoked."
|
|
|
535 |
"*** (which may not be the one you wanted)"
|
|
|
536 |
"*** Please change as required and accept it in the browser."
|
|
|
537 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
538 |
|
|
|
539 |
packagesFilterHolder isNil ifTrue:[
|
|
|
540 |
packagesFilterHolder := ValueHolder new.
|
|
|
541 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
542 |
"/ packagesFilterHolder addDependent:self.
|
|
|
543 |
"/ packagesFilterHolder onChangeSend:#packagesFilterHolderChanged to:self.
|
|
|
544 |
].
|
|
|
545 |
^ packagesFilterHolder.
|
|
|
546 |
!
|
|
|
547 |
|
|
|
548 |
packagesList
|
|
|
549 |
"automatically generated by UIPainter ..."
|
|
|
550 |
|
|
|
551 |
"*** the code below creates a default model when invoked."
|
|
|
552 |
"*** (which may not be the one you wanted)"
|
|
|
553 |
"*** Please change as required and accept it in the browser."
|
|
|
554 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
555 |
|
|
|
556 |
packagesList isNil ifTrue:[
|
|
|
557 |
packagesList := ValueHolder new.
|
|
|
558 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
559 |
"/ packagesList addDependent:self.
|
|
|
560 |
"/ packagesList onChangeSend:#packagesListChanged to:self.
|
|
|
561 |
].
|
|
|
562 |
^ packagesList.
|
|
|
563 |
!
|
|
|
564 |
|
|
|
565 |
selectedPackageHolder
|
|
|
566 |
"automatically generated by UIPainter ..."
|
|
|
567 |
|
|
|
568 |
"*** the code below creates a default model when invoked."
|
|
|
569 |
"*** (which may not be the one you wanted)"
|
|
|
570 |
"*** Please change as required and accept it in the browser."
|
|
|
571 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
572 |
|
|
|
573 |
selectedPackageHolder isNil ifTrue:[
|
|
|
574 |
selectedPackageHolder := ValueHolder new.
|
|
|
575 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
576 |
"/ selectedPackageHolder addDependent:self.
|
|
|
577 |
"/ selectedPackageHolder onChangeSend:#selectedPackageHolderChanged to:self.
|
|
|
578 |
].
|
|
|
579 |
^ selectedPackageHolder.
|
|
|
580 |
!
|
|
|
581 |
|
|
|
582 |
selectedVersionHolder
|
|
|
583 |
"automatically generated by UIPainter ..."
|
|
|
584 |
|
|
|
585 |
"*** the code below creates a default model when invoked."
|
|
|
586 |
"*** (which may not be the one you wanted)"
|
|
|
587 |
"*** Please change as required and accept it in the browser."
|
|
|
588 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
589 |
|
|
|
590 |
selectedVersionHolder isNil ifTrue:[
|
|
|
591 |
selectedVersionHolder := ValueHolder new.
|
|
|
592 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
593 |
"/ selectedVersionHolder addDependent:self.
|
|
|
594 |
"/ selectedVersionHolder onChangeSend:#selectedVersionHolderChanged to:self.
|
|
|
595 |
].
|
|
|
596 |
^ selectedVersionHolder.
|
|
|
597 |
!
|
|
|
598 |
|
|
|
599 |
versionsList
|
|
|
600 |
"automatically generated by UIPainter ..."
|
|
|
601 |
|
|
|
602 |
"*** the code below creates a default model when invoked."
|
|
|
603 |
"*** (which may not be the one you wanted)"
|
|
|
604 |
"*** Please change as required and accept it in the browser."
|
|
|
605 |
"*** (and replace this comment by something more useful ;-)"
|
|
|
606 |
|
|
|
607 |
versionsList isNil ifTrue:[
|
|
|
608 |
versionsList := ValueHolder new.
|
|
|
609 |
"/ if your app needs to be notified of changes, uncomment one of the lines below:
|
|
|
610 |
"/ versionsList addDependent:self.
|
|
|
611 |
"/ versionsList onChangeSend:#versionsListChanged to:self.
|
|
|
612 |
].
|
|
|
613 |
^ versionsList.
|
|
|
614 |
! !
|
|
|
615 |
|
|
|
616 |
!StoreProjectBrowser methodsFor:'db access'!
|
|
|
617 |
|
|
7008
|
618 |
getBlob:id
|
|
|
619 |
|item cursor row blobType blobData|
|
|
|
620 |
|
|
|
621 |
item := Set new.
|
|
|
622 |
cursor := connection
|
|
|
623 |
execute:'SELECT blobtype,blobdata FROM tw_blob where primarykey = ',id printString,';'
|
|
|
624 |
release:false.
|
|
|
625 |
|
|
|
626 |
cursor next notNil ifTrue:[
|
|
|
627 |
row := cursor rowAsArray.
|
|
|
628 |
blobType := (row at:1).
|
|
|
629 |
blobData := Base64Coder decode:(row at:2).
|
|
|
630 |
].
|
|
|
631 |
cursor release.
|
|
|
632 |
|
|
|
633 |
blobType == 1 ifTrue:[
|
|
|
634 |
"binary"
|
|
|
635 |
^ blobData
|
|
|
636 |
].
|
|
|
637 |
blobType == 2 ifTrue:[
|
|
|
638 |
"string"
|
|
|
639 |
^ blobData asString
|
|
|
640 |
].
|
|
|
641 |
blobType == 3 ifTrue:[
|
|
|
642 |
"2-byte string"
|
|
|
643 |
self halt.
|
|
|
644 |
^ nil
|
|
|
645 |
].
|
|
|
646 |
self halt.
|
|
|
647 |
^ nil
|
|
|
648 |
!
|
|
|
649 |
|
|
|
650 |
getBundles
|
|
|
651 |
|items cursor row|
|
|
|
652 |
|
|
|
653 |
items := Set new.
|
|
|
654 |
cursor := connection
|
|
|
655 |
execute:'SELECT DISTINCT name FROM tw_bundle;'
|
|
|
656 |
release:false.
|
|
|
657 |
|
|
|
658 |
[cursor next notNil] whileTrue:[
|
|
|
659 |
row := cursor rowAsArray.
|
|
|
660 |
Transcript showCR:row.
|
|
|
661 |
items add:(Bundle new name:(row at:1)).
|
|
|
662 |
].
|
|
|
663 |
cursor release.
|
|
|
664 |
^ items asOrderedCollection sort:[:a :b| a name < b name]
|
|
|
665 |
!
|
|
|
666 |
|
|
7010
|
667 |
getConnection
|
|
|
668 |
|session|
|
|
|
669 |
|
|
7028
|
670 |
dbInfo isNil ifTrue:[
|
|
|
671 |
self askForDatabaseInfo
|
|
|
672 |
].
|
|
|
673 |
|
|
7010
|
674 |
session := SQL::ODBCSession new.
|
|
|
675 |
session
|
|
|
676 |
connectWithUsername:(dbInfo userName)
|
|
|
677 |
password:(dbInfo password)
|
|
|
678 |
dbname:(dbInfo dbName).
|
|
|
679 |
|
|
|
680 |
(session isConnected) ifFalse:[
|
|
|
681 |
^ nil.
|
|
|
682 |
].
|
|
|
683 |
^ session.
|
|
|
684 |
!
|
|
|
685 |
|
|
7008
|
686 |
getPackages
|
|
|
687 |
|items cursor row|
|
|
|
688 |
|
|
|
689 |
items := Set new.
|
|
|
690 |
cursor := connection
|
|
|
691 |
execute:'SELECT DISTINCT name FROM tw_package;'
|
|
|
692 |
release:false.
|
|
|
693 |
|
|
|
694 |
[cursor next notNil] whileTrue:[
|
|
|
695 |
row := cursor rowAsArray.
|
|
|
696 |
Transcript showCR:row.
|
|
|
697 |
items add:(Package new name:(row at:1)).
|
|
|
698 |
].
|
|
|
699 |
cursor release.
|
|
|
700 |
^ items asOrderedCollection sort:[:a :b| a name < b name]
|
|
|
701 |
!
|
|
|
702 |
|
|
|
703 |
getVersionsForBundle:aBundle
|
|
7010
|
704 |
^ self getVersionsForBundleOrPackage:aBundle isBundle:true
|
|
|
705 |
!
|
|
|
706 |
|
|
|
707 |
getVersionsForBundleOrPackage:aBundle isBundle:isBundle
|
|
|
708 |
|items cursor row table|
|
|
7008
|
709 |
|
|
7028
|
710 |
connection isNil ifTrue:[^ #() ].
|
|
7008
|
711 |
|
|
7010
|
712 |
table := isBundle ifTrue:'tw_bundle' ifFalse:'tw_package'.
|
|
|
713 |
|
|
7008
|
714 |
items := Set new.
|
|
|
715 |
cursor := connection
|
|
8731
|
716 |
execute:'SELECT name,version,username,timestamp,commentid,primarykey,blessinglevel
|
|
8729
|
717 |
FROM ',table,
|
|
|
718 |
"/ ' WHERE name = ''',aBundle name,''' ',
|
|
|
719 |
';'
|
|
7008
|
720 |
release:false.
|
|
|
721 |
|
|
|
722 |
[cursor next notNil] whileTrue:[
|
|
8731
|
723 |
|v name version username timestamp commentid primarykey blessinglevel|
|
|
7008
|
724 |
|
|
|
725 |
row := cursor rowAsArray.
|
|
8731
|
726 |
Transcript showCR:row.
|
|
8729
|
727 |
name := row at:1.
|
|
|
728 |
version := row at:2.
|
|
|
729 |
username := row at:3.
|
|
|
730 |
timestamp := row at:4.
|
|
|
731 |
commentid := row at:5.
|
|
|
732 |
primarykey := row at:6.
|
|
8731
|
733 |
blessinglevel := row at:7.
|
|
8729
|
734 |
name = aBundle name ifTrue:[
|
|
|
735 |
v := PundleVersion new.
|
|
|
736 |
v pundle:aBundle version:version user:username.
|
|
|
737 |
v timestampInt:timestamp commentId:commentid.
|
|
8731
|
738 |
v blessingLevel:blessinglevel.
|
|
8729
|
739 |
v id:primarykey.
|
|
|
740 |
v isBundle:isBundle.
|
|
|
741 |
items add:v.
|
|
|
742 |
]
|
|
7008
|
743 |
].
|
|
|
744 |
cursor release.
|
|
|
745 |
^ items asOrderedCollection sort:[:a :b| a isVersionAfter: b]
|
|
|
746 |
!
|
|
|
747 |
|
|
|
748 |
getVersionsForPackage:aPackage
|
|
7010
|
749 |
^ self getVersionsForBundleOrPackage:aPackage isBundle:false
|
|
7008
|
750 |
!
|
|
|
751 |
|
|
7009
|
752 |
updateBlessingCommentFor:aPundleVersion
|
|
7010
|
753 |
|versionId commentId user comment cursor row recType|
|
|
7009
|
754 |
|
|
|
755 |
versionId := aPundleVersion id.
|
|
7010
|
756 |
recType := aPundleVersion isBundle ifTrue:'B' ifFalse:'P'.
|
|
7009
|
757 |
|
|
|
758 |
cursor := connection
|
|
7010
|
759 |
execute:'SELECT username,commentid FROM tw_blessing
|
|
|
760 |
WHERE pkgid = ',versionId printString,' AND rectype = ''',recType,''';'
|
|
7009
|
761 |
release:false.
|
|
7010
|
762 |
cursor isNil ifTrue:[
|
|
|
763 |
commentId :=0
|
|
|
764 |
] ifFalse:[
|
|
|
765 |
row := cursor next rowAsArray.
|
|
|
766 |
cursor release.
|
|
7009
|
767 |
|
|
7010
|
768 |
user := row at:1.
|
|
|
769 |
commentId := row at:2.
|
|
|
770 |
].
|
|
7009
|
771 |
|
|
|
772 |
commentId == 0 ifTrue:[
|
|
|
773 |
comment := 'No comment' allItalic
|
|
|
774 |
] ifFalse:[
|
|
|
775 |
comment := self getBlob:commentId.
|
|
7010
|
776 |
comment := comment asCollectionOfSubCollectionsSeparatedBy:Character return.
|
|
|
777 |
comment := comment asStringCollection asString.
|
|
7009
|
778 |
].
|
|
|
779 |
self commentTextHolder value:comment.
|
|
|
780 |
!
|
|
|
781 |
|
|
7008
|
782 |
updateCommentFor:aPundleVersion
|
|
7009
|
783 |
|comment id|
|
|
7008
|
784 |
|
|
7009
|
785 |
id := aPundleVersion commentId.
|
|
|
786 |
id == 0 ifTrue:[
|
|
|
787 |
comment := 'No comment' allItalic
|
|
|
788 |
] ifFalse:[
|
|
|
789 |
comment := self getBlob:(aPundleVersion commentId).
|
|
|
790 |
].
|
|
7008
|
791 |
self commentTextHolder value:comment.
|
|
|
792 |
!
|
|
|
793 |
|
|
7006
|
794 |
updatePackagesList
|
|
7008
|
795 |
|bundles packages|
|
|
|
796 |
|
|
|
797 |
connection isNil ifTrue:[^ self ].
|
|
|
798 |
|
|
|
799 |
self withReadCursorDo:[
|
|
|
800 |
bundles := self getBundles.
|
|
|
801 |
packages := self getPackages.
|
|
|
802 |
].
|
|
|
803 |
packagesList value:(bundles , packages).
|
|
|
804 |
!
|
|
|
805 |
|
|
|
806 |
updateVersionsListFor:aBundleOrPackage
|
|
|
807 |
|items|
|
|
|
808 |
|
|
7010
|
809 |
aBundleOrPackage isBundle ifTrue:[
|
|
|
810 |
items := self getVersionsForBundle:aBundleOrPackage
|
|
|
811 |
] ifFalse:[
|
|
|
812 |
items := self getVersionsForPackage:aBundleOrPackage
|
|
7008
|
813 |
].
|
|
7010
|
814 |
self selectedVersionHolder value:nil.
|
|
7008
|
815 |
versionsList value:items.
|
|
7006
|
816 |
! !
|
|
|
817 |
|
|
|
818 |
!StoreProjectBrowser methodsFor:'help'!
|
|
|
819 |
|
|
|
820 |
aboutThisApplicationText
|
|
|
821 |
^ super aboutThisApplicationText ,
|
|
|
822 |
'\\Written by Claus Gittinger, eXept Software AG.' withCRs
|
|
|
823 |
! !
|
|
|
824 |
|
|
|
825 |
!StoreProjectBrowser methodsFor:'initialization & release'!
|
|
|
826 |
|
|
|
827 |
dbInfo:aDBInfo
|
|
|
828 |
|session|
|
|
|
829 |
|
|
7010
|
830 |
dbInfo := aDBInfo.
|
|
|
831 |
session := self getConnection.
|
|
|
832 |
(session notNil) ifFalse:[
|
|
7006
|
833 |
^ self.
|
|
|
834 |
].
|
|
|
835 |
connection := session.
|
|
7028
|
836 |
self updateInfo.
|
|
7006
|
837 |
^ self
|
|
|
838 |
!
|
|
|
839 |
|
|
7008
|
840 |
postOpenWith:aBuilder
|
|
8727
|
841 |
super postOpenWith:aBuilder.
|
|
7006
|
842 |
self updatePackagesList.
|
|
|
843 |
!
|
|
|
844 |
|
|
|
845 |
release
|
|
|
846 |
connection notNil ifTrue:[
|
|
|
847 |
connection disconnect.
|
|
|
848 |
connection := nil.
|
|
|
849 |
]
|
|
7028
|
850 |
!
|
|
|
851 |
|
|
|
852 |
updateInfo
|
|
|
853 |
self isConnected ifTrue:[
|
|
|
854 |
self window label:('Store Browser: ',dbInfo dbName).
|
|
|
855 |
self infoLabelHolder value:('Connected to ',dbInfo dbName).
|
|
|
856 |
] ifFalse:[
|
|
|
857 |
self window label:'Store Browser'.
|
|
|
858 |
self infoLabelHolder value:nil.
|
|
|
859 |
]
|
|
7006
|
860 |
! !
|
|
|
861 |
|
|
|
862 |
!StoreProjectBrowser methodsFor:'menu actions'!
|
|
|
863 |
|
|
7028
|
864 |
askForDatabaseInfo
|
|
|
865 |
|defaultInfo|
|
|
|
866 |
|
|
|
867 |
defaultInfo := StoreSourceCodeManager defaultDBInfo.
|
|
|
868 |
defaultInfo dbName isNil ifTrue:[
|
|
8727
|
869 |
defaultInfo := StoreSourceCodeManager repositoryInfoPerModule firstIfEmpty:nil.
|
|
7028
|
870 |
].
|
|
|
871 |
dbInfo := defaultInfo
|
|
|
872 |
!
|
|
|
873 |
|
|
7010
|
874 |
menuConnect
|
|
|
875 |
|session|
|
|
|
876 |
|
|
|
877 |
connection isNil ifTrue:[
|
|
|
878 |
session := self getConnection.
|
|
|
879 |
(session notNil) ifFalse:[
|
|
|
880 |
^ self.
|
|
|
881 |
].
|
|
|
882 |
connection := session.
|
|
7028
|
883 |
self updateInfo.
|
|
8727
|
884 |
self updatePackagesList.
|
|
7010
|
885 |
]
|
|
|
886 |
!
|
|
|
887 |
|
|
|
888 |
menuDisconnect
|
|
|
889 |
connection notNil ifTrue:[
|
|
|
890 |
connection disconnect.
|
|
|
891 |
connection := nil.
|
|
7028
|
892 |
self updateInfo.
|
|
7010
|
893 |
]
|
|
|
894 |
!
|
|
|
895 |
|
|
7006
|
896 |
menuFileoutAs
|
|
|
897 |
"automatically generated by UIPainter ..."
|
|
|
898 |
|
|
|
899 |
"*** the code below performs no action"
|
|
|
900 |
"*** (except for some feedback on the Transcript)"
|
|
|
901 |
"*** Please change as required and accept in the browser."
|
|
|
902 |
|
|
|
903 |
"action to be added ..."
|
|
|
904 |
|
|
|
905 |
Transcript showCR:self class name, ': menu action for menuFileoutAs ...'.
|
|
|
906 |
!
|
|
|
907 |
|
|
|
908 |
menuOpen
|
|
|
909 |
"This method was generated by the Browser.
|
|
|
910 |
It will be invoked when the menu-item 'open' is selected."
|
|
|
911 |
|
|
|
912 |
"/ change below and add any actions as required here ...
|
|
|
913 |
self warn:'no action for ''open'' available.'.
|
|
|
914 |
!
|
|
|
915 |
|
|
|
916 |
menuUpdate
|
|
|
917 |
self updatePackagesList
|
|
|
918 |
!
|
|
|
919 |
|
|
|
920 |
openDocumentation
|
|
|
921 |
"This method was generated by the Browser.
|
|
|
922 |
It will be invoked when the menu-item 'help-documentation' is selected."
|
|
|
923 |
|
|
|
924 |
"/ change below as required ...
|
|
|
925 |
|
|
|
926 |
"/ to open an HTML viewer on some document (under 'doc/online/<language>/' ):
|
|
|
927 |
HTMLDocumentView openFullOnDocumentationFile:'TOP.html'.
|
|
|
928 |
|
|
|
929 |
"/ add application-specific help files under the 'doc/online/<language>/help/appName'
|
|
|
930 |
"/ directory, and open a viewer with:
|
|
|
931 |
"/ HTMLDocumentView openFullOnDocumentationFile:'help/<MyApplication>/TOP.html'.
|
|
8731
|
932 |
!
|
|
|
933 |
|
|
|
934 |
versionsListMenuBrowse
|
|
|
935 |
|reader changeSet environment|
|
|
|
936 |
|
|
|
937 |
reader := StoreProjectChangeSetReader new.
|
|
|
938 |
reader
|
|
|
939 |
browser:self dbConnection:connection
|
|
|
940 |
bundleOrPackage:selectedBundleOrPackage version:selectedVersion.
|
|
|
941 |
changeSet :=reader changeSet.
|
|
|
942 |
ChangeSetBrowser openOn:changeSet.
|
|
|
943 |
self halt.
|
|
|
944 |
|
|
|
945 |
environment := StoreProjectEnvironment for:selectedVersion connection:connection.
|
|
|
946 |
SystemBrowser
|
|
|
947 |
openOn:environment
|
|
|
948 |
label:(resources string:'%1' with:selectedBundleOrPackage name , ' ' , selectedVersion version)
|
|
|
949 |
!
|
|
|
950 |
|
|
|
951 |
versionsListMenuLoad
|
|
|
952 |
self halt.
|
|
|
953 |
!
|
|
|
954 |
|
|
|
955 |
versionsListMenuUpdate
|
|
|
956 |
self halt.
|
|
7006
|
957 |
! !
|
|
|
958 |
|
|
7008
|
959 |
!StoreProjectBrowser::Pundle methodsFor:'accessing'!
|
|
|
960 |
|
|
|
961 |
name
|
|
|
962 |
^ name
|
|
|
963 |
!
|
|
|
964 |
|
|
|
965 |
name:something
|
|
|
966 |
name := something.
|
|
|
967 |
! !
|
|
|
968 |
|
|
|
969 |
!StoreProjectBrowser::Pundle methodsFor:'printing'!
|
|
|
970 |
|
|
|
971 |
displayString
|
|
|
972 |
^ name
|
|
|
973 |
! !
|
|
|
974 |
|
|
|
975 |
!StoreProjectBrowser::Pundle methodsFor:'testing'!
|
|
|
976 |
|
|
|
977 |
isBundle
|
|
|
978 |
^ false
|
|
|
979 |
!
|
|
|
980 |
|
|
|
981 |
isPackage
|
|
|
982 |
^ false
|
|
|
983 |
! !
|
|
|
984 |
|
|
|
985 |
!StoreProjectBrowser::Package methodsFor:'testing'!
|
|
|
986 |
|
|
|
987 |
isPackage
|
|
|
988 |
^ true
|
|
|
989 |
! !
|
|
|
990 |
|
|
|
991 |
!StoreProjectBrowser::Bundle methodsFor:'printing'!
|
|
|
992 |
|
|
|
993 |
displayString
|
|
|
994 |
^ name ,' (Bundle)'
|
|
|
995 |
! !
|
|
|
996 |
|
|
|
997 |
!StoreProjectBrowser::Bundle methodsFor:'testing'!
|
|
|
998 |
|
|
|
999 |
isBundle
|
|
|
1000 |
^ true
|
|
|
1001 |
! !
|
|
|
1002 |
|
|
|
1003 |
!StoreProjectBrowser::PundleVersion methodsFor:'accessing'!
|
|
|
1004 |
|
|
8731
|
1005 |
blessingLevel
|
|
|
1006 |
^ blessingLevel
|
|
|
1007 |
!
|
|
|
1008 |
|
|
|
1009 |
blessingLevel:something
|
|
|
1010 |
blessingLevel := something.
|
|
|
1011 |
!
|
|
|
1012 |
|
|
7008
|
1013 |
commentId
|
|
|
1014 |
^ commentId
|
|
|
1015 |
!
|
|
|
1016 |
|
|
|
1017 |
id
|
|
|
1018 |
^ id
|
|
|
1019 |
!
|
|
|
1020 |
|
|
|
1021 |
id:something
|
|
|
1022 |
id := something.
|
|
|
1023 |
!
|
|
|
1024 |
|
|
7010
|
1025 |
isBundle
|
|
|
1026 |
^ isBundle
|
|
|
1027 |
!
|
|
|
1028 |
|
|
|
1029 |
isBundle:aBoolean
|
|
|
1030 |
isBundle := aBoolean
|
|
|
1031 |
!
|
|
|
1032 |
|
|
|
1033 |
isPackage
|
|
|
1034 |
^ isBundle not
|
|
|
1035 |
!
|
|
|
1036 |
|
|
7008
|
1037 |
pundle
|
|
|
1038 |
^ pundle
|
|
|
1039 |
!
|
|
|
1040 |
|
|
|
1041 |
pundle:pundleArg version:versionArg user:userArg
|
|
|
1042 |
pundle := pundleArg.
|
|
|
1043 |
version := versionArg.
|
|
|
1044 |
user := userArg.
|
|
|
1045 |
!
|
|
|
1046 |
|
|
|
1047 |
timestamp
|
|
|
1048 |
|deltaSeconds|
|
|
|
1049 |
|
|
|
1050 |
timestamp isNil ifTrue:[
|
|
|
1051 |
"/ to compute the timestamp, we have to do this:
|
|
|
1052 |
"/ the timestampInt are seconds since 1993 + 10d + 19min + 47sec"
|
|
|
1053 |
"/ can anyone explain this ????
|
|
|
1054 |
deltaSeconds := 23*365 * 24*60*60. "/ 23 years
|
|
|
1055 |
deltaSeconds := deltaSeconds + (233*24*60*60). "/ 10 days
|
|
|
1056 |
deltaSeconds := deltaSeconds + (19*60). "/ 19 minutes
|
|
|
1057 |
deltaSeconds := deltaSeconds + (47). "/ 47 seconds
|
|
|
1058 |
|
|
|
1059 |
timestamp := Timestamp secondsSince1970:(timestampInt + deltaSeconds).
|
|
|
1060 |
].
|
|
|
1061 |
^ timestamp
|
|
|
1062 |
!
|
|
|
1063 |
|
|
|
1064 |
timestampInt:timestampIntArg commentId:commentIdArg
|
|
|
1065 |
timestampInt := timestampIntArg.
|
|
|
1066 |
commentId := commentIdArg.
|
|
|
1067 |
!
|
|
|
1068 |
|
|
|
1069 |
user
|
|
|
1070 |
^ user
|
|
|
1071 |
!
|
|
|
1072 |
|
|
|
1073 |
version
|
|
|
1074 |
^ version
|
|
|
1075 |
! !
|
|
|
1076 |
|
|
|
1077 |
!StoreProjectBrowser::PundleVersion methodsFor:'comparing'!
|
|
|
1078 |
|
|
|
1079 |
isVersionAfter:anotherVersion
|
|
|
1080 |
|myMajor othersMajor myMinor othersMinor|
|
|
|
1081 |
|
|
|
1082 |
myMajor := self majorVersion.
|
|
|
1083 |
othersMajor := anotherVersion majorVersion.
|
|
|
1084 |
|
|
|
1085 |
myMajor > othersMajor ifTrue:[^ true].
|
|
|
1086 |
myMajor < othersMajor ifTrue:[^ false].
|
|
|
1087 |
|
|
|
1088 |
myMinor := self minorVersion.
|
|
|
1089 |
othersMinor := anotherVersion minorVersion.
|
|
|
1090 |
|
|
|
1091 |
myMinor > othersMinor ifTrue:[^ true].
|
|
|
1092 |
myMinor < othersMinor ifTrue:[^ false].
|
|
|
1093 |
|
|
|
1094 |
^ version > anotherVersion version
|
|
|
1095 |
!
|
|
|
1096 |
|
|
|
1097 |
majorVersion
|
|
|
1098 |
^ Integer readFrom:(version upTo:$:)
|
|
|
1099 |
!
|
|
|
1100 |
|
|
|
1101 |
minorVersion
|
|
|
1102 |
^ Integer readFrom:((version restAfter:$.) upTo:$.)
|
|
|
1103 |
! !
|
|
|
1104 |
|
|
|
1105 |
!StoreProjectBrowser::PundleVersion methodsFor:'printing'!
|
|
|
1106 |
|
|
|
1107 |
displayString
|
|
|
1108 |
^ version , ' (',user,') ' , self timestamp printString
|
|
|
1109 |
! !
|
|
|
1110 |
|
|
8731
|
1111 |
!StoreProjectBrowser::StoreProjectChangeSetReader methodsFor:'accessing'!
|
|
|
1112 |
|
|
|
1113 |
browser:browserArg dbConnection:dbConnectionArg bundleOrPackage:bundleOrPackageArg version:versionArg
|
|
|
1114 |
browser := browserArg.
|
|
|
1115 |
dbConnection := dbConnectionArg.
|
|
|
1116 |
bundleOrPackage := bundleOrPackageArg.
|
|
|
1117 |
version := versionArg.
|
|
|
1118 |
! !
|
|
|
1119 |
|
|
|
1120 |
!StoreProjectBrowser::StoreProjectChangeSetReader methodsFor:'reading'!
|
|
|
1121 |
|
|
|
1122 |
allClassesDo:aBlock
|
|
|
1123 |
|packageId cursor row entries classes|
|
|
|
1124 |
|
|
|
1125 |
packageId := bundleOrPackage id.
|
|
|
1126 |
|
|
|
1127 |
entries := OrderedCollection new.
|
|
|
1128 |
cursor := dbConnection
|
|
|
1129 |
execute:('SELECT classref,metaclassref,definitionorder FROM tw_pkgclasses WHERE packageref = %1'
|
|
|
1130 |
bindWith:packageId)
|
|
|
1131 |
release:false.
|
|
|
1132 |
|
|
|
1133 |
[cursor next notNil] whileTrue:[
|
|
|
1134 |
row := cursor rowAsObject.
|
|
|
1135 |
entries add:row.
|
|
|
1136 |
].
|
|
|
1137 |
cursor release.
|
|
|
1138 |
|
|
|
1139 |
classes := entries collect:[:entry |
|
|
|
1140 |
|records classRecord metaclassRecord|
|
|
|
1141 |
|
|
|
1142 |
"/ entry classref
|
|
|
1143 |
"/ entry metaclassref
|
|
|
1144 |
"/ entry definitionorder
|
|
|
1145 |
cursor := dbConnection
|
|
|
1146 |
execute:('SELECT name,definitionid,commentid,environmentstring,superclass
|
|
|
1147 |
FROM tw_classrecord WHERE primarykey = %1'
|
|
|
1148 |
bindWith:entry classref)
|
|
|
1149 |
release:false.
|
|
|
1150 |
records := OrderedCollection new.
|
|
|
1151 |
[cursor next notNil] whileTrue:[
|
|
|
1152 |
row := cursor rowAsObject.
|
|
|
1153 |
records add:row.
|
|
|
1154 |
].
|
|
|
1155 |
cursor release.
|
|
|
1156 |
self assert:(records size == 1).
|
|
|
1157 |
classRecord := records first.
|
|
|
1158 |
|
|
|
1159 |
cursor := dbConnection
|
|
|
1160 |
execute:('SELECT name,definitionid,commentid,environmentstring,superclass
|
|
|
1161 |
FROM tw_classrecord WHERE primarykey = %1'
|
|
|
1162 |
bindWith:entry metaclassref)
|
|
|
1163 |
release:false.
|
|
|
1164 |
records := OrderedCollection new.
|
|
|
1165 |
[cursor next notNil] whileTrue:[
|
|
|
1166 |
row := cursor rowAsObject.
|
|
|
1167 |
records add:row.
|
|
|
1168 |
].
|
|
|
1169 |
cursor release.
|
|
|
1170 |
self assert:(records size == 1).
|
|
|
1171 |
metaclassRecord := records first.
|
|
|
1172 |
|
|
|
1173 |
{ classRecord. metaclassRecord. entry definitionorder }
|
|
|
1174 |
].
|
|
|
1175 |
!
|
|
|
1176 |
|
|
|
1177 |
changeSet
|
|
|
1178 |
"build a changeSet from the bundle or package
|
|
|
1179 |
Return the changeSet."
|
|
|
1180 |
|
|
|
1181 |
changeSet := ChangeSet new.
|
|
|
1182 |
self fetchClassDefinitions.
|
|
|
1183 |
"/ changesFromStream:aStream
|
|
|
1184 |
"/ for:changeSet
|
|
|
1185 |
"/ reader:(ChangeFileReader new)
|
|
|
1186 |
"/ do:[:aChange :lineNumberOrNil :posOrNil |
|
|
|
1187 |
"/ changeSet add:aChange.
|
|
|
1188 |
"/ (aConditionBlock value:aChange) ifFalse:[^ changeSet].
|
|
|
1189 |
"/ ].
|
|
|
1190 |
|
|
|
1191 |
^ changeSet
|
|
|
1192 |
!
|
|
|
1193 |
|
|
|
1194 |
fetchClassDefinitions
|
|
|
1195 |
|packageId cursor row entries classes change|
|
|
|
1196 |
|
|
|
1197 |
packageId := version id.
|
|
|
1198 |
|
|
|
1199 |
entries := OrderedCollection new.
|
|
|
1200 |
cursor := dbConnection
|
|
|
1201 |
execute:('SELECT classref,metaclassref,definitionorder FROM tw_pkgclasses WHERE packageref = %1'
|
|
|
1202 |
bindWith:packageId)
|
|
|
1203 |
release:false.
|
|
|
1204 |
|
|
|
1205 |
[cursor next notNil] whileTrue:[
|
|
|
1206 |
row := cursor rowAsObject.
|
|
|
1207 |
entries add:row.
|
|
|
1208 |
].
|
|
|
1209 |
cursor release.
|
|
|
1210 |
|
|
|
1211 |
classes := entries collect:[:entry |
|
|
|
1212 |
|records classRecord metaclassRecord definitionString|
|
|
|
1213 |
|
|
|
1214 |
"/ entry classref
|
|
|
1215 |
"/ entry metaclassref
|
|
|
1216 |
"/ entry definitionorder
|
|
|
1217 |
cursor := dbConnection
|
|
|
1218 |
execute:('SELECT name,definitionid,commentid,environmentstring,superclass
|
|
|
1219 |
FROM tw_classrecord WHERE primarykey = %1'
|
|
|
1220 |
bindWith:entry classref)
|
|
|
1221 |
release:false.
|
|
|
1222 |
records := OrderedCollection new.
|
|
|
1223 |
[cursor next notNil] whileTrue:[
|
|
|
1224 |
row := cursor rowAsObject.
|
|
|
1225 |
records add:row.
|
|
|
1226 |
].
|
|
|
1227 |
cursor release.
|
|
|
1228 |
self assert:(records size == 1).
|
|
|
1229 |
classRecord := records first.
|
|
|
1230 |
|
|
|
1231 |
cursor := dbConnection
|
|
|
1232 |
execute:('SELECT name,definitionid,commentid,environmentstring,superclass
|
|
|
1233 |
FROM tw_classrecord WHERE primarykey = %1'
|
|
|
1234 |
bindWith:entry metaclassref)
|
|
|
1235 |
release:false.
|
|
|
1236 |
records := OrderedCollection new.
|
|
|
1237 |
[cursor next notNil] whileTrue:[
|
|
|
1238 |
row := cursor rowAsObject.
|
|
|
1239 |
records add:row.
|
|
|
1240 |
].
|
|
|
1241 |
cursor release.
|
|
|
1242 |
self assert:(records size == 1).
|
|
|
1243 |
metaclassRecord := records first.
|
|
|
1244 |
|
|
|
1245 |
change := ClassDefinitionChange new.
|
|
|
1246 |
definitionString := browser getBlob:(classRecord definitionid).
|
|
|
1247 |
change source:definitionString.
|
|
|
1248 |
change className:classRecord name.
|
|
|
1249 |
"/ change superClassName:metaclassRecord name.
|
|
|
1250 |
change package:bundleOrPackage name.
|
|
|
1251 |
changeSet add:change.
|
|
|
1252 |
|
|
|
1253 |
{ classRecord. metaclassRecord. entry definitionorder }
|
|
|
1254 |
].
|
|
|
1255 |
! !
|
|
|
1256 |
|
|
7006
|
1257 |
!StoreProjectBrowser class methodsFor:'documentation'!
|
|
|
1258 |
|
|
|
1259 |
version
|
|
8731
|
1260 |
^ '$Header: /cvs/stx/stx/libtool/Tools__StoreProjectBrowser.st,v 1.11 2009-09-21 09:41:13 cg Exp $'
|
|
7006
|
1261 |
! !
|