--- a/XWorkstation.st	Mon Apr 01 14:58:35 2019 +0200
+++ b/XWorkstation.st	Mon Apr 01 15:11:06 2019 +0200
@@ -19,7 +19,7 @@
 	instanceVariableNames:'hasShapeExtension hasShmExtension hasDPSExtension
 		hasMbufExtension hasXVideoExtension hasSaveUnder hasPEXExtension
 		hasImageExtension hasInputExtension hasXineramaExtension
-		hasRenderExtension hasXftLibrary ignoreBackingStore blackpixel
+		hasRenderExtension hasXTestExtension hasXftLibrary ignoreBackingStore blackpixel
 		whitepixel atoms protocolsAtom deleteWindowAtom saveYourselfAtom
 		quitAppAtom primaryAtom clipboardAtom stringAtom wmStateAtom
 		motifWMHintsAtom listOfXFonts buttonsPressed eventRootX
@@ -1426,6 +1426,31 @@
      Display hasExtension:'SHAPE'
      Display hasExtension:'MIT-SHM'
      Display hasExtension:'SGIFullScreenStereo'
+
+     XQuartz supports the following:
+	Apple-DRI
+	Apple-WM
+	BIG-REQUESTS
+	DAMAGE
+	DOUBLE-BUFFER
+	GLX
+	Generic Event Extension
+	MIT-SCREEN-SAVER
+	MIT-SHM
+	Present
+	RANDR
+	RENDER
+	SECURITY
+	SGI-GLX
+	SHAPE
+	SYNC
+	X-Resource
+	XC-MISC
+	XFIXES
+	XINERAMA
+	XInputExtension
+	XKEYBOARD
+	XVideo
     "
 !
 
@@ -1513,6 +1538,18 @@
     "
 !
 
+hasXTestExtension
+    "return true, if this workstation supports the X cursor extension.
+     This extension allows for deep cursors (depth > 1)"
+
+    ^ self hasExtension:'XTEST'
+
+    "
+     Display hasExtension:'XTEST'
+     Display hasXTestExtension
+    "
+!
+
 hasXVideo
     "return true, if this workstation supports the XVideo extension.
      Both the server must support it, and the feature must have been
@@ -9688,6 +9725,7 @@
     hasImageExtension := self hasExtension:#XIE.
     hasInputExtension := self hasExtension:#XInputExtension.
     hasXineramaExtension := self hasExtension:#XINERAMA.
+    hasXTestExtension := self hasExtension:#XTEST.
     hasRenderExtension := self hasExtension:#RENDER.
     hasXftLibrary := hasRenderExtension and:[self class hasXftLibrary].