equal
deleted
inserted
replaced
3007 "Created: / 08-08-2006 / 15:45:38 / cg" |
3007 "Created: / 08-08-2006 / 15:45:38 / cg" |
3008 "Modified (comment): / 28-04-2014 / 10:04:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3008 "Modified (comment): / 28-04-2014 / 10:04:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3009 ! ! |
3009 ! ! |
3010 |
3010 |
3011 !DeviceWorkstation methodsFor:'accessing-misc'! |
3011 !DeviceWorkstation methodsFor:'accessing-misc'! |
|
3012 |
|
3013 asPseudoDeviceWithoutXFTSupport |
|
3014 "hack - see XWorkstation" |
|
3015 |
|
3016 ^ self |
|
3017 ! |
3012 |
3018 |
3013 defaultEventMask |
3019 defaultEventMask |
3014 "return a mask to enable some events by default." |
3020 "return a mask to enable some events by default." |
3015 |
3021 |
3016 self subclassResponsibility |
3022 self subclassResponsibility |