gtk: Punt set-fix-widget-size!; use gtk-widget-set-size-request.

diff --git a/src/gtk/fix-layout.scm b/src/gtk/fix-layout.scm
index 05810e6ebff18e2e6cd1cd29cd661f0470487d80..7e5053c292bd8769195477b26f0d6e70b8560baf 100644 (file)
--- a/src/gtk/fix-layout.scm
+++ b/src/gtk/fix-layout.scm
@@ -166,12 +166,6 @@ USA.
   (declare (ignore widget))
   unspecific)
 
-(define (set-fix-widget-size! widget width height)
-  (guarantee-fix-widget widget 'set-fix-widget-size!)
-  (guarantee-non-negative-fixnum width 'set-fix-widget-size!)
-  (guarantee-non-negative-fixnum height 'set-fix-widget-size!)
-  (C-call "gtk_widget_set_size_request" (gobject-alien widget) width height))
-
 (define (fix-widget-realized? widget)
   (not (alien-null? (fix-widget-window widget))))
 

diff --git a/src/gtk/gtk-object.scm b/src/gtk/gtk-object.scm
index ddbe9f8d0a2621eccd63526ecbe5b1777246d4c1..405663ac7b0cbdd6a01b0d37616a4e4951c00082 100644 (file)
--- a/src/gtk/gtk-object.scm
+++ b/src/gtk/gtk-object.scm
@@ -215,6 +215,9 @@ USA.
          (C-> alien "GtkWidget allocation height"))))
 
 (define (gtk-widget-set-size-request widget width height)
+  (guarantee-gtk-widget widget 'gtk-widget-set-size-request)
+  (guarantee-non-negative-fixnum width 'gtk-widget-set-size-request)
+  (guarantee-non-negative-fixnum height 'gtk-widget-set-size-request)
   (C-call "gtk_widget_set_size_request" (gobject-alien widget) width height))
 
 (define (set-gtk-widget-size-allocate-callback! widget callback)

diff --git a/src/gtk/gtk.pkg b/src/gtk/gtk.pkg
index 0430b2997906b8462b655d9b425d7069b50246f6..2a58159cac4aac650e88ff4defc10fb6b09e21e7 100644 (file)
--- a/src/gtk/gtk.pkg
+++ b/src/gtk/gtk.pkg
@@ -225,7 +225,6 @@ USA.
   (export (gtk)
          fix-widget?
          fix-widget-new-geometry-callback fix-widget-realize-callback
-         set-fix-widget-size!
          set-fix-widget-pointer-shape!
          set-fix-widget-expose-handler!
          set-fix-widget-map-handler!