# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1213013521 -7200
# Node ID 26660fb61e7ae13cdb7a9cff1dd49ebdd0781e32
# Parent  1779a8c3730d2cada69a0c87fc4c1e6fe74c9a5b
Make FileDialog usable as SubCanvas

diff -r 1779a8c3730d -r 26660fb61e7a AbstractFileBrowser.st
--- a/AbstractFileBrowser.st	Mon Jun 09 14:11:55 2008 +0200
+++ b/AbstractFileBrowser.st	Mon Jun 09 14:12:01 2008 +0200
@@ -2873,6 +2873,11 @@
     ^ self aspectFor:#rootHolder ifAbsent:[
         self class rootHolder asValue.
     ].
+!
+
+rootHolder:aHolder
+
+    self aspectFor:#rootHolder put:aHolder
 ! !
 
 !AbstractFileBrowser methodsFor:'aspects handling'!
@@ -7400,5 +7405,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.374 2008-06-05 16:10:39 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.375 2008-06-09 12:12:01 stefan Exp $'
 ! !