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

gtk1: fixed regression: gtk list IndexOf locked the change vents

Browse Source 
git-svn-id: trunk@15725 -
This commit is contained in:
mattias 2008-07-09 15:00:23 +00:00
parent e6859b987a
commit 02181f508e
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk/gtklistsl.inc
View File

@ -869,7 +869,6 @@ function TGtkListStringList.IndexOf(const S: string): Integer;
var var
l, m, r, cmp: integer; l, m, r, cmp: integer;
begin begin
BeginUpdate;
if FSorted then begin if FSorted then begin
l:=0; l:=0;
r:=Count-1; r:=Count-1;
@ -891,7 +890,6 @@ begin
end else begin end else begin
Result:=inherited IndexOf(S); Result:=inherited IndexOf(S);
end; end;
EndUpdate;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------

4
lcl/interfaces/gtk/gtkproc.pp
View File

@ -665,8 +665,8 @@ procedure UpdateStatusBarPanel(StatusBar: TObject; Index: integer;
StatusPanelWidget: PGtkWidget); StatusPanelWidget: PGtkWidget);
// list // list
function gtkListSelectChild(widget: PGtkWidget;child : PGtkWidget; function gtkListSelectChild(widget: PGtkWidget; child: PGtkWidget;
data: gPointer): GBoolean; cdecl; data: gPointer): GBoolean; cdecl;
function gtkListGetSelectionMode(list: PGtkList): TGtkSelectionMode;cdecl; function gtkListGetSelectionMode(list: PGtkList): TGtkSelectionMode;cdecl;