equal
deleted
inserted
replaced
3647 Notice, that the string is displayed on the baseLine; |
3647 Notice, that the string is displayed on the baseLine; |
3648 ask using #ascentOn: if required" |
3648 ask using #ascentOn: if required" |
3649 |
3649 |
3650 |s yBaseline| |
3650 |s yBaseline| |
3651 |
3651 |
3652 s := self displayString. |
3652 s := self isString ifTrue:[self] ifFalse:[self displayString]. |
3653 yBaseline := y "+ aGc font ascent". |
3653 yBaseline := y "+ aGc font ascent". |
3654 opaque ifTrue:[ |
3654 opaque ifTrue:[ |
3655 aGc displayOpaqueString:s x:x y:yBaseline. |
3655 aGc displayOpaqueString:s x:x y:yBaseline. |
3656 ] ifFalse:[ |
3656 ] ifFalse:[ |
3657 aGc displayString:s x:x y:yBaseline. |
3657 aGc displayString:s x:x y:yBaseline. |
9662 ! ! |
9662 ! ! |
9663 |
9663 |
9664 !Object class methodsFor:'documentation'! |
9664 !Object class methodsFor:'documentation'! |
9665 |
9665 |
9666 version |
9666 version |
9667 ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.723 2013-06-04 08:33:30 cg Exp $' |
9667 ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.724 2013-06-04 13:52:42 cg Exp $' |
9668 ! |
9668 ! |
9669 |
9669 |
9670 version_CVS |
9670 version_CVS |
9671 ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.723 2013-06-04 08:33:30 cg Exp $' |
9671 ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.724 2013-06-04 13:52:42 cg Exp $' |
9672 ! |
9672 ! |
9673 |
9673 |
9674 version_SVN |
9674 version_SVN |
9675 ^ '$ Id: Object.st 10643 2011-06-08 21:53:07Z vranyj1 $' |
9675 ^ '$ Id: Object.st 10643 2011-06-08 21:53:07Z vranyj1 $' |
9676 ! ! |
9676 ! ! |