class: FileBrowser
authorStefan Vogel <sv@exept.de>
Thu, 13 Feb 2014 19:39:21 +0100
changeset 13935 4e4b26cf7484
parent 13934 ec9cc7cf19aa
child 13936 93271eb5f45b
class: FileBrowser changed: #initialize access font via message send
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 $'
 ! !