/* gui based set variable to clipboard - called internally */
_cbtovar()
{
        extern _dvar, _pickfile_status;

        /* _pickfile_status == 1 if dialog was successful */
        setvar("_pickfile_status", 0);

        /* invoke dialog box */
        _mf("cbtovar.pan");

        if (_pickfile_status == 1)
        {
                /* set user defined variable */
                if (strlen(_dvar) > 0)
                {
                        eval(sprintf("setvar(%s, pastedata())", _dvar));
                }
        }
}