--- a/InputView.st	Thu Nov 23 18:49:05 1995 +0100
+++ b/InputView.st	Fri Nov 24 18:22:48 1995 +0100
@@ -11,10 +11,10 @@
 "
 
 SimpleView subclass:#InputView
-       instanceVariableNames:'eventReceiver'
-       classVariableNames:   ''
-       poolDictionaries:     ''
-       category:'Views-Basic'
+	 instanceVariableNames:'eventReceiver'
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'Views-Basic'
 !
 
 !InputView class methodsFor:'documentation'!
@@ -33,10 +33,6 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libview2/InputView.st,v 1.9 1995-11-11 16:04:34 cg Exp $'
-!
-
 documentation
 "
     a view for input only - forwarding all events to another object.
@@ -47,59 +43,23 @@
 "
 ! !
 
-!InputView methodsFor:'initialization'!
+!InputView methodsFor:'accessing'!
 
-initialize
-    super initialize.
-    borderWidth := 0
-! !
-
-!InputView methodsFor:'accessing'!
+eventReceiver:aView
+    eventReceiver := aView
+!
 
 inputOnly
     ^ true
-!
-
-eventReceiver:aView
-    eventReceiver := aView
-! !
-
-!InputView methodsFor:'redefined dummy'!
-
-setViewBackground
-    "inputviews have no background"
-
-    ^ self
 ! !
 
 !InputView methodsFor:'event handling'!
 
-exposeX:x y:y width:w height:h
-    "will never be received"
-    ^ self
-!
-
-keyPress:key x:x y:y
+buttonMotion:state x:x y:y
     "redefined to forward event"
 
     eventReceiver notNil ifTrue:[
-	eventReceiver keyPress:key x:x y:y
-    ]
-!
-
-keyRelease:key x:x y:y
-    "redefined to forward event"
-
-    eventReceiver notNil ifTrue:[
-	eventReceiver keyRelease:key x:x y:y
-    ]
-!
-
-buttonShiftPress:button x:x y:y
-    "redefined to forward event"
-
-    eventReceiver notNil ifTrue:[
-	eventReceiver buttonShiftPress:button x:x y:y
+	eventReceiver buttonMotion:state x:x y:y
     ]
 !
 
@@ -119,14 +79,19 @@
     ]
 !
 
-buttonMotion:state x:x y:y
+buttonShiftPress:button x:x y:y
     "redefined to forward event"
 
     eventReceiver notNil ifTrue:[
-	eventReceiver buttonMotion:state x:x y:y
+	eventReceiver buttonShiftPress:button x:x y:y
     ]
 !
 
+exposeX:x y:y width:w height:h
+    "will never be received"
+    ^ self
+!
+
 focusIn
     "redefined to forward event"
 
@@ -143,6 +108,22 @@
     ]
 !
 
+keyPress:key x:x y:y
+    "redefined to forward event"
+
+    eventReceiver notNil ifTrue:[
+	eventReceiver keyPress:key x:x y:y
+    ]
+!
+
+keyRelease:key x:x y:y
+    "redefined to forward event"
+
+    eventReceiver notNil ifTrue:[
+	eventReceiver keyRelease:key x:x y:y
+    ]
+!
+
 pointerEnter:state x:x y:y
     "redefined to forward event"
 
@@ -158,3 +139,24 @@
 	eventReceiver pointerLeave:state
     ]
 ! !
+
+!InputView methodsFor:'initialization'!
+
+initialize
+    super initialize.
+    borderWidth := 0
+! !
+
+!InputView methodsFor:'redefined dummy'!
+
+setViewBackground
+    "inputviews have no background"
+
+    ^ self
+! !
+
+!InputView class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libview2/InputView.st,v 1.10 1995-11-24 17:22:48 cg Exp $'
+! !