equal
deleted
inserted
replaced
2365 doSave |
2365 doSave |
2366 "user wants a change to be appended to a file" |
2366 "user wants a change to be appended to a file" |
2367 |
2367 |
2368 |fileName| |
2368 |fileName| |
2369 |
2369 |
2370 self withSelectedChangesDo:[:changeNr | |
2370 fileName := Dialog |
2371 fileName := Dialog |
2371 requestFileNameForSave:(resources string:'Append change to:') |
2372 requestFileNameForSave:(resources string:'Append change to:') |
2372 default:(lastSaveFileName ? '') |
2373 default:(lastSaveFileName ? '') |
2373 ok:(resources string:'Append') |
2374 ok:(resources string:'Append') |
2374 abort:(resources string:'Abort') |
2375 abort:(resources string:'Abort') |
2375 pattern:'*.chg'. |
2376 pattern:'*.chg'. |
2376 fileName isEmptyOrNil ifTrue:[ |
2377 |
2377 ^ self |
2378 fileName notNil ifTrue:[ |
2378 ]. |
2379 lastSaveFileName := fileName. |
2379 lastSaveFileName := fileName. |
2380 self withWriteCursorDo:[ |
2380 |
2381 self appendChange:changeNr toFile:fileName. |
2381 self withWriteCursorDo:[ |
2382 ]. |
2382 self withSelectedChangesDo:[:changeNr | |
|
2383 self appendChange:changeNr toFile:fileName. |
2383 self autoSelect:(changeNr + 1) |
2384 self autoSelect:(changeNr + 1) |
2384 ]. |
2385 ]. |
2385 ] |
2386 ] |
2386 |
2387 |
2387 "Modified: / 27-07-2012 / 09:46:14 / cg" |
2388 "Modified: / 27-07-2012 / 09:46:14 / cg" |
6536 ! ! |
6537 ! ! |
6537 |
6538 |
6538 !ChangesBrowser class methodsFor:'documentation'! |
6539 !ChangesBrowser class methodsFor:'documentation'! |
6539 |
6540 |
6540 version |
6541 version |
6541 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.450 2013-08-31 19:27:26 cg Exp $' |
6542 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.451 2013-10-28 17:29:18 stefan Exp $' |
6542 ! |
6543 ! |
6543 |
6544 |
6544 version_CVS |
6545 version_CVS |
6545 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.450 2013-08-31 19:27:26 cg Exp $' |
6546 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.451 2013-10-28 17:29:18 stefan Exp $' |
6546 ! |
6547 ! |
6547 |
6548 |
6548 version_HG |
6549 version_HG |
6549 |
6550 |
6550 ^ '$Changeset: <not expanded> $' |
6551 ^ '$Changeset: <not expanded> $' |