equal
deleted
inserted
replaced
23 |
23 |
24 WindowSensor comment:' |
24 WindowSensor comment:' |
25 COPYRIGHT (c) 1993 by Claus Gittinger |
25 COPYRIGHT (c) 1993 by Claus Gittinger |
26 All Rights Reserved |
26 All Rights Reserved |
27 |
27 |
28 $Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.17 1995-02-18 15:33:01 claus Exp $ |
28 $Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.18 1995-02-28 21:51:15 claus Exp $ |
29 '! |
29 '! |
30 |
30 |
31 !WindowSensor class methodsFor:'documentation'! |
31 !WindowSensor class methodsFor:'documentation'! |
32 |
32 |
33 copyright |
33 copyright |
44 " |
44 " |
45 ! |
45 ! |
46 |
46 |
47 version |
47 version |
48 " |
48 " |
49 $Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.17 1995-02-18 15:33:01 claus Exp $ |
49 $Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.18 1995-02-28 21:51:15 claus Exp $ |
50 " |
50 " |
51 ! |
51 ! |
52 |
52 |
53 documentation |
53 documentation |
54 " |
54 " |
430 eventPending |
430 eventPending |
431 "return true, if either damage or events are pending" |
431 "return true, if either damage or events are pending" |
432 |
432 |
433 mouseAndKeyboard size ~~ 0 ifTrue:[^ true]. |
433 mouseAndKeyboard size ~~ 0 ifTrue:[^ true]. |
434 ^ damage size ~~ 0 |
434 ^ damage size ~~ 0 |
|
435 ! |
|
436 |
|
437 hasButtonMotionEventsFor:aView |
|
438 "return true, if any buttonMotion events are pending" |
|
439 |
|
440 mouseAndKeyboard size ~~ 0 ifTrue:[ |
|
441 mouseAndKeyboard do:[:anEvent | |
|
442 anEvent notNil ifTrue:[ |
|
443 anEvent view == aView ifTrue:[ |
|
444 anEvent type == #buttonMotion:x:y: ifTrue:[^ true]. |
|
445 ] |
|
446 ]. |
|
447 ] |
|
448 ]. |
|
449 ^ aView device eventPending:#buttonMotion for:aView id |
435 ! ! |
450 ! ! |
436 |
451 |
437 !WindowSensor methodsFor:'event processing'! |
452 !WindowSensor methodsFor:'event processing'! |
438 |
453 |
439 notifyEventArrival |
454 notifyEventArrival |