--- a/WinWorkstation.st	Wed Oct 31 01:30:32 2007 +0100
+++ b/WinWorkstation.st	Wed Oct 31 01:46:31 2007 +0100
@@ -11068,53 +11068,53 @@
         ^ self
     ].
 
-    eventCode == 512 ifTrue:[
+    eventCode == 512 "WM_MOUSEMOVE" ifTrue:[
         "/ mouse motion
         message := #trayMouseMotion
     ].
-    eventCode == 513 ifTrue:[
+    eventCode == 513 "WM_LBUTTONDOWN" ifTrue:[
         "/ left-button-press
         message := #trayButtonPress:.
         arg := 1.
     ].
-    eventCode == 514 ifTrue:[
+    eventCode == 514 "WM_LBUTTONUP" ifTrue:[
         "/ left-button-release
         message := #trayButtonRelease:.
         arg := 1.
     ].
-    eventCode == 515 ifTrue:[
+    eventCode == 515 "WM_LBUTTONDBLCLK" ifTrue:[
         "/ left-button-double-click
-        message := #trayButtonMultiPress:.
+        message := #trayButtonDoubleClick:.
         arg := 1.
     ].
-    eventCode == 516 ifTrue:[
+    eventCode == 516 "WM_RBUTTONDOWN" ifTrue:[
         "/ right-button-press
         message := #trayButtonPress:.
         arg := 3.
     ].
-    eventCode == 517 ifTrue:[
+    eventCode == 517 "WM_RBUTTONUP" ifTrue:[
         "/ right-button-release
         message := #trayButtonRelease:.
         arg := 3.
     ].
-    eventCode == 518 ifTrue:[
+    eventCode == 518 "WM_RBUTTONDBLCLK" ifTrue:[
         "/ left-button-double-click
-        message := #trayButtonMultiPress:.
+        message := #trayButtonDoubleClick:.
         arg := 3.
     ].
-    eventCode == 519 ifTrue:[
+    eventCode == 519 "WM_MBUTTONDOWN" ifTrue:[
         "/ middle-button-press
         message := #trayButtonPress:.
         arg := 2.
     ].
-    eventCode == 520 ifTrue:[
+    eventCode == 520 "WM_MBUTTONUP" ifTrue:[
         "/ middle-button-release
         message := #trayButtonRelease:.
         arg := 2.
     ].
-    eventCode == 521 ifTrue:[
-        "/ left-button-double-click
-        message := #trayButtonMultiPress:.
+    eventCode == 521 "WM_MBUTTONDBLCLK" ifTrue:[
+        "/ middle-button-double-click
+        message := #trayButtonDoubleClick:.
         arg := 2.
     ].
 
@@ -11130,7 +11130,7 @@
         view:aView
 
     "Created: / 31-10-2007 / 00:13:31 / cg"
-    "Modified: / 31-10-2007 / 01:29:17 / cg"
+    "Modified: / 31-10-2007 / 01:46:05 / cg"
 ! !
 
 !WinWorkstation methodsFor:'event forwarding-native'!
@@ -17475,7 +17475,7 @@
 !WinWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.350 2007-10-31 00:30:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.351 2007-10-31 00:46:31 cg Exp $'
 ! !
 
 WinWorkstation initialize!