--- 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