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

gtk dialog% window hint

Browse Source
This commit is contained in:
Matthew Flatt 2010-08-02 12:44:47 -06:00
parent 96c77937b1
commit 4457c51022
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12,8 +12,11 @@
(define GTK_WIN_POS_CENTER 1) (define GTK_WIN_POS_CENTER 1)
(define GTK_WIN_POS_CENTER_ON_PARENT 4) (define GTK_WIN_POS_CENTER_ON_PARENT 4)
(define GDK_WINDOW_TYPE_HINT_DIALOG 1)
(define-gtk gtk_window_set_position (_fun _GtkWidget _int -> _void)) (define-gtk gtk_window_set_position (_fun _GtkWidget _int -> _void))
(define-gtk gtk_window_set_transient_for (_fun _GtkWidget _GtkWidget -> _void)) (define-gtk gtk_window_set_transient_for (_fun _GtkWidget _GtkWidget -> _void))
(define-gtk gtk_window_set_type_hint (_fun _GtkWidget _int -> _void))
(defclass dialog% frame% (defclass dialog% frame%
(inherit get-gtk (inherit get-gtk
@ -23,6 +26,8 @@
(define close-sema #f) (define close-sema #f)
(gtk_window_set_type_hint (get-gtk) GDK_WINDOW_TYPE_HINT_DIALOG)
(let ([p (get-parent)]) (let ([p (get-parent)])
(when p (when p
(gtk_window_set_transient_for (get-gtk) (send p get-gtk)))) (gtk_window_set_transient_for (get-gtk) (send p get-gtk))))