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

gtk1: fixed signal stop return values

Browse Source 
git-svn-id: trunk@16449 -
This commit is contained in:
mattias 2008-09-06 08:55:38 +00:00
parent 7e7c616d52
commit 5202c92a1a
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -1167,7 +1167,7 @@ begin
end else begin end else begin
// stop the signal, so that the widget does not auto react // stop the signal, so that the widget does not auto react
g_signal_stop_emission_by_name(PGTKObject(Widget),'motion-notify-event'); g_signal_stop_emission_by_name(PGTKObject(Widget),'motion-notify-event');
Result:=not CallBackDefaultReturn; Result:=CallBackDefaultReturn;
end; end;
DeliverMouseMoveMessage(Widget,Event,TWinControl(Data)); DeliverMouseMoveMessage(Widget,Event,TWinControl(Data));
@ -1197,7 +1197,6 @@ begin
// stop the signal, so that it is not sent to the parent widgets // stop the signal, so that it is not sent to the parent widgets
g_signal_stop_emission_by_name(PGTKObject(Widget),'motion-notify-event'); g_signal_stop_emission_by_name(PGTKObject(Widget),'motion-notify-event');
Result:=not CallBackDefaultReturn;
UpdateMouseCaptureControl; UpdateMouseCaptureControl;
@ -1544,7 +1543,6 @@ begin
// stop the signal, so that the widget does not auto react // stop the signal, so that the widget does not auto react
//DebugLn(['gtkMouseBtnPress stop signal']); //DebugLn(['gtkMouseBtnPress stop signal']);
g_signal_stop_emission_by_name(PGTKObject(Widget),'button-press-event'); g_signal_stop_emission_by_name(PGTKObject(Widget),'button-press-event');
Result := not CallBackDefaultReturn;
end; end;
end; end;
//debugln('[gtkMouseBtnPress] calling DeliverMouseDownMessage Result=',dbgs(Result)); //debugln('[gtkMouseBtnPress] calling DeliverMouseDownMessage Result=',dbgs(Result));
@ -1577,7 +1575,6 @@ begin
// stop the signal, so that it is not sent to the parent widgets // stop the signal, so that it is not sent to the parent widgets
g_signal_stop_emission_by_name(PGTKObject(Widget),'button-press-event'); g_signal_stop_emission_by_name(PGTKObject(Widget),'button-press-event');
Result:=not CallBackDefaultReturn;
if (csDesigning in TComponent(Data).ComponentState) then exit; if (csDesigning in TComponent(Data).ComponentState) then exit;
if ControlGetsMouseDownBefore(TControl(Data),Widget) then exit; if ControlGetsMouseDownBefore(TControl(Data),Widget) then exit;
@ -1722,7 +1719,6 @@ begin
and (not (TControl(Data) is TCustomTabControl)) and (not (TControl(Data) is TCustomTabControl))
then begin then begin
g_signal_stop_emission_by_name(PGTKObject(Widget),'button-release-event'); g_signal_stop_emission_by_name(PGTKObject(Widget),'button-release-event');
Result := not CallBackDefaultReturn;
end; end;
end; end;
@ -1751,7 +1747,6 @@ begin
// stop the signal, so that it is not sent to the parent widgets // stop the signal, so that it is not sent to the parent widgets
g_signal_stop_emission_by_name(PGTKObject(Widget),'button-release-event'); g_signal_stop_emission_by_name(PGTKObject(Widget),'button-release-event');
Result:=not CallBackDefaultReturn;
ResetDefaultIMContext; ResetDefaultIMContext;
UpdateMouseCaptureControl; UpdateMouseCaptureControl;
@ -1803,7 +1798,6 @@ begin
if csDesigning in TControl(Data).ComponentState then begin if csDesigning in TControl(Data).ComponentState then begin
// stop the signal, so that the widget does not auto react // stop the signal, so that the widget does not auto react
g_signal_stop_emission_by_name(PGTKObject(Widget),'enter'); g_signal_stop_emission_by_name(PGTKObject(Widget),'enter');
Result:=not CallBackDefaultReturn;
end; end;
Mess.msg := CM_MOUSEENTER; Mess.msg := CM_MOUSEENTER;
@ -1823,7 +1817,6 @@ begin
if csDesigning in TControl(Data).ComponentState then begin if csDesigning in TControl(Data).ComponentState then begin
// stop the signal, so that the widget does not auto react // stop the signal, so that the widget does not auto react
g_signal_stop_emission_by_name(PGTKObject(Widget),'leave'); g_signal_stop_emission_by_name(PGTKObject(Widget),'leave');
Result:=not CallBackDefaultReturn;
end; end;
Mess.msg := CM_MOUSELEAVE; Mess.msg := CM_MOUSELEAVE;
@ -2196,7 +2189,6 @@ begin
if csDesigning in TControl(Data).ComponentState then begin if csDesigning in TControl(Data).ComponentState then begin
// stop the signal, so that the widget does not auto react // stop the signal, so that the widget does not auto react
g_signal_stop_emission_by_name(PGTKObject(Widget),'focus-in-event'); g_signal_stop_emission_by_name(PGTKObject(Widget),'focus-in-event');
Result:=not CallBackDefaultReturn;
end; end;
MessI.msg := LM_Enter; MessI.msg := LM_Enter;
@ -2218,7 +2210,6 @@ begin
if csDesigning in TControl(Data).ComponentState then begin if csDesigning in TControl(Data).ComponentState then begin
// stop the signal, so that the widget does not auto react // stop the signal, so that the widget does not auto react
g_signal_stop_emission_by_name(PGTKObject(Widget),'focus-out-event'); g_signal_stop_emission_by_name(PGTKObject(Widget),'focus-out-event');
Result:=not CallBackDefaultReturn;
end; end;
MessI.msg := LM_Exit; MessI.msg := LM_Exit;