WITH Link_Tools;
WITH Directory_Tools;
PROCEDURE Check_Portability
            (This_Object : IN String;
             Model_World : IN String;
             Has_Bad : OUT Boolean;
             Object_With_Bad_Link : OUT Directory_Tools.Object.Handle;
             Bad_Link : OUT Link_Tools.Link_Iterator);
--
-- This procedure checks that an object and all of its sub-objects
-- have allowable links. All internal links are allowable. An external
-- link is allowable if it is found in the link pack for the model
-- world, or if it is to one of the specified object's sub-objects.
-- If the object is found to have only allowable links, then it should
-- be portable to any machine which has the same links available as the
-- specified model world.