equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2009 by eXept Software AG |
4 COPYRIGHT (c) 2009 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 |
387 ] ifFalse:[ |
389 ] ifFalse:[ |
388 h := 8. |
390 h := 8. |
389 w := len ? (aDevice width). "/ aView width. |
391 w := len ? (aDevice width). "/ aView width. |
390 ]. |
392 ]. |
391 cachedForm := Form width:w height:h depth:aDevice depth onDevice:aDevice. |
393 cachedForm := Form width:w height:h depth:aDevice depth onDevice:aDevice. |
|
394 cachedForm isNil ifTrue:[^nil]. |
392 "/ cachedForm clear. |
395 "/ cachedForm clear. |
393 self fillRectangleX:0 y:0 width:w height:h in:cachedForm |
396 self fillRectangleX:0 y:0 width:w height:h in:cachedForm |
394 ]. |
397 ]. |
395 |
398 |
396 ^ cachedForm |
399 ^ cachedForm |