paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 11:38:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed 1671

Browse Source 
git-svn-id: trunk@9329 -
This commit is contained in:
mattias 2006-05-21 13:57:08 +00:00
parent 83fb80c984
commit 41fc019f01
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3128,7 +3128,8 @@ begin
{$ENDIF}
FillChar(Mess,SizeOf(Mess),0);
Mess.msg := LM_SelChange;
DeliverMessage(Data, Mess);
if (data=nil) or (PGtkList(widget)^.selection<>nil) then
DeliverMessage(Data, Mess);
end;
function gtkListSelectChild(widget: PGtkWidget;child : PGtkWidget; data: gPointer

1
lcl/tests/test4_1synedit.lpi
View File

@ -11,7 +11,6 @@
</General>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>