From 66f5c2695f1ff37b06a2b176f0cfffd21133e8c4 Mon Sep 17 00:00:00 2001 From: Anton Gorenko Date: Tue, 8 Jun 2010 13:21:45 +0600 Subject: [PATCH] ui.backend.gtk: fix (grab-input) and (ungrab-input) --- basis/ui/backend/gtk/gtk.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/ui/backend/gtk/gtk.factor b/basis/ui/backend/gtk/gtk.factor index 1b4c44de9e..4c53324570 100644 --- 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>>