Round mouse co-ordinates

diff --git a/basis/cocoa/views/views.factor b/basis/cocoa/views/views.factor
index 0b8346db4bb6a3b610ad96652e81f7f4d4f03d9e..3c60a6a7c1a276fecdc6321a33d60dee97d970ba 100644 (file)
--- a/basis/cocoa/views/views.factor
+++ b/basis/cocoa/views/views.factor
@@ -89,4 +89,4 @@ PRIVATE>
         -> locationInWindow f -> convertPoint:fromView:
         [ CGPoint-x ] [ CGPoint-y ] bi
     ] [ drop -> frame CGRect-h ] 2bi
-    swap - 2array ;
+    swap - [ >integer ] bi@ 2array ;