--- a/FileBrowser.st Thu Feb 13 19:32:47 2014 +0100
+++ b/FileBrowser.st Thu Feb 13 19:39:21 2014 +0100
@@ -4004,7 +4004,7 @@
labelFrame := View
origin:(0.0 @ mH)
- corner:(1.0 @ (font height * 1.8 + mH) rounded)
+ corner:(1.0 @ (gc font height * 1.8 + mH) rounded)
in:self.
(styleSheet name = #st80 or:[styleSheet isWindowsStyle]) ifTrue:[
@@ -7511,10 +7511,10 @@
!FileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.655 2014-01-23 16:11:58 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.656 2014-02-13 18:39:21 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.655 2014-01-23 16:11:58 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.656 2014-02-13 18:39:21 stefan Exp $'
! !