gtk: Added generic procedure fix-widget-unrealize-callback.

diff --git a/src/gtk/fix-layout.scm b/src/gtk/fix-layout.scm
index f2f97005288dc0fff3af25ee422e2e9cf33564ee..121485f88a534dda3c41df136ce33e8f64f1777c 100644 (file)
--- a/src/gtk/fix-layout.scm
+++ b/src/gtk/fix-layout.scm
@@ -57,6 +57,7 @@ USA.
   (C-call "gtk_widget_set_has_window" (gobject-alien widget) 1)
 
   (set-gtk-widget-realize-callback! widget fix-widget-realize-callback)
+  (set-gtk-widget-unrealize-callback! widget fix-widget-unrealize-callback)
   (set-gtk-widget-size-allocate-callback! widget allocate-callback)
   (set-gtk-widget-event-callback! widget event-callback))
 
@@ -94,6 +95,12 @@ USA.
       (C-call "gdk_window_set_user_data" main-GdkWindow GtkWidget)
       (%trace ";  window: "main-GdkWindow"\n"))))
 
+(define-generic fix-widget-unrealize-callback (widget))
+
+(define-method fix-widget-unrealize-callback ((widget <fix-widget>))
+  (%trace "; (fix-widget-unrealize-callback <fix-widget>) "widget"\n")
+  )
+
 (define (allocate-callback widget GtkAllocation)
   (let ((x (C-> GtkAllocation "GtkAllocation x"))
        (y (C-> GtkAllocation "GtkAllocation y"))

diff --git a/src/gtk/gtk.pkg b/src/gtk/gtk.pkg
index 52775e08e5a5e0a9e5588291c174e8f98f5954ea..d1f13bf4f2fa79e5b31e2b64523861b057122436 100644 (file)
--- a/src/gtk/gtk.pkg
+++ b/src/gtk/gtk.pkg
@@ -166,7 +166,9 @@ USA.
          gtk-widget-style-context)
   (export (gtk)
          <fix-widget> fix-widget?
-         fix-widget-new-geometry-callback fix-widget-realize-callback
+         fix-widget-new-geometry-callback
+         fix-widget-realize-callback
+         fix-widget-unrealize-callback
          set-fix-widget-pointer-shape!
          set-fix-widget-map-handler!
          set-fix-widget-unmap-handler!