equal
deleted
inserted
replaced
805 mmH := device horizontalPixelPerMillimeter. |
805 mmH := device horizontalPixelPerMillimeter. |
806 mmV := device verticalPixelPerMillimeter. |
806 mmV := device verticalPixelPerMillimeter. |
807 mW := (mmH * 2.5) rounded. |
807 mW := (mmH * 2.5) rounded. |
808 mH := (mmV * 1.5) rounded. |
808 mH := (mmV * 1.5) rounded. |
809 |
809 |
810 self drawEdgesForX:(width - mW - (hSpace*2)) y:(height - mmV rounded |
810 self |
811 // 2) |
811 drawEdgesForX:(width - mW - (hSpace*2)) y:(height - mmV rounded // 2) |
812 width:mW height:mH level:2 |
812 width:mW height:mH |
|
813 level:2 |
813 ]. |
814 ]. |
814 |
815 |
815 "Modified: / 6.3.1999 / 21:56:13 / cg" |
816 "Modified: / 6.3.1999 / 21:56:13 / cg" |
816 ! |
817 ! |
817 |
818 |
1139 ! ! |
1140 ! ! |
1140 |
1141 |
1141 !PopUpList class methodsFor:'documentation'! |
1142 !PopUpList class methodsFor:'documentation'! |
1142 |
1143 |
1143 version |
1144 version |
1144 ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.76 2001-12-08 12:06:44 cg Exp $' |
1145 ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.77 2001-12-08 13:29:15 cg Exp $' |
1145 ! ! |
1146 ! ! |