equal
deleted
inserted
replaced
371 "/ cg: must clip left, if string is too large |
371 "/ cg: must clip left, if string is too large |
372 x < xLeft ifTrue:[ |
372 x < xLeft ifTrue:[ |
373 "/ must clip ... |
373 "/ must clip ... |
374 prevClip := aLabelView clippingRectangleOrNil. |
374 prevClip := aLabelView clippingRectangleOrNil. |
375 mustUndoClip := true. |
375 mustUndoClip := true. |
376 aLabelView clippingRectangle:(Rectangle |
376 aLabelView clippingBounds:(Rectangle |
377 left:xLeft top:y0 |
377 left:xLeft top:y0 |
378 width:width height:height). |
378 width:width height:height). |
379 ]. |
379 ]. |
380 ]. |
380 ]. |
381 |
381 |
382 shownLabel displayOn:aLabelView x:x y:y0 + (shownLabel ascentOn:aLabelView). |
382 shownLabel displayOn:aLabelView x:x y:y0 + (shownLabel ascentOn:aLabelView). |
383 y0 := y0 + (shownLabel heightOn:aLabelView) + goodLookingVerticalSpacing. |
383 y0 := y0 + (shownLabel heightOn:aLabelView) + goodLookingVerticalSpacing. |
384 |
384 |
385 mustUndoClip == true ifTrue:[ |
385 mustUndoClip == true ifTrue:[ |
386 aLabelView clippingRectangle:prevClip |
386 aLabelView clippingBounds:prevClip |
387 ]. |
387 ]. |
388 ]. |
388 ]. |
389 |
389 |
390 gcFont notNil ifTrue:[ |
390 gcFont notNil ifTrue:[ |
391 aLabelView font:gcFont "/ restore font |
391 aLabelView font:gcFont "/ restore font |