GLXWorkstation.st
changeset 71 6a42b2b115f8
parent 64 b401612eb99c
child 77 da4678fae5c8
--- a/GLXWorkstation.st	Tue Oct 04 19:10:54 1994 +0100
+++ b/GLXWorkstation.st	Mon Oct 10 03:30:48 1994 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/GLXWorkstation.st,v 1.13 1994-08-22 13:14:25 claus Exp $
+$Header: /cvs/stx/stx/libview/GLXWorkstation.st,v 1.14 1994-10-10 02:30:48 claus Exp $
 '!
 
 %{
@@ -597,7 +597,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/GLXWorkstation.st,v 1.13 1994-08-22 13:14:25 claus Exp $
+$Header: /cvs/stx/stx/libview/GLXWorkstation.st,v 1.14 1994-10-10 02:30:48 claus Exp $
 "
 !
 
@@ -2928,13 +2928,12 @@
 ! 
 
 glxDeflinestyleN: n ls: ls in: aGLXWindowId
-
-%{  /* NOCONTEXT */
-#ifdef GLX
+    "define a line style"
+
+%{  /* NOCONTEXT */
     SETWIN(aGLXWindowId)
     deflinestyle(_shortVal(n), _linestyleVal(ls));
     RETURN (true);
-#endif
 %}
 .
     ^ false
@@ -3341,12 +3340,11 @@
 ! 
 
 glxGetcolorIn: aGLXWindowId
-
-%{  /* NOCONTEXT */
-#ifdef GLX
+    "return the current drawing color"
+
+%{  /* NOCONTEXT */
     SETWIN(aGLXWindowId)
     RETURN (_MKSMALLINT(getcolor()));
-#endif
 %}
 .
     ^ false
@@ -3914,26 +3912,24 @@
 ! 
 
 glxLinewidth: n in: aGLXWindowId
-
-%{  /* NOCONTEXT */
-#ifdef GLX
+    "set the linewidth"
+
+%{  /* NOCONTEXT */
     SETWIN(aGLXWindowId)
     linewidth(_shortVal(n));
     RETURN (true);
-#endif
 %}
 .
     ^ false
 ! 
 
 glxLinewidthf: n in: aGLXWindowId
-
-%{  /* NOCONTEXT */
-#ifdef GLX
+    "set the linewidth"
+
+%{  /* NOCONTEXT */
     SETWIN(aGLXWindowId)
     linewidthf(_floatVal(n));
     RETURN (true);
-#endif
 %}
 .
     ^ false
@@ -5806,13 +5802,12 @@
 ! 
 
 glxSetlinestyle: index in: aGLXWindowId
-
-%{  /* NOCONTEXT */
-#ifdef GLX
+    "set the linestyle"
+
+%{  /* NOCONTEXT */
     SETWIN(aGLXWindowId)
     setlinestyle(_shortVal(index));
     RETURN (true);
-#endif
 %}
 .
     ^ false