--- a/XWorkstat.st	Fri Sep 20 09:35:22 1996 +0200
+++ b/XWorkstat.st	Tue Sep 24 13:40:08 1996 +0200
@@ -27,6 +27,10 @@
 !XWorkstation primitiveDefinitions!
 %{
 
+#ifdef LINUX
+# define SHM
+#endif
+
 #define COUNT_RESOURCES
 #ifdef COUNT_RESOURCES
 
@@ -215,6 +219,24 @@
 
 !XWorkstation primitiveFunctions!
 %{
+
+volatile static
+dummyToForceLoading() {
+	XCreateSimpleWindow(0, 0, 0, 0, 0, 0, 0, 0, 0);
+	XCloseDisplay(0);
+	XCreateImage(0, 0, 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0);
+	XSetWindowColormap(0, 0, 0);
+	XQueryColors(0,0,0,0);
+#ifdef SHM
+	XShmAttach(0, 0);
+	XShmCreateImage(0, 0, 0, 0, 0, 0, 0 ,0);
+	XShmDetach(0, 0);
+	XShmPutImage(0, 0, 0, 0 , 0,0,0,0,0,0,0);
+	shmctl(0,0,0);
+	fgetc(0);
+#endif
+}
+
 /*
  * catch X-errors and forward as errorInterrupt:#DisplayError,
  * (which itself invokes my handler and optionally raises an exceptionSignal)
@@ -8138,6 +8160,6 @@
 !XWorkstation  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.174 1996-09-18 10:30:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.175 1996-09-24 11:40:08 cg Exp $'
 ! !
 XWorkstation initialize!

--- a/XWorkstation.st	Fri Sep 20 09:35:22 1996 +0200
+++ b/XWorkstation.st	Tue Sep 24 13:40:08 1996 +0200
@@ -27,6 +27,10 @@
 !XWorkstation primitiveDefinitions!
 %{
 
+#ifdef LINUX
+# define SHM
+#endif
+
 #define COUNT_RESOURCES
 #ifdef COUNT_RESOURCES
 
@@ -215,6 +219,24 @@
 
 !XWorkstation primitiveFunctions!
 %{
+
+volatile static
+dummyToForceLoading() {
+	XCreateSimpleWindow(0, 0, 0, 0, 0, 0, 0, 0, 0);
+	XCloseDisplay(0);
+	XCreateImage(0, 0, 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0);
+	XSetWindowColormap(0, 0, 0);
+	XQueryColors(0,0,0,0);
+#ifdef SHM
+	XShmAttach(0, 0);
+	XShmCreateImage(0, 0, 0, 0, 0, 0, 0 ,0);
+	XShmDetach(0, 0);
+	XShmPutImage(0, 0, 0, 0 , 0,0,0,0,0,0,0);
+	shmctl(0,0,0);
+	fgetc(0);
+#endif
+}
+
 /*
  * catch X-errors and forward as errorInterrupt:#DisplayError,
  * (which itself invokes my handler and optionally raises an exceptionSignal)
@@ -8138,6 +8160,6 @@
 !XWorkstation  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.174 1996-09-18 10:30:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.175 1996-09-24 11:40:08 cg Exp $'
 ! !
 XWorkstation initialize!