Initial import of the CDE 2.1.30 sources from the Open Group.
This commit is contained in:
Peter Howkins
203
cde/programs/dtcreate/OpenFile.c
Normal file
203
cde/programs/dtcreate/OpenFile.c
Normal file
@@ -0,0 +1,203 @@
|
||||
/* $XConsortium: OpenFile.c /main/6 1996/10/17 14:06:40 rswiston $ */
|
||||
/*******************************************************************************
|
||||
OpenFile.c
|
||||
|
||||
Associated Header file: OpenFile.h
|
||||
*******************************************************************************/
|
||||
|
||||
#include <stdio.h>
|
||||
#include <Xm/Xm.h>
|
||||
#include <Xm/MwmUtil.h>
|
||||
#include <Xm/DialogS.h>
|
||||
#include <Xm/MenuShell.h>
|
||||
#include <Xm/FileSB.h>
|
||||
#include <Dt/Icon.h>
|
||||
#include "UxXt.h"
|
||||
#include "dtcreate.h"
|
||||
#include "cmnrtns.h"
|
||||
#include "ca_aux.h"
|
||||
#include "fileio.h"
|
||||
|
||||
#define CONTEXT_MACRO_ACCESS 1
|
||||
#include "OpenFile.h"
|
||||
#undef CONTEXT_MACRO_ACCESS
|
||||
|
||||
extern XtPointer
|
||||
_XmStringUngenerate(XmString, XmStringTag, XmTextType, XmTextType);
|
||||
|
||||
/*******************************************************************************
|
||||
The following are callback functions.
|
||||
*******************************************************************************/
|
||||
|
||||
static void cancelCB_OpenFile( Widget UxWidget,
|
||||
XtPointer UxClientData,
|
||||
XtPointer UxCallbackArg )
|
||||
|
||||
{
|
||||
_UxCOpenFile *UxSaveCtx, *UxContext;
|
||||
|
||||
UxSaveCtx = UxOpenFileContext;
|
||||
UxOpenFileContext = UxContext =
|
||||
(_UxCOpenFile *) UxGetContext( UxWidget );
|
||||
{
|
||||
|
||||
UxPopdownInterface(UxWidget);
|
||||
}
|
||||
UxOpenFileContext = UxSaveCtx;
|
||||
}
|
||||
|
||||
static void okCallback_OpenFile( Widget UxWidget,
|
||||
XtPointer UxClientData,
|
||||
XtPointer UxCallbackArg )
|
||||
|
||||
{
|
||||
_UxCOpenFile *UxSaveCtx, *UxContext;
|
||||
XmFileSelectionBoxCallbackStruct *cbs;
|
||||
/*char *text;*/
|
||||
int rc;
|
||||
ActionData ADTmp;
|
||||
|
||||
UxSaveCtx = UxOpenFileContext;
|
||||
UxOpenFileContext = UxContext =
|
||||
(_UxCOpenFile *) UxGetContext( UxWidget );
|
||||
{
|
||||
|
||||
/********************************************************************/
|
||||
/* Call file parsing code here! */
|
||||
/********************************************************************/
|
||||
cbs = (XmFileSelectionBoxCallbackStruct *)UxCallbackArg;
|
||||
if (pszFileToEdit) {
|
||||
XtFree(pszFileToEdit);
|
||||
}
|
||||
pszFileToEdit =
|
||||
_XmStringUngenerate(cbs->value, NULL,
|
||||
XmCHARSET_TEXT, XmCHARSET_TEXT);
|
||||
if (pszFileToEdit != (char *)NULL) {
|
||||
memset(&ADTmp, 0, sizeof(ActionData));
|
||||
rc = OpenDefinitionFile(pszFileToEdit, &ADTmp);
|
||||
/*XtFree(text);*/
|
||||
/*****************************************************************/
|
||||
/* If everything ok, then clear out data from action structure */
|
||||
/* and store new data. */
|
||||
/*****************************************************************/
|
||||
if (!rc) {
|
||||
FreeAndClearAD(&AD);
|
||||
memcpy(&AD, &ADTmp, sizeof(ActionData));
|
||||
}
|
||||
}
|
||||
UxPopdownInterface (UxWidget);
|
||||
|
||||
/********************************************************************/
|
||||
/* If successfully opened and parsed file, then init the fields of */
|
||||
/* the main window. */
|
||||
/********************************************************************/
|
||||
if (!rc) {
|
||||
clear_CreateActionAppShell_fields();
|
||||
writeCAToGUI(&AD);
|
||||
}
|
||||
}
|
||||
UxOpenFileContext = UxSaveCtx;
|
||||
}
|
||||
|
||||
static void helpCallback_OpenFile( Widget UxWidget,
|
||||
XtPointer UxClientData,
|
||||
XtPointer UxCallbackArg )
|
||||
|
||||
{
|
||||
_UxCOpenFile *UxSaveCtx, *UxContext;
|
||||
|
||||
UxSaveCtx = UxOpenFileContext;
|
||||
UxOpenFileContext = UxContext =
|
||||
(_UxCOpenFile *) UxGetContext( UxWidget );
|
||||
{
|
||||
DisplayHelpDialog(UxWidget, HELP_OPENFILE, UxCallbackArg);
|
||||
}
|
||||
UxOpenFileContext = UxSaveCtx;
|
||||
}
|
||||
|
||||
/*******************************************************************************
|
||||
The 'build_' function creates all the widgets
|
||||
using the resource values specified in the Property Editor.
|
||||
*******************************************************************************/
|
||||
|
||||
static Widget _Uxbuild_OpenFile(void)
|
||||
{
|
||||
Widget _UxParent;
|
||||
|
||||
/* Creation of OpenFile */
|
||||
_UxParent = XtVaCreatePopupShell( "OpenFile_shell",
|
||||
xmDialogShellWidgetClass, UxTopLevel,
|
||||
XmNx, 200,
|
||||
XmNy, 290,
|
||||
XmNwidth, 398,
|
||||
XmNheight, 500,
|
||||
XmNallowShellResize, TRUE,
|
||||
XmNshellUnitType, XmPIXELS,
|
||||
XmNtitle, GETMESSAGE(12, 25, "Create Action - Open"),
|
||||
NULL );
|
||||
|
||||
OpenFile = XtVaCreateWidget( "OpenFile",
|
||||
xmFileSelectionBoxWidgetClass,
|
||||
_UxParent,
|
||||
XmNresizePolicy, XmRESIZE_GROW,
|
||||
XmNunitType, XmPIXELS,
|
||||
XmNwidth, 398,
|
||||
XmNheight, 500,
|
||||
RES_CONVERT( XmNdialogTitle, GETMESSAGE(12, 25, "Create Action - Open")),
|
||||
RES_CONVERT( XmNdirectory, "" ),
|
||||
RES_CONVERT( XmNtextString, "" ),
|
||||
RES_CONVERT( XmNdirSpec, "" ),
|
||||
XmNdialogType, XmDIALOG_FILE_SELECTION,
|
||||
XmNtextColumns, 20,
|
||||
XmNdialogStyle, XmDIALOG_FULL_APPLICATION_MODAL,
|
||||
XmNallowOverlap, FALSE,
|
||||
RES_CONVERT( XmNchildPlacement, "place_below_selection" ),
|
||||
XmNdefaultPosition, FALSE,
|
||||
RES_CONVERT( XmNdirMask, "" ),
|
||||
RES_CONVERT( XmNpattern, "" ),
|
||||
NULL );
|
||||
XtAddCallback( OpenFile, XmNcancelCallback,
|
||||
(XtCallbackProc) cancelCB_OpenFile,
|
||||
(XtPointer) UxOpenFileContext );
|
||||
XtAddCallback( OpenFile, XmNokCallback,
|
||||
(XtCallbackProc) okCallback_OpenFile,
|
||||
(XtPointer) UxOpenFileContext );
|
||||
XtAddCallback( OpenFile, XmNhelpCallback,
|
||||
(XtCallbackProc) helpCallback_OpenFile,
|
||||
(XtPointer) UxOpenFileContext );
|
||||
XtVaSetValues(OpenFile, XmNuserData, OpenFile, NULL);
|
||||
|
||||
UxPutContext( OpenFile, (char *) UxOpenFileContext );
|
||||
|
||||
XtAddCallback( OpenFile, XmNdestroyCallback,
|
||||
(XtCallbackProc) UxDestroyContextCB,
|
||||
(XtPointer) UxOpenFileContext);
|
||||
|
||||
return ( OpenFile );
|
||||
}
|
||||
|
||||
/*******************************************************************************
|
||||
The following is the 'Interface function' which is the
|
||||
external entry point for creating this interface.
|
||||
This function should be called from your application or from
|
||||
a callback function.
|
||||
*******************************************************************************/
|
||||
|
||||
Widget create_OpenFile(void)
|
||||
{
|
||||
Widget rtrn;
|
||||
_UxCOpenFile *UxContext;
|
||||
|
||||
UxOpenFileContext = UxContext =
|
||||
(_UxCOpenFile *) UxNewContext( sizeof(_UxCOpenFile), False );
|
||||
|
||||
|
||||
rtrn = _Uxbuild_OpenFile();
|
||||
|
||||
return(rtrn);
|
||||
}
|
||||
|
||||
/*******************************************************************************
|
||||
END OF FILE
|
||||
*******************************************************************************/
|
||||
|
||||
Reference in New Issue
Block a user