author | Claus Gittinger <cg@exept.de> |
Thu, 24 Nov 2016 09:52:40 +0100 | |
changeset 7705 | ea86a0a492e7 |
parent 7704 | 491e7a86f2b9 |
child 7706 | 58502053b67b |
--- a/DeviceWorkstation.st Thu Nov 24 08:59:33 2016 +0100 +++ b/DeviceWorkstation.st Thu Nov 24 09:52:40 2016 +0100 @@ -3010,6 +3010,12 @@ !DeviceWorkstation methodsFor:'accessing-misc'! +asPseudoDeviceWithoutXFTSupport + "hack - see XWorkstation" + + ^ self +! + defaultEventMask "return a mask to enable some events by default."