Bug fix

diff --git a/gtk/gtkwidget.lisp b/gtk/gtkwidget.lisp
index b75eb4a712ce2d7f5a5395512b06ddb9ce3d5b7b..c0aaac88c8faba5a97d3615a4d17e479f304cbfe 100644 (file)
--- a/gtk/gtkwidget.lisp
+++ b/gtk/gtkwidget.lisp
@@ -15,7 +15,7 @@
 ;; License along with this library; if not, write to the Free Software
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 ;; License along with this library; if not, write to the Free Software
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 

-;; $Id: gtkwidget.lisp,v 1.11 2004/12/17 00:27:01 espen Exp $
+;; $Id: gtkwidget.lisp,v 1.12 2004/12/20 00:53:48 espen Exp $

 
 (in-package "GTK")
 
 
 (in-package "GTK")
 


@@ -384,5 +384,5 @@ (defbinding get-event-widget () widget
   (event gdk:event))
 
 (defun (setf widget-cursor) (cursor-type widget)
   (event gdk:event))
 
 (defun (setf widget-cursor) (cursor-type widget)

-  (let ((cursor (make-instance 'cursor  :type cursor-type)))
+  (let ((cursor (make-instance 'gdk:cursor :type cursor-type)))

     (gdk:window-set-cursor (widget-window widget) cursor)))
     (gdk:window-set-cursor (widget-window widget) cursor)))