/* $TOG: UTMlist.c /main/7 1999/11/17 12:49:08 jff $ */
/*
* Motif
*
* Copyright (c) 1987-2012, The Open Group. All rights reserved.
*
* These libraries and programs are free software; you can
* redistribute them and/or modify them under the terms of the GNU
* Lesser General Public License as published by the Free Software
* Foundation; either version 2 of the License, or (at your option)
* any later version.
*
* These libraries and programs are distributed in the hope that
* they will be useful, but WITHOUT ANY WARRANTY; without even the
* implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
* PURPOSE. See the GNU Lesser General Public License for more
* details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with these librararies and programs; if not, write
* to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
* Floor, Boston, MA 02110-1301 USA
*/
/*
* HISTORY
*/
#include <Xm/XmP.h>
#include <Xm/TransferP.h>
#include "UTMtransfer.h"
extern TransferDataRec datums[];
extern unsigned int num_datums;
Atom type = None;
void
SetTypeCB(Widget w, XtPointer client_data, XtPointer call_data)
{
char *in;
in = (char *) client_data;
if (strlen(in) == 0)
type = XmeGetEncodingAtom(w);
else if (strcmp(in, "NONE") == 0)
type = None;
else
type = XInternAtom(XtDisplay(w), in, False);
}
/*******************************************************************
* FindRightButton
*
* picks the correct button for the type option menu to display
* note that the names are ATOMNAMEbutton, so it prepends a
* '*' in front and 'button' after the name before looking up
* the button.
******************************************************************/
static Widget
FindRightButton(char* atom_string)
{
char buffer[80];
strcpy(buffer, "*");
strcat(buffer, atom_string);
strcat(buffer, "button");
return(XtNameToWidget(MainW, buffer));
}
/* Put a 32bit or larger value into the Label widget */
static void
Display32bit(XtPointer value)
{
char temp[80];
XmString strtmp;
unsigned long data;
int n;
Arg args[2];
data = * (unsigned long *) value;
sprintf(temp, "0x%lx", data);
strtmp = XmStringCreateLocalized(temp);
n = 0;
XtSetArg(args[n], XmNlabelString, strtmp); n++;
XtSetValues(labelV, args, n);
XmStringFree(strtmp);
}
/*********************************************************************
* ListSelectItem
*
* this is called when the user selects an item in the list. It takes
* the type of the item and decides how to display it in the Label
* widget
*********************************************************************/
void
ListSelectItemCB(Widget w, XtPointer ignore, XtPointer call_data)
{
XmListCallbackStruct *listcb;
int index;
Atom XA_COMPOUND_TEXT = XInternAtom(XtDisplay(w), XmSCOMPOUND_TEXT, False),
XA_PIXEL = XInternAtom(XtDisplay(w), "PIXEL", False),
XA_LOCALE_TEXT = XmeGetEncodingAtom(w),
XA_MOTIF_CS = XInternAtom(XtDisplay(w),
XmS_MOTIF_COMPOUND_STRING, False),
XA_MOTIF_RT = XInternAtom(XtDisplay(w),
XmS_MOTIF_RENDER_TABLE, False);
Widget mem = (Widget) NULL;
char *targetname;
XmString tmp;
int n;
Arg args[2];
listcb = (XmListCallbackStruct *) call_data;
index = listcb -> item_position;
if (index < 1) return;
index --;
/* Put name of target into display field */
targetname = GetSafeAtom(XtDisplay(w), datums[index].target);
if (targetname == NULL) targetname = XtNewString("Unknown");
tmp = XmStringCreateLocalized(targetname);
n = 0;
XtSetArg(args[n], XmNlabelString, tmp); n++;
XtSetValues(labelN, args, n);
XmStringFree(tmp);
tmp = NULL;
XtFree(targetname);
/* Put type of target into display field */
type = datums[index].type;
if (type == XA_ATOM ||
type == XInternAtom(XtDisplay(w), "ATOM_PAIR", False)) {
char str[80];
Atom *alist = (Atom *) datums[index].value;
mem = FindRightButton("ATOM");
if (type == XA_ATOM) {
sprintf(str, "%s", GetSafeAtom(XtDisplay(w), alist[0]));
} else {
sprintf(str, "%s %s",
GetSafeAtom(XtDisplay(w), alist[0]),
GetSafeAtom(XtDisplay(w), alist[1]));
}
tmp = XmStringCreateLocalized(str);
} else if (type == XA_INTEGER || type == XA_PIXEL) {
if (type == XA_INTEGER)
mem = FindRightButton("INTEGER");
else
mem = FindRightButton("PIXEL");
Display32bit(datums[index].value );
} else if (type == XInternAtom(XtDisplay(w), "SPAN", False)) {
unsigned long *data = (unsigned long *) datums[index].value;
char str[80];
sprintf(str, "%ld %ld", data[0], data[1]);
tmp = XmStringCreateLocalized(str);
} else if (type == XA_STRING) {
mem = FindRightButton("STRING");
tmp = XmStringCreateLocalized(datums[index].value);
} else if (type == XA_COMPOUND_TEXT) {
char *str;
mem = FindRightButton("COMPOUND_TEXT");
str = XtMalloc(datums[index].length + 1);
strncpy(str, datums[index].value, datums[index].length);
str[datums[index].length] = 0;
tmp = XmCvtCTToXmString(str);
XtFree((XtPointer) str);
} else if (type == XA_LOCALE_TEXT) {
mem = FindRightButton("LOCALE_TEXT");
tmp = XmStringCreateLocalized(datums[index].value);
} else if (type == XA_DRAWABLE || type == XA_WINDOW ||
type == XA_COLORMAP) {
if (type == XA_DRAWABLE)
mem = FindRightButton("DRAWABLE");
else if (type == XA_COLORMAP)
mem = FindRightButton("COLORMAP");
else
mem = FindRightButton("WINDOW");
if (type != XA_COLORMAP)
Display32bit(&(datums[index].value));
else
Display32bit(datums[index].value);
} else if (type == XA_MOTIF_CS) {
mem = FindRightButton("_MOTIF_COMPOUND_STRING");
tmp = XmCvtByteStreamToXmString(datums[index].value);
} else {
char *typestring;
char buffer[80];
mem = FindRightButton("unknown");
typestring = GetSafeAtom(XtDisplay(w), type);
sprintf(buffer, "Unknown type %s (%d) found", typestring, type);
XFree(typestring);
tmp = XmStringCreateLocalized(buffer);
}
if (NULL != tmp) {
n = 0;
XtSetArg(args[n], XmNlabelString, tmp); n++;
XtSetValues(labelV, args, n);
XmStringFree(tmp);
}
if (mem != (Widget) NULL)
XtVaSetValues(typeOM, XmNmenuHistory, mem, NULL);
}