projects
/
cl-gtk2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added construction of tree-view columns to ui-markup eDSL.
[cl-gtk2.git]
/
gtk
/
gtk.main-loop-events.lisp
diff --git
a/gtk/gtk.main-loop-events.lisp
b/gtk/gtk.main-loop-events.lisp
index
b14cfce
..
e3d910f
100644
(file)
--- a/
gtk/gtk.main-loop-events.lisp
+++ b/
gtk/gtk.main-loop-events.lisp
@@
-2,6
+2,10
@@
; TODO: gtk_get_default_language
; TODO: gtk_get_default_language
+(defcfun gtk-events-pending :boolean)
+
+(export 'gtk-events-pending)
+
(defcfun gtk-main-iteration :boolean)
(export 'gtk-main-iteration)
(defcfun gtk-main-iteration :boolean)
(export 'gtk-main-iteration)
@@
-13,7
+17,7
@@
; TODO: gtk_main_do_event
; TODO: gtk_main_do_event
-(defcfun (grad-add "gtk_grab_add") :void
+(defcfun (grab-add "gtk_grab_add") :void
(widget g-object))
(export 'grab-add)
(widget g-object))
(export 'grab-add)
@@
-41,7
+45,7
@@
; TODO: gtk_key_snooper_remove
; TODO: gtk_key_snooper_remove
-(defcfun (current-event "gtk_get_current_event") (g-boxed-ptr event))
+(defcfun (current-event "gtk_get_current_event") (g-boxed-foreign event :return))
(export 'current-event)
(export 'current-event)
@@
-50,13
+54,13
@@
(export 'current-event-time)
(defcfun (event-widget "gtk_get_event_widget") g-object
(export 'current-event-time)
(defcfun (event-widget "gtk_get_event_widget") g-object
- (event (g-boxed-ptr event)))
+ (event (g-boxed-foreign event)))
(export 'event-widget)
(defcfun (propagate-event "gtk_propagate_event") :void
(widget g-object)
(export 'event-widget)
(defcfun (propagate-event "gtk_propagate_event") :void
(widget g-object)
- (event (g-boxed-ptr event)))
+ (event (g-boxed-foreign event)))
(export 'propagate-event)
(export 'propagate-event)