*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 20 May 1998 03:54:20 +0200
changeset 1656 fee64a2c7c7d
parent 1655 9c65652162fb
child 1657 eeb0faf5dc01
*** empty log message ***
NewChangesBrowser.st
--- a/NewChangesBrowser.st	Wed May 20 00:58:40 1998 +0200
+++ b/NewChangesBrowser.st	Wed May 20 03:54:20 1998 +0200
@@ -2844,15 +2844,17 @@
 
     modified ifTrue:[
         (OptionBox 
-              request:(resources at:'Changes list was modified!!') withCRs
+              request:(resources string:'Changes list was modified !!') withCRs
               label:'Changes Browser'
               form:(WarningBox iconBitmap)
-              buttonLabels:#('Cancel' ' Waste it and proceed ')
+              buttonLabels:(resources array:#('Cancel' 'Forget it and proceed'))
               values:#(#abort #ignore)
               default:#save
         ) == #abort ifTrue:[^self].
     ].
     super closeRequest
+
+    "Modified: / 20.5.1998 / 03:53:47 / cg"
 !
 
 postOpenWith:aBuilder
@@ -3476,5 +3478,5 @@
 !NewChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.14 1998-05-19 19:18:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.15 1998-05-20 01:54:20 cg Exp $'
 ! !