From 76cf6ffe1f9cff616364907381bc524f337fb3cc Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 28 Feb 2014 08:56:28 -0700 Subject: [PATCH] support older Cairo and GDK versions original commit: b971f9f4ebe0cdad9b3e4e9d5bf5d4547a8c14a4 --- pkgs/gui-pkgs/gui-lib/mred/private/wx/gtk/window.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/pkgs/gui-pkgs/gui-lib/mred/private/wx/gtk/window.rkt b/pkgs/gui-pkgs/gui-lib/mred/private/wx/gtk/window.rkt index 27d099a8..7830dd47 100644 --- a/pkgs/gui-pkgs/gui-lib/mred/private/wx/gtk/window.rkt +++ b/pkgs/gui-pkgs/gui-lib/mred/private/wx/gtk/window.rkt @@ -786,7 +786,9 @@ (define-gdk gdk_window_thaw_updates (_fun _GdkWindow -> _void)) (define-gdk gdk_window_invalidate_rect (_fun _GdkWindow _pointer _gboolean -> _void)) (define-gdk gdk_window_process_all_updates (_fun -> _void)) -(define-gdk gdk_window_ensure_native (_fun _GdkWindow -> _gboolean)) +(define-gdk gdk_window_ensure_native (_fun _GdkWindow -> _gboolean) + ;; Requires 2.18 + #:fail (lambda () (lambda (win) #f))) (define (win-box-valid? win-box) (mcar win-box))