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

Removed writeln

Browse Source 
git-svn-id: trunk@47725 -
This commit is contained in:
andrew 2015-02-13 03:15:12 +00:00
parent 18e29b0217
commit 87ec2ec359
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2137,7 +2137,6 @@ begin
EventXY := Point(TruncToInt(Event^.X), TruncToInt(Event^.Y)); EventXY := Point(TruncToInt(Event^.X), TruncToInt(Event^.Y));
ShiftState := GTKEventStateToShiftState(Event^.State); ShiftState := GTKEventStateToShiftState(Event^.State);
writeln('gtk2 button down : ', event^.button);
if ShiftState*[ssShift, ssCtrl, ssAlt, ssSuper] <> LastModifierKeys if ShiftState*[ssShift, ssCtrl, ssAlt, ssSuper] <> LastModifierKeys
then begin then begin
LastModifierKeys := ShiftState*[ssShift, ssCtrl, ssAlt, ssSuper]; LastModifierKeys := ShiftState*[ssShift, ssCtrl, ssAlt, ssSuper];