equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
2 COPYRIGHT (c) 1989 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 |
3896 |
3894 |
3897 ^ (firstLineShown - 1) * fontHeight |
3895 ^ (firstLineShown - 1) * fontHeight |
3898 ! ! |
3896 ! ! |
3899 |
3897 |
3900 !ListView methodsFor:'redrawing'! |
3898 !ListView methodsFor:'redrawing'! |
3901 |
|
3902 flash |
|
3903 "show contents in reverse colors for a moment - to wakeup the user :-)" |
|
3904 |
|
3905 super flash. |
|
3906 "/ self redrawInverted. |
|
3907 "/ Delay waitForSeconds:0.1. |
|
3908 "/ self redraw |
|
3909 |
|
3910 " |
|
3911 Transcript flash |
|
3912 Transcript redrawInverted |
|
3913 Transcript redraw |
|
3914 " |
|
3915 ! |
|
3916 |
3899 |
3917 redraw |
3900 redraw |
3918 "redraw complete view" |
3901 "redraw complete view" |
3919 |
3902 |
3920 shown ifTrue:[ |
3903 shown ifTrue:[ |