added framedBox.font attribute in styleSheet
authorClaus Gittinger <cg@exept.de>
Sat, 17 Apr 1999 23:59:18 +0200
changeset 1845 84f68da8e19b
parent 1844 a76a2ba85a4b
child 1846 a3c3d9715e30
added framedBox.font attribute in styleSheet
FramedBox.st
--- a/FramedBox.st	Sat Apr 17 14:56:27 1999 +0200
+++ b/FramedBox.st	Sat Apr 17 23:59:18 1999 +0200
@@ -630,6 +630,7 @@
 
     <resource: #style (#'framedBox.foregroundColor' 
                        #'framedBox.labelPosition'
+                       #'framedBox.font'
                        #'framedBox.3DFrame')>
 
     super initStyle.
@@ -637,6 +638,7 @@
     fgColor := StyleSheet at:'framedBox.foregroundColor' default:Black.
     labelPosition := StyleSheet at:'framedBox.labelPosition' default:#topCenter.
     frame3D := StyleSheet at:'framedBox.3DFrame' default:true.
+    font := StyleSheet at:'framedBox.font' default:font.
     borderWidth := 0.
 
     "Modified: / 26.10.1997 / 17:00:57 / cg"
@@ -719,5 +721,5 @@
 !FramedBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.38 1998-08-05 14:39:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.39 1999-04-17 21:59:18 cg Exp $'
 ! !