[Pythianproject-cvsmail] CVS: PythianProject/Source/Units conversationObjectsUnit.pas,1.4,1.5

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/PythianProject/Source/Units
In directory slayer.i.sourceforge.net:/tmp/cvs-serv31766

Modified Files:
	conversationObjectsUnit.pas 
Log Message:
now supports command line arguments and drag'n'drop -mike

Index: conversationObjectsUnit.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/Units/conversationObjectsUnit.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** conversationObjectsUnit.pas	2000/09/10 18:44:45	1.4
--- conversationObjectsUnit.pas	2000/09/15 17:33:44	1.5
***************
*** 59,62 ****
--- 59,63 ----
      destructor Destroy; override ;
      procedure AddChild(c:TConversationObject); virtual ;
+     procedure AddChildFirst(C:TConversationObject); virtual ;
      procedure DeleteChild(C:TConversationObject); virtual ;
  
***************
*** 279,282 ****
--- 280,289 ----
  
  { TConversationGroup }
+ 
+ procedure TConversationGroup.AddChildFirst(C: TConversationObject);
+ begin
+   Children.Insert(0,c);
+   c.Parent := self;
+ end;
  
  procedure TConversationGroup.AddChild(c: TConversationObject);