X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.widget.lisp;fp=gtk%2Fgtk.widget.lisp;h=061185245f1d204f54c12014f6601bb52157210f;hb=a96dde2b8a0d1c9fed57faf6a828eeef4d2b8218;hp=67c0404721485e43bfc5d37e8a810a081114bdbe;hpb=3aac876ec530d646852acfd28ed60de0b50a3371;p=cl-gtk2.git diff --git a/gtk/gtk.widget.lisp b/gtk/gtk.widget.lisp index 67c0404..0611852 100644 --- a/gtk/gtk.widget.lisp +++ b/gtk/gtk.widget.lisp @@ -2,17 +2,6 @@ ; TODO: GtkWidget -(define-g-boxed-cstruct selection-data "GtkSelectionData" - (selection gdk-atom-as-string :initform nil) - (target gdk-atom-as-string :initform nil) - (type gdk-atom-as-string :initform nil) - (format :int :initform 0) - (data :pointer :initform (null-pointer)) - (length :int :initform 0) - (display (g-object display) :initform nil)) - -(export (boxed-related-symbols 'selection-data)) - (defun widget-flags (widget) (convert-from-foreign (gtk-object-flags-as-integer widget) 'widget-flags))