paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 14:01:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk2: renamed Gtk1Create & Gtk1Destroy to Gtk2 counterparts.

Browse Source 
git-svn-id: trunk@29536 -
This commit is contained in:
zeljko 2011-02-13 19:16:43 +00:00
parent 1b48a23ce3
commit a5cebb65d2
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk2/gtk2int.pas
View File

@ -264,8 +264,8 @@ type
Widget: PGtkWidget; const AParams: TCreateParams); Widget: PGtkWidget; const AParams: TCreateParams);
private private
procedure Gtk1Create; procedure Gtk2Create;
procedure Gtk1Destroy; procedure Gtk2Destroy;
protected protected
function GetAppHandle: THandle; override; function GetAppHandle: THandle; override;

10
lcl/interfaces/gtk2/gtk2widgetset.inc
View File

@ -1090,7 +1090,7 @@ end;
constructor TGtk2WidgetSet.Create; constructor TGtk2WidgetSet.Create;
begin begin
inherited Create; inherited Create;
Gtk1Create; Gtk2Create;
{$IFNDEF USE_GTK_MAIN_OLD_ITERATION} {$IFNDEF USE_GTK_MAIN_OLD_ITERATION}
FMainPoll := nil; FMainPoll := nil;
Gtk2MPF := g_main_context_get_poll_func(g_main_context_default); Gtk2MPF := g_main_context_get_poll_func(g_main_context_default);
@ -1112,7 +1112,7 @@ begin
StayOnTopList.Free; StayOnTopList.Free;
StayOnTopList := nil; StayOnTopList := nil;
end; end;
Gtk1Destroy; Gtk2Destroy;
inherited Destroy; inherited Destroy;
end; end;
@ -1421,7 +1421,7 @@ end;
Constructor for the class. Constructor for the class.
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TGtk2WidgetSet.Gtk1Create; procedure TGtk2WidgetSet.Gtk2Create;
{$IFDEF EnabledGtkThreading} {$IFDEF EnabledGtkThreading}
{$IFNDEF Win32} {$IFNDEF Win32}
var var
@ -1625,9 +1625,9 @@ end;
Params: None Params: None
Returns: Nothing Returns: Nothing
Gtk1 original Destructor for the class. Gtk2 original Destructor for the class.
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TGtk2WidgetSet.Gtk1Destroy; procedure TGtk2WidgetSet.Gtk2Destroy;
const const
ProcName = '[TGtk2WidgetSet.Destroy]'; ProcName = '[TGtk2WidgetSet.Destroy]';
var var