[Pythianproject-cvsmail] CVS: PythianProject/Source/Conversation/Editor mainWin.pas,1.6,1.7

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

Update of /cvsroot/pythianproject/PythianProject/Source/Conversation/Editor
In directory slayer.i.sourceforge.net:/tmp/cvs-serv15888/Conversation/Editor

Modified Files:
	mainWin.pas 
Log Message:
no message

Index: mainWin.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/Conversation/Editor/mainWin.pas,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** mainWin.pas	2000/09/17 10:46:17	1.6
--- mainWin.pas	2000/09/19 20:59:46	1.7
***************
*** 168,173 ****
      procedure AddCommandScript; virtual ;
      procedure AddCommandJump; virtual ;
!     procedure AddCommandGroupEnable; virtual ;
!     procedure AddCommandGroupDisable; virtual ;
  
      procedure OnJumpSelect(newNode:TTreeNode); virtual ;
--- 168,173 ----
      procedure AddCommandScript; virtual ;
      procedure AddCommandJump; virtual ;
!     procedure AddCommandEnable; virtual ;
!     procedure AddCommandDisable; virtual ;
  
      procedure OnJumpSelect(newNode:TTreeNode); virtual ;
***************
*** 703,707 ****
  end;
  
! procedure TMainForm.AddCommandGroupEnable;
  var e:TConversationEnable;
      n:TTreeNode;
--- 703,707 ----
  end;
  
! procedure TMainForm.AddCommandEnable;
  var e:TConversationEnable;
      n:TTreeNode;
***************
*** 717,729 ****
  procedure TMainForm.Enable1Click(Sender: TObject);
  begin
!   AddCommandGroupEnable;
  end;
  
  procedure TMainForm.Disable1Click(Sender: TObject);
  begin
!   AddCommandGroupDisable;
  end;
  
! procedure TMainForm.AddCommandGroupDisable;
  var d:TConversationDisable;
      n:TTreeNode;
--- 717,729 ----
  procedure TMainForm.Enable1Click(Sender: TObject);
  begin
!   AddCommandEnable;
  end;
  
  procedure TMainForm.Disable1Click(Sender: TObject);
  begin
!   AddCommandDisable;
  end;
  
! procedure TMainForm.AddCommandDisable;
  var d:TConversationDisable;
      n:TTreeNode;
***************
*** 969,976 ****
        if i = TConversationObject(n.Data).Parent.Children.Count then
        begin
!         TConversationObject(n.Data).Parent.Children.Add(co);
          TreeView1.Selected.MoveTo(n,naInsert);
        end else begin
          TConversationObject(n.Data).Parent.Children.Insert(i,co);
          TreeView1.Selected.MoveTo(n,naInsert);
        end;
--- 969,977 ----
        if i = TConversationObject(n.Data).Parent.Children.Count then
        begin
!         TConversationObject(n.Data).Parent.AddChild(co);
          TreeView1.Selected.MoveTo(n,naInsert);
        end else begin
          TConversationObject(n.Data).Parent.Children.Insert(i,co);
+         co.Parent := TConversationObject(n.Data).Parent;
          TreeView1.Selected.MoveTo(n,naInsert);
        end;
***************
*** 982,989 ****
      if i = TConversationObject(n.Data).Parent.Children.Count then
      begin
!       TConversationObject(n.Data).Parent.Children.Add(co);
        TreeView1.Selected.MoveTo(n,naInsert);
      end else begin
        TConversationObject(n.Data).Parent.Children.Insert(i,co);
        TreeView1.Selected.MoveTo(n,naInsert);
      end;
--- 983,991 ----
      if i = TConversationObject(n.Data).Parent.Children.Count then
      begin
!       TConversationObject(n.Data).Parent.AddChild(co);
        TreeView1.Selected.MoveTo(n,naInsert);
      end else begin
        TConversationObject(n.Data).Parent.Children.Insert(i,co);
+       co.Parent := TConversationObject(n.Data).Parent;
        TreeView1.Selected.MoveTo(n,naInsert);
      end;