equal
deleted
inserted
replaced
465 aLabel isImageOrForm ifTrue:[ |
465 aLabel isImageOrForm ifTrue:[ |
466 aLabel device ~~ aDevice ifTrue:[ |
466 aLabel device ~~ aDevice ifTrue:[ |
467 lbl := aLabel copy onDevice:aDevice |
467 lbl := aLabel copy onDevice:aDevice |
468 ] ifFalse:[ |
468 ] ifFalse:[ |
469 lbl := aLabel |
469 lbl := aLabel |
470 ]. |
|
471 lbl isImage ifTrue:[ |
|
472 lbl clearMaskedPixels |
|
473 ]. |
470 ]. |
474 ^ lbl |
471 ^ lbl |
475 ]. |
472 ]. |
476 |
473 |
477 aLabel class == LabelAndIcon ifTrue:[ |
474 aLabel class == LabelAndIcon ifTrue:[ |
577 ! ! |
574 ! ! |
578 |
575 |
579 !DataSetLabel class methodsFor:'documentation'! |
576 !DataSetLabel class methodsFor:'documentation'! |
580 |
577 |
581 version |
578 version |
582 ^ '$Header: /cvs/stx/stx/libwidg2/DataSetLabel.st,v 1.31 2014-05-23 09:31:42 stefan Exp $' |
579 ^ '$Header: /cvs/stx/stx/libwidg2/DataSetLabel.st,v 1.32 2014-06-06 07:30:32 stefan Exp $' |
583 ! |
580 ! |
584 |
581 |
585 version_CVS |
582 version_CVS |
586 ^ '$Header: /cvs/stx/stx/libwidg2/DataSetLabel.st,v 1.31 2014-05-23 09:31:42 stefan Exp $' |
583 ^ '$Header: /cvs/stx/stx/libwidg2/DataSetLabel.st,v 1.32 2014-06-06 07:30:32 stefan Exp $' |
587 ! ! |
584 ! ! |
588 |
585 |