From 4b165022a18f1c727f130e441bf821e54a348317 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 31 Dec 2002 13:38:04 +0000
Subject: [PATCH] * Clist Append returns the index of the new row

---
 packages/extra/fpgtk/fpgtk.pp | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/packages/extra/fpgtk/fpgtk.pp b/packages/extra/fpgtk/fpgtk.pp
index 8a5a1929fe..99b118ef4a 100644
--- a/packages/extra/fpgtk/fpgtk.pp
+++ b/packages/extra/fpgtk/fpgtk.pp
@@ -1539,9 +1539,9 @@ TYPE
     procedure Prepend (Data:TStrings); Overload;
     procedure Prepend (Text:string; separator:string); Overload;
     procedure Prepend (data:array of string); Overload;
-    procedure Append (data:TStrings); Overload;
-    procedure Append (Text:string; Separator:string); Overload;
-    procedure Append (data:array of string); Overload;
+    function Append (data:TStrings) : Integer; Overload;
+    function Append (Text:string; Separator:string) : Integer; Overload;
+    function Append (data:array of string) : Integer; Overload;
     procedure Insert (row:integer; data:TStrings); Overload;
     procedure Insert (row:integer; Text:string; Separator:string); Overload;
     procedure Insert (row:integer; data:array of string); Overload;
@@ -8053,15 +8053,15 @@ begin
   freemem (ppdata, sizeof (pgchar) * (high(data)-low(data)+1));
 end;
 
-procedure TFPgtkCList.Append (data:TStrings); Overload;
+Function TFPgtkCList.Append (data:TStrings) : Integer; Overload;
 var ppdata : ppgchar;
 begin
   ppdata := StringsToPPgchar (Data);
-  gtk_clist_append (TheGtkObject, ppdata);
+  Result:=gtk_clist_append (TheGtkObject, ppdata);
   freemem (ppdata, sizeof (pgchar) * data.count);
 end;
 
-procedure TFPgtkCList.Append (Text:string; Separator:string); Overload;
+Function TFPgtkCList.Append (Text:string; Separator:string) : Integer; Overload;
 var l : TStrings;
     s : string;
 begin
@@ -8072,17 +8072,17 @@ begin
     if separator <> '' then
       s := stringreplace(Text, separator, '","', [rfReplaceAll]);
     l.CommaText := '"' + s + '"';
-    Append (l);
+    Result:=Append (l);
   finally
     l.Free;
   end;
 end;
 
-procedure TFPgtkCList.Append (data:array of string); Overload;
+Function TFPgtkCList.Append (data:array of string) : Integer; Overload;
 var ppdata : ppgchar;
 begin
   ppdata := ArrayToPPgchar (Data);
-  gtk_clist_append (TheGtkObject, ppdata);
+  Result:=gtk_clist_append (TheGtkObject, ppdata);
   freemem (ppdata, sizeof (pgchar) * (high(data)-low(data)+1));
 end;