--- a/UserPreferences.st	Tue Apr 15 11:57:59 2003 +0200
+++ b/UserPreferences.st	Tue Apr 15 16:54:16 2003 +0200
@@ -1590,6 +1590,26 @@
     ^ self at:#httpServerDefaultPort put:anInteger
 !
 
+httpServerDefaultVirtualFileRoots
+    "get the user preferences for defaultVirtualFileRoots in HTTPServer"
+
+    ^ self at:#httpServerDefaultVirtualFileRoots ifAbsentPut:nil
+
+    "
+     UserPreferences current httpServerDefaultVirtualFileRoots  
+    "
+!
+
+httpServerDefaultVirtualFileRoots:aBoolean
+    "set/clear the user preferences for httpServerDefaultVirtualFileRoots"
+
+    ^ self at:#httpServerDefaultVirtualFileRoots put:aBoolean
+
+"
+    UserPreferences current httpServerDefaultVirtualFileRoots:nil
+"
+!
+
 httpServerEnableEmbeddedSmalltalk
     "get the user preferences for EnableEmbeddedSmalltalk in HTTPServer"
 
@@ -2448,5 +2468,5 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.108 2003-04-10 14:58:17 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.109 2003-04-15 14:54:16 penk Exp $'
 ! !