diff --git a/gui-lib/mred/private/wx/gtk/panel.rkt b/gui-lib/mred/private/wx/gtk/panel.rkt index 61ba6115..8dc97540 100644 --- a/gui-lib/mred/private/wx/gtk/panel.rkt +++ b/gui-lib/mred/private/wx/gtk/panel.rkt @@ -139,8 +139,6 @@ (gtk_fixed_move (get-container-gtk) child-gtk (->screen x) (->screen y)) (gtk_widget_set_size_request child-gtk (->screen w) (->screen h))))) -(define-gdk gdk_window_has_native (_fun _GdkWindow -> _gboolean)) - (define panel% (class (panel-container-mixin (panel-mixin window%)) (init parent diff --git a/gui-lib/mred/private/wx/gtk/unique.rkt b/gui-lib/mred/private/wx/gtk/unique.rkt index 72b03d59..a5e81b0d 100644 --- a/gui-lib/mred/private/wx/gtk/unique.rkt +++ b/gui-lib/mred/private/wx/gtk/unique.rkt @@ -88,7 +88,7 @@ (void (connect-message-received app))))) ;; ---------------------------------------- -;; New-style -singleInstance support lith Gtk +;; New-style -singleInstance support with Gtk (define _GtkApplication _GtkWidget) ; (_cpointer/null 'GtkApplication) (define _GApplicationCommandLine (_cpointer 'GApplicationCommandLine)) @@ -96,11 +96,15 @@ (define-gtk gtk_application_new (_fun _string _int -> _GtkApplication) #:fail (lambda () #f)) -(define-gdk g_application_get_is_remote (_fun _GtkApplication -> _gboolean)) -(define-gdk g_application_run (_fun _GtkApplication _int (_vector i _string) -> _gboolean)) +(define-gdk g_application_get_is_remote (_fun _GtkApplication -> _gboolean) + #:make-fail make-not-available) +(define-gdk g_application_run (_fun _GtkApplication _int (_vector i _string) -> _gboolean) + #:make-fail make-not-available) (define-gdk g_application_command_line_get_arguments - (_fun _GApplicationCommandLine (n : (_ptr o _int)) -> (p : _pointer) -> (values p n))) -(define-gdk g_strfreev (_fun _pointer -> _void)) + (_fun _GApplicationCommandLine (n : (_ptr o _int)) -> (p : _pointer) -> (values p n)) + #:make-fail make-not-available) +(define-gdk g_strfreev (_fun _pointer -> _void) + #:make-fail make-not-available) (define-signal-handler connect-activate "activate" (_fun _GtkApplication -> _void)