+(defbinding widget-get-ancestor (widget type) widget
+ (widget widget)
+ ((find-type-number type) type-number))
+
+(defbinding widget-get-pointer () nil
+ (widget widget)
+ (x int :out)
+ (y int :out))
+
+(defbinding (widget-is-ancestor-p "gtk_widget_is_ancestor") () boolean
+ (widget widget)
+ (ancestor widget))
+
+(defbinding widget-translate-coordinates () boolean
+ (src-widget widget)
+ (dest-widget widget)
+ (src-x int) (src-y int)
+ (set-x int :out) (dest-y int :out))
+
+(defun widget-hide-on-delete (widget)
+ "Utility function; intended to be connected to the DELETE-EVENT
+signal on a GtkWindow. The function calls WIDGET-HIDE on its
+argument, then returns T. If connected to DELETE-EVENT, the
+result is that clicking the close button for a window (on the window
+frame, top right corner usually) will hide but not destroy the
+window. By default, GTK+ destroys windows when DELETE-EVENT is
+received."
+ (widget-hide widget)
+ t)
+
+(defbinding widget-ensure-style () nil
+ (widget widget))