dont send obsolete message to OptionBox
authorClaus Gittinger <cg@exept.de>
Tue, 08 Jun 2004 20:10:03 +0200
changeset 5898 f6214812e1d2
parent 5897 794412ca927e
child 5899 248a934c7599
dont send obsolete message to OptionBox
AbstractFileBrowser.st
BrowserView.st
--- a/AbstractFileBrowser.st	Tue Jun 08 17:03:57 2004 +0200
+++ b/AbstractFileBrowser.st	Tue Jun 08 20:10:03 2004 +0200
@@ -3699,7 +3699,7 @@
     answer := OptionBox 
                   request:msg 
                   label:'Move or Copy'
-                  form:(WarningBox iconBitmap)
+                  image:(WarningBox iconBitmap)
                   buttonLabels:#('Cancel' 'Move' 'Copy' 'Copy As...')
                   values:#(#cancel #move #copy #copyAs)
                   default:#copy.
@@ -6882,5 +6882,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.236 2004-06-01 11:15:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.237 2004-06-08 18:10:03 cg Exp $'
 ! !
--- a/BrowserView.st	Tue Jun 08 17:03:57 2004 +0200
+++ b/BrowserView.st	Tue Jun 08 20:10:03 2004 +0200
@@ -12942,7 +12942,7 @@
                                               bindWith:(oldPkg allBold))
 
                                           label:'Class redefinition'
-                                          form:(WarningBox iconBitmap)
+                                          image:(WarningBox iconBitmap)
                                           buttonLabels:#('Cancel' 'Continue')
                                           values:#(#cancel #keep)
                                           default:#keep.
@@ -14632,7 +14632,7 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.777 2004-05-18 13:31:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.778 2004-06-08 18:09:09 cg Exp $'
 ! !
 
 BrowserView initialize!