# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1377772120 -7200
# Node ID 746b845d81a2a8213d69a36df10cab3923c67ae6
# Parent  0dbda3c5121c6c74126d80bb7fce5c5fe88706ab
class: BrowserView
changed:
        #classCategoryFileOutBinaryEach
        #classCategoryFindClassOpen:
no need to care for ok-button position in panel here
(panel does it already)

diff -r 0dbda3c5121c -r 746b845d81a2 BrowserView.st
--- a/BrowserView.st	Thu Aug 29 12:27:38 2013 +0200
+++ b/BrowserView.st	Thu Aug 29 12:28:40 2013 +0200
@@ -2293,8 +2293,8 @@
         ^ self
     ].
 
-    mode := Dialog choose:(resources string:'save including sources ?')
-                   labels:(resources array:#('cancel' 'discard' 'by file reference' 'include source'))
+    mode := Dialog choose:(resources string:'Save including sources ?')
+                   labels:(resources array:#('Cancel' 'Discard' 'By file reference' 'Include source'))
                    values:#(nil #discard #reference #keep)
                    default:#keep.
 
@@ -2305,9 +2305,9 @@
             aClass isPrivate ifFalse:[
                 (self listOfNamespaces includesIdentical:aClass nameSpace)
                 ifTrue:[
-                    self busyLabel:'saving binary of: %1' with:aClass name.
+                    self busyLabel:'Saving binary of: %1' with:aClass name.
                     Class fileOutErrorSignal handle:[:ex |
-                        self warn:'cannot create: %1' with:ex parameter.
+                        self warn:'Cannot create: %1' with:ex parameter.
                         self normalLabel.
                         ex return.
                     ] do:[
@@ -2319,8 +2319,8 @@
         self normalLabel.
     ]
 
-    "Created: / 25.1.1996 / 17:27:45 / cg"
-    "Modified: / 5.3.1998 / 02:45:30 / cg"
+    "Created: / 25-01-1996 / 17:27:45 / cg"
+    "Modified: / 29-08-2013 / 01:36:38 / cg"
 !
 
 classCategoryFileOutEach
@@ -2438,11 +2438,7 @@
                 okText:okText.
     box label:(resources string:'Browse or search class').
     openButton := Button label:(resources string:okText2).
-    (DialogBox defaultOKButtonAtLeft) ifTrue:[
-        box addButton:openButton before:(box okButton).
-    ] ifFalse:[
-        box addButton:openButton after:(box okButton).
-    ].
+    box addButton:openButton before:(box okButton).
 
     openButton action:[
        open := open not.
@@ -2473,8 +2469,8 @@
         brwsr switchToClassNameMatching:className.
     ]
 
-    "Created: / 1.6.1996 / 16:03:15 / cg"
-    "Modified: / 12.10.2001 / 19:40:10 / cg"
+    "Created: / 01-06-1996 / 16:03:15 / cg"
+    "Modified: / 29-08-2013 / 12:18:58 / cg"
 !
 
 classCategoryFindMethod
@@ -14528,7 +14524,7 @@
 !BrowserView class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.855 2013-08-20 13:57:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.856 2013-08-29 10:28:40 cg Exp $'
 ! !