equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1992 by Claus Gittinger |
2 COPYRIGHT (c) 1992 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
495 |
493 |
496 setCursor |
494 setCursor |
497 |id| |
495 |id| |
498 |
496 |
499 cursor isNil ifTrue:[ ^ self]. |
497 cursor isNil ifTrue:[ ^ self]. |
500 cursor := cursor onDevice:self device. |
498 cursor := cursor onDevice:device. |
501 cursor isNil ifTrue:[ ^ self]. |
499 cursor isNil ifTrue:[ ^ self]. |
502 |
500 |
503 id := cursor id. |
501 id := cursor id. |
504 id isNil ifTrue:[ |
502 id isNil ifTrue:[ |
505 'DisplaySurface [warning]: nil cursorId ignored; shape=' errorPrint. |
503 'DisplaySurface [warning]: nil cursorId ignored; shape=' errorPrint. |