# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1481900077 -3600
# Node ID b264b5ca7e35602f252b63f3abe1c3bc8cf7691d
# Parent  7b574569192ec86a4368772046385da1056ba2b9
#REFACTORING by stefan
class: Form
changed: #initGC
    initGC now returns the gcId

diff -r 7b574569192e -r b264b5ca7e35 Form.st
--- 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"
 !