Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
no longer send buttonShiftPress messages (has to be done in the
authorClaus Gittinger <cg@exept.de>
Thu, 01 Aug 1996 18:17:39 +0200
changeset 1012 e408830caf2d
parent 1011 260a986c9b00
child 1013 32d804ff472d
no longer send buttonShiftPress messages (has to be done in the buttonPress method)
Controll.st file | annotate | diff | comparison | revisions
Controller.st file | annotate | diff | comparison | revisions
DSurface.st file | annotate | diff | comparison | revisions
DisplaySurface.st file | annotate | diff | comparison | revisions
SWSensor.st file | annotate | diff | comparison | revisions
SynchronousWindowSensor.st file | annotate | diff | comparison | revisions
WSensor.st file | annotate | diff | comparison | revisions
WindowSensor.st file | annotate | diff | comparison | revisions 
--- a/Controll.st	Thu Aug 01 18:11:07 1996 +0200
+++ b/Controll.st	Thu Aug 01 18:17:39 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Interface-Support-Controllers'
 !
 
-!Controller class methodsFor:'documentation'!
+!Controller  class methodsFor:'documentation'!
 
 copyright
 "
@@ -83,7 +83,7 @@
 "
 ! !
 
-!Controller class methodsFor:'instance creation'!
+!Controller  class methodsFor:'instance creation'!
 
 new
     ^ self basicNew initialize
@@ -262,12 +262,6 @@
     ^ self
 !
 
-buttonShiftPress:button x:x y:y
-    "a mouse button was pressed again shortly after in my view"
-
-    ^ self buttonPress:button x:x y:y
-!
-
 deviceButtonMotion:state x:x y:y
     "this is the low-level (untransformed) event as received
      from the device (i.e. coordinates are in device coordinates). 
@@ -561,8 +555,8 @@
     ^ nil
 ! !
 
-!Controller class methodsFor:'documentation'!
+!Controller  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/Controll.st,v 1.36 1996-05-28 18:32:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/Controll.st,v 1.37 1996-08-01 16:17:10 cg Exp $'
 ! !
--- a/Controller.st	Thu Aug 01 18:11:07 1996 +0200
+++ b/Controller.st	Thu Aug 01 18:17:39 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Interface-Support-Controllers'
 !
 
-!Controller class methodsFor:'documentation'!
+!Controller  class methodsFor:'documentation'!
 
 copyright
 "
@@ -83,7 +83,7 @@
 "
 ! !
 
-!Controller class methodsFor:'instance creation'!
+!Controller  class methodsFor:'instance creation'!
 
 new
     ^ self basicNew initialize
@@ -262,12 +262,6 @@
     ^ self
 !
 
-buttonShiftPress:button x:x y:y
-    "a mouse button was pressed again shortly after in my view"
-
-    ^ self buttonPress:button x:x y:y
-!
-
 deviceButtonMotion:state x:x y:y
     "this is the low-level (untransformed) event as received
      from the device (i.e. coordinates are in device coordinates). 
@@ -561,8 +555,8 @@
     ^ nil
 ! !
 
-!Controller class methodsFor:'documentation'!
+!Controller  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.36 1996-05-28 18:32:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.37 1996-08-01 16:17:10 cg Exp $'
 ! !
--- a/DSurface.st	Thu Aug 01 18:11:07 1996 +0200
+++ b/DSurface.st	Thu Aug 01 18:17:39 1996 +0200
@@ -879,12 +879,6 @@
     ^ self
 !
 
-buttonShiftPress:button x:x y:y
-    "button was pressed with shift - default to unshift-press action"
-
-    ^ self buttonPress:button x:x y:y
-!
-
 catchExpose
     "this MUST be sent BEFORE doing a bit-blt copy (i.e. copyFrom...), 
      to tell the sensor that incoming expose events are to be remembered.
@@ -1683,5 +1677,5 @@
 !DisplaySurface  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DSurface.st,v 1.6 1996-07-17 12:18:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DSurface.st,v 1.7 1996-08-01 16:17:39 cg Exp $'
 ! !
--- a/DisplaySurface.st	Thu Aug 01 18:11:07 1996 +0200
+++ b/DisplaySurface.st	Thu Aug 01 18:17:39 1996 +0200
@@ -879,12 +879,6 @@
     ^ self
 !
 
-buttonShiftPress:button x:x y:y
-    "button was pressed with shift - default to unshift-press action"
-
-    ^ self buttonPress:button x:x y:y
-!
-
 catchExpose
     "this MUST be sent BEFORE doing a bit-blt copy (i.e. copyFrom...), 
      to tell the sensor that incoming expose events are to be remembered.
@@ -1683,5 +1677,5 @@
 !DisplaySurface  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.6 1996-07-17 12:18:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.7 1996-08-01 16:17:39 cg Exp $'
 ! !
--- a/SWSensor.st	Thu Aug 01 18:11:07 1996 +0200
+++ b/SWSensor.st	Thu Aug 01 18:17:39 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Interface-Support'
 !
 
-!SynchronousWindowSensor class methodsFor:'documentation'!
+!SynchronousWindowSensor  class methodsFor:'documentation'!
 
 copyright
 "
@@ -103,17 +103,6 @@
     "Created: 24.11.1995 / 19:14:36 / cg"
 !
 
-buttonShiftPress:button x:x y:y view:aView
-    "forward a button-shift-press event for some view"
-
-    WindowEvent
-        sendEvent:#buttonShiftPress:x:y:
-        arguments:(Array with:button with:x with:y)
-        view:aView
-
-    "Created: 24.11.1995 / 19:14:49 / cg"
-!
-
 configureX:x y:y width:w height:h view:aView
     "forward a configure for some view"
 
@@ -313,8 +302,8 @@
     "Modified: 28.5.1996 / 20:25:28 / cg"
 ! !
 
-!SynchronousWindowSensor class methodsFor:'documentation'!
+!SynchronousWindowSensor  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/SWSensor.st,v 1.8 1996-05-28 18:29:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/SWSensor.st,v 1.9 1996-08-01 16:15:58 cg Exp $'
 ! !
--- a/SynchronousWindowSensor.st	Thu Aug 01 18:11:07 1996 +0200
+++ b/SynchronousWindowSensor.st	Thu Aug 01 18:17:39 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Interface-Support'
 !
 
-!SynchronousWindowSensor class methodsFor:'documentation'!
+!SynchronousWindowSensor  class methodsFor:'documentation'!
 
 copyright
 "
@@ -103,17 +103,6 @@
     "Created: 24.11.1995 / 19:14:36 / cg"
 !
 
-buttonShiftPress:button x:x y:y view:aView
-    "forward a button-shift-press event for some view"
-
-    WindowEvent
-        sendEvent:#buttonShiftPress:x:y:
-        arguments:(Array with:button with:x with:y)
-        view:aView
-
-    "Created: 24.11.1995 / 19:14:49 / cg"
-!
-
 configureX:x y:y width:w height:h view:aView
     "forward a configure for some view"
 
@@ -313,8 +302,8 @@
     "Modified: 28.5.1996 / 20:25:28 / cg"
 ! !
 
-!SynchronousWindowSensor class methodsFor:'documentation'!
+!SynchronousWindowSensor  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SynchronousWindowSensor.st,v 1.8 1996-05-28 18:29:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SynchronousWindowSensor.st,v 1.9 1996-08-01 16:15:58 cg Exp $'
 ! !
--- a/WSensor.st	Thu Aug 01 18:11:07 1996 +0200
+++ b/WSensor.st	Thu Aug 01 18:17:39 1996 +0200
@@ -21,7 +21,7 @@
 	category:'Interface-Support'
 !
 
-!WindowSensor class methodsFor:'documentation'!
+!WindowSensor  class methodsFor:'documentation'!
 
 copyright
 "
@@ -178,7 +178,7 @@
 "
 ! !
 
-!WindowSensor class methodsFor:'initialization'!
+!WindowSensor  class methodsFor:'initialization'!
 
 initialize
     "initialize the classes constants"
@@ -319,7 +319,7 @@
     "Modified: 24.4.1996 / 16:37:08 / cg"
 ! !
 
-!WindowSensor class methodsFor:'instance creation'!
+!WindowSensor  class methodsFor:'instance creation'!
 
 new
     "return a new initialized instance"
@@ -329,7 +329,7 @@
     "Modified: 22.4.1996 / 16:19:40 / cg"
 ! !
 
-!WindowSensor class methodsFor:'accessing'!
+!WindowSensor  class methodsFor:'accessing'!
 
 composeTable
     "return the compose-key table.
@@ -374,7 +374,7 @@
     EventListener := aListener
 ! !
 
-!WindowSensor class methodsFor:'queries'!
+!WindowSensor  class methodsFor:'queries'!
 
 cursorPoint
     "ST-80 compatibility: 
@@ -686,29 +686,6 @@
     self notifyEventArrival
 !
 
-buttonShiftPress:button x:x y:y view:aView
-    "mouse button was pressed - this is sent from the device (Display)"
-
-    self button:button inView:aView state:true.
-
-    EventListener notNil ifTrue:[
-	(EventListener buttonShiftPress:button x:x y:y view:aView) ifTrue:[^ self]
-    ].
-    eventListener notNil ifTrue:[
-	(eventListener buttonShiftPress:button x:x y:y view:aView) ifTrue:[^ self]
-    ].
-
-    ignoreUserInput == true ifTrue:[
-	^ self
-    ].
-    mouseAndKeyboard
-	addLast:(WindowEvent
-		     for:aView
-		     type:#buttonShiftPress:x:y:
-		     arguments:(Array with:button with:x with:y)).
-    self notifyEventArrival
-!
-
 configureX:x y:y width:w height:h view:aView
     "a views size or position has changed - this is sent from the device (Display)"
 
@@ -1889,9 +1866,9 @@
 "/    ]
 ! !
 
-!WindowSensor class methodsFor:'documentation'!
+!WindowSensor  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WSensor.st,v 1.58 1996-05-28 19:53:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WSensor.st,v 1.59 1996-08-01 16:16:33 cg Exp $'
 ! !
 WindowSensor initialize!
--- a/WindowSensor.st	Thu Aug 01 18:11:07 1996 +0200
+++ b/WindowSensor.st	Thu Aug 01 18:17:39 1996 +0200
@@ -21,7 +21,7 @@
 	category:'Interface-Support'
 !
 
-!WindowSensor class methodsFor:'documentation'!
+!WindowSensor  class methodsFor:'documentation'!
 
 copyright
 "
@@ -178,7 +178,7 @@
 "
 ! !
 
-!WindowSensor class methodsFor:'initialization'!
+!WindowSensor  class methodsFor:'initialization'!
 
 initialize
     "initialize the classes constants"
@@ -319,7 +319,7 @@
     "Modified: 24.4.1996 / 16:37:08 / cg"
 ! !
 
-!WindowSensor class methodsFor:'instance creation'!
+!WindowSensor  class methodsFor:'instance creation'!
 
 new
     "return a new initialized instance"
@@ -329,7 +329,7 @@
     "Modified: 22.4.1996 / 16:19:40 / cg"
 ! !
 
-!WindowSensor class methodsFor:'accessing'!
+!WindowSensor  class methodsFor:'accessing'!
 
 composeTable
     "return the compose-key table.
@@ -374,7 +374,7 @@
     EventListener := aListener
 ! !
 
-!WindowSensor class methodsFor:'queries'!
+!WindowSensor  class methodsFor:'queries'!
 
 cursorPoint
     "ST-80 compatibility: 
@@ -686,29 +686,6 @@
     self notifyEventArrival
 !
 
-buttonShiftPress:button x:x y:y view:aView
-    "mouse button was pressed - this is sent from the device (Display)"
-
-    self button:button inView:aView state:true.
-
-    EventListener notNil ifTrue:[
-	(EventListener buttonShiftPress:button x:x y:y view:aView) ifTrue:[^ self]
-    ].
-    eventListener notNil ifTrue:[
-	(eventListener buttonShiftPress:button x:x y:y view:aView) ifTrue:[^ self]
-    ].
-
-    ignoreUserInput == true ifTrue:[
-	^ self
-    ].
-    mouseAndKeyboard
-	addLast:(WindowEvent
-		     for:aView
-		     type:#buttonShiftPress:x:y:
-		     arguments:(Array with:button with:x with:y)).
-    self notifyEventArrival
-!
-
 configureX:x y:y width:w height:h view:aView
     "a views size or position has changed - this is sent from the device (Display)"
 
@@ -1889,9 +1866,9 @@
 "/    ]
 ! !
 
-!WindowSensor class methodsFor:'documentation'!
+!WindowSensor  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.58 1996-05-28 19:53:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.59 1996-08-01 16:16:33 cg Exp $'
 ! !
 WindowSensor initialize!
hg/stx-libview