--- a/XWorkstation.st Thu Mar 05 20:47:27 1998 +0100
+++ b/XWorkstation.st Sat Mar 07 14:48:44 1998 +0100
@@ -3084,32 +3084,40 @@
gc = _GCVal(aGCId);
win = _WindowVal(aDrawableId);
- if( __isSmallInteger(scaleY) ) sY = (float) __intVal( scaleY );
- else if (__isFloat(scaleY)) sY = __floatVal( scaleY );
+ if( __isSmallInteger(scaleY) )
+ sY = (float) __intVal( scaleY );
+ else if (__isFloat(scaleY))
+ sY = __floatVal( scaleY );
else {
t = __SSEND0(scaleY, @symbol(asFloat), 0);
if (! __isFloat(t)) goto fail;
sY = __floatVal( t );
}
- if( __isSmallInteger(transY) ) tY = (float) __intVal( transY );
- else if (__isFloat(transY)) tY = __floatVal( transY );
+ if( __isSmallInteger(transY) )
+ tY = (float) __intVal( transY );
+ else if (__isFloat(transY))
+ tY = __floatVal( transY );
else {
t = __SSEND0(transY, @symbol(asFloat), 0);
if (! __isFloat(t)) goto fail;
tY = __floatVal( t );
}
- if( __isSmallInteger(startX) ) x = (float) __intVal( startX );
- else if (__isFloat(startX)) x = __floatVal( startX );
+ if( __isSmallInteger(startX) )
+ x = (float) __intVal( startX );
+ else if (__isFloat(startX))
+ x = __floatVal( startX );
else {
t = __SSEND0(startX, @symbol(asFloat), 0);
if (! __isFloat(t)) goto fail;
x = __floatVal( t );
}
- if( __isSmallInteger(stepX) ) step = (float) __intVal( stepX );
- else if (__isFloat(stepX)) step = __floatVal( stepX );
+ if( __isSmallInteger(stepX) )
+ step = (float) __intVal( stepX );
+ else if (__isFloat(stepX))
+ step = __floatVal( stepX );
else {
t = __SSEND0(stepX, @symbol(asFloat), 0);
if (! __isFloat(t)) goto fail;
@@ -3136,6 +3144,8 @@
y = __floatVal( yA );
else if( __isSmallInteger(yA) )
y = (float) __intVal( yA );
+ else if( __isShortFloat( yA) )
+ y = __shortFloatVal( yA );
else {
t = __SSEND0(yA, @symbol(asFloat), 0);
if (! __isFloat(t)) goto fail;
@@ -9872,6 +9882,6 @@
!XWorkstation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.278 1998-02-07 21:44:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.279 1998-03-07 13:48:44 cg Exp $'
! !
XWorkstation initialize!