equal
deleted
inserted
replaced
21 |
21 |
22 ChangeSetBrowser comment:' |
22 ChangeSetBrowser comment:' |
23 COPYRIGHT (c) 1993 by Claus Gittinger |
23 COPYRIGHT (c) 1993 by Claus Gittinger |
24 All Rights Reserved |
24 All Rights Reserved |
25 |
25 |
26 $Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.1 1994-08-05 01:38:32 claus Exp $ |
26 $Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.2 1994-08-23 23:48:28 claus Exp $ |
27 '! |
27 '! |
28 |
28 |
29 !ChangeSetBrowser class methodsFor:'documentation'! |
29 !ChangeSetBrowser class methodsFor:'documentation'! |
30 |
30 |
31 copyright |
31 copyright |
42 " |
42 " |
43 ! |
43 ! |
44 |
44 |
45 version |
45 version |
46 " |
46 " |
47 $Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.1 1994-08-05 01:38:32 claus Exp $ |
47 $Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.2 1994-08-23 23:48:28 claus Exp $ |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 documentation |
51 documentation |
52 " |
52 " |
54 " |
54 " |
55 ! ! |
55 ! ! |
56 |
56 |
57 !ChangeSetBrowser class methodsFor:'instance creation'! |
57 !ChangeSetBrowser class methodsFor:'instance creation'! |
58 |
58 |
59 startOn:aChangeSet |
59 openOn:aChangeSet |
60 "create c changes browser on a change set" |
60 "create c changes browser on a change set" |
61 |
61 |
62 ^ ((self new label:'ChangeSet Browser') changeSet:aChangeSet) realize |
62 ^ ((self new label:'ChangeSet Browser') changeSet:aChangeSet) realize |
63 ! ! |
63 ! ! |
64 |
64 |