--- a/GLXWorkstation.st	Fri Jul 28 01:54:05 1995 +0200
+++ b/GLXWorkstation.st	Fri Jul 28 04:58:06 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/GLXWorkstation.st,v 1.23 1995-07-27 23:52:49 claus Exp $
+$Header: /cvs/stx/stx/libview/GLXWorkstation.st,v 1.24 1995-07-28 02:58:06 claus Exp $
 '!
 
 !GLXWorkstation class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/GLXWorkstation.st,v 1.23 1995-07-27 23:52:49 claus Exp $
+$Header: /cvs/stx/stx/libview/GLXWorkstation.st,v 1.24 1995-07-28 02:58:06 claus Exp $
 "
 !
 
@@ -978,6 +978,27 @@
     "
 !
 
+glVersion
+    "return a string describing the GL version.
+     For informative use only; portable applications do not depend
+     on the returned string."
+
+%{  /* NOCONTEXT */
+#ifdef VGL
+    RETURN (_MKSTRING_INIT("vogl"));
+#else
+    char buffer[128];
+
+    gversion(buffer);
+    RETURN (_MKSTRING_INIT(buffer));
+#endif
+%}
+
+    "
+     Display glVersion 
+    "
+!
+
 supportsRGB
     "return true, if this gl workstation supports rgb
      (in addition to indexed) colors. Actually, we return true