!        PMove                  An Inform 6 extention to move objects while 
!                               preserving the object lineage
!                               By L. Ross Raszewski 
!                               <rraszews@skipjack.bluecrab.org>
! That is, when you Pmove(obj1,obj2), obj2 is placed inside obj1, as the 
! youngest object in the tree (As oposed to the eldest, as is the usual case)
! This is useful for things like the object-oriented menu system, where you may
! want to add a menu topic to the bottom of the list.




[ Pmove obj1 obj2 o;
for (o=child(obj2):o ofclass Object: o=child(obj2)) {move o to temp_obj;};
move obj1 to obj2;
for (o=child(temp_obj):o ofclass Object: o=child(temp_obj)) {move o to obj2;};
];
Object temp_obj;