equal
deleted
inserted
replaced
2331 abort:(resources string:'Abort') |
2331 abort:(resources string:'Abort') |
2332 pattern:'*.chg'. |
2332 pattern:'*.chg'. |
2333 |
2333 |
2334 fileName notNil ifTrue:[ |
2334 fileName notNil ifTrue:[ |
2335 lastSaveFileName := fileName. |
2335 lastSaveFileName := fileName. |
2336 self withCursor:(Cursor write) do:[ |
2336 self withWriteCursorDo:[ |
2337 self appendChange:changeNr toFile:fileName. |
2337 self appendChange:changeNr toFile:fileName. |
2338 ]. |
2338 ]. |
2339 self autoSelect:(changeNr + 1) |
2339 self autoSelect:(changeNr + 1) |
2340 ]. |
2340 ]. |
2341 ] |
2341 ] |
2342 |
2342 |
2343 "Modified: / 27-10-2010 / 11:30:07 / cg" |
2343 "Modified: / 27-07-2012 / 09:46:14 / cg" |
2344 ! |
2344 ! |
2345 |
2345 |
2346 doSaveClass |
2346 doSaveClass |
2347 "user wants changes for some class from current to end to be appended to a file" |
2347 "user wants changes for some class from current to end to be appended to a file" |
2348 |
2348 |
2405 abort:(resources string:'Abort') |
2405 abort:(resources string:'Abort') |
2406 pattern:'*.chg'. |
2406 pattern:'*.chg'. |
2407 |
2407 |
2408 fileName notNil ifTrue:[ |
2408 fileName notNil ifTrue:[ |
2409 lastSaveFileName := fileName. |
2409 lastSaveFileName := fileName. |
2410 self withCursor:(Cursor write) do:[ |
2410 self withWriteCursorDo:[ |
2411 changeNr to:(self numberOfChanges) do:[:changeNr | |
2411 changeNr to:(self numberOfChanges) do:[:changeNr | |
2412 changeListView setSelection:changeNr. |
2412 changeListView setSelection:changeNr. |
2413 (self appendChange:changeNr toFile:fileName) ifFalse:[ |
2413 (self appendChange:changeNr toFile:fileName) ifFalse:[ |
2414 ^ self |
2414 ^ self |
2415 ] |
2415 ] |
2416 ] |
2416 ] |
2417 ] |
2417 ] |
2418 ] |
2418 ] |
2419 |
2419 |
2420 "Modified: / 27-10-2010 / 11:30:37 / cg" |
2420 "Modified: / 27-07-2012 / 09:46:09 / cg" |
2421 ! |
2421 ! |
2422 |
2422 |
2423 doUpdate |
2423 doUpdate |
2424 "reread the changes-file" |
2424 "reread the changes-file" |
2425 |
2425 |
4206 encoding notNil ifTrue:[ |
4206 encoding notNil ifTrue:[ |
4207 decoder := CharacterEncoder encoderFor:encoding. |
4207 decoder := CharacterEncoder encoderFor:encoding. |
4208 inStream := EncodedStream stream:inStream encoder:decoder. |
4208 inStream := EncodedStream stream:inStream encoder:decoder. |
4209 ]. |
4209 ]. |
4210 |
4210 |
4211 self withCursor:(Cursor write) do:[ |
4211 self withWriteCursorDo:[ |
4212 |excla sawExcla done first chunk |
4212 |excla sawExcla done first chunk |
4213 nChanges "{Class:SmallInteger}" | |
4213 nChanges "{Class:SmallInteger}" | |
4214 |
4214 |
4215 Stream writeErrorSignal handle:[:ex | |
4215 Stream writeErrorSignal handle:[:ex | |
4216 self warn:('Could not update the changes file.\\' , ex description) withCRs. |
4216 self warn:('Could not update the changes file.\\' , ex description) withCRs. |
4279 ]. |
4279 ]. |
4280 |
4280 |
4281 ^ true |
4281 ^ true |
4282 |
4282 |
4283 "Modified: / 02-12-1996 / 22:29:15 / stefan" |
4283 "Modified: / 02-12-1996 / 22:29:15 / stefan" |
4284 "Modified: / 03-02-2012 / 11:01:20 / cg" |
4284 "Modified: / 27-07-2012 / 09:46:00 / cg" |
4285 ! ! |
4285 ! ! |
4286 |
4286 |
4287 !ChangesBrowser methodsFor:'private-user interaction ops'! |
4287 !ChangesBrowser methodsFor:'private-user interaction ops'! |
4288 |
4288 |
4289 appendChange:changeNr toFile:aFileNameOrFileNameString |
4289 appendChange:changeNr toFile:aFileNameOrFileNameString |
5751 abort:(resources string:'Abort') |
5751 abort:(resources string:'Abort') |
5752 pattern:'*.chg'. |
5752 pattern:'*.chg'. |
5753 |
5753 |
5754 fileName notNil ifTrue:[ |
5754 fileName notNil ifTrue:[ |
5755 lastSaveFileName := fileName. |
5755 lastSaveFileName := fileName. |
5756 self withCursor:(Cursor write) do:[ |
5756 self withWriteCursorDo:[ |
5757 startNr to:(self numberOfChanges) do:[:changeNr | |
5757 startNr to:(self numberOfChanges) do:[:changeNr | |
5758 |thisClassName| |
5758 |thisClassName| |
5759 |
5759 |
5760 thisClassName := self classNameOfChange:changeNr. |
5760 thisClassName := self classNameOfChange:changeNr. |
5761 thisClassName = aClassName ifTrue:[ |
5761 thisClassName = aClassName ifTrue:[ |
5767 ] |
5767 ] |
5768 ] |
5768 ] |
5769 ]. |
5769 ]. |
5770 ] |
5770 ] |
5771 |
5771 |
5772 "Modified: / 27-10-2010 / 11:31:06 / cg" |
5772 "Modified: / 27-07-2012 / 09:46:04 / cg" |
5773 ! |
5773 ! |
5774 |
5774 |
5775 selectionChanged |
5775 selectionChanged |
5776 self halt |
5776 self halt |
5777 |
5777 |
6448 ! ! |
6448 ! ! |
6449 |
6449 |
6450 !ChangesBrowser class methodsFor:'documentation'! |
6450 !ChangesBrowser class methodsFor:'documentation'! |
6451 |
6451 |
6452 version |
6452 version |
6453 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.430 2012-07-26 21:12:48 cg Exp $' |
6453 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.431 2012-07-27 07:56:36 cg Exp $' |
6454 ! |
6454 ! |
6455 |
6455 |
6456 version_CVS |
6456 version_CVS |
6457 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.430 2012-07-26 21:12:48 cg Exp $' |
6457 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.431 2012-07-27 07:56:36 cg Exp $' |
6458 ! ! |
6458 ! ! |