--- a/ChangesBrowser.st Wed Oct 27 11:38:00 2010 +0200
+++ b/ChangesBrowser.st Wed Oct 27 11:40:03 2010 +0200
@@ -4804,21 +4804,23 @@
|fileName|
self withSelectedChangesDo:[:changeNr |
- fileName := Dialog
- requestFileName:'Append change to:'
- default:(lastSaveFileName ? '')
- ok:'Append'
- abort:'Abort'
- pattern:'*.chg'.
-
- fileName notNil ifTrue:[
- lastSaveFileName := fileName.
- self withCursor:(Cursor write) do:[
- self appendChange:changeNr toFile:fileName.
- ].
- self autoSelect:(changeNr + 1)
- ].
+ fileName := Dialog
+ requestFileNameForSave:(resources string:'Append change to:')
+ default:(lastSaveFileName ? '')
+ ok:(resources string:'Append')
+ abort:(resources string:'Abort')
+ pattern:'*.chg'.
+
+ fileName notNil ifTrue:[
+ lastSaveFileName := fileName.
+ self withCursor:(Cursor write) do:[
+ self appendChange:changeNr toFile:fileName.
+ ].
+ self autoSelect:(changeNr + 1)
+ ].
]
+
+ "Modified: / 27-10-2010 / 11:30:07 / cg"
!
doSaveClass
@@ -4873,29 +4875,29 @@
|changeNr fileName|
(changeNr := self theSingleSelection) isNil ifTrue:[
- ^ self information:'Only possible if a single change is selected.'.
+ ^ self information:(resources string:'Only possible if a single change is selected.').
].
fileName := Dialog
- requestFileName:'Append changes to:'
- default:(lastSaveFileName ? '')
- ok:'Append'
- abort:'Abort'
- pattern:'*.chg'.
+ requestFileNameForSave:(resources string:'Append changes to:')
+ default:(lastSaveFileName ? '')
+ ok:(resources string:'Append')
+ abort:(resources string:'Abort')
+ pattern:'*.chg'.
fileName notNil ifTrue:[
- lastSaveFileName := fileName.
- self withCursor:(Cursor write) do:[
- changeNr to:(self numberOfChanges) do:[:changeNr |
- changeListView setSelection:changeNr.
- (self appendChange:changeNr toFile:fileName) ifFalse:[
- ^ self
- ]
- ]
- ]
+ lastSaveFileName := fileName.
+ self withCursor:(Cursor write) do:[
+ changeNr to:(self numberOfChanges) do:[:changeNr |
+ changeListView setSelection:changeNr.
+ (self appendChange:changeNr toFile:fileName) ifFalse:[
+ ^ self
+ ]
+ ]
+ ]
]
- "Modified: 25.5.1996 / 12:26:41 / cg"
+ "Modified: / 27-10-2010 / 11:30:37 / cg"
!
doUpdate
@@ -5398,32 +5400,32 @@
changeNr := changeListView selection.
changeNr notNil ifTrue:[
- fileName := Dialog
- requestFileName:'Append changes for class to:'
- default:(lastSaveFileName ? '')
- ok:'Append'
- abort:'Abort'
- pattern:'*.chg'.
-
- fileName notNil ifTrue:[
- lastSaveFileName := fileName.
- self withCursor:(Cursor write) do:[
- startNr to:(self numberOfChanges) do:[:changeNr |
- |thisClassName|
-
- thisClassName := self classNameOfChange:changeNr.
- thisClassName = aClassName ifTrue:[
- self setSingleSelection:changeNr.
- (self appendChange:changeNr toFile:fileName) ifFalse:[
- ^ self
- ]
- ]
- ]
- ]
- ].
+ fileName := Dialog
+ requestFileNameForSave:(resources string:'Append changes for class to:')
+ default:(lastSaveFileName ? '')
+ ok:(resources string:'Append')
+ abort:(resources string:'Abort')
+ pattern:'*.chg'.
+
+ fileName notNil ifTrue:[
+ lastSaveFileName := fileName.
+ self withCursor:(Cursor write) do:[
+ startNr to:(self numberOfChanges) do:[:changeNr |
+ |thisClassName|
+
+ thisClassName := self classNameOfChange:changeNr.
+ thisClassName = aClassName ifTrue:[
+ self setSingleSelection:changeNr.
+ (self appendChange:changeNr toFile:fileName) ifFalse:[
+ ^ self
+ ]
+ ]
+ ]
+ ]
+ ].
]
- "Modified: 25.5.1996 / 12:26:44 / cg"
+ "Modified: / 27-10-2010 / 11:31:06 / cg"
!
setEnforcedNameSpace
@@ -6160,9 +6162,9 @@
!ChangesBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.406 2010-09-20 17:37:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.407 2010-10-27 09:40:03 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.406 2010-09-20 17:37:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.407 2010-10-27 09:40:03 cg Exp $'
! !