From 181e58139ca63657842263b332862bc36f5080c5 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 4 Oct 2006 17:21:32 +0000
Subject: [PATCH] gtk2 intf: fullscreen modus for forms  from A.J. Venter

git-svn-id: trunk@10035 -
---
 ide/revision.inc               |  2 +-
 lcl/interfaces/gtk/gtkproc.inc | 13 +++++++------
 2 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/ide/revision.inc b/ide/revision.inc
index ba390fc4ea..68d5655377 100644
--- a/ide/revision.inc
+++ b/ide/revision.inc
@@ -1,2 +1,2 @@
 // Created by Svn2RevisionInc
-const RevisionStr = '10002M';
+const RevisionStr = '10034M';
diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc
index 43dd95dd73..4429b3a1e0 100644
--- a/lcl/interfaces/gtk/gtkproc.inc
+++ b/lcl/interfaces/gtk/gtkproc.inc
@@ -981,7 +981,6 @@ begin
 end;
 
 procedure SetWindowFullScreen(AForm: TCustomForm; const AValue: Boolean);
-{$IFDEF HasGtkX}
 var
   XDisplay: PDisplay;
   XScreen: PScreen;
@@ -995,6 +994,12 @@ var
   _NET_WM_STATE_ATOMS: array [0..2] of Integer;
   I: Integer;
 begin
+  {$IFDEF GTK2}
+   If AValue then
+   GTK_Window_FullScreen(PGTKWindow(AForm.Handle)) else
+   GTK_Window_UnFullScreen(PGTKWindow(AForm.Handle));
+  {$ENDIF}
+  {$IFDEF GTK1}
   XDisplay := gdk_display;
   XScreen := XDefaultScreenOfDisplay(xdisplay);
   XRootWindow := XRootWindowOfScreen(xscreen);
@@ -1018,12 +1023,8 @@ begin
 
     XSendEvent(XDisplay, XRootWindow, False, SubstructureNotifyMask, @XEvent);
   end;
+   {$ENDIF}
 end;
-{$ELSE}
-begin
-  RaiseGDBException('not implemented');
-end;
-{$ENDIF}
 
 procedure GrabKeyBoardToForm(AForm: TCustomForm);
 begin