2960 |
2960 |
2961 "Created: / 17.6.1998 / 12:55:54 / cg" |
2961 "Created: / 17.6.1998 / 12:55:54 / cg" |
2962 "Modified: / 18.6.1998 / 08:57:00 / cg" |
2962 "Modified: / 18.6.1998 / 08:57:00 / cg" |
2963 ! |
2963 ! |
2964 |
2964 |
|
2965 hasUserEvent:type for:aView withArguments:argsOrNil |
|
2966 "return true, if a specific user event (non damage) is pending in my queues. |
|
2967 Type is the type of event, args are the arguments. |
|
2968 If the argument, aView is nil, the information is regarding any |
|
2969 view (i.e. is there an event for any of my views); |
|
2970 otherwise, the information is regarding to that specific view." |
|
2971 |
|
2972 |args| |
|
2973 |
|
2974 args := argsOrNil ? #(). |
|
2975 ^ self |
|
2976 hasUserEvent:type |
|
2977 for:aView |
|
2978 withMatchingArguments:[:evArgs | evArgs = args] |
|
2979 ! |
|
2980 |
2965 hasUserEvent:type for:aReceiverOrNil withMatchingArguments:argMatchBlock |
2981 hasUserEvent:type for:aReceiverOrNil withMatchingArguments:argMatchBlock |
2966 "return true, if a specific event is pending in my user event queue. |
2982 "return true, if a specific event is pending in my user event queue. |
2967 Type is the type of event, dType the corresponding device event. |
2983 Type is the type of event, dType the corresponding device event. |
2968 If the argument, aReceiverOrNil is nil, the information is regarding any |
2984 If the argument, aReceiverOrNil is nil, the information is regarding any |
2969 view (i.e. is there an event for any of my views); |
2985 view (i.e. is there an event for any of my views); |
3320 "Modified: 10.2.1997 / 13:30:43 / cg" |
3336 "Modified: 10.2.1997 / 13:30:43 / cg" |
3321 ! ! |
3337 ! ! |
3322 |
3338 |
3323 !WindowSensor class methodsFor:'documentation'! |
3339 !WindowSensor class methodsFor:'documentation'! |
3324 |
3340 |
|
3341 version |
|
3342 ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.292 2015-02-05 08:54:11 cg Exp $' |
|
3343 ! |
|
3344 |
3325 version_CVS |
3345 version_CVS |
3326 ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.291 2015-02-05 08:52:55 cg Exp $' |
3346 ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.292 2015-02-05 08:54:11 cg Exp $' |
3327 ! ! |
3347 ! ! |
3328 |
3348 |
3329 |
3349 |
3330 WindowSensor initialize! |
3350 WindowSensor initialize! |