CASE oDropTarget.BaseClass == "Page" AND m.cBaseClass == "Page" TRY IF UPPER(oDropTarget.Parent.MemberClassLibrary) == UPPER(m.cClassLib) AND ; (UPPER(oDropTarget.Parent.MemberClass) == UPPER(m.cClassName) OR (EMPTY(NVL(oDropTarget.Parent.MemberClass, '')) AND UPPER(m.cClassName) == "PAGE")) * if the MemberClass is already set, then simply increase the page count oDropTarget.Parent.PageCount = oDropTarget.Parent.PageCount + 1 ELSE IF MESSAGEBOX(MEMBERCLASS_WARNING_LOC, MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2, TOOLBOX_LOC) == IDYES m.oParent = m.oDropTarget.Parent m.oDropTarget = .NULL. m.oTopObject = .NULL. * release now because we can't change the parent * MemberClass properties if we have references to * the child page RELEASE m.oDropTarget RELEASE m.oTopObject oParent.MemberClassLibrary = m.cClassLib oParent.MemberClass = m.cClassName oParent.PageCount = 1 ENDIF ENDIF CATCH TO oException ENDTRY