# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1288172403 -7200
# Node ID 016c17b8d31fd804422b23416c3c5fbd729cfba2
# Parent  1d7564fd77a7aae97011e92744581ef818e0233e
changed:
        #doSave
        #doSaveRest
        #saveClass:from:

diff -r 1d7564fd77a7 -r 016c17b8d31f ChangesBrowser.st
--- 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 $'
 ! !