anchor.diff:  ;; 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: gdk.lisp,v 1.11 2004-11-06 21:39:58 espen Exp $
  +;; $Id: gdk.lisp,v 1.12 2004-12-20 00:32:15 espen Exp $
   
   
   (in-package "GDK")
  
positive.code: (defmethod unreference-foreign ((class (eql (find-class 'cursor))) location)
    (declare (ignore class))
    (%cursor-unref location))
  
  
  
  
  ;;; Pixmaps
  
negative.code: 
  ;;; Windows
  
  (defbinding window-destroy () nil
    (window window))
  
  
  (defbinding window-at-pointer () window
    (x int :out)
    (y int :out))
  
  (defbinding window-show () nil
    (window window))
  
  (defbinding window-show-unraised () nil
    (window window))
  
  (defbinding window-hide () nil
    (window window))
  
  (defbinding window-is-visible-p () boolean
    (window window))
  
  (defbinding window-is-viewable-p () boolean
    (window window))
  
  (defbinding window-withdraw () nil
    (window window))
  
  (defbinding window-iconify () nil
    (window window))
  
  (defbinding window-deiconify () nil
    (window window))
  
  (defbinding window-stick () nil
    (window window))
  
  (defbinding window-unstick () nil
    (window window))
  
  (defbinding window-maximize () nil
    (window window))
  
  (defbinding window-unmaximize () nil
    (window window))
  
  (defbinding window-fullscreen () nil
    (window window))
  
  (defbinding window-unfullscreen () nil
    (window window))
  
  (defbinding window-set-keep-above () nil
    (window window)
    (setting boolean))
  
  (defbinding window-set-keep-below () nil
    (window window)
    (setting boolean))
  
  (defbinding window-move () nil
    (window window)
  