src/gmxlib/widget.c

   1 /*
   2  * $Id$
   3  *
   4  *                This source code is part of
   5  *
   6  *                 G   R   O   M   A   C   S
   7  *
   8  *          GROningen MAchine for Chemical Simulations
   9  *
  10  *                        VERSION 3.2.0
  11  * Written by David van der Spoel, Erik Lindahl, Berk Hess, and others.
  12  * Copyright (c) 1991-2000, University of Groningen, The Netherlands.
  13  * Copyright (c) 2001-2004, The GROMACS development team,
  14  * check out http://www.gromacs.org for more information.
  15
  16  * This program is free software; you can redistribute it and/or
  17  * modify it under the terms of the GNU General Public License
  18  * as published by the Free Software Foundation; either version 2
  19  * of the License, or (at your option) any later version.
  20  *
  21  * If you want to redistribute modifications, please consider that
  22  * scientific software is very special. Version control is crucial -
  23  * bugs must be traceable. We will be happy to consider code for
  24  * inclusion in the official distribution, but derived work must not
  25  * be called official GROMACS. Details are found in the README & COPYING
  26  * files - if they are missing, get the official version at www.gromacs.org.
  27  *
  28  * To help us fund GROMACS development, we humbly ask that you cite
  29  * the papers on the package - you can find them in the top README file.
  30  *
  31  * For more info, check our website at http://www.gromacs.org
  32  *
  33  * And Hey:
  34  * GROningen Mixture of Alchemy and Childrens' Stories
  35  */
  36 #include "widget.h"
  37 #include "smalloc.h"
  38 #include "fatal.h"
  39
  40 typedef struct {
  41   Widget   w,other,parent;
  42   bool     bDesc,bPopup;
  43   XmString desc;
  44   char     *orignm;
  45   char     *directory;
  46   int      ftp;
  47 } t_widget;
  48
  49 static   t_widget *w=NULL;
  50 static   int      nwindex=0,maxwindex=0;
  51 XmString empty_str;
  52
  53 int nwidget(void)
  54 {
  55   return nwindex;
  56 }
  57
  58 windex add_widget(Widget new_widget,char *desc)
  59 {
  60   int i;
  61
  62   if (nwindex == maxwindex) {
  63     maxwindex += 8;
  64     srenew(w,maxwindex);
  65     for(i=nwindex; (i<maxwindex); i++) {
  66       w[i].ftp   = -1;
  67       w[i].w     = 0;
  68       w[i].other = 0;
  69       w[i].parent= 0;
  70       w[i].bDesc = FALSE;
  71       w[i].bPopup= FALSE;
  72       w[i].orignm    = NULL;
  73       w[i].directory = NULL;
  74     }
  75   }
  76   w[nwindex].w    = new_widget;
  77   if (desc) {
  78     w[nwindex].desc  = char2xms(desc);
  79     w[nwindex].bDesc = TRUE;
  80   }
  81   if (debug)
  82     fprintf(debug,"%s,%d: Successfully added widget %d (%s)\n",__FILE__,__LINE__,
  83             nwindex,desc ? desc : "");
  84   nwindex++;
  85
  86   return nwindex-1;
  87 }
  88
  89 static void widget_range_check(windex win)
  90 {
  91   if (!((win>=0) && (win<nwindex)))
  92     fatal_error(0,"Widget index %d out of range, nwindex = %d",win,nwindex);
  93 }
  94
  95 Widget get_parent(windex win)
  96 {
  97   widget_range_check(win);
  98   if (w[win].parent == 0)
  99     fatal_error(0,"No parent widget known for widget %d. I'm an orphan!",win);
 100
 101   return w[win].parent;
 102 }
 103
 104 void set_parent(windex win,Widget parent)
 105 {
 106   widget_range_check(win);
 107   if (w[win].parent != 0)
 108     fatal_error(0,"Parent widget already set for widget %d",win);
 109
 110   w[win].parent = parent;
 111 }
 112
 113 void set_windex_orignm(windex win,char *orignm)
 114 {
 115   widget_range_check(win);
 116
 117   if (orignm)
 118     w[win].orignm = strdup(orignm);
 119   else
 120     w[win].orignm = NULL;
 121 }
 122
 123 char *get_windex_orignm(windex win)
 124 {
 125   widget_range_check(win);
 126
 127   return w[win].orignm;
 128 }
 129
 130 void set_windex_popup(windex win,bool bPopup)
 131 {
 132   widget_range_check(win);
 133
 134   w[win].bPopup = bPopup;
 135 }
 136
 137 bool get_windex_popup(windex win)
 138 {
 139   widget_range_check(win);
 140
 141   return w[win].bPopup;
 142 }
 143
 144 Widget get_widget(windex win)
 145 {
 146   widget_range_check(win);
 147
 148   return w[win].w;
 149 }
 150
 151 windex get_windex(Widget www)
 152 {
 153   int i;
 154
 155   for(i=0; (i<nwindex); i++)
 156     if (w[i].w == www)
 157       return i;
 158   fatal_error(0,"No such widget %x\n",www);
 159
 160   return -1;
 161 }
 162
 163 XmString get_widget_desc(Widget www)
 164 {
 165   int i;
 166
 167   for(i=0; (i<nwindex); i++)
 168     if ((w[i].w == www) && w[i].bDesc)
 169       return w[i].desc;
 170
 171   return empty_str;
 172 }
 173
 174 bool have_windex_desc(windex www)
 175 {
 176   widget_range_check(www);
 177
 178   return w[www].bDesc;
 179 }
 180
 181 int get_widget_ftp(Widget www)
 182 {
 183   int i;
 184
 185   for(i=0; (i<nwindex); i++)
 186     if (w[i].w == www)
 187       return w[i].ftp;
 188
 189   return -1;
 190 }
 191
 192 char *get_widget_dir(windex win)
 193 {
 194   widget_range_check(win);
 195
 196   return w[win].directory ? w[win].directory : "";
 197 }
 198
 199 void set_widget_ftp(windex win,int ftp)
 200 {
 201   widget_range_check(win);
 202
 203   w[win].ftp = ftp;
 204 }
 205
 206 void set_widget_dir(Widget www,XmString label)
 207 {
 208   Arg  args[4];
 209   int  i,narg;
 210   char *ptr,*clab,tmp;
 211
 212   i = get_windex(www);
 213
 214   if (i < nwindex) {
 215     clab = xms2char(label);
 216     if (w[i].directory)
 217       sfree(w[i].directory);
 218     /* Check for last directory slash */
 219     if ((ptr = strrchr(clab,'/')) != NULL) {
 220       /* check whether there is more than the directory */
 221       if (ptr[1] != '\0') {
 222         tmp = ptr[1];
 223         ptr[1] = '\0';
 224         w[i].directory = strdup(clab);
 225         ptr[1] = tmp;
 226       }
 227       /* Increase the pointer beyond the slash */
 228       ptr++;
 229     }
 230     else {
 231       w[i].directory = NULL;
 232       ptr = clab;
 233     }
 234     if (strlen(ptr) > 0) {
 235       narg = 0;
 236       XtSetArg(args[narg],XmNvalue, ptr); narg++;
 237       XtSetValues(www,args,narg);
 238       /* Set the toggle button if we have an optional one */
 239       if (w[i].other != 0) {
 240         narg = 0;
 241         XtSetArg(args[narg], XmNset, True); narg++;
 242         XtSetValues(w[i].other,args,narg);
 243       }
 244     }
 245   }
 246 }
 247
 248 Widget get_widget_other(windex win,bool bFail)
 249 {
 250   widget_range_check(win);
 251   if ((w[win].other == 0) && bFail)
 252     fatal_error(0,"Calling the wrong window: %d, no other widget\n",win);
 253
 254   return w[win].other;
 255 }
 256
 257 void set_widget_other(windex win,Widget www)
 258 {
 259   widget_range_check(win);
 260   w[win].other = www;
 261 }
 262
 263 XmString char2xms(const char *ptr)
 264 {
 265   return XmStringCreate(ptr,XmSTRING_DEFAULT_CHARSET);
 266 }
 267
 268 char *xms2char(XmString xms)
 269 {
 270   /* This is NOT fool proof */
 271   char *str;
 272
 273   /* set str to point to the text */
 274   XmStringGetLtoR(xms,XmSTRING_DEFAULT_CHARSET,&str);
 275
 276   return str;
 277 }
 278