ui.backend.gtk: fix (grab-input) and (ungrab-input)

diff --git a/basis/ui/backend/gtk/gtk.factor b/basis/ui/backend/gtk/gtk.factor
index 1b4c44de9e9814ef84a8f5c5eb5d6b56bf40b7b2..4c533245702a34da4eb48854a9123110fc790687 100644 (file)
--- a/basis/ui/backend/gtk/gtk.factor
+++ b/basis/ui/backend/gtk/gtk.factor
@@ -411,12 +411,12 @@ M: gtk-ui-backend raise-window*
     ] with-destructors ;
 
 M: gtk-ui-backend (grab-input)
-    handle>> window>>
+    window>>
     [ gtk_grab_add ] [ GDK_BLANK_CURSOR set-cursor ] bi ;
 
 M: gtk-ui-backend (ungrab-input)
-    handle>> window>>
-    [ gtk_grab_remove ] [ GDK_ARROW set-cursor ] bi ;
+    window>>
+    [ gtk_grab_remove ] [ GDK_LEFT_PTR set-cursor ] bi ;
 
 M: window-handle select-gl-context ( handle -- )
     window>>