equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2004 by eXept Software AG |
4 COPYRIGHT (c) 2004 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
456 x1 := x1 rounded asInteger. |
458 x1 := x1 rounded asInteger. |
457 |
459 |
458 codePoint == selectedCodePoint ifTrue:[ |
460 codePoint == selectedCodePoint ifTrue:[ |
459 self paint:(Color red). |
461 self paint:(Color red). |
460 self fillRectangle:((x0+1)@(y0+1) corner:(x1)@(y1)). |
462 self fillRectangle:((x0+1)@(y0+1) corner:(x1)@(y1)). |
461 self paint:(Color white). |
463 self paint:(self whiteColor). |
462 self displayString:s x:x y:y. |
464 self displayString:s x:x y:y. |
463 self paint:(Color black). |
465 self paint:(self blackColor). |
464 ] ifFalse:[ |
466 ] ifFalse:[ |
465 self displayString:s x:x y:y. |
467 self displayString:s x:x y:y. |
466 ]. |
468 ]. |
467 ]. |
469 ]. |
468 ]. |
470 ]. |