From 53369cf5ff497cec81b1208e1d639ba648a04678 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 23 Mar 2009 23:15:53 -0500
Subject: [PATCH] Round mouse co-ordinates

---
 basis/cocoa/views/views.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/cocoa/views/views.factor b/basis/cocoa/views/views.factor
index 0b8346db4b..3c60a6a7c1 100644
--- 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 ;