equal
deleted
inserted
replaced
1 "{ Package: 'stx:libscm/mercurial' }"! |
1 "{ Package: 'stx:libscm/mercurial' }"! |
|
2 |
|
3 !AbstractFileBrowser class methodsFor:'menu specs-scm'! |
|
4 |
|
5 hgMenu |
|
6 "This resource specification was automatically generated |
|
7 by the MenuEditor of ST/X." |
|
8 |
|
9 "Do not manually edit this!! If it is corrupted, |
|
10 the MenuEditor may not be able to read the specification." |
|
11 |
|
12 |
|
13 " |
|
14 MenuEditor new openOnClass:AbstractFileBrowser andSelector:#hgMenu |
|
15 (Menu new fromLiteralArrayEncoding:(AbstractFileBrowser hgMenu)) startUp |
|
16 " |
|
17 |
|
18 <resource: #menu> |
|
19 |
|
20 ^ |
|
21 #(Menu |
|
22 nil nil |
|
23 nil |
|
24 ) |
|
25 ! ! |
2 |
26 |
3 !Annotation class methodsFor:'instance creation'! |
27 !Annotation class methodsFor:'instance creation'! |
4 |
28 |
5 HGRevision: aString |
29 HGRevision: aString |
6 "Used by Mercurial to internally store revision info. Should never appear in source code!!" |
30 "Used by Mercurial to internally store revision info. Should never appear in source code!!" |
14 |
38 |
15 asHGChangesetId |
39 asHGChangesetId |
16 ^ HGChangesetId fromBytes:self. |
40 ^ HGChangesetId fromBytes:self. |
17 |
41 |
18 "Created: / 16-11-2012 / 21:33:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
42 "Created: / 16-11-2012 / 21:33:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
43 ! ! |
|
44 |
|
45 !ConfigurableFeatures class methodsFor:'queries-features'! |
|
46 |
|
47 hasHGSupport |
|
48 "/ use Smalltalk-at to trick the dependency/prerequisite generator |
|
49 ^ (Smalltalk at: #'HGSourceCodeManager' ifAbsent:nil) notNil |
|
50 |
|
51 " |
|
52 ConfigurableFeatures hasGitSupport |
|
53 " |
|
54 |
|
55 "Created: / 14-12-2012 / 15:38:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
56 ! ! |
|
57 |
|
58 !ConfigurableFeatures class methodsFor:'queries-features'! |
|
59 |
|
60 hasHGSupportEnabled |
|
61 ^ self hasSCMSupportEnabledFor:#'HGSourceCodeManager' |
|
62 |
|
63 " |
|
64 self hasGitSupportEnabled |
|
65 " |
|
66 |
|
67 "Created: / 14-12-2012 / 15:38:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
19 ! ! |
68 ! ! |
20 |
69 |
21 !Integer methodsFor:'converting'! |
70 !Integer methodsFor:'converting'! |
22 |
71 |
23 asHGChangesetId |
72 asHGChangesetId |
167 |
216 |
168 !Tools::NewSystemBrowser methodsFor:'menu actions-hg'! |
217 !Tools::NewSystemBrowser methodsFor:'menu actions-hg'! |
169 |
218 |
170 commonMenuHGBrowseWorkingCopy |
219 commonMenuHGBrowseWorkingCopy |
171 self selectedProjectsForHG value do:[:package| |
220 self selectedProjectsForHG value do:[:package| |
172 | repo wc | |
221 | pkg | |
173 |
222 |
174 repo := HGPackageModel named: package. |
223 pkg := HGPackageModel named: package. |
175 repo notNil ifTrue:[ |
224 pkg notNil ifTrue:[ |
176 wc := repo temporaryWorkingCopy. |
225 pkg repository workingCopy browse |
177 UserPreferences fileBrowserClass openOn: wc path |
226 ]. |
178 ]. |
227 ]. |
179 ]. |
228 |
180 |
229 "Modified: / 14-12-2012 / 17:51:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
181 "Modified: / 10-12-2012 / 04:00:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
182 ! ! |
230 ! ! |
183 |
231 |
184 !Tools::NewSystemBrowser methodsFor:'menus-dynamic-hg'! |
232 !Tools::NewSystemBrowser methodsFor:'menus-dynamic-hg'! |
185 |
233 |
186 commonMenuHGPushSlice |
234 commonMenuHGPushSlice |