/* @(#)XIrspec.c 17.1.1.1 (ES0-DMD) 01/25/02 17:30:04 */ /*=========================================================================== Copyright (C) 1995 European Southern Observatory (ESO) This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Massachusetss Ave, Cambridge, MA 02139, USA. Corresponding concerning ESO-MIDAS should be addressed as follows: Internet e-mail: midas@eso.org Postal address: European Southern Observatory Data Management Division Karl-Schwarzschild-Strasse 2 D 85748 Garching bei Muenchen GERMANY ===========================================================================*/ /*------------------------------------------------------------ * This is the project main program file for Ux generated * code. You may add application dependent source code * at the appropriate places. * * Do not modify the statements preceded by the dollar * sign ($), these statements will be replaced with * the appropriate source code when the main program is * automatically generated. * * $Date: 92/01/26 13:01:45 $ $Revision: 1.9.36.1 $ *-----------------------------------------------------------*/ #ifdef XOPEN_CATALOG #include #endif #include /*---------------------------------------------- * Insert application global declarations here *---------------------------------------------*/ #include #include #include #include #include /* variables for file list management */ swidget FileListInterface, TextFieldSwidget; Widget FileListWidget; int FillTextField; char DirSpecs[MAXLINE]; extern swidget create_file_list(); main(argc,argv) int argc; char *argv[]; { /*----------------------------------------------------------- * Declarations. * The default identifier - mainIface will only be declared * if the interface function is global and of type swidget. * To change the identifier to a different name, modify the * string mainIface in the file "main.dat". If "mainIface" * is declared, it will be used below where the return value * of PJ_INTERFACE_FUNCTION_CALL will be assigned to it. *-----------------------------------------------------------*/ int cntflag = 1, logflag = 2, dispflag = 1; swidget mainIface; /*-------------------------------- * Interface function declaration *-------------------------------*/ swidget create_ApplicWindow(); /*--------------------- * Initialize Program *--------------------*/ #ifdef XOPEN_CATALOG setlocale(LC_ALL, ""); #endif UxTopLevel = UxInitialize("XIrspec", &argc, argv); /*------------------------------------------------------ * Insert initialization code for your application here *-----------------------------------------------------*/ SetResources(argc, argv); SCSPRO("XIRSPE"); SCECNT("PUT", &cntflag, &logflag, &dispflag); MonitorPid = atoi(argv[1]); FileListInterface = create_file_list(); /*---------------------------------------------------------------- * Create and popup the first window of the interface. The * return value can be used in the popdown or destroy functions. * The swidget return value of PJ_INTERFACE_FUNCTION_CALL will * be assigned to "mainIface" from PJ_INTERFACE_RETVAL_TYPE. *---------------------------------------------------------------*/ mainIface = create_ApplicWindow(); UxPopupInterface(mainIface, no_grab); /*------------------------- * Enter the event loop *------------------------*/ signal(SIGINT, SIG_IGN); signal(SIGQUIT, SIG_IGN); UxMainLoop(); }