extern void
XmeDropSink(Widget w,
ArgList args,
Cardinal arg_count)
{
#if 0
XmDropSiteRegister(w, args, arg_count);
#endif
_XmWarning(NULL, "XmeDropSink(): not yet implemented!");
}
int
main(int argc, char **argv)
{
XtAppContext app;
Widget Shell;
Widget Form;
Widget BottomLabel;
Widget TopLabel;
XtSetLanguageProc(NULL, NULL, NULL);
Shell = XtVaAppInitialize(&app, "Shell", NULL, 0, &argc, argv, FallBack, NULL);
Form = XmCreateRowColumn(Shell,"RowColumn",NULL,0);
TopLabel = XmCreateLabel(Form,"TopLabel",NULL,0);
XtManageChild(TopLabel);
BottomLabel = XmCreateLabel(Form,"BottomLabel",NULL,0);
XtManageChild(BottomLabel);
{
Arg args[10];
int n = 0;
XtSetArg(args[n], XmNdropProc, (XtCallbackProc)DropProc); n++;
/*
XtSetArg(args[n], XmNdragProc, (XtCallbackProc)DragProc); n++;
*/
XmDropSiteRegister(BottomLabel, args, n);
}
XtManageChild(Form);
XtRealizeWidget(Shell);
LessTifTestMainLoop(Shell);
exit(0);
}
static void motListEnableDragDrop(Widget w)
{
Atom atomListItem = XInternAtom(iupmot_display, "LIST_ITEM", False);
Atom importList[1];
Arg args[40];
int num_args = 0;
char dragTranslations[] = "#override <Btn2Down>: iupListStartDrag()";
static int do_rec = 0;
if (!do_rec)
{
XtActionsRec rec = {"iupListStartDrag", (XtActionProc)motListDragStart};
XtAppAddActions(iupmot_appcontext, &rec, 1);
do_rec = 1;
}
XtOverrideTranslations(w, XtParseTranslationTable(dragTranslations));
importList[0] = atomListItem;
iupMOT_SETARG(args, num_args, XmNimportTargets, importList);
iupMOT_SETARG(args, num_args, XmNnumImportTargets, 1);
iupMOT_SETARG(args, num_args, XmNdropSiteOperations, XmDROP_MOVE|XmDROP_COPY);
iupMOT_SETARG(args, num_args, XmNdropProc, motListDropProc);
XmDropSiteRegister(w, args, num_args);
}
static void displayDTIcon(DTIconRec *dticon)
{
XGCValues xgcv;
GC shapeGC;
Window shellwin;
XmString labelstr;
Dimension labelwidth, labelheight, togglewidth, toggleheight;
Dimension tgl_offs_x, lbl_offs_x, lbl_offs_y;
Atom targets[2];
Boolean is_file = False;
int i;
targets[0] = dragAtoms.file;
targets[1] = dragAtoms.filelist;
drop_args[0].value = (XtArgVal) targets;
dticon->app.form = XtVaCreateManagedWidget("form", xmFormWidgetClass, dticon->cont, XmNtranslations, XtParseTranslationTable(form_translations), XmNbackground, resources.dticon_color, XmNforeground, resources.label_color, XmNborderWidth, 0, XmNshadowThickness, 0, XmNhighlightThickness, 0, XmNx, 0, XmNy, 0, NULL);
if (dticon->app.fname[0])
{
char path[MAXPATHLEN];
struct stat stats;
int errfl = 0;
if (dticon->app.directory[0])
{
strcpy(path, dticon->app.directory);
fnexpand(path);
errfl = chdir(path);
}
else errfl = chdir(user.home);
if (!errfl && !(stat(dticon->app.fname, &stats)) && S_ISREG(stats.st_mode))
is_file = True;
}
if (is_file)
{
for (i=0; i < XtNumber(file_popup_menu); i++)
file_popup_menu[i].callback_data = dticon;
dticon->popup = BuildMenu(dticon->app.form, XmMENU_POPUP, "Button Actions", 0, False, file_popup_menu);
if (resources.auto_save)
XtVaSetValues(file_popup_menu[5].object, XmNsensitive, False, NULL);
}
else
{
for (i=0; i < XtNumber(file_popup_menu); i++)
popup_menu[i].callback_data = dticon;
dticon->popup = BuildMenu(dticon->app.form, XmMENU_POPUP, "Button Actions", 0, False, popup_menu);
if (resources.auto_save)
XtVaSetValues(popup_menu[3].object, XmNsensitive, False, NULL);
}
labelstr = XmStringCreateLocalized(dticon->app.name);
labelwidth = XmStringWidth((XmFontList) resources.icon_font, labelstr) + 2;
togglewidth = dticon->app.icon_pm.width;
toggleheight = dticon->app.icon_pm.height;
if (labelwidth > togglewidth)
{
tgl_offs_x = (labelwidth - togglewidth) / 2;
lbl_offs_x = 0;
}
else
{
tgl_offs_x = 0;
lbl_offs_x = (togglewidth - labelwidth) / 2;
}
lbl_offs_y = dticon->app.icon_pm.height + 2;
dticon->app.toggle = XtVaCreateManagedWidget("picture", xmLabelWidgetClass, dticon->app.form, XmNlabelType, XmPIXMAP, XmNlabelPixmap, dticon->app.icon_pm.bm, XmNtranslations, trans, XmNborderWidth, 0, XmNhighlightThickness, 0, XmNbackground, resources.dticon_color, XmNforeground, resources.label_color, XmNx, tgl_offs_x, XmNy, 0, NULL);
/* RBW - 2001/08/15 */
XtInsertEventHandler(dticon->app.toggle,
EnterWindowMask|LeaveWindowMask,
False,
(XtEventHandler)CatchEntryLeave2,
(XtPointer)0,
XtListHead);
dticon->app.label = XtVaCreateManagedWidget("label", xmLabelWidgetClass, dticon->app.form, XmNlabelString, labelstr, XmNfontList, resources.icon_font, XmNtranslations, trans, XmNbackground, resources.dticon_color, XmNforeground, resources.label_color, XmNborderWidth, 0, XmNhighlightThickness, 0, XmNx, lbl_offs_x, XmNy, lbl_offs_y, NULL);
/* RBW - 2001/08/15 */
XtInsertEventHandler(dticon->app.label,
EnterWindowMask|LeaveWindowMask,
False,
(XtEventHandler)CatchEntryLeave2,
(XtPointer)0,
XtListHead);
XmStringFree(labelstr);
XtRealizeWidget(dticon->shell);
shellwin = XtWindow(dticon->shell);
XtVaGetValues(dticon->app.label, XmNwidth, &labelwidth, XmNwidth, &labelheight, NULL);
labelheight += 2;
dticon->label_mask = XCreatePixmap(dpy, shellwin, labelwidth, labelheight, 1);
shapeGC = XCreateGC(dpy, dticon->label_mask, 0, &xgcv);
XSetForeground(dpy, shapeGC, 1);
XFillRectangle(dpy, dticon->label_mask, shapeGC, 0, 0, labelwidth, labelheight);
XFreeGC(dpy, shapeGC);
if (dticon->app.icon_pm.mask == None)
{
dticon->app.icon_pm.mask = XCreatePixmap(dpy, shellwin, dticon->app.icon_pm.width, dticon->app.icon_pm.height, 1);
shapeGC = XCreateGC(dpy, dticon->app.icon_pm.mask, 0, &xgcv);
XSetForeground(dpy, shapeGC, 1);
XFillRectangle(dpy, dticon->app.icon_pm.mask, shapeGC, 0, 0, togglewidth, toggleheight);
XFreeGC(dpy, shapeGC);
}
XShapeCombineMask(dpy, shellwin, ShapeBounding, tgl_offs_x + 2, 2, dticon->app.icon_pm.mask, ShapeSet);
XShapeCombineMask(dpy, shellwin, ShapeBounding, lbl_offs_x + 2, lbl_offs_y + 2, dticon->label_mask, ShapeUnion);
XShapeCombineMask(dpy, XtWindow(dticon->app.form), ShapeClip, tgl_offs_x + 2, 2, dticon->app.icon_pm.mask, ShapeSet);
XShapeCombineMask(dpy, XtWindow(dticon->app.form), ShapeClip, lbl_offs_x + 2, lbl_offs_y + 2, dticon->label_mask, ShapeUnion);
XShapeCombineMask(dpy, XtWindow(dticon->app.toggle), ShapeClip, 2, 2, dticon->app.icon_pm.mask, ShapeSet);
XtVaGetValues(dticon->shell, XmNwidth, &dticon->width, XmNheight, &dticon->height, NULL);
dticon->drop_pixmap = XCreatePixmap(dpy, shellwin, dticon->width, dticon->height, DefaultDepth(dpy, DefaultScreen(dpy)));
shapeGC = XCreateGC(dpy, dticon->drop_pixmap, 0, &xgcv);
XSetForeground(dpy, shapeGC, resources.drop_color);
XFillRectangle(dpy, dticon->drop_pixmap, shapeGC, 0, 0, dticon->width, dticon->height);
XFreeGC(dpy, shapeGC);
drop_args[4].value = (XtArgVal) dticon->drop_pixmap;
if (dticon->app.drop_action[0])
XmDropSiteRegister(dticon->app.form, drop_args, XtNumber(drop_args));
}
