From 15fa34b09191d05b0bcd79e7939fba12a63beba4 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 12 Aug 2010 19:52:37 -0400 Subject: [PATCH] gtk: tolerate absence of a minor combo_box function --- collects/mred/private/wx/gtk/canvas.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/mred/private/wx/gtk/canvas.rkt b/collects/mred/private/wx/gtk/canvas.rkt index 3961758faf..cf252365d1 100644 --- a/collects/mred/private/wx/gtk/canvas.rkt +++ b/collects/mred/private/wx/gtk/canvas.rkt @@ -129,7 +129,11 @@ (define-gtk gtk_combo_box_set_active (_fun _GtkWidget _int -> _void)) (define-gtk gtk_combo_box_get_active (_fun _GtkWidget -> _int)) -(define-gtk gtk_combo_box_set_button_sensitivity (_fun _GtkWidget _int -> _void)) +(define-gtk gtk_combo_box_set_button_sensitivity (_fun _GtkWidget _int -> _void) + #:fail (lambda () + ;; Not available? Too bad. A combo-field% will in rare + ;; cases not be enabled as it should be. + (lambda (w m) (void)))) (define GTK_SENSITIVITY_ON 1) (define-signal-handler connect-expose "expose-event"