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

codetools: added -dVerboseCTSave

Browse Source 
git-svn-id: trunk@21093 -
This commit is contained in:
mattias 2009-08-03 21:28:27 +00:00
parent dc0c82f3e3
commit 2f8de86823
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/sourcelog.pas
View File

@ -696,7 +696,10 @@ var
TheFilename: String;
s: String;
begin
//DebugLn('TSourceLog.SaveToFile Self=',DbgS(Self));
{$IFDEF VerboseCTSave}
DebugLn('TSourceLog.SaveToFile Self=',DbgS(Self));
CTDumpStack;
{$ENDIF}
Result := True;
try
InvalidateFileStateCache;

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

@ -1186,6 +1186,7 @@ var
ShiftState: TShiftState;
begin
Result := CallBackDefaultReturn;
MousePositionValid:=false;
{$IFDEF VerboseMouseBugfix}
@ -1251,7 +1252,7 @@ end;
function GTKMotionNotifyAfter(widget:PGTKWidget; event: PGDKEventMotion;
data: gPointer): GBoolean; cdecl;
begin
Result := True; // stop event propagation
Result := true; // stop event propagation
MousePositionValid := False;
{$IFDEF VerboseMouseBugfix}