WinWorkstation.st
changeset 2279 30a35be06995
parent 2276 98198d9748e6
child 2280 b72f44340cba
--- a/WinWorkstation.st	Mon Aug 24 18:38:24 1998 +0200
+++ b/WinWorkstation.st	Mon Aug 24 18:50:13 1998 +0200
@@ -3529,11 +3529,11 @@
 
     if (__isExternalAddress(windowId1)
      && __isExternalAddress(windowId2)
-     && __bothSmallInteger(x, y)) {
+     && __bothSmallInteger(x1, y1)) {
         w1 = _HWNDVal(windowId1);
         w2 = _HWNDVal(windowId2);
-        point.x = __intVal(x);
-        point.y = __intVal(y);
+        point.x = __intVal(x1);
+        point.y = __intVal(y1);
         DPRINTF(("TransPoint %x %d/%d ->",w1,point.x,point.y));
         ClientToScreen(w1,&point);
         ScreenToClient(w2,&point);
@@ -5086,8 +5086,7 @@
     else if (__isFloat(startAngle)) {
 	angle1 = __floatVal(startAngle);
     } else if (__isShortFloat(startAngle)) {
-        f = __shortFloatVal(startAngle);
-        angle1 = f * 64;
+        angle1 = __shortFloatVal(startAngle);
     } else goto bad;
 
     if (__isSmallInteger(angle))
@@ -5095,8 +5094,7 @@
     else if (__isFloat(angle)) {
 	angle2 = __floatVal(angle);
     } else if (__isShortFloat(angle)) {
-        f = __shortFloatVal(angle);
-        angle2 = f * 64;
+        angle2 = __shortFloatVal(angle);
     } else goto bad;
 
     if (__isExternalAddress(aGCId)
@@ -5490,8 +5488,7 @@
     else if (__isFloat(startAngle)) {
 	angle1 = __floatVal(startAngle);
     } else if (__isShortFloat(startAngle)) {
-        f = __shortFloatVal(startAngle);
-        angle1 = f * 64;
+        anfle1 = __shortFloatVal(startAngle);
     } else goto bad;
 
     if (__isSmallInteger(angle))
@@ -5499,8 +5496,7 @@
     else if (__isFloat(angle)) {
 	angle2 = __floatVal(angle);
     } else if (__isShortFloat(angle)) {
-        f = __shortFloatVal(angle);
-        angle2 = f * 64;
+        angle2 = __shortFloatVal(angle);
     } else goto bad;
 
     if (__isExternalAddress(aGCId)
@@ -9787,6 +9783,6 @@
 !WinWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.48 1998-08-24 16:36:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.49 1998-08-24 16:50:13 cg Exp $'
 ! !
 WinWorkstation initialize!