equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/monticello' }" |
1 "{ Package: 'stx:goodies/monticello' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 MCBrowserList subclass:#MCVersionList |
5 MCBrowserList subclass:#MCVersionList |
4 instanceVariableNames:'' |
6 instanceVariableNames:'' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
50 vn2 := v2 versionNumber. |
52 vn2 := v2 versionNumber. |
51 (vn1 notNil and:[vn2 notNil]) |
53 (vn1 notNil and:[vn2 notNil]) |
52 ifTrue:[vn1 > vn2] |
54 ifTrue:[vn1 > vn2] |
53 ifFalse:[v1 name > v2 name]]. |
55 ifFalse:[v1 name > v2 name]]. |
54 generator do:[:verentry|list add: verentry]. |
56 generator do:[:verentry|list add: verentry]. |
55 listHolder value: list. |
57 self listHolder value: list. |
56 listValid := true. |
58 self setListValid:true. |
57 ]. |
59 ]. |
58 |
60 |
59 "Modified: / 13-10-2010 / 15:32:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
61 "Modified: / 13-10-2010 / 15:32:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
60 "Modified: / 20-08-2011 / 16:24:11 / cg" |
62 "Modified: / 20-08-2011 / 16:24:11 / cg" |
61 ! ! |
63 ! ! |
62 |
64 |
63 !MCVersionList class methodsFor:'documentation'! |
65 !MCVersionList class methodsFor:'documentation'! |
64 |
66 |
65 version |
67 version |
66 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionList.st,v 1.4 2012-09-11 21:15:40 cg Exp $' |
68 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionList.st,v 1.5 2015-02-01 14:14:41 cg Exp $' |
67 ! |
69 ! |
68 |
70 |
69 version_CVS |
71 version_CVS |
70 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionList.st,v 1.4 2012-09-11 21:15:40 cg Exp $' |
72 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionList.st,v 1.5 2015-02-01 14:14:41 cg Exp $' |
71 ! |
73 ! |
72 |
74 |
73 version_SVN |
75 version_SVN |
74 ^ '§Id: MCVersionList.st 19 2010-10-14 10:51:48Z vranyj1 §' |
76 ^ '$Id: MCVersionList.st,v 1.5 2015-02-01 14:14:41 cg Exp $' |
75 ! ! |
77 ! ! |
|
78 |