/* invoke a shape, line or arrow properties dialog box */
_lpdlg(h)
{
        local shape;
        extern _lp_handle;

        /* handle to shape */
        _lp_handle = casthandle(h);

        shape = _lp_handle.shape;

        if (shape == "Lines")
        {
                _mf("linedlg.pan");
        }
        else if (shape == "Arrow")
        {
                _mf("arrowdlg.pan");
        }
        else
        {
                _mf("shapedlg.pan");
        }
}