static status
updatePopupGesture(PopupGesture g, EventObj ev)
{ PopupObj p;
Any rec = getMasterEvent(ev);
DEBUG(NAME_popup, Cprintf("updatePopupGesture(): rec=%s\n", pp(rec)));
if ( notNil(g->popup) )
{ if ( instanceOfObject(g->popup, ClassFunction) )
{ TRY( p = getForwardReceiverFunction((Function) g->popup, rec,
rec, ev, EAV) );
TRY( p = checkType(p, nameToType(NAME_popup), g));
} else
p = g->popup;
} else
{ if ( !(p = get(rec, NAME_popup, EAV)) ||
!instanceOfObject(p, ClassPopup) )
fail;
}
assign(g, current, p);
if ( isNil(g->context) )
assign(g, context, notNil(p->context) ? p->context : rec);
send(p, NAME_update, g->context, EAV);
if ( p->active == OFF || emptyChain(p->members) )
{ send(g, NAME_cancel, ev, EAV);
fail;
}
succeed;
}
int
ws_provide_selection(int format)
{ DisplayObj d = CurrentDisplay(NIL);
Hyper h;
Function msg;
Name which = NAME_primary;
Name hypername = getAppendName(which, NAME_selectionOwner);
Name type;
if ( d && notNil(d) &&
(h = getFindHyperObject(d, hypername, DEFAULT)) &&
(type = getAttributeObject(h, NAME_type)) &&
(msg = getAttributeObject(h, NAME_convertFunction)) &&
(msg = checkType(msg, TypeFunction, NIL)) )
{ Any val;
DEBUG(NAME_selection, Cprintf("Provide %s selection of type %s\n",
pp(which), pp(type)));
if ( !(val = getForwardReceiverFunction(msg, h->to, which, type, EAV)) )
return FALSE;
DEBUG(NAME_selection, Cprintf("Got %s\n", pp(val)));
if ( type == NAME_text )
{ CharArray ca = checkType(val, TypeCharArray, NIL);
if ( ca )
{ String s = &ca->data;
HGLOBAL mem = ws_string_to_global_mem(s);
if ( mem )
SetClipboardData(CF_UNICODETEXT, mem);
return TRUE;
}
} else if ( type == NAME_emf || type == NAME_wmf )
{ Any mf = checkType(val, nameToType(NAME_winMetafile), NIL);
if ( mf )
{ DEBUG(NAME_selection, Cprintf("Providing win_metafile\n"));
return ws_on_clipboard_metafile(mf, type);
}
} else
return errorPce(d, NAME_noSelectionType, type);
}
return FALSE;
}
