paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 19:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk2: fixed crash on gtk2 64bit when an invalid index is passed to setPageIndex

Browse Source 
git-svn-id: trunk@33963 -
This commit is contained in:
zeljko 2011-12-04 17:49:00 +00:00
parent 09e60d3eb7
commit 719c2296c9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/gtk2/gtk2pagecontrol.inc
View File

@ -475,7 +475,8 @@ var
begin
if not WSCheckHandleAllocated(ATabControl, 'SetPageIndex') then
Exit;
if (AIndex < 0) or (AIndex > ATabControl.PageCount - 1) then
exit;
GtkNotebook := PGtkNoteBook(ATabControl.Handle);
if gtk_notebook_get_current_page(GtkNotebook) <> AIndex then
begin