--- a/WindowEvent.st	Mon Sep 13 11:32:25 2004 +0200
+++ b/WindowEvent.st	Mon Sep 13 13:53:21 2004 +0200
@@ -146,7 +146,7 @@
 !
 
 WindowEvent::InputEvent subclass:#NativeWidgetCommandEvent
-	instanceVariableNames:'command'
+	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:WindowEvent
@@ -441,11 +441,11 @@
              arguments:(Array with:state with:x with:y with:amount with:deltaTime).
 !
 
-nativeWidgetCommand:commandId view:aView
+nativeWidgetCommand:command arguments:argVector view:aView
     ^ (NativeWidgetCommandEvent new)
         for:aView 
-        type:#nativeWidgetCommand:
-        arguments:(Array with:commandId)
+        type:command
+        arguments:argVector
 !
 
 newDamageFor:aView
@@ -1380,6 +1380,16 @@
 
 ! !
 
+!WindowEvent::NativeWidgetCommandEvent methodsFor:'accessing'!
+
+command
+    ^ selector
+!
+
+command:something
+    selector := something.
+! !
+
 !WindowEvent::NewDamageEvent methodsFor:'queries'!
 
 isDamage
@@ -1421,7 +1431,7 @@
 !WindowEvent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.80 2004-04-05 16:21:15 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.81 2004-09-13 11:53:21 ca Exp $'
 ! !
 
 WindowEvent::InputEvent initialize!

--- a/WindowSensor.st	Mon Sep 13 11:32:25 2004 +0200
+++ b/WindowSensor.st	Mon Sep 13 13:53:21 2004 +0200
@@ -1695,12 +1695,12 @@
     "Modified: / 21.5.1999 / 13:12:40 / cg"
 !
 
-nativeWidgetCommand:commandId view:aView
+nativeWidgetCommand:command arguments:argVector view:aView
     "native widget action - this is sent from the device (Display)"
 
     |ev|
 
-    ev := WindowEvent nativeWidgetCommand:commandId view:aView.
+    ev := WindowEvent nativeWidgetCommand:command arguments:argVector view:aView.
     self pushEvent:ev.
 !
 
@@ -3249,7 +3249,7 @@
 !WindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.233 2004-09-07 14:26:03 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.234 2004-09-13 11:52:53 ca Exp $'
 ! !
 
 WindowSensor initialize!