[Inetremote-cvs] inetremote main.pas,1.8,1.9

[<he...@us...>]

Update of /cvsroot/inetremote/inetremote
In directory sc8-pr-cvs1:/tmp/cvs-serv6299

Modified Files:
	main.pas 
Log Message:
Fixed bug when closing with 0 plugins

Index: main.pas
===================================================================
RCS file: /cvsroot/inetremote/inetremote/main.pas,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** main.pas	9 Mar 2003 18:18:19 -0000	1.8
--- main.pas	10 Mar 2003 17:54:12 -0000	1.9
***************
*** 326,336 ****
    temp: ^TPlugin;
  begin
!   for i := plugins.Count-1 to 0 DO //Reverse, because otherwise list is decremented but i incremented
    begin
!     temp := plugins.Items[i];
!     temp.plug_close;
!     lb_plugins.DeleteSelected;
!     temp.Free;
!     plugins.Delete(i);
    end;
  
--- 326,339 ----
    temp: ^TPlugin;
  begin
! if (plugins.Count > 0) then
    begin
!     for i := plugins.Count-1 to 0 DO //Reverse, because otherwise list is decremented but i incremented
!     begin
!       temp := plugins.Items[i];
!       temp.plug_close;
!       lb_plugins.DeleteSelected;
!       temp.Free;
!       plugins.Delete(i);
!     end;
    end;