/* gui based set variable to clipboard selection - called internally */
_cbselvar(s = refseries(w0))
{
        extern _dvar, _pickfile_status;

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

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

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