747 extent := (self layoutView superView computeExtent) perform:xOrY. |
747 extent := (self layoutView superView computeExtent) perform:xOrY. |
748 fractSymb := (what, 'Fraction') asSymbol. |
748 fractSymb := (what, 'Fraction') asSymbol. |
749 offsetSymb := (what, 'Offset') asSymbol. |
749 offsetSymb := (what, 'Offset') asSymbol. |
750 fractHolder := (self aspectFor:fractSymb). |
750 fractHolder := (self aspectFor:fractSymb). |
751 offsetHolder := (self aspectFor:offsetSymb). |
751 offsetHolder := (self aspectFor:offsetSymb). |
752 fraction := fractHolder value. |
752 fraction := fractHolder value ? 0. |
753 offset := offsetHolder value. |
753 offset := offsetHolder value ? 0. |
754 |
754 |
755 newOffset := offset + ((fraction * extent) asInteger). |
755 newOffset := offset + ((fraction * extent) asInteger). |
756 newOffset := newOffset - extent. |
756 newOffset := newOffset - extent. |
757 newFraction := 1. |
757 newFraction := 1. |
758 |
758 |
759 fractHolder value:newFraction. |
759 fractHolder value:newFraction. |
760 offsetHolder value:newOffset. |
760 offsetHolder value:newOffset. |
761 |
761 |
762 |
762 "Modified: / 15-11-2017 / 12:09:20 / cg" |
763 |
|
764 ! |
763 ! |
765 |
764 |
766 rightRelativeLeft |
765 rightRelativeLeft |
767 "compute left relative to containers right (fraction=1, offset negative)" |
766 "compute left relative to containers right (fraction=1, offset negative)" |
768 |
767 |