#REFACTORING by stefan
class: Form
changed: #initGC
initGC now returns the gcId
--- a/Form.st Fri Dec 16 15:54:09 2016 +0100
+++ b/Form.st Fri Dec 16 15:54:37 2016 +0100
@@ -1518,21 +1518,23 @@
"stop server from sending exposure events for Forms -
(will fill up stream-queue on some stupid (i.e. sco) systems"
+ |gcId|
+
"/ depth-1 forms draw differently ...
-
depth == 1 ifTrue:[
- |fg bg|
- self foreground isNil ifTrue:[
- fg := Color colorId:1.
- ].
- self background isNil ifTrue:[
- bg := Color colorId:0
- ].
- "nil colors will not be set"
- self setPaint:fg on:bg.
+ |fg bg|
+ self foreground isNil ifTrue:[
+ fg := Color colorId:1.
+ ].
+ self background isNil ifTrue:[
+ bg := Color colorId:0
+ ].
+ "nil colors will not be set"
+ self setPaint:fg on:bg.
].
- super initGC.
- self setGraphicsExposures:false
+ gcId := super initGC.
+ self setGraphicsExposures:false.
+ ^ gcId.
"Modified: 17.7.1996 / 13:21:24 / cg"
!