equal
deleted
inserted
replaced
3423 dispatchPendingEvents |
3423 dispatchPendingEvents |
3424 "go dispatch events as long as there is one. |
3424 "go dispatch events as long as there is one. |
3425 This is only used with modal operation. |
3425 This is only used with modal operation. |
3426 (i.e. when in the modal debugger)" |
3426 (i.e. when in the modal debugger)" |
3427 |
3427 |
3428 [self eventPending] whileTrue:[ |
3428 Object osSignalInterruptSignal handle:[:ex | |
3429 self dispatchEventFor:nil withMask:nil |
3429 ex return |
|
3430 ] do:[ |
|
3431 [self eventPending] whileTrue:[ |
|
3432 self dispatchEventFor:nil withMask:nil |
|
3433 ] |
3430 ] |
3434 ] |
3431 ! |
3435 ! |
3432 |
3436 |
3433 disposeButtonEventsFor:aViewIdOrNil |
3437 disposeButtonEventsFor:aViewIdOrNil |
3434 "dispose (i.e. forget) all pending button events on this display" |
3438 "dispose (i.e. forget) all pending button events on this display" |
5988 ! ! |
5992 ! ! |
5989 |
5993 |
5990 !DeviceWorkstation class methodsFor:'documentation'! |
5994 !DeviceWorkstation class methodsFor:'documentation'! |
5991 |
5995 |
5992 version |
5996 version |
5993 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.255 1998-04-28 14:25:15 cg Exp $' |
5997 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.256 1998-05-07 22:25:16 cg Exp $' |
5994 ! ! |
5998 ! ! |
5995 DeviceWorkstation initialize! |
5999 DeviceWorkstation initialize! |