equal
deleted
inserted
replaced
14 "{ NameSpace: Smalltalk }" |
14 "{ NameSpace: Smalltalk }" |
15 |
15 |
16 GraphicsMedium subclass:#DisplaySurface |
16 GraphicsMedium subclass:#DisplaySurface |
17 instanceVariableNames:'viewBackground cursor eventMask moreAttributes renderer uuid |
17 instanceVariableNames:'viewBackground cursor eventMask moreAttributes renderer uuid |
18 backed flags delegate updateRegion' |
18 backed flags delegate updateRegion' |
19 classVariableNames:'SaveUnderFlagMask GotExposeFlagMask' |
19 classVariableNames:'GotExposeFlagMask SaveUnderFlagMask' |
20 poolDictionaries:'' |
20 poolDictionaries:'' |
21 category:'Graphics-Support' |
21 category:'Graphics-Support' |
22 ! |
22 ! |
23 |
23 |
24 !DisplaySurface class methodsFor:'documentation'! |
24 !DisplaySurface class methodsFor:'documentation'! |
517 to acomplish this." |
517 to acomplish this." |
518 |
518 |
519 |savedCursor| |
519 |savedCursor| |
520 |
520 |
521 cursor == aCursor ifTrue:[ |
521 cursor == aCursor ifTrue:[ |
522 ^ aBlock value |
522 ^ aBlock value |
523 ]. |
523 ]. |
524 |
524 |
525 savedCursor := cursor. |
525 savedCursor := cursor. |
526 self cursor:aCursor now:true. |
526 ^ [ |
527 ^ aBlock ensure:[self cursor:savedCursor now:true] |
527 self cursor:aCursor now:true. |
|
528 aBlock value |
|
529 ] ensure:[ |
|
530 self cursor:savedCursor now:true |
|
531 ] |
528 |
532 |
529 "Modified: 27.2.1997 / 17:20:43 / cg" |
533 "Modified: 27.2.1997 / 17:20:43 / cg" |
530 ! |
534 ! |
531 |
535 |
532 withExecuteCursorDo:aBlock |
536 withExecuteCursorDo:aBlock |