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_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

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

@ -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)