From: Matt Birkholz Date: Fri, 13 Jul 2012 16:39:55 +0000 (-0700) Subject: gtk: Punt set-fix-widget-size!; use gtk-widget-set-size-request. X-Git-Tag: mit-scheme-pucked-9.2.12~579 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5344ca838109e3f3760adba21fd1bbee2e3f0532;p=mit-scheme.git 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 05810e6eb..7e5053c29 100644 --- 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 ddbe9f8d0..405663ac7 100644 --- 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 0430b2997..2a58159ca 100644 --- 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!