equal
deleted
inserted
replaced
565 tabPos := spec positionOfTab:index forString:subString on:aGC. |
565 tabPos := spec positionOfTab:index forString:subString on:aGC. |
566 tabPos isNil ifTrue:[ |
566 tabPos isNil ifTrue:[ |
567 " |
567 " |
568 no tab - just continue where we are ... |
568 no tab - just continue where we are ... |
569 " |
569 " |
570 xPos := xPos + (prevString widthOn:aGC). "/ (aGC font widthOf:prevString). |
570 xPos := xPos + (prevString widthOn:aGC). "/ not: (aGC font widthOf:prevString) -- could be text or image |
571 ] ifFalse:[ |
571 ] ifFalse:[ |
572 xPos := tabPos + x. |
572 xPos := tabPos + x. |
573 ]. |
573 ]. |
574 subString isString ifFalse:[ |
574 subString isString ifFalse:[ |
575 item := subString. |
575 item := subString. |
576 item isImage ifTrue:[ |
576 item isImage ifTrue:[ |
577 strings at:index put:(item := item on:aGC device) |
577 strings at:index put:(item := item onDevice:aGC device) |
578 ]. |
578 ]. |
579 item displayOn:aGC x:xPos y:y0 |
579 item displayOn:aGC x:xPos y:y0 |
580 ] ifTrue:[ |
580 ] ifTrue:[ |
581 opaque ifTrue:[ |
581 opaque ifTrue:[ |
582 aGC displayOpaqueString:subString x:xPos y:y. |
582 aGC displayOpaqueString:subString x:xPos y:y. |
653 ! ! |
653 ! ! |
654 |
654 |
655 !MultiColListEntry class methodsFor:'documentation'! |
655 !MultiColListEntry class methodsFor:'documentation'! |
656 |
656 |
657 version |
657 version |
658 ^ '$Header: /cvs/stx/stx/libwidg2/MultiColListEntry.st,v 1.26 2001-04-24 08:48:19 cg Exp $' |
658 ^ '$Header: /cvs/stx/stx/libwidg2/MultiColListEntry.st,v 1.27 2002-05-06 06:06:12 cg Exp $' |
659 ! ! |
659 ! ! |