--- a/MenuView.st	Tue Jan 14 00:07:06 1997 +0100
+++ b/MenuView.st	Tue Jan 14 00:09:24 1997 +0100
@@ -1689,6 +1689,17 @@
     super destroy.
 !
 
+fetchDeviceResources
+    "fetch device colors, to avoid reallocation at redraw time"
+
+    super fetchDeviceResources.
+
+    checkColor notNil ifTrue:[checkColor := checkColor on:device].
+    disabledFgColor notNil ifTrue:[disabledFgColor := disabledFgColor on:device].
+
+    "Created: 14.1.1997 / 00:08:55 / cg"
+!
+
 initEvents
     super initEvents.
     self enableLeaveEvents.
@@ -1712,7 +1723,7 @@
     ] ifFalse:[
         checkColor := fgColor.
     ].
-    disabledFgColor := DefaultDisabledForegroundColor on:device.
+    disabledFgColor := DefaultDisabledForegroundColor.
 
     DefaultForegroundColor notNil ifTrue:[
         fgColor := DefaultForegroundColor on:device
@@ -1811,7 +1822,7 @@
         viewBackground := DefaultViewBackground on:device
     ].
 
-    "Modified: 28.5.1996 / 21:13:02 / cg"
+    "Modified: 14.1.1997 / 00:09:02 / cg"
 !
 
 initialize
@@ -2560,5 +2571,5 @@
 !MenuView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.93 1997-01-02 16:31:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.94 1997-01-13 23:09:24 cg Exp $'
 ! !