equal
deleted
inserted
replaced
285 |
285 |
286 aCursor notNil ifTrue:[ |
286 aCursor notNil ifTrue:[ |
287 (aCursor ~~ cursor) ifTrue:[ |
287 (aCursor ~~ cursor) ifTrue:[ |
288 cursor := aCursor. |
288 cursor := aCursor. |
289 drawableId notNil ifTrue:[ |
289 drawableId notNil ifTrue:[ |
290 cursor := cursor on:device. |
290 cursor := cursor onDevice:device. |
291 cursor isNil ifTrue:[ ^ self]. |
291 cursor isNil ifTrue:[ ^ self]. |
292 id := cursor id. |
292 id := cursor id. |
293 id isNil ifTrue:[ |
293 id isNil ifTrue:[ |
294 'DisplaySurface [warning]: nil cursorId ignored; shape=' errorPrint. cursor shape errorPrintCR. |
294 'DisplaySurface [warning]: nil cursorId ignored; shape=' errorPrint. cursor shape errorPrintCR. |
295 ^ self |
295 ^ self |
317 v cursor:(Cursor wait). |
317 v cursor:(Cursor wait). |
318 ] |
318 ] |
319 " |
319 " |
320 |
320 |
321 "Created: 14.12.1995 / 21:28:00 / cg" |
321 "Created: 14.12.1995 / 21:28:00 / cg" |
322 "Modified: 10.1.1997 / 17:48:22 / cg" |
322 "Modified: 28.3.1997 / 13:47:58 / cg" |
323 ! |
323 ! |
324 |
324 |
325 withCursor:aCursor do:aBlock |
325 withCursor:aCursor do:aBlock |
326 "evaluate aBlock showing aCursor until ready; then restore the old cursor |
326 "evaluate aBlock showing aCursor until ready; then restore the old cursor |
327 and return the value as returned by aBlock. |
327 and return the value as returned by aBlock. |
1415 |
1415 |
1416 viewBackground isColor ifTrue:[ |
1416 viewBackground isColor ifTrue:[ |
1417 viewBackground := viewBackground on:device |
1417 viewBackground := viewBackground on:device |
1418 ]. |
1418 ]. |
1419 super recreate. |
1419 super recreate. |
1420 cursor := cursor on:device. |
1420 cursor := cursor onDevice:device. |
1421 |
1421 |
1422 "Modified: 18.1.1997 / 18:09:44 / cg" |
1422 "Modified: 28.3.1997 / 13:48:06 / cg" |
1423 ! |
1423 ! |
1424 |
1424 |
1425 reinitStyle |
1425 reinitStyle |
1426 "nothing done here" |
1426 "nothing done here" |
1427 |
1427 |
1664 ! ! |
1664 ! ! |
1665 |
1665 |
1666 !DisplaySurface class methodsFor:'documentation'! |
1666 !DisplaySurface class methodsFor:'documentation'! |
1667 |
1667 |
1668 version |
1668 version |
1669 ^ '$Header: /cvs/stx/stx/libview/Attic/DSurface.st,v 1.28 1997-03-22 14:21:35 cg Exp $' |
1669 ^ '$Header: /cvs/stx/stx/libview/Attic/DSurface.st,v 1.29 1997-03-28 12:51:39 cg Exp $' |
1670 ! ! |
1670 ! ! |