DeviceGraphicsContext: Use test `drawableType == #window` consistenly,
i.e., always test for #window drawable type. Anything else then means pixmap.
--- a/DeviceGraphicsContext.st Fri Feb 26 06:41:43 2016 +0100
+++ b/DeviceGraphicsContext.st Thu Feb 25 10:14:09 2016 +0000
@@ -466,8 +466,6 @@
"Modified: / 16.5.1999 / 19:40:37 / cg"
!
-
-
colorAt:aPoint
"return the color of the pixel at the coordinate given by x@y"
@@ -3696,18 +3694,17 @@
really drawn, none is created up to the first draw.
This method is sent, when the first drawing happens"
- drawableType == #pixmap ifTrue:[
+ drawableType == #window ifTrue:[
+ gcId := device gcFor:drawableId.
+ ] ifFalse:[
gcId := device gcForBitmap:drawableId.
- ] ifFalse:[
- gcId := device gcFor:drawableId.
].
Lobby registerChange:self.
- "Modified: 19.3.1997 / 11:07:52 / cg"
+ "Modified: / 19-03-1997 / 11:07:52 / cg"
+ "Modified: / 25-02-2016 / 10:12:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
-
-
destroy
|id|
@@ -3736,10 +3733,6 @@
].
!
-
-
-
-
initGC
"since we do not need a gc-object for the drawable until something is
really drawn, none is created.
@@ -3891,8 +3884,6 @@
"Modified: 28.10.1996 / 13:25:02 / cg"
!
-
-
releaseGC
"destroy the associated device GC resource - can be done to be nice to the
display if you know that you are done with a drawable."
@@ -4081,8 +4072,6 @@
Lobby registerChange:self.
!
-
-
createRootWindowFor:aView
drawableId := device rootWindowFor:aView.
drawableType := #window.
@@ -4301,6 +4290,11 @@
version_CVS
^ '$Header$'
+!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
! !