/[emacs]/emacs/lwlib/lwlib-Xaw.c
ViewVC logotype

Diff of /emacs/lwlib/lwlib-Xaw.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by pj, Sun Jan 27 18:18:38 2002 UTC revision 1.18.4.1 by miles, Fri Apr 4 06:20:42 2003 UTC
# Line 3  Line 3 
3    
4  This file is part of the Lucid Widget Library.  This file is part of the Lucid Widget Library.
5    
6  The Lucid Widget Library is free software; you can redistribute it and/or  The Lucid Widget Library is free software; you can redistribute it and/or
7  modify it under the terms of the GNU General Public License as published by  modify it under the terms of the GNU General Public License as published by
8  the Free Software Foundation; either version 1, or (at your option)  the Free Software Foundation; either version 1, or (at your option)
9  any later version.  any later version.
10    
11  The Lucid Widget Library is distributed in the hope that it will be useful,  The Lucid Widget Library is distributed in the hope that it will be useful,
12  but WITHOUT ANY WARRANTY; without even the implied warranty of  but WITHOUT ANY WARRANTY; without even the implied warranty of
13  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  GNU General Public License for more details.  GNU General Public License for more details.
15    
# Line 119  xaw_update_scrollbar (instance, widget, Line 119  xaw_update_scrollbar (instance, widget,
119  #endif  #endif
120    
121  void  void
122    #ifdef PROTOTYPES
123    xaw_update_one_widget (widget_instance *instance, Widget widget,
124                           widget_value *val, Boolean deep_p)
125    #else
126  xaw_update_one_widget (instance, widget, val, deep_p)  xaw_update_one_widget (instance, widget, val, deep_p)
127       widget_instance *instance;       widget_instance *instance;
128       Widget widget;       Widget widget;
129       widget_value *val;       widget_value *val;
130       Boolean deep_p;       Boolean deep_p;
131    #endif
132  {  {
133  #if 0  #if 0
134    if (XtIsSubclass (widget, scrollbarWidgetClass))    if (XtIsSubclass (widget, scrollbarWidgetClass))
# Line 198  xaw_popup_menu (widget, event) Line 203  xaw_popup_menu (widget, event)
203  }  }
204    
205  void  void
206    #ifdef PROTOTYPES
207    xaw_pop_instance (widget_instance *instance, Boolean up)
208    #else
209  xaw_pop_instance (instance, up)  xaw_pop_instance (instance, up)
210       widget_instance *instance;       widget_instance *instance;
211       Boolean up;       Boolean up;
212    #endif
213  {  {
214    Widget widget = instance->widget;    Widget widget = instance->widget;
215    
# Line 347  make_dialog (name, parent, pop_up_p, she Line 356  make_dialog (name, parent, pop_up_p, she
356           I want the separator to take up the slack between the buttons on           I want the separator to take up the slack between the buttons on
357           the right and the buttons on the left (that is I want the buttons           the right and the buttons on the left (that is I want the buttons
358           after the separator to be packed against the right edge of the           after the separator to be packed against the right edge of the
359           window) but I can't seem to make it do it.             window) but I can't seem to make it do it.
360         */         */
361        ac = 0;        ac = 0;
362        XtSetArg (av [ac], XtNfromHoriz, button); ac++;        XtSetArg (av [ac], XtNfromHoriz, button); ac++;
# Line 431  xaw_create_dialog (instance) Line 440  xaw_create_dialog (instance)
440      shell_name = "Question";      shell_name = "Question";
441      break;      break;
442    }    }
443      
444    total_buttons = name [1] - '0';    total_buttons = name [1] - '0';
445    
446    if (name [3] == 'T' || name [3] == 't')    if (name [3] == 'T' || name [3] == 't')
# Line 441  xaw_create_dialog (instance) Line 450  xaw_create_dialog (instance)
450      }      }
451    else if (name [3])    else if (name [3])
452      right_buttons = name [4] - '0';      right_buttons = name [4] - '0';
453      
454    left_buttons = total_buttons - right_buttons;    left_buttons = total_buttons - right_buttons;
455      
456    widget = make_dialog (name, parent, pop_up_p,    widget = make_dialog (name, parent, pop_up_p,
457                          shell_name, icon_name, text_input_slot, radio_box,                          shell_name, icon_name, text_input_slot, radio_box,
458                          list, left_buttons, right_buttons);                          list, left_buttons, right_buttons);
# Line 610  xaw_create_scrollbar (instance) Line 619  xaw_create_scrollbar (instance)
619    Widget scrollbar;    Widget scrollbar;
620    
621    XtVaGetValues (instance->parent, XtNwidth, &width, NULL);    XtVaGetValues (instance->parent, XtNwidth, &width, NULL);
622      
623    XtSetArg (av[ac], XtNshowGrip, 0); ac++;    XtSetArg (av[ac], XtNshowGrip, 0); ac++;
624    XtSetArg (av[ac], XtNresizeToPreferred, 1); ac++;    XtSetArg (av[ac], XtNresizeToPreferred, 1); ac++;
625    XtSetArg (av[ac], XtNallowResize, True); ac++;    XtSetArg (av[ac], XtNallowResize, True); ac++;

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.18.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26