From 8c385a23bf51cc29e996aded374974bdeaad425c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 30 Sep 2010 21:31:53 -0600 Subject: [PATCH] gtk: try fullscreen original commit: 1dd3c8accbc07ad97fbbcd4a961d67da5902b167 --- collects/mred/private/wx/gtk/frame.rkt | 4 ++++ collects/scribblings/gui/frame-class.scrbl | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/collects/mred/private/wx/gtk/frame.rkt b/collects/mred/private/wx/gtk/frame.rkt index 7cf3642d..3077daae 100644 --- a/collects/mred/private/wx/gtk/frame.rkt +++ b/collects/mred/private/wx/gtk/frame.rkt @@ -45,6 +45,7 @@ -> (values x y))) (define-gtk gtk_window_set_gravity (_fun _GtkWindow _int -> _void)) (define-gtk gtk_window_set_icon_list (_fun _GtkWindow _GList -> _void)) +(define-gtk gtk_window_fullscreen (_fun _GtkWindow -> _void)) (define-gtk gtk_window_resize (_fun _GtkWidget _int _int -> _void)) @@ -163,6 +164,9 @@ (set-size x y w h) + (when (memq 'hide-menu-bar style) + (gtk_window_fullscreen gtk)) + (connect-delete gtk) (connect-configure gtk) diff --git a/collects/scribblings/gui/frame-class.scrbl b/collects/scribblings/gui/frame-class.scrbl index 927307c6..7fac78e1 100644 --- a/collects/scribblings/gui/frame-class.scrbl +++ b/collects/scribblings/gui/frame-class.scrbl @@ -87,7 +87,8 @@ some platforms: frame's title bar (Mac OS X); a click on the toolbar button triggers a call to @method[frame% on-toolbar-button-click]} @item{@scheme['hide-menu-bar] --- hides the menu bar and dock when - the frame is active (Mac OS X)} + the frame is active (Mac OS X) or asks the window manager to make + the frame fullscreen (X)} @item{@scheme['float] --- causes the frame to stay in front of all other non-floating windows (Windows and Mac OS X always, X when