equal
deleted
inserted
replaced
29 %{ |
29 %{ |
30 /* |
30 /* |
31 * x does a typedef Time - I need Object Time ... |
31 * x does a typedef Time - I need Object Time ... |
32 */ |
32 */ |
33 #define Time XTime |
33 #define Time XTime |
|
34 |
|
35 /* |
|
36 * x does a #define True / False |
|
37 * we are lucky - the ST/X True/False are not needed |
|
38 */ |
|
39 #undef True |
|
40 #undef False |
34 |
41 |
35 #ifdef memset |
42 #ifdef memset |
36 # undef memset |
43 # undef memset |
37 #endif |
44 #endif |
38 |
45 |
3723 This looks for both the internal queue and the display connection." |
3730 This looks for both the internal queue and the display connection." |
3724 |
3731 |
3725 dispatchingExpose notNil ifTrue:[ |
3732 dispatchingExpose notNil ifTrue:[ |
3726 ^ self exposeEventPendingFor:dispatchingExpose |
3733 ^ self exposeEventPendingFor:dispatchingExpose |
3727 ]. |
3734 ]. |
3728 "/ ^ self eventPendingWithSync |
3735 ^ self eventPendingWithSync |
3729 ^ self eventPendingWithoutSync |
3736 "/ ^ self eventPendingWithoutSync |
3730 ! |
3737 ! |
3731 |
3738 |
3732 eventPending:anEventSymbol for:aWindowIdOrNil |
3739 eventPending:anEventSymbol for:aWindowIdOrNil |
3733 "return true, if a specific event is pending" |
3740 "return true, if a specific event is pending" |
3734 |
3741 |
7288 ! ! |
7295 ! ! |
7289 |
7296 |
7290 !XWorkstation class methodsFor:'documentation'! |
7297 !XWorkstation class methodsFor:'documentation'! |
7291 |
7298 |
7292 version |
7299 version |
7293 ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.103 1996-01-27 18:35:53 cg Exp $' |
7300 ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.104 1996-01-31 01:56:55 cg Exp $' |
7294 ! ! |
7301 ! ! |
7295 XWorkstation initialize! |
7302 XWorkstation initialize! |