--- a/GLXWorkstation.st	Wed Jan 03 20:34:38 1996 +0100
+++ b/GLXWorkstation.st	Thu Jan 04 18:04:17 1996 +0100
@@ -842,7 +842,6 @@
     Matrix *mp;
 {
     OBJ cls;
-    extern OBJ FloatArray, DoubleArray, Array;
     int nByte;
     OBJ o;
     int ninstVars, nInstBytes;
@@ -915,12 +914,11 @@
     float *fp;
 {
     OBJ cls;
-    extern OBJ FloatArray, DoubleArray, Array;
     int ninstVars;
 
     if (! _isNonNilObject(obj)) return (float *)0;
     cls = __qClass(obj);
-    if (cls == FloatArray)
+    if (cls == @global(FloatArray))
 	return _FloatArrayInstPtr(obj)->f_element;
 
     if ((__intVal(_ClassInstPtr(cls)->c_flags) & ARRAYMASK) == FLOATARRAY) {
@@ -1657,7 +1655,6 @@
 #ifdef GLX
     short defType;
     short i_index, i_np;
-    extern OBJ FloatArray;
     float *fp;
     OBJ cls;
     int ninstVars, nInstBytes;
@@ -1678,7 +1675,7 @@
     if (! _isNonNilObject(props)) fp = NULL;
     else {
 	cls = __qClass(props);
-	if (cls == FloatArray)
+	if (cls == @global(FloatArray))
 	    fp = _FloatArrayInstPtr(props)->f_element;
 	else {
 	    if ((__intVal(_ClassInstPtr(cls)->c_flags) & ARRAYMASK) == FLOATARRAY) {
@@ -7784,5 +7781,5 @@
 !GLXWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GLXWorkstation.st,v 1.42 1995-12-23 00:36:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GLXWorkstation.st,v 1.43 1996-01-04 17:04:06 cg Exp $'
 ! !