# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1392316761 -3600
# Node ID 4e4b26cf74843ffc2510cb46510a3954122fc2c2
# Parent  ec9cc7cf19aa171b9439a9755f2955f601d3d9d8
class: FileBrowser
changed: #initialize
access font via message send

diff -r ec9cc7cf19aa -r 4e4b26cf7484 FileBrowser.st
--- 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 $'
 ! !