--- a/UserPreferences.st	Tue Apr 29 15:41:17 2003 +0200
+++ b/UserPreferences.st	Wed Apr 30 11:12:20 2003 +0200
@@ -1655,6 +1655,22 @@
     ^ self at:#httpServerEnableEmbeddedSmalltalk put:aBoolean
 !
 
+httpServerEnableExampleShop
+    "get the user preferences for EnableEmbeddedSmalltalk in HTTPServer"
+
+    ^ self at:#httpServerEnableExampleShop ifAbsent:false
+
+    "
+     UserPreferences current httpServerEnableExampleShop  
+    "
+!
+
+httpServerEnableExampleShop:aBoolean
+    "set/clear the user preferences for httpServerEnableExampleShop"
+
+    ^ self at:#httpServerEnableExampleShop put:aBoolean
+!
+
 httpServerFileCacheExpirationDelta
     "get the user preferences for FileCacheExpirationDelta in HTTPServer"
 
@@ -2561,5 +2577,5 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.116 2003-04-29 10:07:04 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.117 2003-04-30 09:12:20 penk Exp $'
 ! !