equal
deleted
inserted
replaced
24 Label comment:' |
24 Label comment:' |
25 |
25 |
26 COPYRIGHT (c) 1989 by Claus Gittinger |
26 COPYRIGHT (c) 1989 by Claus Gittinger |
27 All Rights Reserved |
27 All Rights Reserved |
28 |
28 |
29 $Header: /cvs/stx/stx/libwidg/Label.st,v 1.4 1993-12-11 01:45:54 claus Exp $ |
29 $Header: /cvs/stx/stx/libwidg/Label.st,v 1.5 1994-01-13 00:16:48 claus Exp $ |
30 |
30 |
31 written spring/summer 89 by claus |
31 written spring/summer 89 by claus |
32 '! |
32 '! |
33 |
33 |
34 !Label class methodsFor:'documentation'! |
34 !Label class methodsFor:'documentation'! |
384 ]. |
384 ]. |
385 |
385 |
386 logo notNil ifTrue:[ |
386 logo notNil ifTrue:[ |
387 self paint:fg on:bg. |
387 self paint:fg on:bg. |
388 (logo isKindOf:Image) ifTrue:[ |
388 (logo isKindOf:Image) ifTrue:[ |
389 logo := logo on:device |
389 logo := logo on:device |
390 ]. |
390 ]. |
391 ((logo isKindOf:Form) or:[logo isKindOf:Image]) ifTrue:[ |
391 ((logo isKindOf:Form) or:[logo isKindOf:Image]) ifTrue:[ |
392 self background:bg. |
392 self background:bg. |
393 self drawOpaqueForm:logo x:labelOriginX y:labelOriginY |
393 self displayOpaqueForm:logo x:labelOriginX y:labelOriginY |
394 ] ifFalse:[ |
394 ] ifFalse:[ |
395 x := labelOriginX + hSpace. |
395 x := labelOriginX + hSpace. |
396 y := labelOriginY + (font ascent) + vSpace. |
396 y := labelOriginY + (font ascent) + vSpace. |
397 |
397 |
398 (logo isKindOf:String) ifTrue:[ |
398 (logo isKindOf:String) ifTrue:[ |