(defun gtk-init ()
(gtk-init-check (foreign-alloc :int :initial-element 0)
(foreign-alloc :string :initial-contents '("/usr/bin/sbcl")))
+ #+ (and sbcl (not win32))
+ (sb-unix::enable-interrupt sb-unix:sigpipe #'sb-unix::sigpipe-handler)
#+nil(with-foreign-objects ((argc :int)
(argv '(:pointer :string) 1))
(setf (mem-ref argc :int) 0
(defcfun gtk-grab-get-current g-object)
(defcfun gtk-grab-remove :void
- (widget g-object))
\ No newline at end of file
+ (widget g-object))