[lazarus] PATCH for gtk2 bug 970

[Andrew Haines]

Hi, this patch fixes bug 970

Regards,

Andrew

Index: lcl/interfaces/gtk/gtklistsl.inc
===================================================================
--- lcl/interfaces/gtk/gtklistsl.inc    (revision 10195)
+++ lcl/interfaces/gtk/gtklistsl.inc    (working copy)
@@ -80,7 +80,13 @@
 
   // get itemindex and area
   ItemIndex:=g_list_index(GtkList^.children,Data);
+  {$IFDEF GTK1}
   AreaRect:=Bounds(Area^.x,Area^.y,Area^.Width,Area^.Height);
+  {$ELSE}
+  with Widget^.allocation do begin
+    AreaRect:=Bounds(x,y,width,height);
+  end;
+  {$ENDIF}
   
   // collect state flags
   State:=[odPainted];