equal
deleted
inserted
replaced
3028 outStream isNil ifTrue:[ |
3028 outStream isNil ifTrue:[ |
3029 self warn:'Cannot create temporary file in current directory.'. |
3029 self warn:'Cannot create temporary file in current directory.'. |
3030 ^ false |
3030 ^ false |
3031 ]. |
3031 ]. |
3032 |
3032 |
3033 changeFileName asFilename copyTo: changeFileName,'S'. |
|
3034 inStream := FileStream readonlyFileNamed:changeFileName. |
3033 inStream := FileStream readonlyFileNamed:changeFileName. |
3035 inStream isNil ifTrue:[^ false]. |
3034 inStream isNil ifTrue:[^ false]. |
3036 |
3035 |
3037 self withCursor:(Cursor write) do:[ |
3036 self withCursor:(Cursor write) do:[ |
3038 |excla sawExcla done chunk |
3037 |excla sawExcla done chunk |
3208 ! ! |
3207 ! ! |
3209 |
3208 |
3210 !NewChangesBrowser class methodsFor:'documentation'! |
3209 !NewChangesBrowser class methodsFor:'documentation'! |
3211 |
3210 |
3212 version |
3211 version |
3213 ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.3 1998-04-16 23:03:20 tz Exp $' |
3212 ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.4 1998-04-17 16:54:32 tz Exp $' |
3214 |
3213 |
3215 ! ! |
3214 ! ! |