equal
deleted
inserted
replaced
1693 ^theChangeSet |
1693 ^theChangeSet |
1694 ! |
1694 ! |
1695 |
1695 |
1696 changeSetForClass:aClass andSource:aSource |
1696 changeSetForClass:aClass andSource:aSource |
1697 "return a ChangeSet for the class aClass and source aSource. |
1697 "return a ChangeSet for the class aClass and source aSource. |
1698 The source is converted to a stream and then the change set is generated |
1698 The source is converted to a stream and then the change set is generated |
1699 from the source stream. |
1699 from the source stream. |
1700 |
1700 |
1701 <return: ChangeSet|nil> |
1701 <return: ChangeSet|nil>" |
1702 " |
1702 |
1703 |theChangeSet theSourceStream| |
1703 |theChangeSet theSourceStream| |
1704 |
1704 |
|
1705 #nilFile. |
|
1706 |
1705 [ |
1707 [ |
1706 (theSourceStream := aSource readStream) notNil |
1708 (theSourceStream := aSource readStream) notNil ifTrue:[ |
1707 ifTrue:[ |
|
1708 theChangeSet := ChangeSet fromStream:(theSourceStream := aSource readStream) |
1709 theChangeSet := ChangeSet fromStream:(theSourceStream := aSource readStream) |
1709 ] |
1710 ] |
1710 ] ensure:[ |
1711 ] ensure:[ |
1711 theSourceStream notNil ifTrue:[ |
1712 theSourceStream notNil ifTrue:[ |
1712 theSourceStream close |
1713 theSourceStream close |
1985 ! ! |
1986 ! ! |
1986 |
1987 |
1987 !VersionDiffBrowser class methodsFor:'documentation'! |
1988 !VersionDiffBrowser class methodsFor:'documentation'! |
1988 |
1989 |
1989 version |
1990 version |
1990 ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.63 2002-12-10 11:02:15 cg Exp $' |
1991 ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.64 2003-03-02 18:45:14 stefan Exp $' |
1991 ! ! |
1992 ! ! |