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

gtk: fix floating windows

Browse Source
This commit is contained in:
Matthew Flatt 2011-01-08 11:54:56 -07:00
parent f59e8e0eb9
commit eaa82cc84d
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mred/private/wx/gtk/frame.rkt
View File

@ -40,6 +40,8 @@
-> _void -> _void
-> (values w h))) -> (values w h)))
(define-gtk gtk_window_set_decorated (_fun _GtkWidget _gboolean -> _void)) (define-gtk gtk_window_set_decorated (_fun _GtkWidget _gboolean -> _void))
(define-gtk gtk_window_set_keep_above (_fun _GtkWidget _gboolean -> _void))
(define-gtk gtk_window_set_focus_on_map (_fun _GtkWidget _gboolean -> _void))
(define-gtk gtk_window_maximize (_fun _GtkWidget -> _void)) (define-gtk gtk_window_maximize (_fun _GtkWidget -> _void))
(define-gtk gtk_window_unmaximize (_fun _GtkWidget -> _void)) (define-gtk gtk_window_unmaximize (_fun _GtkWidget -> _void))
(define-gtk gtk_widget_set_uposition (_fun _GtkWidget _int _int -> _void)) (define-gtk gtk_widget_set_uposition (_fun _GtkWidget _int _int -> _void))
@ -150,6 +152,9 @@
(gtk_window_new GTK_WINDOW_TOPLEVEL))) (gtk_window_new GTK_WINDOW_TOPLEVEL)))
(when (memq 'no-caption style) (when (memq 'no-caption style)
(gtk_window_set_decorated gtk #f)) (gtk_window_set_decorated gtk #f))
(when (memq 'float style)
(gtk_window_set_keep_above gtk #t)
(gtk_window_set_focus_on_map gtk #f))
(define-values (vbox-gtk panel-gtk) (define-values (vbox-gtk panel-gtk)
(atomically (atomically
(let ([vbox-gtk (gtk_vbox_new #f 0)] (let ([vbox-gtk (gtk_vbox_new #f 0)]