suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

repairs to work with old Gtk

Browse Source
This commit is contained in:
Matthew Flatt 2016-04-14 06:06:34 -06:00
parent eb8d060f84
commit 32f8bfd90e
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gui-lib/mred/private/wx/gtk/panel.rkt
View File

@ -139,8 +139,6 @@
(gtk_fixed_move (get-container-gtk) child-gtk (->screen x) (->screen y)) (gtk_fixed_move (get-container-gtk) child-gtk (->screen x) (->screen y))
(gtk_widget_set_size_request child-gtk (->screen w) (->screen h))))) (gtk_widget_set_size_request child-gtk (->screen w) (->screen h)))))
(define-gdk gdk_window_has_native (_fun _GdkWindow -> _gboolean))
(define panel% (define panel%
(class (panel-container-mixin (panel-mixin window%)) (class (panel-container-mixin (panel-mixin window%))
(init parent (init parent

14
gui-lib/mred/private/wx/gtk/unique.rkt
View File

@ -88,7 +88,7 @@
(void (connect-message-received app))))) (void (connect-message-received app)))))
;; ---------------------------------------- ;; ----------------------------------------
;; New-style -singleInstance support lith Gtk ;; New-style -singleInstance support with Gtk
(define _GtkApplication _GtkWidget) ; (_cpointer/null 'GtkApplication) (define _GtkApplication _GtkWidget) ; (_cpointer/null 'GtkApplication)
(define _GApplicationCommandLine (_cpointer 'GApplicationCommandLine)) (define _GApplicationCommandLine (_cpointer 'GApplicationCommandLine))
@ -96,11 +96,15 @@
(define-gtk gtk_application_new (_fun _string _int -> _GtkApplication) (define-gtk gtk_application_new (_fun _string _int -> _GtkApplication)
#:fail (lambda () #f)) #:fail (lambda () #f))
(define-gdk g_application_get_is_remote (_fun _GtkApplication -> _gboolean)) (define-gdk g_application_get_is_remote (_fun _GtkApplication -> _gboolean)
(define-gdk g_application_run (_fun _GtkApplication _int (_vector i _string) -> _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 (define-gdk g_application_command_line_get_arguments
(_fun _GApplicationCommandLine (n : (_ptr o _int)) -> (p : _pointer) -> (values p n))) (_fun _GApplicationCommandLine (n : (_ptr o _int)) -> (p : _pointer) -> (values p n))
(define-gdk g_strfreev (_fun _pointer -> _void)) #:make-fail make-not-available)
(define-gdk g_strfreev (_fun _pointer -> _void)
#:make-fail make-not-available)
(define-signal-handler connect-activate "activate" (define-signal-handler connect-activate "activate"
(_fun _GtkApplication -> _void) (_fun _GtkApplication -> _void)