--- a/FileBrowser.st	Fri Oct 23 16:27:37 2009 +0200
+++ b/FileBrowser.st	Fri Oct 23 17:19:49 2009 +0200
@@ -4022,7 +4022,7 @@
 
 "/    labelView := Label in:labelFrame.
 "/    labelView origin:(halfSpacing @ halfSpacing)
-"/              extent:[((width // 4 * 3) - spacing - borderWidth)
+"/              extent:[((width // 4 * 3) - spacing - self borderWidth)
 "/                       @
 "/                       (filterField heightIncludingBorder)
 "/                       "(font height + font descent)"
@@ -4035,7 +4035,7 @@
     labelView := FilenameEditField in:labelFrame.
     labelView 
         origin:(halfSpacing @ (halfSpacing))
-        extent:[((width // 4 * 3) - spacing - borderWidth)
+        extent:[((width // 4 * 3) - spacing - self borderWidth)
                 @
                 (filterField heightIncludingBorder)
                 "(font height + font descent)"
@@ -4048,7 +4048,7 @@
     labelFrame model:self; menu:#labelMenu.
     labelView cursorType:#solidCaret; cursorTypeNoFocus:#none.
     labelView level:0.
-    labelView borderWidth:0.
+    labelView setBorderWidth:0.
 
     killButton := Button label:(resources string:'kill') in:self.
 "/    killButton origin:(halfSpacing @ halfSpacing)
@@ -4145,7 +4145,7 @@
 "/
 "/    buttonPanel 
 "/        origin:(0.5 @ halfSpacing)
-"/        extent:[((width // 4) - spacing - borderWidth)
+"/        extent:[((width // 4) - spacing - self borderWidth)
 "/                @
 "/                (buttonPanel preferredExtent y max:(labelView height))
 "/               ].
@@ -7503,5 +7503,9 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.632 2009-09-16 16:41:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.633 2009-10-23 15:19:49 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.633 2009-10-23 15:19:49 cg Exp $'
 ! !