--- a/ETxtView.st Tue Jan 14 00:12:53 1997 +0100
+++ b/ETxtView.st Tue Jan 14 00:15:53 1997 +0100
@@ -2994,6 +2994,17 @@
!EditTextView methodsFor:'initialization'!
+fetchDeviceResources
+ "fetch device colors, to avoid reallocation at redraw time"
+
+ super fetchDeviceResources.
+
+ cursorFgColor notNil ifTrue:[cursorFgColor := cursorFgColor on:device].
+ cursorBgColor notNil ifTrue:[cursorBgColor := cursorBgColor on:device].
+
+ "Created: 14.1.1997 / 00:15:24 / cg"
+!
+
initEvents
"enable enter/leave events in addition"
@@ -3889,5 +3900,5 @@
!EditTextView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.101 1997-01-09 11:48:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.102 1997-01-13 23:15:53 cg Exp $'
! !
--- a/EditTextView.st Tue Jan 14 00:12:53 1997 +0100
+++ b/EditTextView.st Tue Jan 14 00:15:53 1997 +0100
@@ -2994,6 +2994,17 @@
!EditTextView methodsFor:'initialization'!
+fetchDeviceResources
+ "fetch device colors, to avoid reallocation at redraw time"
+
+ super fetchDeviceResources.
+
+ cursorFgColor notNil ifTrue:[cursorFgColor := cursorFgColor on:device].
+ cursorBgColor notNil ifTrue:[cursorBgColor := cursorBgColor on:device].
+
+ "Created: 14.1.1997 / 00:15:24 / cg"
+!
+
initEvents
"enable enter/leave events in addition"
@@ -3889,5 +3900,5 @@
!EditTextView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.101 1997-01-09 11:48:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.102 1997-01-13 23:15:53 cg Exp $'
! !
--- a/SelListV.st Tue Jan 14 00:12:53 1997 +0100
+++ b/SelListV.st Tue Jan 14 00:15:53 1997 +0100
@@ -2065,6 +2065,19 @@
!SelectionInListView methodsFor:'initialization'!
+fetchDeviceResources
+ "fetch device colors, to avoid reallocation at redraw time"
+
+ super fetchDeviceResources.
+
+ hilightFgColor notNil ifTrue:[hilightFgColor := hilightFgColor on:device].
+ hilightBgColor notNil ifTrue:[hilightBgColor := hilightBgColor on:device].
+ halfIntensityFgColor notNil ifTrue:[halfIntensityFgColor := halfIntensityFgColor on:device].
+ hilightFrameColor notNil ifTrue:[hilightFrameColor := hilightFrameColor on:device].
+
+ "Created: 14.1.1997 / 00:11:13 / cg"
+!
+
initCursor
"set the cursor - a hand"
@@ -2139,10 +2152,10 @@
].
DefaultShadowColor notNil ifTrue:[
- shadowColor := DefaultShadowColor on:device
+ shadowColor := DefaultShadowColor
].
DefaultLightColor notNil ifTrue:[
- lightColor := DefaultLightColor on:device
+ lightColor := DefaultLightColor
].
(hilightLevel abs > 0) ifTrue:[
@@ -2162,14 +2175,7 @@
halfIntensityFgColor := Color darkGray.
].
- fgColor := fgColor on:device.
- bgColor := bgColor on:device.
- halfIntensityFgColor := halfIntensityFgColor on:device.
- hilightFrameColor notNil ifTrue:[hilightFrameColor := hilightFrameColor on:device].
- hilightFgColor := hilightFgColor on:device.
- hilightBgColor := hilightBgColor on:device.
-
- "Modified: 28.5.1996 / 21:13:51 / cg"
+ "Modified: 14.1.1997 / 00:13:41 / cg"
!
initialize
@@ -3092,5 +3098,5 @@
!SelectionInListView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.84 1996-12-19 13:48:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.85 1997-01-13 23:14:02 cg Exp $'
! !
--- a/SelectionInListView.st Tue Jan 14 00:12:53 1997 +0100
+++ b/SelectionInListView.st Tue Jan 14 00:15:53 1997 +0100
@@ -2065,6 +2065,19 @@
!SelectionInListView methodsFor:'initialization'!
+fetchDeviceResources
+ "fetch device colors, to avoid reallocation at redraw time"
+
+ super fetchDeviceResources.
+
+ hilightFgColor notNil ifTrue:[hilightFgColor := hilightFgColor on:device].
+ hilightBgColor notNil ifTrue:[hilightBgColor := hilightBgColor on:device].
+ halfIntensityFgColor notNil ifTrue:[halfIntensityFgColor := halfIntensityFgColor on:device].
+ hilightFrameColor notNil ifTrue:[hilightFrameColor := hilightFrameColor on:device].
+
+ "Created: 14.1.1997 / 00:11:13 / cg"
+!
+
initCursor
"set the cursor - a hand"
@@ -2139,10 +2152,10 @@
].
DefaultShadowColor notNil ifTrue:[
- shadowColor := DefaultShadowColor on:device
+ shadowColor := DefaultShadowColor
].
DefaultLightColor notNil ifTrue:[
- lightColor := DefaultLightColor on:device
+ lightColor := DefaultLightColor
].
(hilightLevel abs > 0) ifTrue:[
@@ -2162,14 +2175,7 @@
halfIntensityFgColor := Color darkGray.
].
- fgColor := fgColor on:device.
- bgColor := bgColor on:device.
- halfIntensityFgColor := halfIntensityFgColor on:device.
- hilightFrameColor notNil ifTrue:[hilightFrameColor := hilightFrameColor on:device].
- hilightFgColor := hilightFgColor on:device.
- hilightBgColor := hilightBgColor on:device.
-
- "Modified: 28.5.1996 / 21:13:51 / cg"
+ "Modified: 14.1.1997 / 00:13:41 / cg"
!
initialize
@@ -3092,5 +3098,5 @@
!SelectionInListView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.84 1996-12-19 13:48:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.85 1997-01-13 23:14:02 cg Exp $'
! !
--- a/TextView.st Tue Jan 14 00:12:53 1997 +0100
+++ b/TextView.st Tue Jan 14 00:15:53 1997 +0100
@@ -721,6 +721,17 @@
!TextView methodsFor:'initialize & release'!
+fetchDeviceResources
+ "fetch device colors, to avoid reallocation at redraw time"
+
+ super fetchDeviceResources.
+
+ selectionFgColor notNil ifTrue:[selectionFgColor := selectionFgColor on:device].
+ selectionBgColor notNil ifTrue:[selectionBgColor := selectionBgColor on:device].
+
+ "Created: 14.1.1997 / 00:14:33 / cg"
+!
+
initStyle
super initStyle.
@@ -2268,5 +2279,5 @@
!TextView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.77 1997-01-09 11:49:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.78 1997-01-13 23:14:56 cg Exp $'
! !