paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 04:19:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk: remove unneeded $ifdef HasX

Browse Source 
git-svn-id: trunk@12195 -
This commit is contained in:
paul 2007-09-27 07:54:52 +00:00
parent 0c5e6d447a
commit 544849a53e
2 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk/gtklclintf.inc
View File

@ -536,12 +536,7 @@ begin
{$IFDEF Gtk1}
exit;
{$ELSE}
{$IFDEF HasX}
Drawable := gdk_screen_get_root_window(gdk_screen_get_default);
{$ELSE}
{$note: todo implement}
exit;
{$ENDIF}
{$ENDIF}
end;
Result := RawImage_FromDrawable(ARawImage, Drawable, nil, R);

1
lcl/interfaces/gtk/gtkproc.inc
View File

@ -7150,6 +7150,7 @@ begin
GdkWindow:=GetControlWindow(aWidget);
if (GdkWindow<>nil) and (GTK_WIDGET_MAPPED(aWidget)) then begin
// window is mapped = window manager has put the window somewhere
// under windows GtkLeft and GtkTop equal to -32000 for some reason
gdk_window_get_root_origin(GdkWindow, @GtkLeft, @GtkTop);
Left := GtkLeft;
Top := GtkTop;