--- a/SelectionInListModelView.st	Mon May 28 09:27:56 2018 +0200
+++ b/SelectionInListModelView.st	Mon May 28 10:12:59 2018 +0200
@@ -551,22 +551,30 @@
 !
 
 selectOnMenuButton
-    "define the button-menu-press behavior; if true the line under the mouse
-     will be selected before the menu is opened. Otherwise the menu is opened
-     on the current selection."
+    "define the menu-button (middle button) press behavior; 
+     if true, the line under the mouse
+     will be selected before the menu is opened (Windows behavior). 
+     Otherwise the selection is unchanged and the menu is opened 
+     for the current selection (Unix behavior)."
 
     selectOnMenuButton isNil ifTrue:[
-	^ UserPreferences current selectOnRightClick
+        ^ UserPreferences current selectOnRightClick
     ].
     ^ selectOnMenuButton
+
+    "Modified (comment): / 28-05-2018 / 10:12:41 / Claus Gittinger"
 !
 
 selectOnMenuButton:aBoolean
-    "define the button-menu-press behavior; if true the line under the mouse
-     will be selected before the menu is opened. Otherwise the menu is opened
-     on the current selection."
+    "define the menu-button (middle button) press behavior; 
+     if true, the line under the mouse
+     will be selected before the menu is opened (Windows behavior). 
+     Otherwise the selection is unchanged and the menu is opened 
+     for the current selection (Unix behavior)."
 
     selectOnMenuButton := aBoolean.
+
+    "Modified (comment): / 28-05-2018 / 10:12:52 / Claus Gittinger"
 !
 
 toggleSelect