DeviceWorkstation.st
changeset 6006 34e481bc10c5
parent 5999 44810a563c6e
child 6011 5f2245003b40
--- a/DeviceWorkstation.st	Mon Feb 04 19:14:28 2013 +0100
+++ b/DeviceWorkstation.st	Thu Feb 07 22:32:14 2013 +0100
@@ -1965,7 +1965,7 @@
 !DeviceWorkstation methodsFor:'accessing-display capabilities'!
 
 centerOfMonitorHavingPointer
-    ^ (self monitorBoundsAt:self pointerPosition) center.
+    ^ (self monitorBoundsAt:self pointerPosition) center rounded.
 
     "
      Screen current centerOfMonitorHavingPointer
@@ -8237,11 +8237,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.578 2013-01-30 17:44:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.579 2013-02-07 21:32:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.578 2013-01-30 17:44:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.579 2013-02-07 21:32:14 cg Exp $'
 ! !