class: BrowserView
changed:
#classCategoryFileOutBinaryEach
#classCategoryFindClassOpen:
no need to care for ok-button position in panel here
(panel does it already)
--- 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 $'
! !