equal
deleted
inserted
replaced
792 ('WindowSensor [Warning]: Error in eventQ handling ignored: ' , ex errorString) errorPrintCR. |
792 ('WindowSensor [Warning]: Error in eventQ handling ignored: ' , ex errorString) errorPrintCR. |
793 ex return |
793 ex return |
794 ] do:[ |
794 ] do:[ |
795 damageEventAccessLock critical:aBlock |
795 damageEventAccessLock critical:aBlock |
796 ] |
796 ] |
797 ] valueNowOrOnUnwindDo:[ |
797 ] ensure:[ |
798 wasBlocked ifFalse:[ |
798 wasBlocked ifFalse:[ |
799 p unblockInterrupts. |
799 p unblockInterrupts. |
800 ] |
800 ] |
801 ] |
801 ] |
802 |
802 |
812 |wasBlocked p| |
812 |wasBlocked p| |
813 |
813 |
814 p := Processor activeProcess. |
814 p := Processor activeProcess. |
815 wasBlocked := p blockInterrupts. |
815 wasBlocked := p blockInterrupts. |
816 [ |
816 [ |
817 userEventAccessLock critical:aBlock |
817 userEventAccessLock critical:aBlock |
818 ] valueNowOrOnUnwindDo:[ |
818 ] ensure:[ |
819 wasBlocked ifFalse:[ |
819 wasBlocked ifFalse:[ |
820 p unblockInterrupts. |
820 p unblockInterrupts. |
821 ] |
821 ] |
822 ] |
822 ] |
823 |
823 |
824 "Created: / 6.6.1998 / 21:06:43 / cg" |
824 "Created: / 6.6.1998 / 21:06:43 / cg" |
825 "Modified: / 14.10.1998 / 15:56:08 / cg" |
825 "Modified: / 14.10.1998 / 15:56:08 / cg" |
826 ! |
826 ! |
3097 lostExpose > 1 ifTrue:[ |
3097 lostExpose > 1 ifTrue:[ |
3098 ('WindowSensor [info]: late expose event (' , aView printString , ')') infoPrintCR. |
3098 ('WindowSensor [info]: late expose event (' , aView printString , ')') infoPrintCR. |
3099 ] |
3099 ] |
3100 ] |
3100 ] |
3101 ]. |
3101 ]. |
3102 ] valueNowOrOnUnwindDo:[ |
3102 ] ensure:[ |
3103 gotExpose remove:aView ifAbsent:nil. |
3103 gotExpose remove:aView ifAbsent:nil. |
3104 catchExpose remove:aView ifAbsent:nil. |
3104 catchExpose remove:aView ifAbsent:nil. |
3105 catchExpose isEmpty ifTrue:[ |
3105 catchExpose isEmpty ifTrue:[ |
3106 exposeEventSemaphore := nil |
3106 exposeEventSemaphore := nil |
3107 ]. |
3107 ]. |
3134 ! ! |
3134 ! ! |
3135 |
3135 |
3136 !WindowSensor class methodsFor:'documentation'! |
3136 !WindowSensor class methodsFor:'documentation'! |
3137 |
3137 |
3138 version |
3138 version |
3139 ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.200 2002-02-11 10:56:08 cg Exp $' |
3139 ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.201 2002-02-26 12:58:10 cg Exp $' |
3140 ! ! |
3140 ! ! |
3141 WindowSensor initialize! |
3141 WindowSensor initialize! |