paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 20:36:09 +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);
private
procedure Gtk1Create;
procedure Gtk1Destroy;
procedure Gtk2Create;
procedure Gtk2Destroy;
protected
function GetAppHandle: THandle; override;

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

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