--- a/Label.st	Mon Jan 13 23:36:34 1997 +0100
+++ b/Label.st	Mon Jan 13 23:37:06 1997 +0100
@@ -19,7 +19,7 @@
 	category:'Views-Layout'
 !
 
-!Label  class methodsFor:'documentation'!
+!Label class methodsFor:'documentation'!
 
 copyright
 "
@@ -778,7 +778,7 @@
 "
 ! !
 
-!Label  class methodsFor:'instance creation'!
+!Label class methodsFor:'instance creation'!
 
 form:aForm
     "return a new Label showing a form.
@@ -794,7 +794,7 @@
     ^ (self in:aView) form:aForm
 ! !
 
-!Label  class methodsFor:'defaults'!
+!Label class methodsFor:'defaults'!
 
 defaultExtent
     "return the default extent of my instances.
@@ -1205,21 +1205,34 @@
 
 !Label methodsFor:'initialization'!
 
+fetchDeviceResources
+    "fetch device colors, to avoid reallocation at redraw time"
+
+    super fetchDeviceResources.
+
+    fgColor := fgColor on:device.
+    bgColor := bgColor on:device.
+
+    "Created: 13.1.1997 / 23:34:30 / cg"
+!
+
 initStyle
     super initStyle.
 
 "/    DefaultFont notNil ifTrue:[font := DefaultFont on:device].
 
     DefaultBackgroundColor notNil ifTrue:[
-	bgColor := DefaultBackgroundColor on:device
+        bgColor := DefaultBackgroundColor
     ] ifFalse:[
-	bgColor := viewBackground on:device.
+        bgColor := viewBackground.
     ].
     DefaultForegroundColor notNil ifTrue:[
-	fgColor := DefaultForegroundColor on:device
+        fgColor := DefaultForegroundColor
     ] ifFalse:[
-	fgColor := Black on:device.
+        fgColor := Black.
     ]
+
+    "Modified: 13.1.1997 / 23:34:43 / cg"
 !
 
 initialize
@@ -1612,8 +1625,8 @@
     ]
 ! !
 
-!Label  class methodsFor:'documentation'!
+!Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.70 1996-09-11 18:01:21 dq Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.71 1997-01-13 22:37:06 cg Exp $'
 ! !