debian/cdesktop
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
fc700e296baebd46919bee213e5f3d2277d420dd
cdesktop/cde/programs/dtksh/xmcmds.c
Chase 461d326bbe dtksh: Use ksh93 translate over augmented version 
We can reduce our differences from upstream ksh by simply using their
ERROR_translate() function instead of our janky and obsolete msg_translate,
we also move DtGetMessage() to msgs.c and lockedfiledescriptors and,
unlockfiledescriptors to extra.c to lessen modifications to init.c, which
all changes will hopefully be moved elsewhere in the future
2020-10-19 18:36:29 -06:00

5044 lines
107 KiB
C
Raw Blame History

/*
* CDE - Common Desktop Environment
*
* Copyright (c) 1993-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 libraries and programs; if not, write
* to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
* Floor, Boston, MA 02110-1301 USA
*/
/* $TOG: xmcmds.c /main/12 1997/07/14 18:15:21 samborn $ */
/* Copyright (c) 1991, 1992 UNIX System Laboratories, Inc. */
/* All Rights Reserved */
/* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF */
/* UNIX System Laboratories, Inc. */
/* The copyright notice above does not evidence any */
/* actual or intended publication of such source code. */
#include "shell.h"
#include <signal.h>
#include <stdlib.h>
#include <fcntl.h>
#include <nl_types.h>
#include <X11/X.h>
#include <X11/Intrinsic.h>
#include <X11/IntrinsicP.h>
#include <X11/CoreP.h>
#include <X11/StringDefs.h>
#include <Xm/XmStrDefs.h>
#include <setjmp.h>
#include <string.h>
#include <ctype.h>
#include <Xm/Xm.h>
#include <Xm/Protocols.h>
#include "hash.h"
#include "stdio.h"
#define NO_AST
#include "dtksh.h"
#undef NO_AST
#include "xmksh.h"
#include "dtkcmds.h"
#include "XtCvtrs.h"
#include "widget.h"
#include "dtkcvt.h"
#include "xmcmds.h"
#include "xmcvt.h"
#include "msgs.h"
#include "extra.h"
#include "xmwidgets.h"
#include <Xm/Protocols.h>
#include <Xm/AtomMgr.h>
#include <Xm/ArrowB.h>
#include <Xm/ArrowBG.h>
#include <Xm/BulletinB.h>
#include <Xm/CascadeB.h>
#include <Xm/CascadeBG.h>
#include <Xm/ComboBox.h>
#include <Xm/Command.h>
#include <Xm/CommandP.h>
#include <Xm/DialogS.h>
#include <Xm/DrawingA.h>
#include <Xm/DrawnB.h>
#include <Xm/FileSB.h>
#include <Xm/FileSBP.h>
#include <Xm/Form.h>
#include <Xm/Frame.h>
#include <Xm/Label.h>
#include <Xm/LabelG.h>
#include <Xm/List.h>
#include <Xm/ListP.h>
#include <Xm/MainW.h>
#include <Xm/MenuShell.h>
#include <Xm/MessageB.h>
#include <Xm/PanedW.h>
#include <Xm/PushB.h>
#include <Xm/PushBG.h>
#include <Xm/RowColumn.h>
#include <Xm/Scale.h>
#include <Xm/ScrollBar.h>
#include <Xm/ScrolledW.h>
#include <Xm/SelectioB.h>
#include <Xm/SelectioBP.h>
#include <Xm/Separator.h>
#include <Xm/SeparatoG.h>
#include <Xm/Text.h>
#include <Xm/TextF.h>
#include <Xm/ToggleB.h>
#include <Xm/ToggleBG.h>
#include <Dt/HelpDialog.h>
#include <Dt/HelpQuickD.h>
#include <Dt/Print.h>
#include <Dt/PrintDlgMgrP.h>
static int _xmcreatefunc(
Widget (*func)(),
char *wclass,
int argc,
char *argv[]) ;
static wtab_t * verifyListWidget(
char *cmd,
char *widget) ;
static int List_ItemAndPos(
void (*func)(),
int argc,
char *argv[]) ;
static int List_ItemListAndPos(
void (*func)(),
int argc,
char *argv[]) ;
static int List_WidgetOnly(
void (*func)(),
int argc,
char *argv[]) ;
static int GetSelectedPosList(
Boolean (*func)(),
int paramCount,
char * errmsg,
int argc,
char *argv[] ) ;
static int List_ItemOnly(
void (*func)(),
int argc,
char *argv[]) ;
static int List_PositionOnly(
void (*func)(),
int argc,
char *argv[]) ;
static int ListSelectItem(
Boolean usePosition,
int argc,
char *argv[]) ;
static int GetMainWindowSeparator(
int childType,
int argc,
char *argv[]) ;
static int CatchAndIgnoreXError(
Display *display,
XEvent *event) ;
static int AddOrDeleteWMProtocols(
int argc,
char *argv[]) ;
static int GetToggleState(
int argc,
char *argv[]) ;
static int SetToggleState(
int argc,
char *argv[]) ;
static wtab_t * verifyTextWidget(
char *cmd,
char *widget) ;
static int Text_Widget(
Boolean (*func)(),
Boolean returnBoolean,
int argc,
char *argv[]) ;
static int Text_VarAndWidget(
long (*func)(Widget w),
Boolean varIsString,
int argc,
char *argv[]) ;
static int Text_WidgetAndBoolean(
void (*func)(Widget w, int b),
int argc,
char *argv[]) ;
static int Text_WidgetAndOneParam(
Boolean (*func)(),
Boolean returnBoolean,
Boolean paramIsString,
char *usageMsg,
int argc,
char *argv[]) ;
static void GetSelBoxItemCount(
Widget w,
Cardinal * size,
XrmValue * valueReturn);
static void GetFileSelBoxFileItemCount(
Widget w,
Cardinal * size,
XrmValue * valueReturn);
static void GetFileSelBoxDirItemCount(
Widget w,
Cardinal * size,
XrmValue * valueReturn);
static wtab_t * ConvertWidgetToWtab(
char * arg0,
Widget w);
static int GetSubWidget(
char * errmsg,
Widget (*func)(),
int argc,
char *argv[] );
static int _CreatePDMJobSetup(
Widget (*func)(),
int argc,
char *argv[]) ;
#define MAXARGS 4096
#define SLISTITEMSIZE 16
#define MWSep1 1
#define MWSep2 2
#define MWSep3 3
static char str_APPNAME[] = "DTKSH_APPNAME";
static char str_TOPLEVEL[] = "DTKSH_TOPLEVEL";
static XtConvertArgRec listItemConvertArgs[] = {
{ XtWidgetBaseOffset,
(XtPointer)XtOffset(XmListWidget, list.itemCount),
sizeof (int)
}
};
static XtConvertArgRec selectedListItemConvertArgs[] = {
{ XtWidgetBaseOffset,
(XtPointer) XtOffset(XmListWidget, list.selectedItemCount),
sizeof (int)
}
};
static XtConvertArgRec selBoxItemConvertArgs[] = {
{ XtProcedureArg,
(XtPointer)GetSelBoxItemCount,
sizeof (int)
}
};
static XtConvertArgRec fileSelBoxFileConvertArgs[] = {
{ XtProcedureArg,
(XtPointer)GetFileSelBoxFileItemCount,
sizeof (int)
}
};
static XtConvertArgRec fileSelBoxDirConvertArgs[] = {
{ XtProcedureArg,
(XtPointer)GetFileSelBoxDirItemCount,
sizeof (int)
}
};
static wtab_t *
ConvertWidgetToWtab(
char * arg0,
Widget w)
{
wtab_t * wtab;
classtab_t *ctab;
wtab = (wtab_t *)widget_to_wtab(w);
/*
* If the widget class has no resources registered, then this is
* the first known instance of this widget class, so we need to
* force the resource list to be loaded. This can frequently
* occur if a Motif convenience function is used, which creates
* a 'hidden' parent.
*/
ctab = wtab->wclass;
if (ctab->res == NULL)
(void)str_to_class(arg0, ctab->cname);
return(wtab);
}
static void
GetSelBoxItemCount(
Widget w,
Cardinal * size,
XrmValue * valueReturn )
{
XmSelectionBoxWidget sel = (XmSelectionBoxWidget) w;
static int data;
Arg args[1] ;
if( SB_List( sel) )
{
XtSetArg( args[0], XmNitemCount, &data) ;
XtGetValues( SB_List( sel), args, 1) ;
}
else
{
data = (XtArgVal) 0 ;
}
valueReturn->addr = (XtPointer) &data ;
valueReturn->size = sizeof(int *);
}
static void
GetFileSelBoxDirItemCount(
Widget w,
Cardinal * size,
XrmValue * valueReturn )
{
static int data;
Widget dirList;
Arg args[5];
dirList = XmFileSelectionBoxGetChild(w, XmDIALOG_DIR_LIST);
XtSetArg(args[0], XmNitemCount, &data);
XtGetValues(dirList, args, 1);
valueReturn->addr = (XtPointer) &data ;
valueReturn->size = sizeof(int *);
}
static void
GetFileSelBoxFileItemCount(
Widget w,
Cardinal * size,
XrmValue * valueReturn )
{
static int data;
Widget dirList;
Arg args[5];
if (FS_StateFlags(w) & XmFS_NO_MATCH)
data = 0;
else
{
dirList = XmFileSelectionBoxGetChild(w, XmDIALOG_LIST);
XtSetArg(args[0], XmNitemCount, &data);
XtGetValues(dirList, args, 1);
}
valueReturn->addr = (XtPointer) &data ;
valueReturn->size = sizeof(int *);
}
int
toolkit_initialize(
int argc,
char *argv[] )
{
int i;
char name[8], *var;
wtab_t *w;
int newargc;
char **newargv;
char envbuf[2048];
char * errmsg;
int * lockedFds;
init_widgets();
newargv = (char **)malloc((argc - 3) * sizeof(char *));
/*
* We apparently must alloc a long-lived array of strings for argv.
* If we don't, then the WM_COMMAND on the Toplevel shell is munged.
* This is presumably because XtInitialize just hangs onto a copy
* of the pointer to the argv[n] element of interest, but the shell
* apparently frees them up after toolkit_initialize returns.
* The argument list looks like:
* XtInitialize widgVar widgName className appName $@
* or:
* XtInitialize widgVar widgName className $0 $@
*/
for(i = 0, newargc = argc - 4; i < newargc; i++)
{
newargv[i] = (char *)malloc(strlen(argv[i + 4]) + 1);
strcpy(newargv[i], argv[i + 4]);
}
newargv[i] = (char *)NULL;
Toplevel = XtInitialize((char *)NULL, argv[3], (XrmOptionDescRec *)NULL,
0, &newargc, newargv);
if (Toplevel == NULL) {
errmsg = strdup(GETMESSAGE(
"Unable to initialize the Toolkit"));
printerr(argv[0], errmsg, NULL);
free(errmsg);
env_blank(argv[1]);
return(1);
}
lockedFds = LockKshFileDescriptors();
DtInitialize(XtDisplay(Toplevel), Toplevel, argv[4], argv[4]);
UnlockKshFileDescriptors(lockedFds);
DtkshRegisterNamedIntConverters();
XtAddConverter(XmRTopItemPosition, XtRString,
DtkshCvtIntToString, NULL, 0);
XtAddConverter(XmRHorizontalInt, XtRString,
DtkshCvtIntToString, NULL, 0);
XtAddConverter(XmRVerticalInt, XtRString,
DtkshCvtIntToString, NULL, 0);
XtAddConverter(XmRWhichButton, XtRString,
DtkshCvtIntToString, NULL, 0);
XtAddConverter(XmRShellHorizPos, XtRString,
DtkshCvtIntToString, NULL, 0);
XtAddConverter(XmRShellVertPos, XtRString,
DtkshCvtIntToString, NULL, 0);
XtAddConverter(XmRShellHorizDim, XtRString,
DtkshCvtIntToString, NULL, 0);
XtAddConverter(XmRShellVertDim, XtRString,
DtkshCvtIntToString, NULL, 0);
XtAddConverter(XmRKeySym, XtRString,
DtkshCvtKeySymToString, NULL, 0);
XtAddConverter(XtRInt, XtRString,
DtkshCvtIntToString, NULL, 0);
XtAddConverter(XtRShort, XtRString,
DtkshCvtIntToString, NULL, 0);
XtAddConverter(XtRCardinal, XtRString,
DtkshCvtIntToString, NULL, 0);
XtAddConverter(XtRDimension, XtRString,
DtkshCvtIntToString, NULL, 0);
XtAddConverter(XmRBooleanDimension, XtRString,
DtkshCvtIntToString, NULL, 0);
XtAddConverter(XtRPosition, XtRString,
DtkshCvtIntToString, NULL, 0);
XtAddConverter(XmRHorizontalDimension, XtRString,
DtkshCvtIntToString, NULL, 0);
XtAddConverter(XmRVerticalDimension, XtRString,
DtkshCvtIntToString, NULL, 0);
XtAddConverter(XmRHorizontalPosition, XtRString,
DtkshCvtIntToString, NULL, 0);
XtAddConverter(XmRVerticalPosition, XtRString,
DtkshCvtIntToString, NULL, 0);
XtAddConverter(XmRTextPosition, XtRString,
DtkshCvtIntToString, NULL, 0);
XtAddConverter(XtRBoolean, XtRString,
DtkshCvtBooleanToString, NULL, 0);
XtAddConverter("Set", XtRString,
DtkshCvtBooleanToString, NULL, 0);
XtAddConverter(XtRBool, XtRString,
DtkshCvtBooleanToString, NULL, 0);
XtAddConverter(XtRPixel, XtRString,
DtkshCvtHexIntToString, NULL, 0);
XtAddConverter(XtRPixmap, XtRString,
DtkshCvtHexIntToString, NULL, 0);
XtAddConverter("XE_ModifierState", XtRString,
DtkshCvtXEModifierStateToString, NULL, 0);
XtAddConverter("XE_MotionHint", XtRString,
DtkshCvtXEMotionHintToString, NULL, 0);
XtAddConverter("XE_HexValue", XtRString,
DtkshCvtHexIntToString, NULL, 0);
XtAddConverter("XE_IntValue", XtRString,
DtkshCvtIntToString, NULL, 0);
XtAddConverter(XtRPointer, XtRString,
DtkshCvtHexIntToString, NULL, 0);
XtAddConverter("XE_Window", XtRString,
DtkshCvtWindowToString, NULL, 0);
XtAddConverter(XtRScreen, XtRString,
DtkshCvtScreenToString, NULL, 0);
XtAddConverter(XtRString, XtRScreen,
DtkshCvtStringToScreen, NULL, 0);
XtAddConverter(XtRString, XmRTopItemPosition,
DtkshCvtStringToTopItemPosition, NULL, 0);
XtAddConverter(XtRString, XmRUnitType,
XmCvtStringToUnitType, NULL, 0);
XtSetTypeConverter(XmRXmString, XtRString,
(XtTypeConverter)DtkshCvtXmStringToString, NULL, 0,
XtCacheNone, NULL);
XtSetTypeConverter(XtRWidget, XtRString,
(XtTypeConverter)DtkshCvtWidgetToString, NULL, 0,
XtCacheNone, NULL);
XtSetTypeConverter("MenuWidget", XtRString,
(XtTypeConverter)DtkshCvtWidgetToString, NULL, 0,
XtCacheNone, NULL);
XtSetTypeConverter(XtRString, XtRWidget,
(XtTypeConverter)DtkshCvtStringToWidget, NULL, 0,
XtCacheNone, NULL);
XtSetTypeConverter(XtRString, "MenuWidget",
(XtTypeConverter)DtkshCvtStringToWidget, NULL, 0,
XtCacheNone, NULL);
XtSetTypeConverter(XtRString, XtRCallback,
(XtTypeConverter)DtkshCvtStringToCallback, NULL, 0,
XtCacheNone, NULL);
XtSetTypeConverter(XtRCallback, XtRString,
(XtTypeConverter)DtkshCvtCallbackToString, NULL, 0,
XtCacheNone, NULL);
XtSetTypeConverter(XtRString, DtRPrintSetupProc,
(XtTypeConverter)DtkshCvtStringToPrintSetupProc, NULL, 0,
XtCacheNone, NULL);
XtSetTypeConverter(XtRString, "EventMask",
(XtTypeConverter)DtkshCvtStringToEventMask, NULL, 0,
XtCacheNone, NULL);
XtSetTypeConverter(XtRString, "MWMDecoration",
(XtTypeConverter)DtkshCvtStringToMWMDecoration, NULL, 0,
XtCacheNone, NULL);
XtSetTypeConverter("MWMDecoration", XtRString,
(XtTypeConverter)DtkshCvtMWMDecorationToString, NULL, 0,
XtCacheNone, NULL);
XtSetTypeConverter(XtRString, "MWMFunctions",
(XtTypeConverter)DtkshCvtStringToMWMFunctions, NULL, 0,
XtCacheNone, NULL);
XtSetTypeConverter("MWMFunctions", XtRString,
(XtTypeConverter)DtkshCvtMWMFunctionsToString, NULL, 0,
XtCacheNone, NULL);
XtSetTypeConverter(XtRString, "ListItems",
(XtTypeConverter)DtkshCvtStringToListItems, NULL, 0,
XtCacheNone, NULL);
XtSetTypeConverter(XtRString, "SelectedListItems",
(XtTypeConverter)DtkshCvtStringToListItems, NULL, 0,
XtCacheNone, NULL);
XtSetTypeConverter(XtRString, "SelBoxItems",
(XtTypeConverter)DtkshCvtStringToListItems, NULL, 0,
XtCacheNone, NULL);
XtSetTypeConverter(XtRString, "FSFileItems",
(XtTypeConverter)DtkshCvtStringToListItems, NULL, 0,
XtCacheNone, NULL);
XtSetTypeConverter(XtRString, "FSDirItems",
(XtTypeConverter)DtkshCvtStringToListItems, NULL, 0,
XtCacheNone, NULL);
XtSetTypeConverter(XtRString, XmRWidgetClass,
(XtTypeConverter)DtkshCvtStringToWidgetClass, NULL, 0,
XtCacheNone, NULL);
XtSetTypeConverter(XtRString, "PanedWinPosIndex",
(XtTypeConverter)DtkshCvtStringToPanedWinPosIndex, NULL, 0,
XtCacheNone, NULL);
XtSetTypeConverter("PanedWinPosIndex", XtRString,
(XtTypeConverter)DtkshCvtPanedWinPosIndexToString, NULL, 0,
XtCacheNone, NULL);
XtSetTypeConverter("ListItems", XtRString,
(XtTypeConverter)DtkshCvtListItemsToString,
listItemConvertArgs, 1,
XtCacheNone, NULL);
XtSetTypeConverter("SelBoxItems", XtRString,
(XtTypeConverter)DtkshCvtListItemsToString,
selBoxItemConvertArgs, 1,
XtCacheNone, NULL);
XtSetTypeConverter("SelectedListItems", XtRString,
(XtTypeConverter)DtkshCvtListItemsToString,
selectedListItemConvertArgs, 1,
XtCacheNone, NULL);
XtSetTypeConverter("FSFileItems", XtRString,
(XtTypeConverter)DtkshCvtListItemsToString,
fileSelBoxFileConvertArgs, 1,
XtCacheNone, NULL);
XtSetTypeConverter("FSDirItems", XtRString,
(XtTypeConverter)DtkshCvtListItemsToString,
fileSelBoxDirConvertArgs, 1,
XtCacheNone, NULL);
XtSetTypeConverter(XmRWidgetClass, XtRString,
(XtTypeConverter)DtkshCvtWidgetClassToString,
NULL, 0, XtCacheNone, NULL);
/*
* Override standard Xt StringToPixel converter;
* we need to handle both pixel names and pixel values.
*/
RegisterXtOverrideConverters();
w = set_up_w(Toplevel, NULL, argv[1], argv[2],
str_to_class(argv[0], "ApplicationShell"));
var = env_get(str_TOPLEVEL);
if (var == NULL || *var == '\0') {
env_set_var(str_TOPLEVEL, w->widid);
}
var = env_get(str_APPNAME);
if (var == NULL || *var == '\0') {
env_set_var(str_APPNAME, argv[2]);
}
ksh_eval("unset DTKSH_ARGV");
for (i = 0; i < newargc; i++) {
sprintf(envbuf, "DTKSH_ARGV[%d]=%s", i, newargv[i]);
env_set(envbuf);
}
return(0);
}
/*
* There are certain classes of resources which cannot be specified when
* a widget is created. These are resources which rely on a unit of
* measure typically specified with the 'unitType' resource. Since there
* is no widget yet when we convert the resources from string to internal
* representation, there, of course, is no known unitType yet; thus the
* conversions cannot be performed. That is why we have this check, and
* why we have to tell the user to use XtSetValues().
*
* There is a second class of resources where this problem also exists;
* these are the gadget pixmaps. The problem exists because the string
* to pixmap converter for gadgets assumes that it has access to the
* widget ID, so that it can grab the parent. Since the widget Id does
* not yet exist, this information does not exist.
*
* A third class of problem resources are all pixmap resources. If these
* are specified in the same resource list as the foreground or background
* colors, then the converter uses the existing colors, instead of the new
* colors. To overcome this, we postpone the converting of any pixmap
* resources until after all others have been set.
*/
int
toolkit_special_resource(
char *arg0,
XtResourceList res,
wtab_t *w,
wtab_t *parent,
classtab_t *class,
char *resource,
char *val,
XtArgVal *ret,
int *freeit,
Boolean postponePixmaps )
{
if ((w == NULL) &&
((strcmp(res->resource_type, XmRHorizontalDimension) == 0) ||
(strcmp(res->resource_type, XmRVerticalDimension) == 0) ||
(strcmp(res->resource_type, XmRHorizontalPosition) == 0) ||
(strcmp(res->resource_type, XmRVerticalPosition) == 0) ||
(strcmp(res->resource_type, XmRBooleanDimension) == 0) ||
(strcmp(res->resource_type, XmRGadgetPixmap) == 0) ||
(strcmp(res->resource_type, DtRPrintSetupProc) == 0)))
{
return(TRUE);
}
else if (postponePixmaps &&
((strcmp(resource, XmNpixmap) == 0) ||
(strstr(resource, "Pixmap") != NULL)))
{
return(TRUE);
}
return(FALSE);
}
static int
_xmcreatefunc(
Widget (*func)(),
char *wclass,
int argc,
char *argv[] )
{
Widget widget, realparent;
classtab_t *class;
char *arg0 = argv[0];
wtab_t *w, *pw, *wtab, *parenttab;
char *wname, *parentid, *var;
Arg args[MAXARGS];
int i;
int n;
char * errmsg;
int pargc;
char ** pargv;
if (argc < 4) {
errmsg = strdup(GETMESSAGE(
"Usage: %s variable parent name [argument:value ...]"));
printerrf(str_nill, errmsg, argv[0], NULL,
NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
var = argv[1];
parentid = argv[2];
wname = argv[3];
pw = str_to_wtab(argv[0], parentid);
if (pw == NULL) {
errmsg = strdup(GetSharedMsg(DT_NO_PARENT));
printerr(argv[0], errmsg, NULL);
free(errmsg);
return(1);
}
argv += 4;
argc -= 4;
if ((class = str_to_class(arg0, wclass)) == NULL) {
return(1);
}
pargc = 0;
if (argc > 0) {
pargv = (char **)XtMalloc(sizeof(char *) * argc);
}
else {
pargv = 0;
}
parse_args(arg0, argc, argv, NULL, pw, class, &n, args, &pargc, pargv,
True);
widget = func(pw->w, wname, args, n);
if (widget != NULL) {
/* Some of the XmCreate* functions return a widget
* id whose parent is not necessarily the parent
* passed in. For example, DialogShell returns the
* widget of the dialog, not the Shell which is the
* real parent.
*
* So, we check to see if the parent is the same as
* the passed-in parent, and if not then we create
* a new entry for the real parent.
*/
realparent = XtParent(widget);
if (realparent != pw->w) {
parenttab = (wtab_t *)widget_to_wtab(realparent);
} else
parenttab = pw;
wtab = set_up_w(widget, parenttab, var, wname, class);
/* Process any postponed resources */
if (pargc > 0)
{
free_args(n, args);
n = 0;
parse_args(arg0, pargc, pargv, wtab, pw, class, &n,
args, NULL, NULL, False);
XtSetValues(widget, args, n);
}
} else {
errmsg = strdup(GetSharedMsg(DT_WIDGET_CREATE_FAILED));
printerrf(argv[0], errmsg,
wname, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
env_blank(argv[1]);
}
free_args(n, args);
XtFree((char *)pargv);
return(0);
}
int
do_XmCreateArrowButton(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateArrowButton, "XmArrowButton",
argc, argv));
}
int
do_XmCreateArrowButtonGadget(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateArrowButtonGadget,
"XmArrowButtonGadget", argc, argv));
}
int
do_XmCreateBulletinBoard(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateBulletinBoard, "XmBulletinBoard",
argc, argv));
}
int
do_XmCreateBulletinBoardDialog(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateBulletinBoardDialog, "XmBulletinBoard",
argc, argv));
}
int
do_XmCreateCascadeButton(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateCascadeButton, "XmCascadeButton",
argc, argv));
}
int
do_XmCreateCascadeButtonGadget(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateCascadeButtonGadget,
"XmCascadeButtonGadget", argc, argv));
}
int
do_XmCreateComboBox(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateComboBox,
"XmComboBox", argc, argv));
}
int
do_XmCreateCommand(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateCommand, "XmCommand", argc, argv));
}
int
do_XmCreateDialogShell(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateDialogShell, "XmDialogShell", argc,
argv));
}
int
do_XmCreateDrawingArea(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateDrawingArea, "XmDrawingArea", argc,
argv));
}
int
do_XmCreateDrawnButton(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateDrawnButton, "XmDrawnButton", argc,
argv));
}
int
do_XmCreateErrorDialog(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateErrorDialog, "XmMessageBox", argc,
argv));
}
int
do_XmCreateFileSelectionBox(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateFileSelectionBox, "XmFileSelectionBox",
argc, argv));
}
int
do_XmCreateFileSelectionDialog(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateFileSelectionDialog,
"XmFileSelectionBox", argc, argv));
}
int
do_XmCreateForm(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateForm, "XmForm", argc, argv));
}
int
do_XmCreateFormDialog(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateFormDialog, "XmForm", argc, argv));
}
int
do_XmCreateFrame(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateFrame, "XmFrame", argc, argv));
}
int
do_XmCreateInformationDialog(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateInformationDialog, "XmMessageBox",
argc, argv));
}
int
do_XmCreateLabel(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateLabel, "XmLabel", argc, argv));
}
int
do_XmCreateLabelGadget(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateLabelGadget, "XmLabelGadget", argc,
argv));
}
int
do_XmCreateList(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateList, "XmList", argc, argv));
}
int
do_XmCreateMainWindow(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateMainWindow, "XmMainWindow", argc,
argv));
}
int
do_XmCreateMenuBar(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateMenuBar, "XmRowColumn", argc, argv));
}
int
do_XmCreateMenuShell(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateMenuShell, "XmMenuShell", argc, argv));
}
int
do_XmCreateMessageBox(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateMessageBox, "XmMessageBox", argc,
argv));
}
int
do_XmCreateMessageDialog(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateMessageDialog, "XmMessageBox", argc,
argv));
}
int
do_XmCreateOptionMenu(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateOptionMenu, "XmRowColumn", argc, argv));
}
int
do_XmCreatePanedWindow(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreatePanedWindow, "XmPanedWindow", argc,
argv));
}
int
do_XmCreatePopupMenu(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreatePopupMenu, "XmRowColumn", argc, argv));
}
int
do_XmCreatePromptDialog(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreatePromptDialog, "XmSelectionBox", argc,
argv));
}
int
do_XmCreatePulldownMenu(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreatePulldownMenu, "XmRowColumn", argc,
argv));
}
int
do_XmCreatePushButton(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreatePushButton, "XmPushButton", argc,
argv));
}
int
do_XmCreatePushButtonGadget(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreatePushButtonGadget, "XmPushButtonGadget",
argc, argv));
}
int
do_XmCreateQuestionDialog(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateQuestionDialog, "XmMessageBox", argc,
argv));
}
int
do_XmCreateRadioBox(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateRadioBox, "XmRowColumn", argc, argv));
}
int
do_XmCreateRowColumn(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateRowColumn, "XmRowColumn", argc, argv));
}
int
do_XmCreateScale(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateScale, "XmScale", argc, argv));
}
int
do_XmCreateScrollBar(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateScrollBar, "XmScrollBar", argc, argv));
}
int
do_XmCreateScrolledList(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateScrolledList, "XmList", argc, argv));
}
int
do_XmCreateScrolledText(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateScrolledText, "XmText", argc, argv));
}
int
do_XmCreateScrolledWindow(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateScrolledWindow, "XmScrolledWindow",
argc, argv));
}
int
do_XmCreateSelectionBox(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateSelectionBox, "XmSelectionBox", argc,
argv));
}
int
do_XmCreateSelectionDialog(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateSelectionDialog, "XmSelectionBox",
argc, argv));
}
int
do_XmCreateSeparator(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateSeparator, "XmSeparator", argc, argv));
}
int
do_XmCreateSeparatorGadget(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateSeparatorGadget, "XmSeparatorGadget",
argc, argv));
}
int
do_XmCreateText(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateText, "XmText", argc, argv));
}
int
do_XmCreateTextField(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateTextField, "XmTextField", argc, argv));
}
int
do_XmCreateToggleButton(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateToggleButton, "XmToggleButton", argc,
argv));
}
int
do_XmCreateToggleButtonGadget(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateToggleButtonGadget,
"XmToggleButtonGadget", argc, argv));
}
int
do_XmCreateWarningDialog(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateWarningDialog, "XmMessageBox", argc,
argv));
}
int
do_XmCreateWorkArea(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateWorkArea, "XmRowColumn", argc, argv));
}
int
do_XmCreateWorkingDialog(
int argc,
char *argv[] )
{
return(_xmcreatefunc(XmCreateWorkingDialog, "XmMessageBox", argc,
argv));
}
int
do_DtCreateHelpDialog(
int argc,
char *argv[] )
{
return(_xmcreatefunc(DtCreateHelpDialog, "DtHelpDialog", argc,
argv));
}
int
do_DtCreateHelpQuickDialog(
int argc,
char *argv[] )
{
return(_xmcreatefunc(DtCreateHelpQuickDialog, "DtHelpQuickDialog", argc,
argv));
}
int
do_DtCreatePrintSetupDialog(
int argc,
char *argv[] )
{
return(_xmcreatefunc(DtCreatePrintSetupDialog, "DtPrintSetupBox", argc,
argv));
}
int
do_DtCreatePrintSetupBox(
int argc,
char *argv[] )
{
return(_xmcreatefunc(DtCreatePrintSetupBox, "DtPrintSetupBox", argc,
argv));
}
int
do_DtHelpReturnSelectedWidgetId(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t * w;
XmString string;
char * results = argv[1];
char * variable = argv[3];
XrmValue f, t;
int res;
classtab_t *ctab;
Widget retWidget;
char * errmsg;
if (argc != 4)
{
errmsg = strdup(GETMESSAGE(
"Usage: DtHelpReturnSelectedWidgetId variable widget variable"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(arg0, argv[2]);
if (w == NULL) {
alt_env_set_var(variable, "");
env_blank(results);
return(1);
}
res = DtHelpReturnSelectedWidgetId(w->w, 0, &retWidget);
XSync(XtDisplay(w->w), False);
f.addr = (caddr_t)&res;
f.size = sizeof(int);
t.addr = NULL;
t.size = 0;
XtConvert(w->w, "HelpReturnSelectedWidgetResultType", &f, XtRString, &t);
env_set_var(results, (char *)(t.addr));
if (res != DtHELP_SELECT_VALID)
{
alt_env_set_var(variable, "");
return(0);
}
w = ConvertWidgetToWtab(arg0, retWidget);
alt_env_set_var(variable, w->widid);
return(0);
}
int
do_DtHelpSetCatalogName(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
char * errmsg;
if (argc != 2)
{
errmsg = strdup(GETMESSAGE(
"Usage: DtHelpSetCatalogName catalogName"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
DtHelpSetCatalogName(argv[1]);
return(0);
}
int
do_DtHelpQuickDialogGetChild(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t * w;
XmString string;
char * variable = argv[1];
int childType;
XrmValue f, t;
Widget child;
classtab_t *ctab;
char * errmsg;
if (argc != 4)
{
errmsg = strdup(GETMESSAGE(
"Usage: DtHelpQuickDialogGetChild variable quickHelpWidget child"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(arg0, argv[2]);
if (w == NULL) {
alt_env_set_var(variable, "");
return(1);
}
if (w->wclass->class != dtHelpQuickDialogWidgetClass) {
errmsg = strdup(GETMESSAGE(
"The widget must be a 'quickHelp' widget"));
printerr(arg0, errmsg, NULL);
free(errmsg);
alt_env_set_var(variable, "");
return(1);
}
f.addr = argv[3];
f.size = strlen(argv[3]) + 1;
t.addr = NULL;
t.size = 0;
XtConvert(w->w, XtRString, &f, "QuickHelpChildType", &t);
if (t.size && t.addr)
childType = *((int *)t.addr);
else
{
errmsg = strdup(GetSharedMsg(DT_UNKNOWN_CHILD_TYPE));
printerrf(argv[0], errmsg, argv[2], NULL, NULL,
NULL, NULL, NULL, NULL, NULL);
free(errmsg);
alt_env_set_var(variable, "");
return(1);
}
child = DtHelpQuickDialogGetChild(w->w, childType);
if (child == NULL)
{
alt_env_set_var(variable, "");
return(1);
}
w = ConvertWidgetToWtab(arg0, child);
alt_env_set_var(variable, w->widid);
return(0);
}
static wtab_t *
verifyListWidget(
char *cmd,
char *widget )
{
wtab_t *w;
char * errmsg;
if ((w = str_to_wtab(cmd, widget)) == NULL)
return(NULL);
if (w->wclass->class != xmListWidgetClass)
{
errmsg = strdup(GETMESSAGE("The widget must be a 'list' widget"));
printerr(cmd, errmsg, NULL);
free(errmsg);
return(NULL);
}
return(w);
}
static int
List_ItemAndPos(
void (*func)(),
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
XmString string;
int position = 0;
char * errmsg;
if (argc != 4)
{
errmsg = strdup(GETMESSAGE("Usage: %s widget position item"));
printerrf(str_nill, errmsg, arg0, NULL, NULL, NULL, NULL, NULL, NULL,
NULL);
free(errmsg);
return(1);
}
if ((w = verifyListWidget(argv[0], argv[1])) == NULL)
return(1);
string = XmStringCreateLocalized(argv[3]);
position = atoi(argv[2]);
(*func) (w->w, string, position);
XmStringFree(string);
return(0);
}
int
do_XmListAddItem(
int argc,
char *argv[] )
{
return (List_ItemAndPos(XmListAddItem, argc, argv));
}
int
do_XmListAddItemUnselected(
int argc,
char *argv[] )
{
return (List_ItemAndPos(XmListAddItemUnselected, argc, argv));
}
static int
List_ItemListAndPos(
void (*func)(),
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
int position = 0;
XmString *items = NULL;
int itemCount = 0;
int itemListSize = 0;
int i;
char * errmsg;
if (argc < 4)
{
errmsg = strdup(GETMESSAGE("Usage: %s widget position itemList"));
printerrf(str_nill, errmsg, arg0, NULL, NULL,
NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
if ((w = verifyListWidget(argv[0], argv[1])) == NULL)
return(1);
position = atoi(argv[2]);
for (i = 3; i < argc; i++, itemCount++)
{
if (itemCount >= itemListSize)
{
itemListSize += 10;
items = (XmString *)XtRealloc((char *)items,
sizeof(XmString) * itemListSize);
}
items[itemCount] = XmStringCreateLocalized(argv[i]);
}
(*func) (w->w, items, itemCount, position);
for (i = 0; i < itemCount; i++)
XmStringFree(items[i]);
XtFree((char *)items);
return(0);
}
int
do_XmListAddItems(
int argc,
char *argv[] )
{
return (List_ItemListAndPos(XmListAddItems, argc, argv));
}
int
do_XmListAddItemsUnselected(
int argc,
char *argv[] )
{
return (List_ItemListAndPos(XmListAddItemsUnselected, argc, argv));
}
int
do_XmListReplaceItemsPos(
int argc,
char *argv[] )
{
return (List_ItemListAndPos(XmListReplaceItemsPos, argc, argv));
}
int
do_XmListReplaceItemsPosUnselected(
int argc,
char *argv[] )
{
return (List_ItemListAndPos(XmListReplaceItemsPosUnselected, argc, argv));
}
static int
List_WidgetOnly(
void (*func)(),
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
char * errmsg;
if (argc != 2)
{
errmsg = strdup(GetSharedMsg(DT_USAGE_WIDGET));
printerrf(str_nill, errmsg, arg0, NULL, NULL, NULL, NULL, NULL,
NULL, NULL);
free(errmsg);
return(1);
}
if ((w = verifyListWidget(argv[0], argv[1])) == NULL)
return(1);
(*func) (w->w);
return(0);
}
int
do_XmListDeleteAllItems(
int argc,
char *argv[] )
{
return (List_WidgetOnly(XmListDeleteAllItems, argc, argv));
}
int
do_XmListDeselectAllItems(
int argc,
char *argv[] )
{
return (List_WidgetOnly(XmListDeselectAllItems, argc, argv));
}
int
do_XmListUpdateSelectedList(
int argc,
char *argv[] )
{
return (List_WidgetOnly(XmListUpdateSelectedList, argc, argv));
}
static int
List_ItemOnly(
void (*func)(),
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
XmString string;
char * errmsg;
if (argc != 3)
{
errmsg = strdup(GETMESSAGE("Usage: %s widget item"));
printerrf(str_nill, errmsg, arg0, NULL, NULL, NULL, NULL,
NULL, NULL, NULL);
free(errmsg);
return(1);
}
if ((w = verifyListWidget(argv[0], argv[1])) == NULL)
return(1);
string = XmStringCreateLocalized(argv[2]);
(*func) (w->w, string);
XmStringFree(string);
return(0);
}
int
do_XmListDeleteItem(
int argc,
char *argv[] )
{
return (List_ItemOnly(XmListDeleteItem, argc, argv));
}
int
do_XmListDeselectItem(
int argc,
char *argv[] )
{
return (List_ItemOnly(XmListDeselectItem, argc, argv));
}
int
do_XmListSetBottomItem(
int argc,
char *argv[] )
{
return (List_ItemOnly(XmListSetBottomItem, argc, argv));
}
int
do_XmListSetItem(
int argc,
char *argv[] )
{
return (List_ItemOnly(XmListSetItem, argc, argv));
}
static int
List_PositionOnly(
void (*func)(),
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
int position = 0;
char * errmsg;
if (argc != 3)
{
errmsg = strdup(GetSharedMsg(DT_USAGE_WIDGET_POS));
printerrf(str_nill, errmsg, arg0, NULL, NULL, NULL,
NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
if ((w = verifyListWidget(argv[0], argv[1])) == NULL)
return(1);
position = atoi(argv[2]);
(*func) (w->w, position);
return(0);
}
int
do_XmListDeletePos(
int argc,
char *argv[] )
{
return (List_PositionOnly(XmListDeletePos, argc, argv));
}
int
do_XmListDeselectPos(
int argc,
char *argv[] )
{
return (List_PositionOnly(XmListDeselectPos, argc, argv));
}
int
do_XmListSetBottomPos(
int argc,
char *argv[] )
{
return (List_PositionOnly(XmListSetBottomPos, argc, argv));
}
int
do_XmListSetHorizPos(
int argc,
char *argv[] )
{
return (List_PositionOnly(XmListSetHorizPos, argc, argv));
}
int
do_XmListSetPos(
int argc,
char *argv[] )
{
return (List_PositionOnly(XmListSetPos, argc, argv));
}
int
do_XmListDeleteItemsPos(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
int position = 0;
int count = 0;
char * errmsg;
if (argc != 4)
{
errmsg = strdup(GETMESSAGE(
"Usage: XmListDeleteItemsPos widget count position"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
if ((w = verifyListWidget(argv[0], argv[1])) == NULL)
return(1);
count = atoi(argv[2]);
position = atoi(argv[3]);
XmListDeleteItemsPos(w->w, count, position);
return(0);
}
int
do_XmListDeleteItems(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
XmString *items = NULL;
int itemCount = 0;
int itemListSize = 0;
int i;
char * errmsg;
if (argc < 3)
{
errmsg = strdup(GETMESSAGE(
"Usage: XmListDeleteItems widget itemList"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
if ((w = verifyListWidget(argv[0], argv[1])) == NULL)
return(1);
for (i = 2; i < argc; i++, itemCount++)
{
if (itemCount >= itemListSize)
{
itemListSize += 10;
items = (XmString *)XtRealloc((char *)items,
sizeof(XmString) * itemListSize);
}
items[itemCount] = XmStringCreateLocalized(argv[i]);
}
XmListDeleteItems(w->w, items, itemCount);
for (i = 0; i < itemCount; i++)
XmStringFree(items[i]);
XtFree((char *)items);
return(0);
}
int
do_XmListDeletePositions(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
int positionCount = 0;
int * positionList = NULL;
int positionListSize = 0;
int i;
char * errmsg;
if (argc < 3)
{
errmsg = strdup(GETMESSAGE(
"Usage: XmListDeletePositions widget positionList"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
if ((w = verifyListWidget(argv[0], argv[1])) == NULL)
return(1);
for (i = 2; i < argc; i++, positionCount++)
{
if (positionCount >= positionListSize)
{
positionListSize += 10;
positionList = (int *)XtRealloc((char *)positionList,
sizeof(int) * positionListSize);
}
positionList[positionCount] = atoi(argv[i]);
}
XmListDeletePositions(w->w, positionList, positionCount);
XtFree((char *)positionList);
return(0);
}
static int
GetSelectedPosList(
Boolean (*func)(),
int paramCount,
char * errmsg,
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
int i;
char * buf;
Boolean result;
int * posList;
int posCount;
char pos[25];
XmString string;
if (argc != paramCount)
{
printerr(str_nill, errmsg, NULL);
return(1);
}
if ((w = verifyListWidget(argv[0], argv[2])) == NULL)
{
alt_env_set_var(argv[1], "");
return(1);
}
if (paramCount == 3)
result = (*func)(w->w, &posList, &posCount);
else
{
string = XmStringCreateLocalized(argv[3]);
result = (*func)(w->w, string, &posList, &posCount);
XmStringFree(string);
}
if (result)
{
buf = XtMalloc(1);
buf[0] = '\0';
for (i = 0; i < posCount; i++)
{
sprintf(pos, "%d", (int)posList[i]);
buf = XtRealloc(buf, strlen(buf) + strlen(pos) + 2);
if (i != 0)
strcat(buf, ",");
strcat(buf, pos);
}
env_set_var(argv[1], buf);
XtFree ((char *)posList);
XtFree(buf);
}
else
env_blank(argv[1]);
return (!result);
}
int
do_XmListGetSelectedPos(
int argc,
char *argv[] )
{
Boolean result;
char * errmsg;
errmsg = strdup(GETMESSAGE(
"Usage: XmListGetSelectedPos variable widget"));
result = GetSelectedPosList(XmListGetSelectedPos, 3, errmsg, argc, argv);
free(errmsg);
return(result);
}
int
do_XmListGetMatchPos(
int argc,
char *argv[] )
{
Boolean result;
char * errmsg;
errmsg = strdup(GETMESSAGE(
"Usage: XmListGetMatchPos variable widget item"));
result = GetSelectedPosList(XmListGetMatchPos, 4, errmsg, argc, argv);
free(errmsg);
return(result);
}
int
do_XmListGetKbdItemPos(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
int position;
int i;
char buf[24];
char * errmsg;
if (argc != 3)
{
errmsg = strdup(GETMESSAGE(
"Usage: XmListGetKbdItemPos variable widget"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
if ((w = verifyListWidget(argv[0], argv[2])) == NULL)
{
alt_env_set_var(argv[1], "");
return(1);
}
position = XmListGetKbdItemPos(w->w);
sprintf(buf, "%d", position);
alt_env_set_var(argv[1], buf);
return(0);
}
int
do_XmListItemExists(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
XmString string;
Boolean res;
char * errmsg;
if (argc != 3)
{
errmsg = strdup(GETMESSAGE("Usage: XmListItemExists widget item"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
if ((w = verifyListWidget(argv[0], argv[1])) == NULL)
return(1);
string = XmStringCreateLocalized(argv[2]);
res = !XmListItemExists(w->w, string);
XmStringFree(string);
return(res);
}
int
do_XmListItemPos(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
int position;
int i;
char buf[24];
XmString item;
char * errmsg;
if (argc != 4)
{
errmsg = strdup(GETMESSAGE("Usage: XmListItemPos variable widget item"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
if ((w = verifyListWidget(argv[0], argv[2])) == NULL)
{
alt_env_set_var(argv[1], "");
return(1);
}
item = XmStringCreateLocalized(argv[3]);
position = XmListItemPos(w->w, item);
sprintf(buf, "%d", position);
alt_env_set_var(argv[1], buf);
XmStringFree(item);
return(0);
}
int
do_XmListPosSelected(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
Boolean res;
int position;
char * errmsg;
if (argc != 3)
{
errmsg = strdup(GETMESSAGE("Usage: XmListPosSelected widget position"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
if ((w = verifyListWidget(argv[0], argv[1])) == NULL)
return(1);
position = atoi(argv[2]);
res = !XmListPosSelected(w->w, position);
return(res);
}
int
do_XmListPosToBounds(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
Boolean res;
int position;
Position x;
Position y;
Dimension width;
Dimension height;
char buf[24];
char * errmsg;
if (argc != 7)
{
errmsg=strdup(GETMESSAGE(
"Usage: XmListPosToBounds widget position variable variable variable variable"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
if ((w = verifyListWidget(argv[0], argv[1])) == NULL)
{
env_blank(argv[3]);
env_blank(argv[4]);
env_blank(argv[5]);
env_blank(argv[6]);
return(1);
}
position = atoi(argv[2]);
res = !XmListPosToBounds(w->w, position, &x, &y, &width, &height);
if (res == False)
{
sprintf(buf, "%d", x);
env_set_var(argv[3], buf);
sprintf(buf, "%d", y);
env_set_var(argv[4], buf);
sprintf(buf, "%d", width);
env_set_var(argv[5], buf);
sprintf(buf, "%d", height);
env_set_var(argv[6], buf);
}
else
{
env_blank(argv[3]);
env_blank(argv[4]);
env_blank(argv[5]);
env_blank(argv[6]);
}
return(res);
}
static int
ListSelectItem(
Boolean usePosition,
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
int i;
XmString item;
XrmValue fval, tval;
int position = 0;
Boolean notify;
char * errmsg;
if (argc != 4)
{
if (usePosition)
{
errmsg = strdup(GETMESSAGE("Usage: %s widget position notifyFlag"));
}
else
{
errmsg = strdup(GETMESSAGE("Usage: %s widget item notifyFlag"));
}
printerrf(str_nill, errmsg, arg0, NULL, NULL, NULL, NULL, NULL, NULL,
NULL);
free(errmsg);
return(1);
}
if ((w = verifyListWidget(argv[0], argv[1])) == NULL)
return(1);
if (usePosition)
position = atoi(argv[2]);
else
item = XmStringCreateLocalized(argv[2]);
fval.addr = argv[3];
fval.size = strlen(argv[3]);
XtConvert(Toplevel, XtRString, &fval, XtRBoolean, &tval);
if (tval.size != 0)
notify = *((Boolean *)(tval.addr));
else
return(1);
if (usePosition)
XmListSelectPos(w->w, position, notify);
else
{
XmListSelectItem(w->w, item, notify);
XmStringFree(item);
}
return(0);
}
int
do_XmListSelectItem(
int argc,
char *argv[] )
{
return(ListSelectItem(False, argc, argv));
}
int
do_XmListSelectPos(
int argc,
char *argv[] )
{
return(ListSelectItem(True, argc, argv));
}
int
do_XmListSetAddMode(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
XrmValue fval, tval;
Boolean state;
char * errmsg;
if (argc != 3)
{
errmsg = strdup(GETMESSAGE("Usage: XmListSetAddMode widget boolean"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
if ((w = verifyListWidget(argv[0], argv[1])) == NULL)
return(1);
fval.addr = argv[2];
fval.size = strlen(argv[2]);
XtConvert(Toplevel, XtRString, &fval, XtRBoolean, &tval);
if (tval.size != 0)
state = *((Boolean *)(tval.addr));
else
return(1);
XmListSetAddMode(w->w, state);
return(0);
}
int
do_XmListSetKbdItemPos(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
Boolean res;
int position;
char * errmsg;
if (argc != 3)
{
errmsg = strdup(GETMESSAGE(
"Usage: XmListSetKbdItemPos widget position"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
if ((w = verifyListWidget(argv[0], argv[1])) == NULL)
return(1);
position = atoi(argv[2]);
res = !XmListSetKbdItemPos(w->w, position);
return(res);
}
int
do_XmMainWindowSetAreas(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w[6];
int i;
char * errmsg;
if (argc != 7)
{
errmsg=strdup(GETMESSAGE(
"Usage: XmMainWindowSetAreas mainwindow menu command hscroll vscroll work"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
for (i = 1; i < 7; i++)
{
if ((argv[i][0] == '\0') ||
(strcmp(argv[i], (char *)("NULL")) == 0))
{
w[i-1] = NULL;
continue;
}
w[i-1] = str_to_wtab(arg0, argv[i]);
if (w[i-1] == NULL)
continue;
}
if (w[0] == NULL) {
errmsg = strdup(GETMESSAGE("The 'mainWindow' handle is NULL"));
printerr(argv[0], errmsg, NULL);
free(errmsg);
return(1);
}
if (w[0]->wclass->class != xmMainWindowWidgetClass) {
errmsg = strdup(GetSharedMsg(DT_MAIN_WIN_WIDGET));
printerr(arg0, errmsg, NULL);
free(errmsg);
return(1);
}
XmMainWindowSetAreas(w[0]->w,
w[1] ? w[1]->w : (Widget)NULL,
w[2] ? w[2]->w : (Widget)NULL,
w[3] ? w[3]->w : (Widget)NULL,
w[4] ? w[4]->w : (Widget)NULL,
w[5] ? w[5]->w : (Widget)NULL);
return(0);
}
static int
GetMainWindowSeparator(
int childType,
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t * w;
XmString string;
char * variable = argv[1];
Widget child;
classtab_t *ctab;
char * errmsg;
if (argc != 3)
{
errmsg = strdup(GETMESSAGE("Usage: %s variable mainwindow"));
printerrf(str_nill, errmsg, arg0, NULL, NULL, NULL,
NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(arg0, argv[2]);
if (w == NULL) {
alt_env_set_var(variable, "");
return(1);
}
if (w->wclass->class != xmMainWindowWidgetClass) {
errmsg = strdup(GetSharedMsg(DT_MAIN_WIN_WIDGET));
printerr(arg0, errmsg, NULL);
free(errmsg);
alt_env_set_var(variable, "");
return(1);
}
if (childType == MWSep1)
child = XmMainWindowSep1(w->w);
else if (childType == MWSep2)
child = XmMainWindowSep2(w->w);
else if (childType == MWSep3)
child = XmMainWindowSep3(w->w);
if (child == NULL)
{
alt_env_set_var(variable, "");
return(1);
}
w = ConvertWidgetToWtab(arg0, child);
alt_env_set_var(variable, w->widid);
return(0);
}
int
do_XmMainWindowSep1(
int argc,
char *argv[] )
{
return(GetMainWindowSeparator(MWSep1, argc, argv));
}
int
do_XmMainWindowSep2(
int argc,
char *argv[] )
{
return(GetMainWindowSeparator(MWSep2, argc, argv));
}
int
do_XmMainWindowSep3(
int argc,
char *argv[] )
{
return(GetMainWindowSeparator(MWSep3, argc, argv));
}
int
do_XmProcessTraversal(
int argc,
char *argv[] )
{
XrmValue f, t;
wtab_t *w;
char * errmsg;
if (argc != 3) {
errmsg = strdup(GETMESSAGE("Usage: XmProcessTraversal widget direction"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(argv[0], argv[1]);
if (w == NULL)
return(1);
f.addr = argv[2];
f.size = strlen(argv[2]) + 1;
t.addr = NULL;
t.size = 0;
XtConvert(w->w, XtRString, &f, "TraversalDirection", &t);
if (t.size && t.addr)
{
int direction = ((int *)(t.addr))[0];
return(!XmProcessTraversal(w->w, direction));
}
else
{
errmsg = strdup(GETMESSAGE("Unknown traversal direction: %s"));
printerrf(argv[0], errmsg, argv[2], NULL,
NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
}
int
do_XmInternAtom(
int argc,
char *argv[] )
{
XrmValue fval, tval;
Boolean onlyIfExists;
char buf[24];
Atom atom;
Display * display;
char * p;
char * errmsg;
if (argc != 5)
{
errmsg = strdup(GETMESSAGE(
"Usage: XmInternAtom variable display name onlyIfExists"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
display = (Display *)strtoul(argv[2], &p, 0);
if (p == argv[2])
{
errmsg = strdup(GetSharedMsg(DT_BAD_DISPLAY));
printerrf(argv[0], errmsg, argv[2], NULL, NULL, NULL, NULL, NULL,
NULL, NULL);
free(errmsg);
alt_env_set_var(argv[1], "");
return(1);
}
fval.addr = argv[4];
fval.size = strlen(argv[4]);
XtConvert(Toplevel, XtRString, &fval, XtRBoolean, &tval);
if (tval.size != 0)
onlyIfExists = *((Boolean *)(tval.addr));
else
{
alt_env_set_var(argv[1], "");
return(1);
}
atom = XmInternAtom (display, argv[3], onlyIfExists);
sprintf(buf, "%ld", atom);
alt_env_set_var(argv[1], buf);
return(0);
}
/*
* Simply prevents non-fatal X errors from killing the application.
*/
static int
CatchAndIgnoreXError(
Display *display,
XEvent *event )
{
}
int
do_XmGetAtomName(
int argc,
char *argv[] )
{
char *name;
Atom atom;
char * p;
int (*oldHandler)();
Display * display;
char * errmsg;
if (argc != 4)
{
errmsg = strdup(GETMESSAGE("Usage: XmGetAtomName variable display atom"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
display = (Display *)strtoul(argv[2], &p, 0);
if (p == argv[2])
{
errmsg = strdup(GetSharedMsg(DT_BAD_DISPLAY));
printerrf(argv[0], errmsg, argv[2], NULL, NULL, NULL, NULL, NULL,
NULL, NULL);
free(errmsg);
alt_env_set_var(argv[1], "");
return(1);
}
atom = (Atom)strtoul(argv[3], &p, 0);
if (p == argv[3])
{
errmsg = strdup(GETMESSAGE("The specified atom is invalid: %s"));
printerrf(argv[0], errmsg, argv[3],
NULL, NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
alt_env_set_var(argv[1], "");
return(1);
}
oldHandler = XSetErrorHandler((int(*)())CatchAndIgnoreXError);
name = XmGetAtomName (display, atom);
XSetErrorHandler((int(*)())oldHandler);
if (name == NULL)
{
alt_env_set_var(argv[1], "");
return(1);
}
alt_env_set_var(argv[1], name);
XtFree(name);
return(0);
}
int
do_XmGetColors(
int argc,
char *argv[] )
{
wtab_t *w;
char buf[24];
Pixel background;
Pixel foreground;
Pixel topShadow;
Pixel bottomShadow;
Pixel select;
Colormap colormap;
Arg args[5];
char * p;
char * errmsg;
if (argc != 7)
{
errmsg=strdup(GETMESSAGE(
"Usage: XmGetColors widget background foreground topshadow bottomshadow select"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(argv[0], argv[1]);
if (w == NULL)
{
env_blank(argv[3]);
env_blank(argv[4]);
env_blank(argv[5]);
env_blank(argv[6]);
return(1);
}
background = strtoul(argv[2], &p, 0);
if (p == argv[2])
{
errmsg = strdup(GETMESSAGE("The background pixel is invalid: %s"));
printerrf(argv[0], errmsg, argv[2],
NULL, NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
env_blank(argv[3]);
env_blank(argv[4]);
env_blank(argv[5]);
env_blank(argv[6]);
return(1);
}
XtSetArg (args[0], XmNcolormap, &colormap);
XtGetValues (w->w, args, 1);
XmGetColors (XtScreen(w->w), colormap, background, &foreground,
&topShadow, &bottomShadow, &select);
sprintf(buf, "0x%lx", foreground);
env_set_var(argv[3], buf);
sprintf(buf, "0x%lx", topShadow);
env_set_var(argv[4], buf);
sprintf(buf, "0x%lx", bottomShadow);
env_set_var(argv[5], buf);
sprintf(buf, "0x%lx", select);
env_set_var(argv[6], buf);
return(0);
}
int
do_XmUpdateDisplay(
int argc,
char *argv[] )
{
wtab_t *w;
char * p;
char * errmsg;
if (argc != 2)
{
errmsg = strdup(GETMESSAGE("Usage: XmUpdateDisplay widget"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(argv[0], argv[1]);
if (w == NULL)
return(1);
XmUpdateDisplay (w->w);
return(0);
}
static int
AddOrDeleteWMProtocols(
int argc,
char *argv[] )
{
wtab_t *w;
char * p;
Atom * protocolList;
int i;
char * errmsg;
if (argc < 3)
{
errmsg = strdup(GETMESSAGE(
"Usage: %s widget protocol [protocol ...]"));
printerrf(argv[0], errmsg, argv[0],
NULL, NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(argv[0], argv[1]);
if (w == NULL)
return(1);
protocolList = (Atom*)XtMalloc(sizeof(Atom) * (argc - 2));
for (i = 2; i < argc; i++)
{
protocolList[i - 2] = (Atom)strtoul(argv[i], &p, 0);
if (p == argv[i])
{
errmsg = strdup(GETMESSAGE("The atom specified is invalid: %s"));
printerrf(argv[0], errmsg, argv[i],
NULL, NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
XtFree((char *)protocolList);
return(1);
}
}
if (strcmp(argv[0], "XmAddWMProtocols") == 0)
XmAddWMProtocols (w->w, protocolList, argc-2);
else
XmRemoveWMProtocols (w->w, protocolList, argc-2);
XtFree((char *)protocolList);
return(0);
}
int
do_XmAddWMProtocols(
int argc,
char **argv )
{
return (AddOrDeleteWMProtocols(argc, argv));
}
int
do_XmRemoveWMProtocols(
int argc,
char **argv )
{
return (AddOrDeleteWMProtocols(argc, argv));
}
int
do_XmAddWMProtocolCallback(
int argc,
char **argv )
{
char * errmsg;
if (argc != 4)
{
errmsg = strdup(GETMESSAGE(
"Usage: XmAddWMProtocolCallback widget protocol ksh-command"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
return(AddOneCallback(argv[0], argv[1], NULL, argv[3], argv[2]));
}
int
do_XmRemoveWMProtocolCallback(
int argc,
char **argv )
{
char * errmsg;
if (argc != 4)
{
errmsg = strdup(GETMESSAGE(
"Usage: XmRemoveWMProtocolCallback widget protocol ksh-command"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
return(RemoveOneCallback (argv[0], argv[1], NULL, argv[3], argv[2], NULL));
}
int
do_XmMenuPosition(
int argc,
char *argv[] )
{
wtab_t *w;
char * p;
XEvent * event;
char * errmsg;
if (argc != 3)
{
errmsg = strdup(GETMESSAGE("Usage: XmMenuPosition menu event"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(argv[0], argv[1]);
if (w == NULL)
return(1);
event = (XEvent *)strtoul(argv[2], &p, 0);
if (p == argv[2])
{
errmsg = strdup(GETMESSAGE("The specified event is invalid: %s"));
printerrf(argv[0], errmsg, argv[2], NULL,
NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
XmMenuPosition (w->w, (XButtonPressedEvent *)event);
return(0);
}
int
do_XmCommandAppendValue(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t * w;
XmString string;
char * errmsg;
if (argc != 3)
{
errmsg = strdup(GETMESSAGE(
"Usage: XmCommandAppendValue commandWidget string"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(arg0, argv[1]);
if (w == NULL)
return(1);
if (w->wclass->class != xmCommandWidgetClass) {
errmsg = strdup(GetSharedMsg(DT_CMD_WIDGET));
printerr(arg0, errmsg, NULL);
free(errmsg);
return(1);
}
string = XmStringCreateLocalized(argv[2]);
XmCommandAppendValue(w->w, string);
XmStringFree(string);
return(0);
}
int
do_XmCommandError(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t * w;
XmString string;
char * errmsg;
if (argc != 3)
{
errmsg = strdup(GETMESSAGE(
"Usage: XmCommandError commandWidget errorMessage"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(arg0, argv[1]);
if (w == NULL)
return(1);
if (w->wclass->class != xmCommandWidgetClass) {
errmsg = strdup(GetSharedMsg(DT_CMD_WIDGET));
printerr(arg0, errmsg, NULL);
free(errmsg);
return(1);
}
string = XmStringCreateLocalized(argv[2]);
XmCommandError(w->w, string);
XmStringFree(string);
return(0);
}
int
do_XmCommandSetValue(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t * w;
XmString string;
char * errmsg;
if (argc != 3)
{
errmsg = strdup(GETMESSAGE(
"Usage: XmCommandSetValue commandWidget command"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(arg0, argv[1]);
if (w == NULL)
return(1);
if (w->wclass->class != xmCommandWidgetClass) {
errmsg = strdup(GetSharedMsg(DT_CMD_WIDGET));
printerr(arg0, errmsg, NULL);
free(errmsg);
return(1);
}
string = XmStringCreateLocalized(argv[2]);
XmCommandSetValue(w->w, string);
XmStringFree(string);
return(0);
}
int
do_XmCommandGetChild(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t * w;
XmString string;
char * variable = argv[1];
int childType;
XrmValue f, t;
Widget child;
classtab_t *ctab;
char * errmsg;
if (argc != 4)
{
errmsg = strdup(GETMESSAGE(
"Usage: XmCommandGetChild variable commandWidget child"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(arg0, argv[2]);
if (w == NULL) {
alt_env_set_var(variable, "");
return(1);
}
if (w->wclass->class != xmCommandWidgetClass) {
errmsg = strdup(GetSharedMsg(DT_CMD_WIDGET));
printerr(arg0, errmsg, NULL);
free(errmsg);
alt_env_set_var(variable, "");
return(1);
}
f.addr = argv[3];
f.size = strlen(argv[3]) + 1;
t.addr = NULL;
t.size = 0;
XtConvert(w->w, XtRString, &f, "CommandChildType", &t);
if (t.size && t.addr)
childType = *((int *)t.addr);
else
{
errmsg = strdup(GetSharedMsg(DT_UNKNOWN_CHILD_TYPE));
printerrf(argv[0], errmsg, argv[2], NULL, NULL,
NULL, NULL, NULL, NULL, NULL);
free(errmsg);
alt_env_set_var(variable, "");
return(1);
}
child = XmCommandGetChild(w->w, childType);
if (child == NULL)
{
alt_env_set_var(variable, "");
return(1);
}
w = ConvertWidgetToWtab(arg0, child);
alt_env_set_var(variable, w->widid);
return(0);
}
int
do_XmMessageBoxGetChild(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t * w;
XmString string;
char * variable = argv[1];
int childType;
XrmValue f, t;
Widget child;
classtab_t *ctab;
char * errmsg;
if (argc != 4)
{
errmsg = strdup(GETMESSAGE(
"Usage: XmMessageBoxGetChild variable commandWidget child"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(arg0, argv[2]);
if (w == NULL) {
alt_env_set_var(variable, "");
return(1);
}
if (w->wclass->class != xmMessageBoxWidgetClass) {
errmsg = strdup(GETMESSAGE(
"The widget must be a 'messageBox' widget"));
printerr(arg0, errmsg, NULL);
free(errmsg);
alt_env_set_var(variable, "");
return(1);
}
f.addr = argv[3];
f.size = strlen(argv[3]) + 1;
t.addr = NULL;
t.size = 0;
XtConvert(w->w, XtRString, &f, "MessageBoxChildType", &t);
if (t.size && t.addr)
childType = *((int *)t.addr);
else
{
errmsg = strdup(GetSharedMsg(DT_UNKNOWN_CHILD_TYPE));
printerrf(argv[0], errmsg, argv[2], NULL, NULL, NULL,
NULL, NULL, NULL, NULL);
free(errmsg);
alt_env_set_var(variable, "");
return(1);
}
child = XmMessageBoxGetChild(w->w, childType);
if (child == NULL)
{
alt_env_set_var(variable, "");
return(1);
}
w = ConvertWidgetToWtab(arg0, child);
alt_env_set_var(variable, w->widid);
return(0);
}
int
do_XmFileSelectionBoxGetChild(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t * w;
XmString string;
char * variable = argv[1];
int childType;
XrmValue f, t;
Widget child;
classtab_t *ctab;
char * errmsg;
if (argc != 4)
{
errmsg = strdup(GETMESSAGE(
"Usage: XmFileSelectionBoxGetChild variable widget child"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(arg0, argv[2]);
if (w == NULL) {
alt_env_set_var(variable, "");
return(1);
}
if (w->wclass->class != xmFileSelectionBoxWidgetClass) {
errmsg = strdup(GETMESSAGE(
"The widget must be a 'file selection box' widget"));
printerr(arg0, errmsg, NULL);
free(errmsg);
alt_env_set_var(variable, "");
return(1);
}
f.addr = argv[3];
f.size = strlen(argv[3]) + 1;
t.addr = NULL;
t.size = 0;
XtConvert(w->w, XtRString, &f, "FileSelChildType", &t);
if (t.size && t.addr)
childType = *((int *)t.addr);
else
{
errmsg = strdup(GetSharedMsg(DT_UNKNOWN_CHILD_TYPE));
printerrf(argv[0], errmsg, argv[2], NULL, NULL, NULL,
NULL, NULL, NULL, NULL);
free(errmsg);
alt_env_set_var(variable, "");
return(1);
}
child = XmFileSelectionBoxGetChild(w->w, childType);
if (child == NULL)
{
alt_env_set_var(variable, "");
return(1);
}
w = ConvertWidgetToWtab(arg0, child);
alt_env_set_var(variable, w->widid);
return(0);
}
int
do_XmSelectionBoxGetChild(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t * w;
XmString string;
char * variable = argv[1];
int childType;
XrmValue f, t;
Widget child;
classtab_t *ctab;
char * errmsg;
if (argc != 4)
{
errmsg = strdup(GETMESSAGE(
"Usage: XmSelectionBoxGetChild variable widget child"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(arg0, argv[2]);
if (w == NULL) {
alt_env_set_var(variable, "");
return(1);
}
if (w->wclass->class != xmSelectionBoxWidgetClass) {
errmsg = strdup(GETMESSAGE(
"The widget must be a 'selection box' widget"));
printerr(arg0, errmsg, NULL);
free(errmsg);
alt_env_set_var(variable, "");
return(1);
}
f.addr = argv[3];
f.size = strlen(argv[3]) + 1;
t.addr = NULL;
t.size = 0;
XtConvert(w->w, XtRString, &f, "SelBoxChildType", &t);
if (t.size && t.addr)
childType = *((int *)t.addr);
else
{
errmsg = strdup(GetSharedMsg(DT_UNKNOWN_CHILD_TYPE));
printerrf(argv[0], errmsg, argv[2], NULL, NULL, NULL,
NULL, NULL, NULL, NULL);
free(errmsg);
alt_env_set_var(variable, "");
return(1);
}
child = XmSelectionBoxGetChild(w->w, childType);
if (child == NULL)
{
alt_env_set_var(variable, "");
return(1);
}
w = ConvertWidgetToWtab(arg0, child);
alt_env_set_var(variable, w->widid);
return(0);
}
int
do_XmIsTraversable(
int argc,
char *argv[] )
{
return(do_single_widget_test_func((int(*)())XmIsTraversable, argc,
argv));
}
int
do_XmScaleGetValue(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t * w;
char * variable = argv[2];
char buf[25];
int scaleValue;
char * errmsg;
if (argc != 3)
{
errmsg = strdup(GETMESSAGE(
"Usage: XmScaleGetValue scaleWidget variable"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(arg0, argv[1]);
if (w == NULL)
{
env_blank(variable);
return(1);
}
if (w->wclass->class != xmScaleWidgetClass) {
errmsg = strdup(GetSharedMsg(DT_SCALE_WIDGET));
printerr(arg0, errmsg, NULL);
free(errmsg);
env_blank(variable);
return(1);
}
XmScaleGetValue(w->w, &scaleValue);
sprintf(buf, "%d", scaleValue);
env_set_var(variable, buf);
return(0);
}
int
do_XmScaleSetValue(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t * w;
char buf[25];
int scaleValue;
char * p;
char * errmsg;
if (argc != 3)
{
errmsg = strdup(GETMESSAGE(
"Usage: XmScaleSetValue scaleWidget value"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(arg0, argv[1]);
if (w == NULL)
return(1);
if (w->wclass->class != xmScaleWidgetClass) {
errmsg = strdup(GetSharedMsg(DT_SCALE_WIDGET));
printerr(arg0, errmsg, NULL);
free(errmsg);
return(1);
}
scaleValue = strtol(argv[2], &p, 0);
if (p == argv[2])
{
errmsg = strdup(GETMESSAGE(
"The scale value specified is invalid: %s"));
printerrf(arg0, errmsg, argv[2],
NULL, NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
XmScaleSetValue(w->w, scaleValue);
return(0);
}
int
do_XmScrollBarGetValues(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t * w;
char buf[25];
int value;
int sliderSize;
int increment;
int pageIncrement;
Boolean notify;
char * errmsg;
if (argc != 6)
{
errmsg=strdup(GETMESSAGE(
"Usage: XmScrollBarGetValues scrollbar variable variable variable variable"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(arg0, argv[1]);
if (w == NULL)
{
env_blank(argv[2]);
env_blank(argv[3]);
env_blank(argv[4]);
env_blank(argv[5]);
return(1);
}
if (w->wclass->class != xmScrollBarWidgetClass) {
errmsg = strdup(GetSharedMsg(DT_SCROLLBAR_WIDGET));
printerr(arg0, errmsg, NULL);
free(errmsg);
env_blank(argv[2]);
env_blank(argv[3]);
env_blank(argv[4]);
env_blank(argv[5]);
return(1);
}
XmScrollBarGetValues(w->w, &value, &sliderSize, &increment, &pageIncrement);
sprintf(buf, "%d", value);
env_set_var(argv[2], buf);
sprintf(buf, "%d", sliderSize);
env_set_var(argv[3], buf);
sprintf(buf, "%d", increment);
env_set_var(argv[4], buf);
sprintf(buf, "%d", pageIncrement);
env_set_var(argv[5], buf);
return(0);
}
int
do_XmScrollBarSetValues(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t * w;
char buf[25];
int value;
int sliderSize;
int increment;
int pageIncrement;
Boolean notify;
char * p;
XrmValue fval, tval;
char * errmsg;
if (argc != 7)
{
errmsg=strdup(GETMESSAGE(
"Usage: XmScrollBarSetValues scrollbar value sliderSize increment pageIncrement notify"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(arg0, argv[1]);
if (w == NULL)
return(1);
if (w->wclass->class != xmScrollBarWidgetClass) {
errmsg = strdup(GetSharedMsg(DT_SCROLLBAR_WIDGET));
printerr(arg0, errmsg, NULL);
free(errmsg);
return(1);
}
value = strtol(argv[2], &p, 0);
if (p == argv[2])
{
errmsg = strdup(GETMESSAGE("The value specified is invalid: %s"));
printerrf(arg0, errmsg, argv[2], NULL,
NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
sliderSize = strtoul(argv[3], &p, 0);
if (p == argv[3])
{
errmsg = strdup(GETMESSAGE(
"The slider size specified is invalid: %s"));
printerrf(arg0, errmsg, argv[3],
NULL, NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
increment = strtoul(argv[4], &p, 0);
if (p == argv[4])
{
errmsg = strdup(GETMESSAGE(
"The increment specified is invalid: %s"));
printerrf(arg0, errmsg, argv[4],
NULL, NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
pageIncrement = strtoul(argv[5], &p, 0);
if (p == argv[5])
{
errmsg = strdup(GETMESSAGE(
"The page increment specified is invalid: %s"));
printerrf(arg0, errmsg, argv[5],
NULL, NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
fval.addr = argv[6];
fval.size = strlen(argv[6]);
XtConvert(Toplevel, XtRString, &fval, XtRBoolean, &tval);
if (tval.size != 0)
notify = *((Boolean *)(tval.addr));
else
return(1);
XmScrollBarSetValues(w->w, value, sliderSize, increment, pageIncrement,
notify);
return(0);
}
int
do_XmScrollVisible(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t * w;
wtab_t * w2;
char buf[25];
Dimension lrMargin;
Dimension tbMargin;
char * p;
char * errmsg;
if (argc != 5)
{
errmsg=strdup(GETMESSAGE(
"Usage: XmScrollVisible scrolledWin widget leftRightMargin topBottomMargin"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(arg0, argv[1]);
if (w == NULL)
return(1);
if (w->wclass->class != xmScrolledWindowWidgetClass) {
errmsg = strdup(GETMESSAGE(
"The widget must be a 'scrolledWindow' widget"));
printerr(arg0, errmsg, NULL);
free(errmsg);
return(1);
}
w2 = str_to_wtab(arg0, argv[2]);
if (w2 == NULL)
{
errmsg = strdup(GETMESSAGE(
"The widget to be made visible does not exist."));
printerr(arg0, errmsg, NULL);
free(errmsg);
return(1);
}
lrMargin = strtol(argv[3], &p, 0);
if (p == argv[3])
{
errmsg = strdup(GETMESSAGE(
"The left/right margin specified is invalid: %s"));
printerrf(arg0, errmsg, argv[3], NULL, NULL, NULL, NULL, NULL, NULL,
NULL);
free(errmsg);
return(1);
}
tbMargin = strtoul(argv[4], &p, 0);
if (p == argv[4])
{
errmsg = strdup(GETMESSAGE(
"The top/bottom margin specified is invalid: %s"));
printerrf(arg0, errmsg, argv[4], NULL, NULL, NULL, NULL, NULL, NULL,
NULL);
free(errmsg);
return(1);
}
XmScrollVisible(w->w, w2->w, lrMargin, tbMargin);
return(0);
}
static int
GetToggleState(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t * w;
char * errmsg;
if (argc != 2)
{
errmsg = strdup(GetSharedMsg(DT_USAGE_WIDGET));
printerrf(str_nill, errmsg, arg0, NULL, NULL, NULL, NULL,
NULL, NULL, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(arg0, argv[1]);
if (w == NULL)
return(1);
if ((w->wclass->class != xmToggleButtonWidgetClass) &&
(w->wclass->class != xmToggleButtonGadgetClass))
{
errmsg = strdup(GetSharedMsg(DT_TOGGLE_WIDGET));
printerr(arg0, errmsg, NULL);
free(errmsg);
return(1);
}
return(do_single_widget_test_func((int(*)())XmToggleButtonGetState, argc,
argv));
}
int
do_XmToggleButtonGetState(
int argc,
char *argv[] )
{
return (GetToggleState(argc, argv));
}
int
do_XmToggleButtonGadgetGetState(
int argc,
char *argv[] )
{
return (GetToggleState(argc, argv));
}
static int
SetToggleState(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t * w;
XrmValue fval, tval;
Boolean state;
Boolean notify;
char * errmsg;
if (argc != 4)
{
errmsg = strdup(GETMESSAGE("Usage: %s widget state notify"));
printerrf(str_nill, errmsg, arg0, NULL, NULL,
NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(arg0, argv[1]);
if (w == NULL)
return(1);
if ((w->wclass->class != xmToggleButtonWidgetClass) &&
(w->wclass->class != xmToggleButtonGadgetClass))
{
errmsg = strdup(GetSharedMsg(DT_TOGGLE_WIDGET));
printerr(arg0, errmsg, NULL);
free(errmsg);
return(1);
}
fval.addr = argv[2];
fval.size = strlen(argv[2]);
XtConvert(Toplevel, XtRString, &fval, XtRBoolean, &tval);
if (tval.size != 0)
state = *((Boolean *)(tval.addr));
else
return(1);
fval.addr = argv[3];
fval.size = strlen(argv[3]);
XtConvert(Toplevel, XtRString, &fval, XtRBoolean, &tval);
if (tval.size != 0)
notify = *((Boolean *)(tval.addr));
else
return(1);
XmToggleButtonSetState(w->w, state, notify);
return(0);
}
int
do_XmToggleButtonSetState(
int argc,
char *argv[] )
{
return (SetToggleState(argc, argv));
}
int
do_XmToggleButtonGadgetSetState(
int argc,
char *argv[] )
{
return (SetToggleState(argc, argv));
}
int
do_catopen(
int argc,
char **argv )
{
int * lockedFds;
char * arg0 = argv[0];
char * var = argv[1];
char * catName = argv[2];
char buf[10];
char * altCatName;
char * ptr;
nl_catd nlmsg_fd = (nl_catd)-1;
char * errmsg;
char * nextMatch;
if (argc != 3)
{
errmsg = strdup(GETMESSAGE("Usage: catopen variable catName"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
lockedFds = LockKshFileDescriptors();
if ((nlmsg_fd = catopen(catName, 0)) == (nl_catd)-1)
{
/*
* Try several other formats supported by the various
* architectures; i.e. if the catName ends in ".cat",
* then try removing that part, or if the catName does
* not end in ".cat", then try adding it.
*/
altCatName = XtMalloc(strlen(catName) + 10);
/* These platforms don't have strrstr() */
ptr = NULL;
nextMatch = catName;
while (nextMatch = strstr(nextMatch, ".cat"))
{
ptr = nextMatch;
nextMatch++;
}
if (ptr && (strlen(ptr) == 4))
{
/* Strip off the ".cat", and try again */
*ptr = '\0';
strcpy(altCatName, catName);
*ptr = '.';
}
else
{
/* Add the ".cat", and try again */
strcpy(altCatName, catName);
strcat(altCatName, ".cat");
}
nlmsg_fd = catopen(altCatName, 0);
XtFree(altCatName);
}
UnlockKshFileDescriptors(lockedFds);
sprintf(buf, "%ld", (long)nlmsg_fd);
alt_env_set_var(var, buf);
return(0);
}
int
do_catclose(
int argc,
char **argv )
{
char * arg0 = argv[0];
char * catId = argv[1];
nl_catd id;
long long_id;
char * errmsg;
if (argc != 2)
{
errmsg = strdup(GETMESSAGE("Usage: catclose catId"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
sscanf(catId, "%ld", &long_id);
id = (nl_catd)long_id;
catclose(id);
return(0);
}
int
do_catgets(
int argc,
char **argv )
{
char * arg0 = argv[0];
char * variable = argv[1];
char * catId = argv[2];
char * setNum = argv[3];
char * msgNum = argv[4];
char * dftMsg = argv[5];
char * msg;
nl_catd id;
long long_id;
int setNumVal;
int msgNumVal;
char * errmsg;
if (argc != 6)
{
errmsg = strdup(GETMESSAGE(
"Usage: catgets variable catId setNum msgNum dftMsg"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
sscanf(catId, "%ld", &long_id);
id = (nl_catd)long_id;
sscanf(setNum, "%d", &setNumVal);
sscanf(msgNum, "%d", &msgNumVal);
msg = catgets(id, setNumVal, msgNumVal, dftMsg);
alt_env_set_var(variable, msg);
return(0);
}
static wtab_t *
verifyTextWidget(
char *cmd,
char *widget )
{
wtab_t *w;
char * errmsg;
if ((w = str_to_wtab(cmd, widget)) == NULL)
return(NULL);
if ((w->wclass->class != xmTextWidgetClass) &&
(w->wclass->class != xmTextFieldWidgetClass))
{
errmsg = strdup(GETMESSAGE(
"The widget must be a 'text' or 'textField' widget"));
printerr(cmd, errmsg, NULL);
free(errmsg);
return(NULL);
}
return(w);
}
static int
Text_Widget(
Boolean (*func)(),
Boolean returnBoolean,
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
Boolean result;
char * errmsg;
if (argc != 2)
{
errmsg = strdup(GetSharedMsg(DT_USAGE_WIDGET));
printerrf(str_nill, errmsg, arg0, NULL, NULL, NULL, NULL, NULL,
NULL, NULL);
free(errmsg);
return(1);
}
if ((w = verifyTextWidget(argv[0], argv[1])) == NULL)
return(1);
result = (*func) (w->w);
if (returnBoolean)
return(!result);
else
return(0);
}
int
do_XmTextDisableRedisplay(
int argc,
char *argv[] )
{
return (Text_Widget((Boolean (*)())XmTextDisableRedisplay, False, argc,
argv));
}
int
do_XmTextEnableRedisplay(
int argc,
char *argv[] )
{
return (Text_Widget((Boolean (*)())XmTextEnableRedisplay, False, argc,
argv));
}
int
do_XmTextPaste(
int argc,
char *argv[] )
{
return (Text_Widget(XmTextPaste, True, argc, argv));
}
int
do_XmTextGetEditable(
int argc,
char *argv[] )
{
return (Text_Widget(XmTextGetEditable, True, argc, argv));
}
int
do_XmTextRemove(
int argc,
char *argv[] )
{
return (Text_Widget(XmTextRemove, True, argc, argv));
}
static int
Text_VarAndWidget(
long (*func)(Widget w),
Boolean varIsString,
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
int result;
char * string;
char buf[10];
char * errmsg;
if (argc != 3)
{
errmsg = strdup(GETMESSAGE("Usage: %s variable widget"));
printerrf(str_nill, errmsg, arg0, NULL, NULL, NULL,
NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
if ((w = verifyTextWidget(argv[0], argv[2])) == NULL)
{
alt_env_set_var(argv[1], "");
return(1);
}
if (varIsString)
{
string = (char *)(*func) (w->w);
alt_env_set_var(argv[1], string);
XtFree(string);
return(0);
}
else
{
result = (*func) (w->w);
sprintf(buf, "%d", result);
alt_env_set_var(argv[1], buf);
return(0);
}
}
int
do_XmTextGetTopCharacter(
int argc,
char *argv[] )
{
return (Text_VarAndWidget((long (*)())XmTextGetTopCharacter, False, argc,
argv));
}
int
do_XmTextGetBaseline(
int argc,
char *argv[] )
{
return (Text_VarAndWidget((long (*)())XmTextGetBaseline, False, argc, argv));
}
int
do_XmTextGetInsertionPosition(
int argc,
char *argv[] )
{
return (Text_VarAndWidget((long (*)())XmTextGetInsertionPosition, False,
argc, argv));
}
int
do_XmTextGetLastPosition(
int argc,
char *argv[] )
{
return (Text_VarAndWidget((long (*)())XmTextGetLastPosition, False, argc,
argv));
}
int
do_XmTextGetMaxLength(
int argc,
char *argv[] )
{
return (Text_VarAndWidget((long (*)())XmTextGetMaxLength, False, argc, argv));
}
int
do_XmTextGetSelection(
int argc,
char *argv[] )
{
return (Text_VarAndWidget((long (*)())XmTextGetSelection, True, argc, argv));
}
int
do_XmTextGetString(
int argc,
char *argv[] )
{
return (Text_VarAndWidget((long (*)())XmTextGetString, True, argc, argv));
}
static int
Text_WidgetAndBoolean(
void (*func)(Widget w, int b),
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
char buf[10];
Boolean boolean;
XrmValue fval, tval;
char * errmsg;
if (argc != 3)
{
errmsg = strdup(GETMESSAGE("Usage: %s widget boolean"));
printerrf(str_nill, errmsg, arg0, NULL, NULL, NULL,
NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
if ((w = verifyTextWidget(argv[0], argv[1])) == NULL)
return(1);
fval.addr = argv[2];
fval.size = strlen(argv[2]);
XtConvert(Toplevel, XtRString, &fval, XtRBoolean, &tval);
if (tval.size != 0)
boolean = *((Boolean *)(tval.addr));
else
return(1);
(*func) (w->w, boolean);
return(0);
}
int
do_XmTextSetEditable(
int argc,
char *argv[] )
{
return (Text_WidgetAndBoolean(XmTextSetEditable, argc, argv));
}
int
do_XmTextSetAddMode(
int argc,
char *argv[] )
{
return (Text_WidgetAndBoolean(XmTextSetAddMode, argc, argv));
}
static int
Text_WidgetAndOneParam(
Boolean (*func)(),
Boolean returnBoolean,
Boolean paramIsString,
char *usageMsg,
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
Boolean result;
int string;
char buf[10];
char * p;
int param;
char * errmsg;
if (argc != 3)
{
printerrf(str_nill, usageMsg, arg0, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
return(1);
}
if ((w = verifyTextWidget(argv[0], argv[1])) == NULL)
return(1);
if (paramIsString)
result = (*func) (w->w, argv[2]);
else
{
param = strtoul(argv[2], &p, 0);
if (p == argv[2])
{
errmsg = strdup(GETMESSAGE(
"The parameter specified is invalid: %s"));
printerrf(arg0, errmsg, argv[2],
NULL, NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
result = (*func) (w->w, param);
}
if (returnBoolean)
return (!result);
else
return(0);
}
int
do_XmTextScroll(
int argc,
char *argv[] )
{
char * errmsg;
int retVal;
errmsg = strdup(GETMESSAGE("Usage: %s widget lines"));
retVal = Text_WidgetAndOneParam((Boolean (*)())XmTextScroll, False, False,
errmsg, argc, argv);
free(errmsg);
return (retVal);
}
int
do_XmTextSetInsertionPosition(
int argc,
char *argv[] )
{
char * errmsg;
int retVal;
errmsg = strdup(GetSharedMsg(DT_USAGE_WIDGET_POS));
retVal = Text_WidgetAndOneParam((Boolean (*)())XmTextSetInsertionPosition,
False, False, errmsg, argc, argv);
free(errmsg);
return(retVal);
}
int
do_XmTextSetTopCharacter(
int argc,
char *argv[] )
{
char * errmsg;
int retVal;
errmsg = strdup(GetSharedMsg(DT_USAGE_WIDGET_POS));
retVal = Text_WidgetAndOneParam((Boolean (*)())XmTextSetTopCharacter, False,
False, errmsg, argc, argv);
free(errmsg);
return(retVal);
}
int
do_XmTextSetMaxLength(
int argc,
char *argv[] )
{
char * errmsg;
int retVal;
errmsg = strdup(GETMESSAGE("Usage: %s widget maxLength"));
retVal = Text_WidgetAndOneParam((Boolean (*)())XmTextSetMaxLength, False,
False, errmsg, argc, argv);
free(errmsg);
return(retVal);
}
int
do_XmTextSetString(
int argc,
char *argv[] )
{
char * errmsg;
int retVal;
errmsg = strdup(GETMESSAGE("Usage: %s widget string"));
retVal = Text_WidgetAndOneParam((Boolean (*)())XmTextSetString, False, True,
errmsg, argc, argv);
free(errmsg);
return(retVal);
}
int
do_XmTextShowPosition(
int argc,
char *argv[] )
{
char * errmsg;
int retVal;
errmsg = strdup(GetSharedMsg(DT_USAGE_WIDGET_POS));
retVal = Text_WidgetAndOneParam((Boolean (*)())XmTextShowPosition, False,
False, errmsg, argc, argv);
free(errmsg);
return(retVal);
}
int
do_XmTextClearSelection(
int argc,
char *argv[] )
{
char * errmsg;
int retVal;
errmsg = strdup(GetSharedMsg(DT_USAGE_WIDGET_TIME));
retVal = Text_WidgetAndOneParam((Boolean (*)())XmTextClearSelection, False,
False, errmsg, argc, argv);
free(errmsg);
return(retVal);
}
int
do_XmTextCopy(
int argc,
char *argv[] )
{
char * errmsg;
int retVal;
errmsg = strdup(GetSharedMsg(DT_USAGE_WIDGET_TIME));
retVal = Text_WidgetAndOneParam(XmTextCopy, True, False, errmsg, argc, argv);
free(errmsg);
return(retVal);
}
int
do_XmTextCut(
int argc,
char *argv[] )
{
char * errmsg;
int retVal;
errmsg = strdup(GetSharedMsg(DT_USAGE_WIDGET_TIME));
retVal = Text_WidgetAndOneParam(XmTextCut, True, False, errmsg, argc, argv);
free(errmsg);
return(retVal);
}
int
do_XmTextGetSelectionPosition(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
char buf[10];
XmTextPosition left;
XmTextPosition right;
Boolean result;
char * errmsg;
if (argc != 4)
{
errmsg = strdup(GETMESSAGE("Usage: %s widget variable variable"));
printerrf(str_nill, errmsg, arg0, NULL, NULL,
NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
if ((w = verifyTextWidget(argv[0], argv[1])) == NULL)
{
env_blank(argv[2]);
env_blank(argv[3]);
return(1);
}
result = XmTextGetSelectionPosition(w->w, &left, &right);
if (result)
{
sprintf(buf, "%ld", left);
env_set_var(argv[2], buf);
sprintf(buf, "%ld", right);
env_set_var(argv[3], buf);
}
else
{
env_blank(argv[2]);
env_blank(argv[3]);
}
return(!result);
}
int
do_XmTextInsert(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
XmTextPosition position;
char * p;
char * errmsg;
if (argc != 4)
{
errmsg = strdup(GETMESSAGE("Usage: %s widget position string"));
printerrf(str_nill, errmsg, arg0, NULL, NULL,
NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
if ((w = verifyTextWidget(argv[0], argv[1])) == NULL)
return(1);
position = strtoul(argv[2], &p, 0);
if (p == argv[2])
{
errmsg = strdup(GetSharedMsg(DT_BAD_POSITION));
printerrf(arg0, errmsg, argv[2],
NULL, NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
XmTextInsert(w->w, position, argv[3]);
return(0);
}
int
do_XmTextPosToXY(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
XmTextPosition position;
Position x;
Position y;
char * p;
Boolean result;
char buf[10];
char * errmsg;
if (argc != 5)
{
errmsg = strdup(GETMESSAGE(
"Usage: %s widget position variable variable"));
printerrf(str_nill, errmsg, arg0, NULL,
NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
if ((w = verifyTextWidget(argv[0], argv[1])) == NULL)
{
env_blank(argv[3]);
env_blank(argv[4]);
return(1);
}
position = strtoul(argv[2], &p, 0);
if (p == argv[2])
{
errmsg = strdup(GetSharedMsg(DT_BAD_POSITION));
printerrf(arg0, errmsg, argv[2], NULL,
NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
env_blank(argv[3]);
env_blank(argv[4]);
return(1);
}
result = XmTextPosToXY(w->w, position, &x, &y);
if (result)
{
sprintf(buf, "%d", x);
env_set_var(argv[3], buf);
sprintf(buf, "%d", y);
env_set_var(argv[4], buf);
}
else
{
env_blank(argv[3]);
env_blank(argv[4]);
}
return(!result);
}
int
do_XmTextReplace(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
XmTextPosition from;
XmTextPosition to;
char * p;
char * errmsg;
if (argc != 5)
{
errmsg = strdup(GETMESSAGE(
"Usage: %s widget fromPosition toPosition string"));
printerrf(str_nill, errmsg, arg0, NULL,
NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
if ((w = verifyTextWidget(argv[0], argv[1])) == NULL)
return(1);
from = strtoul(argv[2], &p, 0);
if (p == argv[2])
{
errmsg = strdup(GETMESSAGE(
"The 'from' position specified is invalid: %s"));
printerrf(arg0, errmsg, argv[2],
NULL, NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
to = strtoul(argv[3], &p, 0);
if (p == argv[3])
{
errmsg = strdup(GETMESSAGE(
"The 'to' position specified is invalid: %s"));
printerrf(arg0, errmsg, argv[3],
NULL, NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
XmTextReplace(w->w, from, to, argv[4]);
return(0);
}
int
do_XmTextSetSelection(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
XmTextPosition first;
XmTextPosition last;
Time time;
char * p;
char * errmsg;
if (argc != 5)
{
errmsg = strdup(GETMESSAGE(
"Usage: %s widget firstPosition lastPosition time"));
printerrf(str_nill, errmsg, arg0, NULL,
NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
if ((w = verifyTextWidget(argv[0], argv[1])) == NULL)
return(1);
first = strtoul(argv[2], &p, 0);
if (p == argv[2])
{
errmsg = strdup(GETMESSAGE(
"The first position specified is invalid: %s"));
printerrf(arg0, errmsg, argv[2],
NULL, NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
last = strtoul(argv[3], &p, 0);
if (p == argv[3])
{
errmsg = strdup(GETMESSAGE(
"The last position specified is invalid: %s"));
printerrf(arg0, errmsg, argv[3],
NULL, NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
time = strtoul(argv[4], &p, 0);
if (p == argv[4])
{
errmsg = strdup(GETMESSAGE("The time specified is invalid: %s"));
printerrf(arg0, errmsg, argv[4],
NULL, NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
XmTextSetSelection(w->w, first, last, time);
return(0);
}
int
do_XmTextXYToPos(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
Position x;
Position y;
XmTextPosition position;
char * p;
char buf[10];
char * errmsg;
if (argc != 5)
{
errmsg = strdup(GETMESSAGE("Usage: %s variable widget x y"));
printerrf(str_nill, errmsg, arg0, NULL, NULL,
NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
if ((w = verifyTextWidget(argv[0], argv[2])) == NULL)
{
alt_env_set_var(argv[1], "");
return(1);
}
x = strtoul(argv[3], &p, 0);
if (p == argv[3])
{
errmsg = strdup(GETMESSAGE(
"The x position specified is invalid: %s"));
printerrf(arg0, errmsg, argv[3],
NULL, NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
alt_env_set_var(argv[1], "");
return(1);
}
y = strtoul(argv[4], &p, 0);
if (p == argv[4])
{
errmsg = strdup(GETMESSAGE(
"The y position specified is invalid: %s"));
printerrf(arg0, errmsg, argv[4],
NULL, NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
alt_env_set_var(argv[1], "");
return(1);
}
position = XmTextXYToPos(w->w, x, y);
sprintf(buf, "%ld", position);
alt_env_set_var(argv[1], buf);
return(0);
}
int
do_XmTextSetHighlight(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
XmTextPosition left;
XmTextPosition right;
XmHighlightMode mode;
char * p;
XrmValue fval, tval;
char * errmsg;
if (argc != 5)
{
errmsg = strdup(GETMESSAGE("Usage: %s widget left right mode"));
printerrf(str_nill, errmsg, arg0, NULL, NULL,
NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
if ((w = verifyTextWidget(argv[0], argv[1])) == NULL)
return(1);
left = strtoul(argv[2], &p, 0);
if (p == argv[2])
{
errmsg = strdup(GETMESSAGE(
"The left position specified is invalid: %s"));
printerrf(arg0, errmsg, argv[2],
NULL, NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
right = strtoul(argv[3], &p, 0);
if (p == argv[3])
{
errmsg = strdup(GETMESSAGE(
"The right position specified is invalid: %s"));
printerrf(arg0, errmsg, argv[3],
NULL, NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
fval.addr = argv[4];
fval.size = strlen(argv[4]);
XtConvert(Toplevel, XtRString, &fval, "TextHighlightMode", &tval);
if (tval.size != 0)
mode = *((XmHighlightMode *)(tval.addr));
else
return(1);
XmTextSetHighlight(w->w, left, right, mode);
return(0);
}
int
do_XmTextFindString(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
XmTextPosition start;
XmTextDirection direction;
XmTextPosition position;
char * p;
XrmValue fval, tval;
Boolean result;
char buf[10];
char * errmsg;
if (argc != 6)
{
errmsg = strdup(GETMESSAGE(
"Usage: %s widget start string direction variable"));
printerrf(str_nill, errmsg, arg0, NULL,
NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
if ((w = verifyTextWidget(argv[0], argv[1])) == NULL)
{
env_blank(argv[5]);
return(1);
}
start = strtoul(argv[2], &p, 0);
if (p == argv[2])
{
errmsg = strdup(GETMESSAGE(
"The start position specified is invalid: %s"));
printerrf(arg0, errmsg, argv[2],
NULL, NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
env_blank(argv[5]);
return(1);
}
fval.addr = argv[4];
fval.size = strlen(argv[4]);
XtConvert(Toplevel, XtRString, &fval, "TextSearchDirection", &tval);
if (tval.size != 0)
direction = *((XmTextDirection *)(tval.addr));
else
{
env_blank(argv[5]);
return(1);
}
result = XmTextFindString(w->w, start, argv[3], direction, &position);
if (result)
{
sprintf(buf, "%ld", position);
env_set_var(argv[5], buf);
}
else
env_blank(argv[5]);
return(!result);
}
static int
GetSubWidget(
char * errmsg,
Widget (*func)(),
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t * w;
char * variable = argv[1];
Widget child;
if (argc != 3)
{
printerr(str_nill, errmsg, NULL);
return(1);
}
w = str_to_wtab(arg0, argv[2]);
if (w == NULL) {
alt_env_set_var(variable, "");
return(1);
}
child = (*func)(w->w);
if (child == NULL)
{
alt_env_set_var(variable, "");
return(1);
}
w = ConvertWidgetToWtab(arg0, child);
alt_env_set_var(variable, w->widid);
return(0);
}
int
do_XmOptionLabelGadget(
int argc,
char *argv[] )
{
int retVal;
char * errmsg;
errmsg = strdup(GETMESSAGE(
"Usage: XmOptionLabelGadget variable widget"));
retVal = GetSubWidget(errmsg, XmOptionLabelGadget, argc, argv);
XtFree(errmsg);
return(retVal);
}
int
do_XmOptionButtonGadget(
int argc,
char *argv[] )
{
int retVal;
char * errmsg;
errmsg = strdup(GETMESSAGE(
"Usage: XmOptionButtonGadget variable widget"));
retVal = GetSubWidget(errmsg, XmOptionButtonGadget, argc, argv);
XtFree(errmsg);
return(retVal);
}
int
do_XmGetVisibility(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t * w;
char * results = argv[1];
XrmValue f, t;
XmVisibility res;
char * errmsg;
if (argc != 3)
{
errmsg = strdup(GETMESSAGE(
"Usage: XmGetVisibility variable widget"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(arg0, argv[2]);
if (w == NULL) {
alt_env_set_var(results, "");
return(1);
}
res = XmGetVisibility(w->w);
f.addr = (caddr_t)&res;
f.size = sizeof(XmVisibility);
t.addr = NULL;
t.size = 0;
XtConvert(w->w, "VisibilityType", &f, XtRString, &t);
alt_env_set_var(results, (char *)(t.addr));
return(0);
}
int
do_XmGetTearOffControl(
int argc,
char *argv[] )
{
int retVal;
char * errmsg;
errmsg = strdup(GETMESSAGE(
"Usage: XmGetTearOffControl variable widget"));
retVal = GetSubWidget(errmsg, XmGetTearOffControl, argc, argv);
XtFree(errmsg);
return(retVal);
}
int
do_XmGetTabGroup(
int argc,
char *argv[] )
{
int retVal;
char * errmsg;
errmsg = strdup(GETMESSAGE(
"Usage: XmGetTabGroup variable widget"));
retVal = GetSubWidget(errmsg, XmGetTabGroup, argc, argv);
XtFree(errmsg);
return(retVal);
}
int
do_XmGetPostedFromWidget(
int argc,
char *argv[] )
{
int retVal;
char * errmsg;
errmsg = strdup(GETMESSAGE(
"Usage: XmGetPostedFromWidget variable widget"));
retVal = GetSubWidget(errmsg, XmGetPostedFromWidget, argc, argv);
XtFree(errmsg);
return(retVal);
}
int
do_XmGetFocusWidget(
int argc,
char *argv[] )
{
int retVal;
char * errmsg;
errmsg = strdup(GETMESSAGE(
"Usage: XmGetFocusWidget variable widget"));
retVal = GetSubWidget(errmsg, XmGetFocusWidget, argc, argv);
XtFree(errmsg);
return(retVal);
}
int
do_XmFileSelectionDoSearch(
int argc,
char *argv[] )
{
char *arg0 = argv[0];
wtab_t *w;
XmString string;
char * errmsg;
if (argc != 3)
{
errmsg = strdup(GETMESSAGE(
"Usage: XmFileSelectionDoSearch widget directoryMask"));
printerr(str_nill, errmsg, NULL);
free(errmsg);
return(1);
}
w = str_to_wtab(arg0, argv[1]);
if (w == NULL)
return(1);
string = XmStringCreateLocalized(argv[2]);
XmFileSelectionDoSearch(w->w, string);
XmStringFree(string);
return(0);
}
static int
_CreatePDMJobSetup(
Widget (*func)(),
int argc,
char *argv[] )
{
Widget widget, realparent;
classtab_t *class;
char *arg0 = argv[0];
wtab_t *w, *pw, *wtab, *parenttab;
char *parentid, *var;
int i;
int n;
char * errmsg;
WidgetClass wclass;
if (argc < 2) {
errmsg = strdup(GETMESSAGE(
"Usage: %s variable parent"));
printerrf(str_nill, errmsg, argv[0], NULL,
NULL, NULL, NULL, NULL, NULL, NULL);
free(errmsg);
return(1);
}
var = argv[1];
parentid = argv[2];
pw = str_to_wtab(argv[0], parentid);
if (pw == NULL) {
errmsg = strdup(GetSharedMsg(DT_NO_PARENT));
printerr(argv[0], errmsg, NULL);
free(errmsg);
return(1);
}
widget = func(pw->w);
wclass = XtClass(widget);
if ((class = str_to_class(arg0, wclass->core_class.class_name)) == NULL) {
return(1);
}
if (widget != NULL) {
/* Some of the XmCreate* functions return a widget
* id whose parent is not necessarily the parent
* passed in. For example, DialogShell returns the
* widget of the dialog, not the Shell which is the
* real parent.
*
* So, we check to see if the parent is the same as
* the passed-in parent, and if not then we create
* a new entry for the real parent.
*/
realparent = XtParent(widget);
if (realparent != pw->w) {
parenttab = (wtab_t *)widget_to_wtab(realparent);
} else
parenttab = pw;
wtab = set_up_w(widget, parenttab, var, XtName(widget), class);
} else {
errmsg = strdup(GetSharedMsg(DT_WIDGET_CREATE_FAILED));
printerrf(argv[0], errmsg,
wclass->core_class.class_name, NULL, NULL, NULL,
NULL, NULL, NULL, NULL);
free(errmsg);
env_blank(argv[1]);
}
return(0);
}
int
do_DtCreatePDMJobSetup(
int argc,
char *argv[] )
{
return(_CreatePDMJobSetup(_DtCreatePDMJobSetup, argc, argv));
}
Reference in New Issue View Git Blame Copy Permalink