! PMove An Inform 6 extention to move objects while
! preserving the object lineage
! By L. Ross Raszewski
! <
[email protected]>
! 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;
