distrib/sources/tas/xtas/xtas_getdetail.c

   1 /****************************************************************************/
   2 /*                                                                          */
   3 /*                      Chaine de CAO & VLSI   Alliance                     */
   4 /*                                                                          */
   5 /*    Produit : XTAS Version 5                                              */
   6 /*    Fichier : xtas_getdetail.c                                            */
   7 /*                                                                          */
   8 /*    (c) copyright 1991-1998 Laboratoire LIP6 equipe ASIM                  */
   9 /*    Tous droits reserves                                                  */
  10 /*    Support : e-mail alliance-support@asim.lip6.fr                        */
  11 /*                                                                          */
  12 /*    Author(s) : Nizar ABDALLAH                      Date : 01/04/1993     */
  13 /*                                                                          */
  14 /*    Modified by : Mathieu OKUYAMA                   Date : 05/21/1998     */
  15 /*                                                                          */
  16 /*    Modified by : Stephane PICAULT                  Date : 10/13/1998     */
  17 /*    Modified by :                                   Date : ../../....     */
  18 /*                                                                          */
  19 /****************************************************************************/
  20 /*                                                                          */
  21 /*                                                                          */
  22 /****************************************************************************/
  23
  24
  25 /*--------------------------------------------------------------------------*/
  26 /*                             INCLUDE FILES                                */
  27 /*--------------------------------------------------------------------------*/
  28 #include "xtas.h"
  29
  30 /*---------------------------------------------------------------------------*/
  31 /*                               FUNCTIONS                                   */
  32 /*---------------------------------------------------------------------------*/
  33
  34 /*---------------------------------------------------------------------------*/
  35 /*                                                                           */
  36 /* FUNCTION : XtasGetDetailPathsOkCallback                                   */
  37 /*                                                                           */
  38 /* IN  ARGS : .widget : The widget on which the event occurs.                */
  39 /*            .path_set :                                                    */
  40 /*            .call_data : Not significant.                                  */
  41 /*                                                                           */
  42 /* OUT ARGS : ( void )                                                       */
  43 /*                                                                           */
  44 /* OBJECT   : The callback function for "Get Detail" Widget OK button        */
  45 /*                                                                           */
  46 /*---------------------------------------------------------------------------*/
  47 void XtasPathsDetailCallback (widget, client_data, call_data)
  48 Widget widget;
  49 XtPointer client_data;
  50 XtPointer call_data;
  51 {
  52     XtasWindowStruct  *tas_winfos = (XtasWindowStruct *)client_data ;
  53     XtasPathListSetStruct *path_set = (XtasPathListSetStruct *)tas_winfos->userdata ;
  54
  55         char unvalid_instance_mask;
  56         Widget window;
  57         long type = path_set->PARAM->SCAN_TYPE;
  58         ttvfig_list *ttvfig;
  59
  60     if (path_set->PARAM->LOOK_PATH) {
  61
  62             ttvfig = path_set->PARAM->LOOK_PATH->FIG;
  63             unvalid_instance_mask = 0;
  64
  65             path_set->PARAM->SCAN_TYPE &= ~(TTV_FIND_DUAL);
  66
  67             path_set->PARAM->LOOK_PATH->FIG = NULL;
  68
  69             XtasSetLabelString (XtasDeskMessageField, XTAS_PATINFO);
  70             XalSetCursor (XtasTopLevel, WAIT);
  71             XalForceUpdate (XtasTopLevel);
  72
  73             if ((unvalid_instance_mask) || !(window = XtasPathDetailList (path_set->TOP_LEVEL, path_set)))
  74                     XalDrawMessage (XtasWarningWidget, XTAS_NPATWAR);
  75
  76             XtasSetLabelString (XtasDeskMessageField, XTAS_NULINFO);
  77             XalSetCursor (XtasTopLevel, NORMAL);
  78
  79             path_set->PARAM->LOOK_PATH->FIG = ttvfig;
  80             path_set->PARAM->SCAN_TYPE = type;
  81     }
  82     else
  83         XalDrawMessage( XtasWarningWidget, XTAS_NPATERR );
  84 }