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

gtk2: remove unecessary checks

Browse Source 
git-svn-id: trunk@34395 -
This commit is contained in:
blikblum 2011-12-24 20:58:37 +00:00
parent bcdef55e90
commit 3bd4030d1a
3 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2callback.inc
View File

@ -242,8 +242,6 @@ begin
// this is a normal lcl wigdet
MainWidget:=GetMainWidget(Widget);
if MainWidget=nil then
MainWidget:=Widget;
WinWidgetInfo:=GetWidgetInfo(MainWidget,true);
LCLObject:=GetLCLObject(MainWidget);
if (LCLObject<>nil) and (WinWidgetInfo<>nil) then begin

4
lcl/interfaces/gtk2/gtk2proc.inc
View File

@ -4851,8 +4851,6 @@ begin
if (csfUpdateSignalMask in ASFlags) and (AReqSignalMask <> 0)
then begin
MainWidget := GetMainWidget(PGtkWidget(AnObject));
if MainWidget=nil
then MainWidget := PGtkWidget(AnObject);
WinWidgetInfo := GetWidgetInfo(MainWidget,true);
WinWidgetInfo^.EventMask := WinWidgetInfo^.EventMask or AReqSignalMask;
end;
@ -4982,8 +4980,6 @@ procedure ConnectInternalWidgetsSignals(AWidget: PGtkWidget;
DesignFlags: TConnectSignalFlags;
begin
//if AWinControl is TListView then DebugLn('ConnectSignals A ',DbgS(TheWidget));
if TheWidget=nil then exit;
// check if TheWidget belongs to another LCL object
LCLObject:=GetLCLObject(TheWidget);
HiddenLCLObject:=GetHiddenLCLObject(TheWidget);

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

@ -477,8 +477,6 @@ begin
// gCore is the working widget (e.g. TListBox has a scrolling widget (=main widget) and a tree widget (=core widget))
gCore:=PGtkObject(Info^.CoreWidget);
gMain:=GetMainWidget(gObject);
if (gMain=nil) then
gMain:=gObject;
if (gMain<>gObject) then
DebugLn(['TGtkWidgetSet.SetCallback WARNING: gObject<>MainWidget ',DbgSName(ALCLObject)]);