equal
deleted
inserted
replaced
19 shiftDown metaDown altDown motionEventCompression lastId lastView |
19 shiftDown metaDown altDown motionEventCompression lastId lastView |
20 keyboardMap rootView isSlow activeKeyboardGrab activePointerGrab |
20 keyboardMap rootView isSlow activeKeyboardGrab activePointerGrab |
21 buttonTranslation multiClickTimeDelta altModifiers metaModifiers |
21 buttonTranslation multiClickTimeDelta altModifiers metaModifiers |
22 ctrlModifiers shiftModifiers supportsDeepIcons preferredIconSize |
22 ctrlModifiers shiftModifiers supportsDeepIcons preferredIconSize |
23 ditherColors fixColors numFixRed numFixGreen numFixBlue |
23 ditherColors fixColors numFixRed numFixGreen numFixBlue |
24 copyBuffer lastCopyBuffer |
24 copyBuffer lastCopyBuffer blackColor whiteColor' |
25 blackColor whiteColor' |
|
26 classVariableNames:'ButtonTranslation MultiClickTimeDelta DeviceErrorSignal |
25 classVariableNames:'ButtonTranslation MultiClickTimeDelta DeviceErrorSignal |
27 ErrorPrinting DefaultScreen AllScreens ExitOnLastClose' |
26 ErrorPrinting DefaultScreen AllScreens ExitOnLastClose' |
28 poolDictionaries:'' |
27 poolDictionaries:'' |
29 category:'Interface-Graphics' |
28 category:'Interface-Graphics' |
30 ! |
29 ! |
2886 inputSema notNil ifTrue:[ |
2885 inputSema notNil ifTrue:[ |
2887 Processor disableSemaphore:inputSema. |
2886 Processor disableSemaphore:inputSema. |
2888 inputSema := nil. |
2887 inputSema := nil. |
2889 ]. |
2888 ]. |
2890 AllScreens remove:self. |
2889 AllScreens remove:self. |
2891 dispatchProcess := nil |
2890 dispatchProcess := nil. |
|
2891 self closeDown. |
2892 ] newProcess. |
2892 ] newProcess. |
2893 |
2893 |
2894 "/ |
2894 "/ |
2895 "/ give the process a nice name (for the processMonitor) |
2895 "/ give the process a nice name (for the processMonitor) |
2896 "/ |
2896 "/ |
2909 inputSema notNil ifTrue:[ |
2909 inputSema notNil ifTrue:[ |
2910 Processor signal:inputSema onInput:fd orCheck:[self eventPending]. |
2910 Processor signal:inputSema onInput:fd orCheck:[self eventPending]. |
2911 ] |
2911 ] |
2912 |
2912 |
2913 "Modified: 12.12.1995 / 20:52:57 / stefan" |
2913 "Modified: 12.12.1995 / 20:52:57 / stefan" |
2914 "Modified: 12.1.1997 / 00:27:50 / cg" |
2914 "Modified: 13.1.1997 / 22:09:49 / cg" |
2915 ! ! |
2915 ! ! |
2916 |
2916 |
2917 !DeviceWorkstation methodsFor:'font helpers'! |
2917 !DeviceWorkstation methodsFor:'font helpers'! |
2918 |
2918 |
2919 ascentOf:aFontId |
2919 ascentOf:aFontId |
3493 !DeviceWorkstation methodsFor:'initialize / release'! |
3493 !DeviceWorkstation methodsFor:'initialize / release'! |
3494 |
3494 |
3495 close |
3495 close |
3496 "close down connection to Display - usually never done" |
3496 "close down connection to Display - usually never done" |
3497 |
3497 |
3498 ^ self subclassResponsibility |
3498 blackColor on:nil. "/ release those colors |
|
3499 blackColor := nil. |
|
3500 whiteColor on:nil. |
|
3501 whiteColor := nil. |
|
3502 |
|
3503 self closeConnection. |
|
3504 |
|
3505 "Modified: 13.1.1997 / 22:13:18 / cg" |
|
3506 ! |
|
3507 |
|
3508 closeConnection |
|
3509 "close down connection to Display - usually never done" |
|
3510 |
|
3511 ^ self subclassResponsibility |
|
3512 |
|
3513 "Created: 13.1.1997 / 22:10:07 / cg" |
3499 ! |
3514 ! |
3500 |
3515 |
3501 initialize |
3516 initialize |
3502 "initialize the receiver for a connection to the default display" |
3517 "initialize the receiver for a connection to the default display" |
3503 |
3518 |
3532 |
3547 |
3533 initializeScreenProperties |
3548 initializeScreenProperties |
3534 "setup screen specific properties." |
3549 "setup screen specific properties." |
3535 |
3550 |
3536 supportsDeepIcons isNil ifTrue:[ |
3551 supportsDeepIcons isNil ifTrue:[ |
3537 supportsDeepIcons := false. |
3552 supportsDeepIcons := false. |
3538 ]. |
3553 ]. |
3539 |
3554 |
3540 fixColors := ditherColors := nil. |
3555 fixColors := ditherColors := nil. |
3541 numFixRed := numFixGreen := numFixBlue := 0. |
3556 numFixRed := numFixGreen := numFixBlue := 0. |
3542 |
3557 |
3543 "Modified: 11.7.1996 / 18:34:45 / cg" |
3558 blackColor := Color black on:self. |
|
3559 whiteColor := Color white on:self. |
|
3560 |
|
3561 "Modified: 13.1.1997 / 22:04:29 / cg" |
3544 ! |
3562 ! |
3545 |
3563 |
3546 invalidateConnection |
3564 invalidateConnection |
3547 "clear my connection handle - sent after an imageRestart to |
3565 "clear my connection handle - sent after an imageRestart to |
3548 forget about our previous life" |
3566 forget about our previous life" |
4787 ! ! |
4805 ! ! |
4788 |
4806 |
4789 !DeviceWorkstation class methodsFor:'documentation'! |
4807 !DeviceWorkstation class methodsFor:'documentation'! |
4790 |
4808 |
4791 version |
4809 version |
4792 ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.152 1997-01-13 20:46:32 cg Exp $' |
4810 ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.153 1997-01-13 21:13:57 cg Exp $' |
4793 ! ! |
4811 ! ! |
4794 DeviceWorkstation initialize! |
4812 DeviceWorkstation initialize! |