equal
deleted
inserted
replaced
666 super initStyle. |
666 super initStyle. |
667 |
667 |
668 fgColor := StyleSheet at:'framedBox.foregroundColor' default:Black. |
668 fgColor := StyleSheet at:'framedBox.foregroundColor' default:Black. |
669 labelPosition := StyleSheet at:'framedBox.labelPosition' default:#topCenter. |
669 labelPosition := StyleSheet at:'framedBox.labelPosition' default:#topCenter. |
670 frame3D := StyleSheet at:'framedBox.3DFrame' default:true. |
670 frame3D := StyleSheet at:'framedBox.3DFrame' default:true. |
671 font := StyleSheet at:'framedBox.font' default:font. |
671 font := StyleSheet at:'framedBox.font' default:(StyleSheet at:'label.font' default:font). |
672 font := font onDevice:device. |
672 font := font onDevice:device. |
673 self borderWidth:0. |
673 self borderWidth:0. |
674 |
674 |
675 "Modified: / 26.10.1997 / 17:00:57 / cg" |
675 "Modified: / 26.10.1997 / 17:00:57 / cg" |
676 ! |
676 ! |
763 ! ! |
763 ! ! |
764 |
764 |
765 !FramedBox class methodsFor:'documentation'! |
765 !FramedBox class methodsFor:'documentation'! |
766 |
766 |
767 version |
767 version |
768 ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.52 2009-10-23 15:22:27 cg Exp $' |
768 ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.53 2009-12-07 14:49:53 cg Exp $' |
769 ! |
769 ! |
770 |
770 |
771 version_CVS |
771 version_CVS |
772 ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.52 2009-10-23 15:22:27 cg Exp $' |
772 ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.53 2009-12-07 14:49:53 cg Exp $' |
773 ! ! |
773 ! ! |