--- a/XWorkstation.st	Thu Feb 25 10:14:09 2016 +0000
+++ b/XWorkstation.st	Thu Feb 25 07:35:46 2016 +0000
@@ -29,7 +29,7 @@
 		selectionFetchers selectionHandlers preWaitAction xlibTimeout
 		xlibTimeoutForWindowCreation hasConnectionBroken uniqueDeviceID
 		stxDeviceAtom uuidAtom primaryBuffer windowGroupWindow
-		maxOperationsUntilFlush operationsUntilFlush lastError hostname 
+		maxOperationsUntilFlush operationsUntilFlush lastError hostname
 		wmClientLeaderAtom wmClientMachineAtom wmClassName wmClassClass
 		pid netWmPidAtom'
 	classVariableNames:'RawKeySymTranslation ConservativeSync MaxStringLength
@@ -738,6 +738,16 @@
     "Modified: / 27.4.1999 / 17:21:30 / cg"
 ! !
 
+!XWorkstation class methodsFor:'accessing'!
+
+graphicsContextClass
+    "Return a graphics context class to use for this device.
+     Default is to use DeviceGraphicsContext"
+    ^ graphicsContextClass ? XGraphicsContext
+
+    "Created: / 25-02-2016 / 07:26:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !XWorkstation class methodsFor:'accessing-display capabilities'!
 
 hasXftLibrary
@@ -12534,19 +12544,6 @@
     self primitiveFailedOrClosedConnection
 !
 
-newGraphicsContextFor:aGraphicsMedium
-    "create a new graphics context.
-     The defaults is to use the inherited graphics context.
-     Subclasses may redefine this to use their own graphics context"
-
-"/    ^ aGraphicsMedium.
-    |gc|
-
-    gc := XGraphicsContext onDevice:self.
-    gc font:aGraphicsMedium class defaultFont.
-    ^ gc.
-!
-
 parentWindowIdOf:aWindowId
     "return a windows parent-window id.
      Useful with getGeometryOf:, to compute information about the decoration."
@@ -13893,6 +13890,11 @@
     ^ '$Header$'
 !
 
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+!
+
 version_SVN
     ^ '$ Id $'
 ! !