--- a/UserPreferences.st	Tue Sep 15 19:37:44 2009 +0200
+++ b/UserPreferences.st	Tue Sep 15 20:19:59 2009 +0200
@@ -1186,6 +1186,42 @@
     "
 !
 
+selectOnRightClick
+    "the Windows behavior of selecting on a right-click"
+
+    ^ self at:#selectOnRightClick ifAbsent:true
+!
+
+selectOnRightClick:aBoolean
+    "the Windows behavior of selecting on a right-click"
+
+    ^ self at:#selectOnRightClick put:aBoolean
+
+    "
+     UserPreferences current selectOnRightClick:true.
+     UserPreferences current selectOnRightClick:false.
+    "
+!
+
+showRightButtonMenuOnRelease
+    "the Windows behavior of showing the right-button menu on a release.
+     Not yet fully implemented."
+
+    ^ self at:#showRightButtonMenuOnRelease ifAbsent:true
+!
+
+showRightButtonMenuOnRelease:aBoolean
+    "the Windows behavior of showing the right-button menu on a release.
+     Not yet fully implemented."
+
+    ^ self at:#showRightButtonMenuOnRelease put:aBoolean
+
+    "
+     UserPreferences current showRightButtonMenuOnRelease:true.
+     UserPreferences current showRightButtonMenuOnRelease:false.
+    "
+!
+
 startTextDragWithControl
     "if true, textDrag is only started when the CTRL-key is down"
 
@@ -2785,5 +2821,5 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.217 2009-09-15 17:37:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.218 2009-09-15 18:19:59 cg Exp $'
 ! !