equal
deleted
inserted
replaced
19 |
19 |
20 description |
20 description |
21 ^ 'GOODS' |
21 ^ 'GOODS' |
22 ! |
22 ! |
23 |
23 |
24 fillInTheBlankRequest |
|
25 ^ 'GOODS Repository:' |
|
26 ! |
|
27 |
|
28 host: hostname port: portNumber |
24 host: hostname port: portNumber |
29 ^ self new |
25 ^ self new |
30 host: hostname; |
26 host: hostname; |
31 port: portNumber |
27 port: portNumber |
32 ! |
|
33 |
|
34 morphicConfigure |
|
35 ^ self fillInTheBlankConfigure |
|
36 ! ! |
28 ! ! |
37 |
29 |
38 !MCGOODSRepository methodsFor:'as yet unclassified'! |
30 !MCGOODSRepository methodsFor:'as yet unclassified'! |
39 |
31 |
40 basicStoreVersion: aVersion |
32 basicStoreVersion: aVersion |
41 self root at: aVersion info put: aVersion. |
33 self root at: aVersion info put: aVersion. |
42 self db commit. |
34 self db commit. |
43 ! |
35 ! |
44 |
36 |
45 db |
37 db |
46 (connection isNil or: [connection isConnected not]) ifTrue: [connection _ KKDatabase onHost:hostname port: port]. |
38 (connection isNil or: [connection isConnected not]) ifTrue: [ |
47 |
39 connection := Smalltalk at: #KKDatabase ifPresent: [:cl | |
|
40 cl onHost:hostname port: port |
|
41 ] |
|
42 ]. |
48 ^ connection |
43 ^ connection |
49 ! |
44 ! |
50 |
45 |
51 description |
46 description |
52 ^ 'goods://', hostname asString, ':', port asString |
47 ^ 'goods://', hostname asString, ':', port asString |
53 ! |
48 ! |
54 |
49 |
55 host: aString |
50 host: aString |
56 hostname _ aString |
51 hostname := aString |
57 ! |
|
58 |
|
59 morphicOpen: aWorkingCopy |
|
60 (MCRepositoryInspector repository: self workingCopy: aWorkingCopy) show |
|
61 ! |
52 ! |
62 |
53 |
63 packages |
54 packages |
64 ^ (self root collect: [:ea | ea package]) asSet asSortedCollection |
55 ^ (self root collect: [:ea | ea package]) asSet asSortedCollection |
65 ! |
56 ! |
66 |
57 |
67 port: aNumber |
58 port: aNumber |
68 port _ aNumber |
59 port := aNumber |
69 ! |
60 ! |
70 |
61 |
71 root |
62 root |
72 self db root ifNil: [self db root: Dictionary new]. |
63 self db root ifNil: [self db root: Dictionary new]. |
73 ^ self db root |
64 ^ self db root |
82 ! ! |
73 ! ! |
83 |
74 |
84 !MCGOODSRepository class methodsFor:'documentation'! |
75 !MCGOODSRepository class methodsFor:'documentation'! |
85 |
76 |
86 version |
77 version |
87 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCGOODSRepository.st,v 1.1 2006-11-22 13:22:33 cg Exp $' |
78 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCGOODSRepository.st,v 1.2 2011-08-20 11:44:04 cg Exp $' |
|
79 ! |
|
80 |
|
81 version_CVS |
|
82 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCGOODSRepository.st,v 1.2 2011-08-20 11:44:04 cg Exp $' |
|
83 ! |
|
84 |
|
85 version_SVN |
|
86 ^ '§Id: MCGOODSRepository.st 5 2010-08-29 07:30:29Z vranyj1 §' |
88 ! ! |
87 ! ! |