Mercurial > hg > xemacs-beta
annotate lwlib/lwlib-Xm.c @ 5518:3cc7470ea71c
gnuclient: if TMPDIR was set and connect failed, try again with /tmp
2011-06-03 Aidan Kehoe <kehoea@parhasard.net>
* gnuslib.c (connect_to_unix_server):
Retry with /tmp as a directory in which to search for Unix sockets
if an attempt to connect with some other directory failed (which
may be because gnuclient and gnuserv don't share an environment
value for TMPDIR, or because gnuserv was compiled with USE_TMPDIR
turned off).
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Fri, 03 Jun 2011 18:40:57 +0100 |
| parents | ade4c7e2c6cb |
| children |
| rev | line source |
|---|---|
| 428 | 1 /* The lwlib interface to Motif widgets. |
| 2 Copyright (C) 1992, 1993, 1994 Lucid, Inc. | |
| 3 Copyright (C) 1995 Tinker Systems and INS Engineering Corp. | |
| 4 | |
| 5 This file is part of the Lucid Widget Library. | |
| 6 | |
|
5422
ade4c7e2c6cb
Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
4528
diff
changeset
|
7 The Lucid Widget Library is free software: you can redistribute it |
|
ade4c7e2c6cb
Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
4528
diff
changeset
|
8 and/or modify it under the terms of the GNU General Public License as |
|
ade4c7e2c6cb
Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
4528
diff
changeset
|
9 published by the Free Software Foundation, either version 3 of the |
|
ade4c7e2c6cb
Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
4528
diff
changeset
|
10 License, or (at your option) any later version. |
| 428 | 11 |
|
5422
ade4c7e2c6cb
Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
4528
diff
changeset
|
12 The Lucid Widget Library is distributed in the hope that it will be |
|
ade4c7e2c6cb
Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
4528
diff
changeset
|
13 useful, but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
ade4c7e2c6cb
Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
4528
diff
changeset
|
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
|
ade4c7e2c6cb
Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
4528
diff
changeset
|
15 General Public License for more details. |
| 428 | 16 |
| 17 You should have received a copy of the GNU General Public License | |
|
5422
ade4c7e2c6cb
Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
4528
diff
changeset
|
18 along with the Lucid Widget Library. If not, see |
|
ade4c7e2c6cb
Migrate lwlib/ to GPLv3.
Mike Sperber <sperber@deinprogramm.de>
parents:
4528
diff
changeset
|
19 <http://www.gnu.org/licenses/>. */ |
| 428 | 20 |
| 21 #include <config.h> | |
| 22 #include <stdlib.h> | |
| 23 #include <string.h> | |
| 24 #include <stdio.h> | |
| 25 #include <limits.h> | |
| 26 #ifdef HAVE_UNISTD_H | |
| 27 #include <unistd.h> | |
| 28 #endif | |
| 29 | |
| 30 #include <X11/StringDefs.h> | |
| 31 #include <X11/IntrinsicP.h> | |
| 32 #include <X11/ObjectP.h> | |
| 33 #include <X11/CoreP.h> | |
| 34 #include <X11/CompositeP.h> | |
| 35 | |
| 36 #include "lwlib-Xm.h" | |
| 37 #include "lwlib-utils.h" | |
| 38 | |
| 39 #include <Xm/Xm.h> | |
| 40 #include <Xm/BulletinB.h> | |
| 41 #include <Xm/CascadeB.h> | |
| 42 #include <Xm/DrawingA.h> | |
| 43 #include <Xm/FileSB.h> | |
| 44 #include <Xm/Label.h> | |
| 45 #include <Xm/List.h> | |
| 46 #include <Xm/MenuShell.h> | |
| 47 #include <Xm/MessageB.h> | |
| 48 #include <Xm/PushB.h> | |
| 49 #include <Xm/PushBG.h> | |
| 50 #include <Xm/ArrowB.h> | |
| 51 #include <Xm/ScrollBar.h> | |
| 52 #include <Xm/SelectioB.h> | |
| 53 #include <Xm/Text.h> | |
| 54 #include <Xm/TextF.h> | |
| 55 #include <Xm/ToggleB.h> | |
| 56 #include <Xm/ToggleBG.h> | |
| 57 #include <Xm/RowColumn.h> | |
| 58 #include <Xm/ScrolledW.h> | |
| 59 #include <Xm/Separator.h> | |
| 60 #include <Xm/DialogS.h> | |
| 61 #include <Xm/Form.h> | |
| 62 #ifdef LWLIB_WIDGETS_MOTIF | |
| 63 #include <Xm/Scale.h> | |
| 64 #if XmVERSION > 1 | |
| 65 #include <Xm/ComboBoxP.h> | |
| 66 #endif | |
| 67 #endif | |
| 68 | |
| 69 #ifdef LWLIB_MENUBARS_MOTIF | |
| 70 static void xm_pull_down_callback (Widget, XtPointer, XtPointer); | |
| 71 #endif | |
| 72 static void xm_internal_update_other_instances (Widget, XtPointer, | |
| 73 XtPointer); | |
| 1261 | 74 /* static void xm_pop_down_callback (Widget, XtPointer, XtPointer); */ |
| 428 | 75 static void xm_generic_callback (Widget, XtPointer, XtPointer); |
| 2286 | 76 #if defined (LWLIB_DIALOGS_MOTIF) || defined (LWLIB_WIDGETS_MOTIF) |
| 428 | 77 static void mark_dead_instance_destroyed (Widget widget, XtPointer closure, |
| 78 XtPointer call_data); | |
| 79 static void xm_nosel_callback (Widget, XtPointer, XtPointer); | |
| 80 #endif | |
| 81 #ifdef LWLIB_SCROLLBARS_MOTIF | |
| 82 static void xm_scrollbar_callback (Widget, XtPointer, XtPointer); | |
| 83 #endif | |
| 84 | |
| 85 #ifdef LWLIB_MENUBARS_MOTIF | |
| 86 static void | |
| 87 xm_update_menu (widget_instance* instance, Widget widget, widget_value* val, | |
| 88 Boolean deep_p); | |
| 89 #endif | |
| 90 | |
| 91 /* Structures to keep destroyed instances */ | |
| 92 typedef struct _destroyed_instance | |
| 93 { | |
| 94 char* name; | |
| 95 char* type; | |
| 96 Widget widget; | |
| 97 Widget parent; | |
| 98 Boolean pop_up_p; | |
| 99 struct _destroyed_instance* next; | |
| 100 } destroyed_instance; | |
| 101 | |
| 102 static destroyed_instance* | |
| 103 all_destroyed_instances = NULL; | |
| 104 | |
| 105 /* Utility function. */ | |
| 106 static char * | |
| 107 safe_strdup (char* s) | |
| 108 { | |
| 109 char *result; | |
| 110 if (! s) return 0; | |
| 111 result = (char *) malloc (strlen (s) + 1); | |
| 112 if (! result) | |
| 113 return 0; | |
| 114 strcpy (result, s); | |
| 115 return result; | |
| 116 } | |
| 117 | |
| 118 static destroyed_instance* | |
| 119 make_destroyed_instance (char* name, char* type, Widget widget, Widget parent, | |
| 120 Boolean pop_up_p) | |
| 121 { | |
| 122 destroyed_instance* instance = | |
| 123 (destroyed_instance*) malloc (sizeof (destroyed_instance)); | |
| 124 instance->name = safe_strdup (name); | |
| 125 instance->type = safe_strdup (type); | |
| 126 instance->widget = widget; | |
| 127 instance->parent = parent; | |
| 128 instance->pop_up_p = pop_up_p; | |
| 129 instance->next = NULL; | |
| 130 return instance; | |
| 131 } | |
| 132 | |
| 1330 | 133 #ifdef LWLIB_DIALOGS_MOTIF |
| 134 | |
| 428 | 135 static void |
| 136 free_destroyed_instance (destroyed_instance* instance) | |
| 137 { | |
| 138 free (instance->name); | |
| 139 free (instance->type); | |
| 140 free (instance); | |
| 141 } | |
| 142 | |
| 1330 | 143 #endif /* LWLIB_DIALOGS_MOTIF */ |
| 144 | |
| 428 | 145 /* motif utility functions */ |
| 146 Widget | |
| 147 first_child (Widget widget) | |
| 148 { | |
| 149 return ((CompositeWidget)widget)->composite.children [0]; | |
| 150 } | |
| 151 | |
| 152 Boolean | |
| 153 lw_motif_widget_p (Widget widget) | |
| 154 { | |
| 155 return | |
| 156 #ifdef LWLIB_DIALOGS_MOTIF | |
| 157 XtClass (widget) == xmDialogShellWidgetClass || | |
| 158 #endif | |
| 159 XmIsPrimitive (widget) || XmIsManager (widget) || XmIsGadget (widget); | |
| 160 } | |
| 161 | |
| 162 static char * | |
| 163 resource_string (Widget widget, char *name) | |
| 164 { | |
| 165 XtResource resource; | |
| 166 char *result = NULL; | |
| 167 | |
| 168 resource.resource_name = "labelString"; | |
| 169 resource.resource_class = "LabelString"; /* #### should be Xmsomething... */ | |
| 170 resource.resource_type = XtRString; | |
| 171 resource.resource_size = sizeof (String); | |
| 172 resource.resource_offset = 0; | |
| 173 resource.default_type = XtRImmediate; | |
| 174 resource.default_addr = 0; | |
| 175 | |
| 176 XtGetSubresources (widget, (XtPointer)&result, name, | |
| 177 name, &resource, 1, NULL, 0); | |
| 178 return result; | |
| 179 } | |
| 180 | |
| 181 | |
| 182 | |
| 183 #ifdef LWLIB_DIALOGS_MOTIF | |
| 184 | |
| 185 static Boolean | |
| 186 is_in_dialog_box (Widget w) | |
| 187 { | |
| 188 Widget wmshell; | |
| 189 | |
| 190 wmshell = XtParent (w); | |
| 191 while (wmshell && (XtClass (wmshell) != xmDialogShellWidgetClass)) | |
| 192 wmshell = XtParent (wmshell); | |
| 193 | |
| 194 if (wmshell && XtClass (wmshell) == xmDialogShellWidgetClass) | |
| 195 return True; | |
| 196 else | |
| 197 return False; | |
| 198 } | |
| 199 | |
| 200 #endif /* LWLIB_DIALOGS_MOTIF */ | |
| 201 | |
| 202 #if defined (LWLIB_DIALOGS_MOTIF) || defined (LWLIB_MENUBARS_MOTIF) || defined (LWLIB_WIDGETS_MOTIF) | |
| 203 | |
| 204 /* update the label of anything subclass of a label */ | |
| 205 static void | |
| 2311 | 206 xm_update_label (widget_instance* UNUSED (instance), Widget widget, |
| 207 widget_value* val) | |
| 428 | 208 { |
| 209 XmString built_string = NULL; | |
| 210 XmString key_string = NULL; | |
| 211 XmString val_string = NULL; | |
| 212 XmString name_string = NULL; | |
| 213 Arg al [20]; | |
| 214 int ac = 0; | |
| 215 int type; | |
| 216 | |
| 217 /* Don't clobber pixmap types. */ | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
218 Xt_GET_VALUE (widget, XmNlabelType, &type); |
| 428 | 219 |
| 220 if (type == XmPIXMAP) | |
| 221 return; | |
| 222 | |
| 223 if (val->value) | |
| 224 { | |
| 446 | 225 /* #### Temporary fix. I though Motif was supposed to grok %_ |
| 226 type things. */ | |
| 227 lw_remove_accelerator_spec (val->value); | |
| 228 | |
| 428 | 229 #ifdef LWLIB_DIALOGS_MOTIF |
| 230 /* | |
| 231 * Sigh. The main text of a label is the name field for menubar | |
| 232 * entries. The value field is a possible additional field to be | |
| 233 * concatenated on to the name field. HOWEVER, with dialog boxes | |
| 234 * the value field is the complete text which is supposed to be | |
| 235 * displayed as the label. Yuck. | |
| 236 */ | |
| 237 if (is_in_dialog_box (widget)) | |
| 238 { | |
| 239 char *value_name = NULL; | |
| 240 | |
| 241 value_name = resource_string (widget, val->value); | |
| 242 if (!value_name) | |
| 243 value_name = val->value; | |
| 244 | |
| 245 built_string = | |
| 246 XmStringCreateLtoR (value_name, XmSTRING_DEFAULT_CHARSET); | |
| 247 } | |
| 248 else | |
| 249 #endif /* LWLIB_DIALOGS_MOTIF */ | |
| 250 { | |
| 251 char *value_name = NULL; | |
| 252 char *res_name = NULL; | |
| 253 | |
| 254 res_name = resource_string (widget, val->name); | |
| 255 /* Concatenating the value with itself seems just plain daft. */ | |
| 256 if (!res_name) | |
| 257 { | |
| 258 built_string = | |
| 259 XmStringCreateLtoR (val->value, XmSTRING_DEFAULT_CHARSET); | |
| 260 } | |
| 261 else | |
| 262 { | |
| 263 name_string = | |
| 264 XmStringCreateLtoR (res_name, XmSTRING_DEFAULT_CHARSET); | |
| 442 | 265 |
| 428 | 266 value_name = XtMalloc (strlen (val->value) + 2); |
| 267 *value_name = 0; | |
| 268 strcat (value_name, " "); | |
| 269 strcat (value_name, val->value); | |
| 442 | 270 |
| 428 | 271 val_string = |
| 272 XmStringCreateLtoR (value_name, XmSTRING_DEFAULT_CHARSET); | |
| 442 | 273 |
| 428 | 274 built_string = |
| 275 XmStringConcat (name_string, val_string); | |
| 442 | 276 |
| 428 | 277 XtFree (value_name); |
| 278 } | |
| 279 } | |
| 280 | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
281 Xt_SET_ARG (al [ac], XmNlabelString, built_string); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
282 Xt_SET_ARG (al [ac], XmNlabelType, XmSTRING); ac++; |
| 428 | 283 } |
| 284 | |
| 285 if (val->key) | |
| 286 { | |
| 287 key_string = XmStringCreateLtoR (val->key, XmSTRING_DEFAULT_CHARSET); | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
288 Xt_SET_ARG (al [ac], XmNacceleratorText, key_string); ac++; |
| 428 | 289 } |
| 290 | |
| 291 if (ac) | |
| 292 XtSetValues (widget, al, ac); | |
| 293 | |
| 294 if (built_string) | |
| 295 XmStringFree (built_string); | |
| 296 | |
| 297 if (key_string) | |
| 298 XmStringFree (key_string); | |
| 299 | |
| 300 if (name_string) | |
| 301 XmStringFree (name_string); | |
| 302 | |
| 303 if (val_string) | |
| 304 XmStringFree (val_string); | |
| 305 } | |
| 306 | |
| 903 | 307 static void |
| 308 xm_safe_update_label (widget_instance* instance, Widget widget, widget_value* val) | |
| 309 { | |
| 310 /* Don't clobber non-labels. */ | |
| 311 if (XtIsSubclass (widget, xmLabelWidgetClass)) | |
| 312 xm_update_label (instance, widget, val); | |
| 313 } | |
| 314 | |
| 428 | 315 #endif /* defined (LWLIB_DIALOGS_MOTIF) || defined (LWLIB_MENUBARS_MOTIF) */ |
| 316 | |
| 317 /* update of list */ | |
| 318 static void | |
| 319 xm_update_list (widget_instance* instance, Widget widget, widget_value* val) | |
| 320 { | |
| 321 widget_value* cur; | |
| 322 int i; | |
| 323 XtRemoveAllCallbacks (widget, XmNsingleSelectionCallback); | |
| 324 XtAddCallback (widget, XmNsingleSelectionCallback, xm_generic_callback, | |
| 325 instance); | |
| 326 for (cur = val->contents, i = 0; cur; cur = cur->next) | |
| 327 if (cur->value) | |
| 328 { | |
| 329 XmString xmstr = XmStringCreate (cur->value, XmSTRING_DEFAULT_CHARSET); | |
| 330 i += 1; | |
| 331 XmListAddItem (widget, xmstr, 0); | |
| 332 if (cur->selected) | |
| 333 XmListSelectPos (widget, i, False); | |
| 334 XmStringFree (xmstr); | |
| 335 } | |
| 336 } | |
| 337 | |
| 338 /* update of buttons */ | |
| 339 static void | |
| 340 xm_update_pushbutton (widget_instance* instance, Widget widget, | |
| 2286 | 341 widget_value* UNUSED (val)) |
| 428 | 342 { |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
343 Xt_SET_VALUE (widget, XmNalignment, XmALIGNMENT_CENTER); |
| 428 | 344 XtRemoveAllCallbacks (widget, XmNactivateCallback); |
| 345 XtAddCallback (widget, XmNactivateCallback, xm_generic_callback, instance); | |
| 346 } | |
| 347 | |
| 1281 | 348 #ifdef LWLIB_WIDGETS_MOTIF |
| 639 | 349 static void |
| 2311 | 350 xm_update_progress (widget_instance* UNUSED (instance), Widget scale, |
| 351 widget_value* val) | |
| 639 | 352 { |
| 353 Arg al[20]; | |
| 354 int ac = 0; | |
| 355 Dimension height = 0; | |
| 356 Dimension width = 0; | |
| 357 if (!val->call_data) | |
| 358 { | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
359 Xt_SET_ARG (al [ac], XmNeditable, False); ac++; |
| 639 | 360 } |
| 361 else | |
| 362 { | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
363 Xt_SET_ARG (al [ac], XmNeditable, val->enabled); ac++; |
| 639 | 364 } |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
365 height = (Dimension) lw_get_value_arg (val, XtNheight); |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
366 width = (Dimension) lw_get_value_arg (val, XtNwidth); |
| 639 | 367 if (height > 0) |
| 368 { | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
369 Xt_SET_ARG (al [ac], XmNscaleHeight, height); ac++; |
| 639 | 370 } |
| 371 if (width > 0) | |
| 372 { | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
373 Xt_SET_ARG (al [ac], XmNscaleWidth, width); ac++; |
| 639 | 374 } |
| 375 | |
|
4515
bbce7f6de2d6
Fix typo in XtSetValues in xm_update_progress().
Stephen J. Turnbull <stephen@xemacs.org>
parents:
2311
diff
changeset
|
376 XtSetValues (scale, al, ac); |
| 639 | 377 } |
| 1281 | 378 #endif /* LWLIB_WIDGETS_MOTIF */ |
| 639 | 379 |
| 428 | 380 #ifdef LWLIB_MENUBARS_MOTIF |
| 381 | |
| 382 static void | |
| 383 xm_update_cascadebutton (widget_instance* instance, Widget widget, | |
| 384 widget_value* val) | |
| 385 { | |
| 386 /* Should also rebuild the menu by calling ...update_menu... */ | |
| 387 if (val | |
| 388 && val->type == CASCADE_TYPE | |
| 389 && val->contents | |
| 390 && val->contents->type == INCREMENTAL_TYPE) | |
| 391 { | |
| 392 /* okay, we're now doing a lisp callback to incrementally generate | |
| 393 more of the menu. */ | |
| 394 XtRemoveAllCallbacks (widget, XmNcascadingCallback); | |
| 395 XtAddCallback (widget, XmNcascadingCallback, xm_pull_down_callback, | |
| 396 instance); | |
| 397 XtCallCallbacks ((Widget)widget, | |
| 398 XmNcascadingCallback, | |
| 399 (XtPointer)val->contents); | |
| 400 | |
| 401 } else { | |
| 402 XtRemoveAllCallbacks (widget, XmNcascadingCallback); | |
| 403 XtAddCallback (widget, XmNcascadingCallback, xm_pull_down_callback, | |
| 404 instance); | |
| 405 } | |
| 406 } | |
| 407 | |
| 408 #endif /* LWLIB_MENUBARS_MOTIF */ | |
| 409 | |
| 410 /* update toggle and radiobox */ | |
| 411 static void | |
| 412 xm_update_toggle (widget_instance* instance, Widget widget, widget_value* val) | |
| 413 { | |
| 414 Arg al [2]; | |
| 415 XtRemoveAllCallbacks (widget, XmNvalueChangedCallback); | |
| 416 XtAddCallback (widget, XmNvalueChangedCallback, xm_generic_callback, | |
| 417 instance); | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
418 Xt_SET_ARG (al [0], XmNset, val->selected); |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
419 Xt_SET_ARG (al [1], XmNalignment, XmALIGNMENT_BEGINNING); |
| 428 | 420 XtSetValues (widget, al, 1); |
| 421 } | |
| 422 | |
| 423 static void | |
| 424 xm_update_radiobox (widget_instance* instance, Widget widget, | |
| 425 widget_value* val) | |
| 426 { | |
| 427 Widget toggle; | |
| 428 widget_value* cur; | |
| 429 | |
| 430 /* update the callback */ | |
| 431 XtRemoveAllCallbacks (widget, XmNentryCallback); | |
| 432 XtAddCallback (widget, XmNentryCallback, xm_generic_callback, instance); | |
| 433 | |
| 434 /* first update all the toggles */ | |
| 435 /* Energize kernel interface is currently bad. It sets the selected widget | |
| 436 with the selected flag but returns it by its name. So we currently | |
| 437 have to support both setting the selection with the selected slot | |
| 438 of val contents and setting it with the "value" slot of val. The latter | |
| 439 has a higher priority. This to be removed when the kernel is fixed. */ | |
| 440 for (cur = val->contents; cur; cur = cur->next) | |
| 441 { | |
| 442 toggle = XtNameToWidget (widget, cur->value); | |
| 443 if (toggle) | |
| 444 { | |
| 445 Arg al [2]; | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
446 Xt_SET_ARG (al [0], XmNsensitive, cur->enabled); |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
447 Xt_SET_ARG (al [1], XmNset, (!val->value && cur->selected ? cur->selected : False)); |
| 428 | 448 XtSetValues (toggle, al, 2); |
| 449 } | |
| 450 } | |
| 451 | |
| 452 /* The selected was specified by the value slot */ | |
| 453 if (val->value) | |
| 454 { | |
| 455 toggle = XtNameToWidget (widget, val->value); | |
| 456 if (toggle) | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
457 Xt_SET_VALUE (toggle, XmNset, True); |
| 428 | 458 } |
| 459 } | |
| 460 | |
| 461 #if defined (LWLIB_WIDGETS_MOTIF) && XmVERSION > 1 | |
| 462 /* update of combo box */ | |
| 463 static void | |
| 464 xm_update_combo_box (widget_instance* instance, Widget widget, widget_value* val) | |
| 465 { | |
| 466 widget_value* cur; | |
| 467 int i; | |
| 468 XtRemoveAllCallbacks (widget, XmNselectionCallback); | |
| 469 XtAddCallback (widget, XmNselectionCallback, xm_generic_callback, | |
| 470 instance); | |
| 471 for (cur = val->contents, i = 0; cur; cur = cur->next) | |
| 472 if (cur->value) | |
| 473 { | |
| 474 XmString xmstr = XmStringCreate (cur->value, XmSTRING_DEFAULT_CHARSET); | |
| 475 i += 1; | |
| 476 XmListAddItem (CB_List (widget), xmstr, 0); | |
| 477 if (cur->selected) | |
| 478 XmListSelectPos (CB_List (widget), i, False); | |
| 479 XmStringFree (xmstr); | |
| 480 } | |
| 481 } | |
| 482 #endif | |
| 483 | |
| 484 #ifdef LWLIB_MENUBARS_MOTIF | |
| 485 | |
| 486 /* update a popup menu, pulldown menu or a menubar */ | |
| 487 static void | |
| 488 make_menu_in_widget (widget_instance* instance, Widget widget, | |
| 489 widget_value* val) | |
| 490 { | |
| 491 Widget* children = 0; | |
| 492 int num_children; | |
| 493 int child_index; | |
| 494 widget_value* cur; | |
| 495 Widget button = 0; | |
| 496 Widget menu; | |
| 497 Arg al [256]; | |
| 498 int ac; | |
| 499 Boolean menubar_p = False; | |
| 500 | |
| 501 /* Allocate the children array */ | |
| 502 for (num_children = 0, cur = val; cur; num_children++, cur = cur->next); | |
| 503 children = (Widget*)XtMalloc (num_children * sizeof (Widget)); | |
| 504 | |
| 505 /* tricky way to know if this RowColumn is a menubar or a pulldown... */ | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
506 Xt_GET_VALUE (widget, XmNisHomogeneous, &menubar_p); |
| 428 | 507 |
| 508 /* add the unmap callback for popups and pulldowns */ | |
| 509 /*** this sounds bogus ***/ | |
| 510 /* probably because it is -- cet */ | |
| 511 /* | |
| 512 if (!menubar_p) | |
| 513 XtAddCallback (XtParent (widget), XmNpopdownCallback, | |
| 514 xm_pop_down_callback, (XtPointer)instance); | |
| 515 */ | |
| 516 | |
| 517 num_children = 0; | |
| 518 for (child_index = 0, cur = val; cur; child_index++, cur = cur->next) | |
| 519 { | |
| 520 ac = 0; | |
| 521 button = 0; | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
522 Xt_SET_ARG (al [ac], XmNsensitive, cur->enabled); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
523 Xt_SET_ARG (al [ac], XmNalignment, XmALIGNMENT_BEGINNING); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
524 Xt_SET_ARG (al [ac], XmNuserData, cur->call_data); ac++; |
| 428 | 525 |
| 526 switch (cur->type) | |
| 527 { | |
| 528 case PUSHRIGHT_TYPE: | |
| 529 /* A pushright marker which is not needed for the real Motif | |
| 530 menubar. */ | |
| 531 break; | |
| 532 case SEPARATOR_TYPE: | |
| 533 ac = 0; | |
| 534 if (cur->value) | |
| 535 { | |
| 536 /* #### - xlwmenu.h supports several types that motif does | |
| 537 not. Also, motif supports pixmaps w/ type NO_LINE and | |
| 538 lwlib provides no way to access that functionality. --Stig */ | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
539 Xt_SET_ARG (al [ac], XmNseparatorType, cur->value); ac++; |
| 428 | 540 } |
| 541 button = XmCreateSeparator (widget, "separator", al, ac); | |
| 542 break; | |
| 543 case CASCADE_TYPE: | |
| 544 menu = XmCreatePulldownMenu (widget, "pulldown", NULL, 0); | |
| 545 make_menu_in_widget (instance, menu, cur->contents); | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
546 Xt_SET_ARG (al [ac], XmNsubMenuId, menu); ac++; |
| 428 | 547 button = XmCreateCascadeButton (widget, cur->name, al, ac); |
| 548 | |
| 903 | 549 xm_safe_update_label (instance, button, cur); |
| 428 | 550 |
| 551 XtAddCallback (button, XmNcascadingCallback, xm_pull_down_callback, | |
| 552 (XtPointer)instance); | |
| 553 break; | |
| 554 default: | |
| 555 if (menubar_p) | |
| 556 button = XmCreateCascadeButton (widget, cur->name, al, ac); | |
| 557 else if (!cur->call_data) | |
| 558 button = XmCreateLabel (widget, cur->name, al, ac); | |
| 559 else if (cur->type == TOGGLE_TYPE || cur->type == RADIO_TYPE) | |
| 560 { | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
561 Xt_SET_ARG (al [ac], XmNindicatorType, |
| 428 | 562 (cur->type == TOGGLE_TYPE ? |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
563 XmN_OF_MANY : XmONE_OF_MANY)); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
564 Xt_SET_ARG (al [ac], XmNvisibleWhenOff, True); ac++; |
| 428 | 565 button = XmCreateToggleButtonGadget (widget, cur->name, al, ac); |
| 566 } | |
| 567 else | |
| 568 button = XmCreatePushButtonGadget (widget, cur->name, al, ac); | |
| 569 | |
| 903 | 570 xm_safe_update_label (instance, button, cur); |
| 428 | 571 |
| 572 /* don't add a callback to a simple label */ | |
| 573 if (cur->type == TOGGLE_TYPE || cur->type == RADIO_TYPE) | |
| 574 xm_update_toggle (instance, button, cur); | |
| 575 else if (cur->call_data) | |
| 576 XtAddCallback (button, XmNactivateCallback, xm_generic_callback, | |
| 577 (XtPointer)instance); | |
| 578 } /* switch (cur->type) */ | |
| 579 | |
| 580 if (button) | |
| 581 children [num_children++] = button; | |
| 582 } | |
| 583 | |
| 584 /* Last entry is the help button. This used be done after managing | |
| 585 the buttons. The comment claimed that it had to be done this way | |
| 586 otherwise the menubar ended up only 4 pixels high. That must | |
| 587 have been in the Old World. In the New World it stays the proper | |
| 588 height if you don't manage them until after you set this and as a | |
| 589 bonus the Help menu ends up where it is supposed to. */ | |
| 590 if (button) | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
591 Xt_SET_VALUE (widget, XmNmenuHelpWidget, button); |
| 428 | 592 |
| 593 if (num_children) | |
| 594 XtManageChildren (children, num_children); | |
| 595 | |
| 596 XtFree ((char *) children); | |
| 597 } | |
| 598 | |
| 599 static void | |
| 600 update_one_menu_entry (widget_instance* instance, Widget widget, | |
| 601 widget_value* val, Boolean deep_p) | |
| 602 { | |
| 603 Arg al [2]; | |
| 604 int ac; | |
| 605 Widget menu; | |
| 606 widget_value* contents; | |
| 607 | |
| 608 if (val->change == NO_CHANGE) | |
| 609 return; | |
| 610 | |
| 611 /* update the sensitivity and userdata */ | |
| 612 /* Common to all widget types */ | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
613 Xt_SET_ARG (al [0], XmNsensitive, val->enabled); |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
614 Xt_SET_ARG (al [1], XmNuserData, val->call_data); |
| 428 | 615 XtSetValues (widget, al, 2); |
| 616 | |
| 617 /* update the menu button as a label. */ | |
| 618 if (val->change >= VISIBLE_CHANGE) | |
| 619 { | |
| 903 | 620 xm_safe_update_label (instance, widget, val); |
| 621 | |
| 428 | 622 if (XtClass (widget) == xmToggleButtonWidgetClass |
| 623 || XtClass (widget) == xmToggleButtonGadgetClass) | |
| 624 { | |
| 625 xm_update_toggle (instance, widget, val); | |
| 626 } | |
| 627 } | |
| 628 | |
| 629 | |
| 630 /* update the pulldown/pullaside as needed */ | |
| 631 menu = NULL; | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
632 Xt_GET_VALUE (widget, XmNsubMenuId, &menu); |
| 428 | 633 |
| 634 contents = val->contents; | |
| 635 | |
| 636 if (!menu) | |
| 637 { | |
| 638 if (contents) | |
| 639 { | |
| 640 menu = XmCreatePulldownMenu (widget, "pulldown", NULL, 0); | |
| 641 make_menu_in_widget (instance, menu, contents); | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
642 Xt_SET_VALUE (widget, XmNsubMenuId, menu); |
| 428 | 643 } |
| 644 } | |
| 645 else if (!contents) | |
| 646 { | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
647 Xt_SET_VALUE (widget, XmNsubMenuId, NULL); |
| 428 | 648 XtDestroyWidget (menu); |
| 649 } | |
| 650 else if (deep_p && contents->change != NO_CHANGE) | |
| 651 xm_update_menu (instance, menu, val, 1); | |
| 652 } | |
| 653 | |
| 654 static void | |
| 655 xm_update_menu (widget_instance* instance, Widget widget, widget_value* val, | |
| 656 Boolean deep_p) | |
| 657 { | |
| 658 /* Widget is a RowColumn widget whose contents have to be updated | |
| 659 * to reflect the list of items in val->contents */ | |
| 660 if (val->contents->change == STRUCTURAL_CHANGE) | |
| 661 { | |
| 662 destroy_all_children (widget); | |
| 663 make_menu_in_widget (instance, widget, val->contents); | |
| 664 } | |
| 665 else | |
| 666 { | |
| 667 /* Update all the buttons of the RowColumn in order. */ | |
| 668 Widget* children; | |
| 669 unsigned int num_children; | |
| 670 int i; | |
| 671 widget_value *cur = 0; | |
| 672 | |
| 673 children = XtCompositeChildren (widget, &num_children); | |
| 674 if (children) | |
| 675 { | |
| 676 for (i = 0, cur = val->contents; i < num_children; i++) | |
| 677 { | |
| 678 if (!cur) | |
| 679 abort (); | |
| 680 /* skip if this is a pushright marker or a separator */ | |
| 681 if (cur->type == PUSHRIGHT_TYPE || cur->type == SEPARATOR_TYPE) | |
| 682 { | |
| 683 cur = cur->next; | |
| 684 #if 0 | |
| 685 /* #### - this could puke if you have a separator as the | |
| 686 last item on a pullright menu. */ | |
| 687 if (!cur) | |
| 688 abort (); | |
| 689 #else | |
| 690 if (!cur) | |
| 691 continue; | |
| 692 #endif | |
| 693 } | |
| 694 if (children [i]->core.being_destroyed | |
| 695 || strcmp (XtName (children [i]), cur->name)) | |
| 696 continue; | |
| 697 update_one_menu_entry (instance, children [i], cur, deep_p); | |
| 698 cur = cur->next; | |
| 699 } | |
| 700 XtFree ((char *) children); | |
| 701 } | |
| 702 if (cur) | |
| 703 abort (); | |
| 704 } | |
| 705 } | |
| 706 | |
| 707 #endif /* LWLIB_MENUBARS_MOTIF */ | |
| 708 | |
| 709 | |
| 710 /* update text widgets */ | |
| 711 | |
| 712 static void | |
| 713 xm_update_text (widget_instance* instance, Widget widget, widget_value* val) | |
| 714 { | |
| 438 | 715 XmTextSetString (widget, val->value ? val->value : (char *) ""); |
| 428 | 716 XtRemoveAllCallbacks (widget, XmNactivateCallback); |
| 717 XtAddCallback (widget, XmNactivateCallback, xm_generic_callback, instance); | |
| 718 XtRemoveAllCallbacks (widget, XmNvalueChangedCallback); | |
| 719 XtAddCallback (widget, XmNvalueChangedCallback, | |
| 720 xm_internal_update_other_instances, instance); | |
| 721 } | |
| 722 | |
| 723 static void | |
| 724 xm_update_text_field (widget_instance* instance, Widget widget, | |
| 725 widget_value* val) | |
| 726 { | |
| 438 | 727 XmTextFieldSetString (widget, val->value ? val->value : (char *) ""); |
| 428 | 728 XtRemoveAllCallbacks (widget, XmNactivateCallback); |
| 729 XtAddCallback (widget, XmNactivateCallback, xm_generic_callback, instance); | |
| 730 XtRemoveAllCallbacks (widget, XmNvalueChangedCallback); | |
| 731 XtAddCallback (widget, XmNvalueChangedCallback, | |
| 732 xm_internal_update_other_instances, instance); | |
| 733 } | |
| 734 | |
| 735 | |
| 736 #ifdef LWLIB_SCROLLBARS_MOTIF | |
| 737 | |
| 738 /* | |
| 739 * If this function looks like it does a lot more work than it needs to, | |
| 740 * you're right. Blame the Motif scrollbar for not being smart about | |
| 741 * updating its appearance. | |
| 742 */ | |
| 743 static void | |
| 744 xm_update_scrollbar (widget_instance *instance, Widget widget, | |
| 745 widget_value *val) | |
| 746 { | |
| 747 if (val->scrollbar_data) | |
| 748 { | |
| 749 scrollbar_values *data = val->scrollbar_data; | |
| 750 int widget_sliderSize, widget_val; | |
| 751 int new_sliderSize, new_value; | |
| 752 double percent; | |
| 753 double h_water, l_water; | |
| 754 Arg al [4]; | |
| 755 | |
| 756 /* First size and position the scrollbar widget. */ | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
757 Xt_SET_ARG (al [0], XtNx, data->scrollbar_x); |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
758 Xt_SET_ARG (al [1], XtNy, data->scrollbar_y); |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
759 Xt_SET_ARG (al [2], XtNwidth, data->scrollbar_width); |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
760 Xt_SET_ARG (al [3], XtNheight, data->scrollbar_height); |
| 428 | 761 XtSetValues (widget, al, 4); |
| 762 | |
| 763 /* Now size the scrollbar's slider. */ | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
764 Xt_SET_ARG (al [0], XmNsliderSize, &widget_sliderSize); |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
765 Xt_SET_ARG (al [1], XmNvalue, &widget_val); |
| 428 | 766 XtGetValues (widget, al, 2); |
| 767 | |
| 768 percent = (double) data->slider_size / | |
| 769 (double) (data->maximum - data->minimum); | |
| 770 new_sliderSize = (int) ((double) (INT_MAX - 1) * percent); | |
| 771 | |
| 772 percent = (double) (data->slider_position - data->minimum) / | |
| 773 (double) (data->maximum - data->minimum); | |
| 774 new_value = (int) ((double) (INT_MAX - 1) * percent); | |
| 775 | |
| 776 if (new_sliderSize > (INT_MAX - 1)) | |
| 777 new_sliderSize = INT_MAX - 1; | |
| 778 else if (new_sliderSize < 1) | |
| 779 new_sliderSize = 1; | |
| 780 | |
| 781 if (new_value > (INT_MAX - new_sliderSize)) | |
| 782 new_value = INT_MAX - new_sliderSize; | |
| 783 else if (new_value < 1) | |
| 784 new_value = 1; | |
| 785 | |
| 786 h_water = 1.05; | |
| 787 l_water = 0.95; | |
| 788 if (new_sliderSize != widget_sliderSize || new_value != widget_val) | |
| 789 { | |
| 790 int force = ((INT_MAX - widget_sliderSize - widget_val) | |
| 791 ? 0 | |
| 792 : (INT_MAX - new_sliderSize - new_value)); | |
| 793 | |
| 794 if (force | |
| 795 || (double)new_sliderSize < (l_water * (double)widget_sliderSize) | |
| 796 || (double)new_sliderSize > (h_water * (double)widget_sliderSize) | |
| 797 || (double)new_value < (l_water * (double)widget_val) | |
| 798 || (double)new_value > (h_water * (double)widget_val)) | |
| 799 { | |
| 800 XmScrollBarSetValues (widget, new_value, new_sliderSize, 1, 1, | |
| 801 False); | |
| 802 } | |
| 803 } | |
| 804 } | |
| 805 } | |
| 806 | |
| 807 #endif /* LWLIB_SCROLLBARS_MOTIF */ | |
| 808 | |
| 809 | |
| 810 /* update a motif widget */ | |
| 811 | |
| 812 void | |
| 813 xm_update_one_widget (widget_instance* instance, Widget widget, | |
| 2286 | 814 widget_value* val, |
| 815 #ifdef LWLIB_MENUBARS_MOTIF | |
| 816 Boolean deep_p | |
| 817 #else | |
| 818 Boolean UNUSED (deep_p) | |
| 819 #endif | |
| 820 ) | |
| 428 | 821 { |
| 1201 | 822 WidgetClass class_; |
| 428 | 823 Arg al [20]; |
| 824 int ac = 0; | |
| 825 | |
| 826 /* Mark as not edited */ | |
| 827 val->edited = False; | |
| 828 | |
| 829 /* Common to all widget types */ | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
830 Xt_SET_ARG (al [ac], XmNsensitive, val->enabled); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
831 Xt_SET_ARG (al [ac], XmNuserData, val->call_data); ac++; |
| 428 | 832 XtSetValues (widget, al, ac); |
| 833 | |
| 834 #if defined (LWLIB_DIALOGS_MOTIF) || defined (LWLIB_MENUBARS_MOTIF) || defined (LWLIB_WIDGETS_MOTIF) | |
| 835 /* Common to all label like widgets */ | |
| 903 | 836 xm_safe_update_label (instance, widget, val); |
| 428 | 837 #endif |
| 1201 | 838 class_ = XtClass (widget); |
| 428 | 839 /* Class specific things */ |
| 1201 | 840 if (class_ == xmPushButtonWidgetClass || |
| 841 class_ == xmArrowButtonWidgetClass) | |
| 428 | 842 { |
| 843 xm_update_pushbutton (instance, widget, val); | |
| 844 } | |
| 845 #ifdef LWLIB_MENUBARS_MOTIF | |
| 1201 | 846 else if (class_ == xmCascadeButtonWidgetClass) |
| 428 | 847 { |
| 848 xm_update_cascadebutton (instance, widget, val); | |
| 849 } | |
| 850 #endif | |
| 1201 | 851 else if (class_ == xmToggleButtonWidgetClass |
| 852 || class_ == xmToggleButtonGadgetClass) | |
| 428 | 853 { |
| 854 xm_update_toggle (instance, widget, val); | |
| 855 } | |
| 1201 | 856 else if (class_ == xmRowColumnWidgetClass) |
| 428 | 857 { |
| 858 Boolean radiobox = 0; | |
| 859 | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
860 Xt_GET_VALUE (widget, XmNradioBehavior, &radiobox); |
| 428 | 861 |
| 862 if (radiobox) | |
| 863 xm_update_radiobox (instance, widget, val); | |
| 864 #ifdef LWLIB_MENUBARS_MOTIF | |
| 865 else | |
| 866 xm_update_menu (instance, widget, val, deep_p); | |
| 867 #endif | |
| 868 } | |
| 1201 | 869 else if (class_ == xmTextWidgetClass) |
| 428 | 870 { |
| 871 xm_update_text (instance, widget, val); | |
| 872 } | |
| 1201 | 873 else if (class_ == xmTextFieldWidgetClass) |
| 428 | 874 { |
| 875 xm_update_text_field (instance, widget, val); | |
| 876 } | |
| 1201 | 877 else if (class_ == xmListWidgetClass) |
| 428 | 878 { |
| 879 xm_update_list (instance, widget, val); | |
| 880 } | |
| 881 #if defined (LWLIB_WIDGETS_MOTIF) && XmVERSION > 1 | |
| 1201 | 882 else if (class_ == xmComboBoxWidgetClass) |
| 428 | 883 { |
| 884 xm_update_combo_box (instance, widget, val); | |
| 885 } | |
| 886 #endif | |
| 887 #ifdef LWLIB_SCROLLBARS_MOTIF | |
| 1201 | 888 else if (class_ == xmScrollBarWidgetClass) |
| 428 | 889 { |
| 890 xm_update_scrollbar (instance, widget, val); | |
| 891 } | |
| 892 #endif | |
| 1458 | 893 #ifdef LWLIB_WIDGETS_MOTIF |
| 1201 | 894 else if (class_ == xmScaleWidgetClass) |
| 639 | 895 { |
| 896 xm_update_progress (instance, widget, val); | |
| 897 } | |
| 1458 | 898 #endif |
| 442 | 899 /* Lastly update our global arg values. */ |
| 900 if (val->args && val->args->nargs) | |
| 901 XtSetValues (widget, val->args->args, val->args->nargs); | |
| 428 | 902 } |
| 903 | |
| 904 /* getting the value back */ | |
| 905 void | |
| 906 xm_update_one_value (widget_instance* instance, Widget widget, | |
| 907 widget_value* val) | |
| 908 { | |
| 1201 | 909 WidgetClass class_ = XtClass (widget); |
| 428 | 910 widget_value *old_wv; |
| 911 | |
| 912 /* copy the call_data slot into the "return" widget_value */ | |
| 913 for (old_wv = instance->info->val->contents; old_wv; old_wv = old_wv->next) | |
| 914 if (!strcmp (val->name, old_wv->name)) | |
| 915 { | |
| 916 val->call_data = old_wv->call_data; | |
| 917 break; | |
| 918 } | |
| 919 | |
| 1201 | 920 if (class_ == xmToggleButtonWidgetClass || class_ == xmToggleButtonGadgetClass) |
| 428 | 921 { |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
922 Xt_GET_VALUE (widget, XmNset, &val->selected); |
| 428 | 923 val->edited = True; |
| 924 } | |
| 1201 | 925 else if (class_ == xmTextWidgetClass) |
| 428 | 926 { |
| 927 if (val->value) | |
| 458 | 928 XtFree (val->value); |
| 428 | 929 val->value = XmTextGetString (widget); |
| 930 val->edited = True; | |
| 931 } | |
| 1201 | 932 else if (class_ == xmTextFieldWidgetClass) |
| 428 | 933 { |
| 934 if (val->value) | |
| 458 | 935 XtFree (val->value); |
| 428 | 936 val->value = XmTextFieldGetString (widget); |
| 937 val->edited = True; | |
| 938 } | |
| 1201 | 939 else if (class_ == xmRowColumnWidgetClass) |
| 428 | 940 { |
| 941 Boolean radiobox = 0; | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
942 |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
943 Xt_GET_VALUE (widget, XmNradioBehavior, &radiobox); |
| 428 | 944 |
| 945 if (radiobox) | |
| 946 { | |
| 947 CompositeWidget radio = (CompositeWidget)widget; | |
| 639 | 948 unsigned int i; |
| 428 | 949 for (i = 0; i < radio->composite.num_children; i++) |
| 950 { | |
| 951 int set = False; | |
| 952 Widget toggle = radio->composite.children [i]; | |
| 953 | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
954 Xt_GET_VALUE (toggle, XmNset, &set); |
| 428 | 955 if (set) |
| 956 { | |
| 957 if (val->value) | |
| 958 free (val->value); | |
| 959 val->value = safe_strdup (XtName (toggle)); | |
| 960 } | |
| 961 } | |
| 962 val->edited = True; | |
| 963 } | |
| 964 } | |
| 1201 | 965 else if (class_ == xmListWidgetClass |
| 428 | 966 #if defined (LWLIB_WIDGETS_MOTIF) && XmVERSION > 1 |
| 1201 | 967 || class_ == xmComboBoxWidgetClass |
| 428 | 968 #endif |
| 969 ) | |
| 970 { | |
| 971 int pos_cnt; | |
| 972 int* pos_list; | |
| 973 Widget list = widget; | |
| 974 #if defined (LWLIB_WIDGETS_MOTIF) && XmVERSION > 1 | |
| 1201 | 975 if (class_ == xmComboBoxWidgetClass) |
| 428 | 976 list = CB_List (widget); |
| 977 #endif | |
| 978 if (XmListGetSelectedPos (list, &pos_list, &pos_cnt)) | |
| 979 { | |
| 980 int i; | |
| 981 widget_value* cur; | |
| 982 for (cur = val->contents, i = 0; cur; cur = cur->next) | |
| 983 if (cur->value) | |
| 984 { | |
| 985 int j; | |
| 986 cur->selected = False; | |
| 987 i += 1; | |
| 988 for (j = 0; j < pos_cnt; j++) | |
| 989 if (pos_list [j] == i) | |
| 990 { | |
| 991 cur->selected = True; | |
| 992 val->value = safe_strdup (cur->name); | |
| 993 } | |
| 994 } | |
| 995 val->edited = 1; | |
| 996 XtFree ((char *) pos_list); | |
| 997 } | |
| 998 } | |
| 999 #ifdef LWLIB_SCROLLBARS_MOTIF | |
| 1201 | 1000 else if (class_ == xmScrollBarWidgetClass) |
| 428 | 1001 { |
| 1002 /* This function is not used by the scrollbar. */ | |
| 1003 return; | |
| 1004 } | |
| 1005 #endif | |
| 1006 } | |
| 1007 | |
| 1008 | |
| 1330 | 1009 #ifdef LWLIB_DIALOGS_MOTIF |
| 1010 | |
| 428 | 1011 /* This function is for activating a button from a program. It's wrong because |
| 1012 we pass a NULL argument in the call_data which is not Motif compatible. | |
| 1013 This is used from the XmNdefaultAction callback of the List widgets to | |
| 1014 have a double-click put down a dialog box like the button would do. | |
| 1015 I could not find a way to do that with accelerators. | |
| 1016 */ | |
| 1017 static void | |
| 2311 | 1018 activate_button (Widget UNUSED (widget), XtPointer closure, |
| 1019 XtPointer UNUSED (call_data)) | |
| 428 | 1020 { |
| 1021 Widget button = (Widget)closure; | |
| 1022 XtCallCallbacks (button, XmNactivateCallback, NULL); | |
| 1023 } | |
| 1024 | |
| 1025 /* creation functions */ | |
| 1026 | |
| 1027 /* dialogs */ | |
| 1028 | |
| 1029 #if (XmVersion >= 1002) | |
| 1030 # define ARMANDACTIVATE_KLUDGE | |
| 1031 # define DND_KLUDGE | |
| 1032 #endif | |
| 1033 | |
| 1034 #ifdef ARMANDACTIVATE_KLUDGE | |
| 1035 /* We want typing Return at a dialog box to select the default button; but | |
| 1036 we're satisfied with having it select the leftmost button instead. | |
| 1037 | |
| 1038 In Motif 1.1.5 we could do this by putting this resource in the | |
| 1039 app-defaults file: | |
| 1040 | |
| 1041 *dialog*button1.accelerators:#override\ | |
| 1042 <KeyPress>Return: ArmAndActivate()\n\ | |
| 1043 <KeyPress>KP_Enter: ArmAndActivate()\n\ | |
| 1044 Ctrl<KeyPress>m: ArmAndActivate()\n | |
| 1045 | |
| 1046 but that doesn't work with 1.2.1 and I don't understand why. However, | |
| 1047 doing the equivalent C code does work, with the notable disadvantage that | |
| 1048 the user can't override it. So that's what we do until we figure out | |
| 1049 something better.... | |
| 1050 */ | |
| 1051 static char button_trans[] = "\ | |
| 1052 <KeyPress>Return: ArmAndActivate()\n\ | |
| 1053 <KeyPress>KP_Enter: ArmAndActivate()\n\ | |
| 1054 Ctrl<KeyPress>m: ArmAndActivate()\n"; | |
| 1055 | |
| 1056 #endif /* ARMANDACTIVATE_KLUDGE */ | |
| 1057 | |
| 1058 | |
| 1059 #ifdef DND_KLUDGE | |
| 1060 /* This is a kludge to disable drag-and-drop in dialog boxes. The symptom | |
| 1061 was a segv down in libXm somewhere if you used the middle button on a | |
| 1062 dialog box to begin a drag; when you released the button to make a drop | |
| 1063 things would lose if you were not over the button where you started the | |
| 1064 drag (canceling the operation). This was probably due to the fact that | |
| 1065 the dialog boxes were not set up to handle a drag but were trying to do | |
| 1066 so anyway for some reason. | |
| 1067 | |
| 1068 So we disable drag-and-drop in dialog boxes by turning off the binding for | |
| 1069 Btn2Down which, by default, initiates a drag. Clearly this is a shitty | |
| 1070 solution as it only works in default configurations, but... | |
| 1071 */ | |
| 1072 static char disable_dnd_trans[] = "<Btn2Down>: "; | |
| 1073 #endif /* DND_KLUDGE */ | |
| 1074 | |
| 1075 | |
| 1076 static Widget | |
| 2311 | 1077 make_dialog (char* UNUSED (name), Widget parent, Boolean pop_up_p, |
| 442 | 1078 const char* shell_title, const char* icon_name, |
| 428 | 1079 Boolean text_input_slot, Boolean radio_box, Boolean list, |
| 1080 int left_buttons, int right_buttons) | |
| 1081 { | |
| 1082 Widget result; | |
| 1083 Widget form; | |
| 1084 Widget row; | |
| 1085 Widget icon; | |
| 1086 Widget icon_separator; | |
| 1087 Widget message; | |
| 1088 Widget value = 0; | |
| 1089 Widget separator; | |
| 1090 Widget button = 0; | |
| 1091 Widget children [16]; /* for the final XtManageChildren */ | |
| 1092 int n_children; | |
| 1093 Arg al[64]; /* Arg List */ | |
| 1094 int ac; /* Arg Count */ | |
| 1095 int i; | |
| 1096 | |
| 1097 #ifdef DND_KLUDGE | |
| 1098 XtTranslations dnd_override = XtParseTranslationTable (disable_dnd_trans); | |
| 1099 # define DO_DND_KLUDGE(widget) XtOverrideTranslations ((widget), dnd_override) | |
| 1100 #else /* ! DND_KLUDGE */ | |
| 1101 # define DO_DND_KLUDGE(widget) | |
| 1102 #endif /* ! DND_KLUDGE */ | |
| 1103 | |
| 1104 if (pop_up_p) | |
| 1105 { | |
| 1106 ac = 0; | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1107 Xt_SET_ARG(al[ac], XmNtitle, shell_title); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1108 Xt_SET_ARG(al[ac], XtNallowShellResize, True); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1109 Xt_SET_ARG(al[ac], XmNdeleteResponse, XmUNMAP); ac++; |
| 428 | 1110 result = XmCreateDialogShell (parent, "dialog", al, ac); |
| 1111 | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1112 Xt_SET_ARG(al[ac], XmNautoUnmanage, FALSE); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1113 /* Xt_SET_ARG(al[ac], XmNautoUnmanage, TRUE); ac++; */ /* ####is this ok? */ |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1114 Xt_SET_ARG(al[ac], XmNnavigationType, XmTAB_GROUP); ac++; |
| 428 | 1115 form = XmCreateForm (result, (char *) shell_title, al, ac); |
| 1116 } | |
| 1117 else | |
| 1118 { | |
| 1119 ac = 0; | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1120 Xt_SET_ARG(al[ac], XmNautoUnmanage, FALSE); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1121 Xt_SET_ARG(al[ac], XmNnavigationType, XmTAB_GROUP); ac++; |
| 428 | 1122 form = XmCreateForm (parent, (char *) shell_title, al, ac); |
| 1123 result = form; | |
| 1124 } | |
| 1125 | |
| 1126 ac = 0; | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1127 Xt_SET_ARG(al[ac], XmNpacking, XmPACK_COLUMN); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1128 Xt_SET_ARG(al[ac], XmNorientation, XmVERTICAL); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1129 Xt_SET_ARG(al[ac], XmNnumColumns, left_buttons + right_buttons + 1); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1130 Xt_SET_ARG(al[ac], XmNmarginWidth, 0); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1131 Xt_SET_ARG(al[ac], XmNmarginHeight, 0); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1132 Xt_SET_ARG(al[ac], XmNspacing, 13); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1133 Xt_SET_ARG(al[ac], XmNadjustLast, False); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1134 Xt_SET_ARG(al[ac], XmNalignment, XmALIGNMENT_CENTER); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1135 Xt_SET_ARG(al[ac], XmNisAligned, True); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1136 Xt_SET_ARG(al[ac], XmNtopAttachment, XmATTACH_NONE); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1137 Xt_SET_ARG(al[ac], XmNbottomAttachment, XmATTACH_FORM); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1138 Xt_SET_ARG(al[ac], XmNbottomOffset, 13); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1139 Xt_SET_ARG(al[ac], XmNleftAttachment, XmATTACH_FORM); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1140 Xt_SET_ARG(al[ac], XmNleftOffset, 13); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1141 Xt_SET_ARG(al[ac], XmNrightAttachment, XmATTACH_FORM); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1142 Xt_SET_ARG(al[ac], XmNrightOffset, 13); ac++; |
| 428 | 1143 row = XmCreateRowColumn (form, "row", al, ac); |
| 1144 | |
| 1145 n_children = 0; | |
| 1146 for (i = 0; i < left_buttons; i++) | |
| 1147 { | |
| 1148 char button_name [16]; | |
| 1149 sprintf (button_name, "button%d", i + 1); | |
| 1150 ac = 0; | |
| 1151 if (i == 0) | |
| 1152 { | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1153 Xt_SET_ARG(al[ac], XmNhighlightThickness, 1); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1154 Xt_SET_ARG(al[ac], XmNshowAsDefault, TRUE); ac++; |
| 428 | 1155 } |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1156 Xt_SET_ARG(al[ac], XmNnavigationType, XmTAB_GROUP); ac++; |
| 428 | 1157 children [n_children] = XmCreatePushButton (row, button_name, al, ac); |
| 1158 DO_DND_KLUDGE (children [n_children]); | |
| 1159 | |
| 1160 if (i == 0) | |
| 1161 { | |
| 1162 button = children [n_children]; | |
| 1163 ac = 0; | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1164 Xt_SET_ARG(al[ac], XmNdefaultButton, button); ac++; |
| 428 | 1165 XtSetValues (row, al, ac); |
| 1166 | |
| 1167 #ifdef ARMANDACTIVATE_KLUDGE /* See comment above */ | |
| 1168 { | |
| 1169 XtTranslations losers = XtParseTranslationTable (button_trans); | |
| 1170 XtOverrideTranslations (button, losers); | |
| 1171 XtFree ((char *) losers); | |
| 1172 } | |
| 1173 #endif /* ARMANDACTIVATE_KLUDGE */ | |
| 1174 } | |
| 1175 | |
| 1176 n_children++; | |
| 1177 } | |
| 1178 | |
| 442 | 1179 /* invisible separator button */ |
| 428 | 1180 ac = 0; |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1181 Xt_SET_ARG (al[ac], XmNmappedWhenManaged, FALSE); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1182 children [n_children] = XmCreateLabel (row, "separator_button", al, ac); |
| 428 | 1183 DO_DND_KLUDGE (children [n_children]); |
| 1184 n_children++; | |
| 1185 | |
| 1186 for (i = 0; i < right_buttons; i++) | |
| 1187 { | |
| 1188 char button_name [16]; | |
| 1189 sprintf (button_name, "button%d", left_buttons + i + 1); | |
| 1190 ac = 0; | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1191 Xt_SET_ARG(al[ac], XmNnavigationType, XmTAB_GROUP); ac++; |
| 428 | 1192 children [n_children] = XmCreatePushButton (row, button_name, al, ac); |
| 1193 DO_DND_KLUDGE (children [n_children]); | |
| 1194 if (! button) button = children [n_children]; | |
| 1195 n_children++; | |
| 1196 } | |
| 1197 | |
| 1198 XtManageChildren (children, n_children); | |
| 1199 | |
| 1200 ac = 0; | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1201 Xt_SET_ARG(al[ac], XmNtopAttachment, XmATTACH_NONE); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1202 Xt_SET_ARG(al[ac], XmNbottomAttachment, XmATTACH_WIDGET); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1203 Xt_SET_ARG(al[ac], XmNbottomOffset, 13); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1204 Xt_SET_ARG(al[ac], XmNbottomWidget, row); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1205 Xt_SET_ARG(al[ac], XmNleftAttachment, XmATTACH_FORM); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1206 Xt_SET_ARG(al[ac], XmNleftOffset, 0); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1207 Xt_SET_ARG(al[ac], XmNrightAttachment, XmATTACH_FORM); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1208 Xt_SET_ARG(al[ac], XmNrightOffset, 0); ac++; |
| 428 | 1209 separator = XmCreateSeparator (form, "", al, ac); |
| 1210 | |
| 1211 ac = 0; | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1212 Xt_SET_ARG(al[ac], XmNlabelType, XmPIXMAP); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1213 Xt_SET_ARG(al[ac], XmNtopAttachment, XmATTACH_FORM); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1214 Xt_SET_ARG(al[ac], XmNtopOffset, 13); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1215 Xt_SET_ARG(al[ac], XmNbottomAttachment, XmATTACH_NONE); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1216 Xt_SET_ARG(al[ac], XmNleftAttachment, XmATTACH_FORM); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1217 Xt_SET_ARG(al[ac], XmNleftOffset, 13); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1218 Xt_SET_ARG(al[ac], XmNrightAttachment, XmATTACH_NONE); ac++; |
| 428 | 1219 icon = XmCreateLabel (form, (char *) icon_name, al, ac); |
| 1220 DO_DND_KLUDGE (icon); | |
| 1221 | |
| 1222 ac = 0; | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1223 Xt_SET_ARG(al[ac], XmNmappedWhenManaged, FALSE); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1224 Xt_SET_ARG(al[ac], XmNtopAttachment, XmATTACH_WIDGET); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1225 Xt_SET_ARG(al[ac], XmNtopOffset, 6); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1226 Xt_SET_ARG(al[ac], XmNtopWidget, icon); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1227 Xt_SET_ARG(al[ac], XmNbottomAttachment, XmATTACH_WIDGET); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1228 Xt_SET_ARG(al[ac], XmNbottomOffset, 6); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1229 Xt_SET_ARG(al[ac], XmNbottomWidget, separator); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1230 Xt_SET_ARG(al[ac], XmNleftAttachment, XmATTACH_NONE); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1231 Xt_SET_ARG(al[ac], XmNrightAttachment, XmATTACH_NONE); ac++; |
| 428 | 1232 icon_separator = XmCreateLabel (form, "", al, ac); |
| 1233 DO_DND_KLUDGE (icon_separator); | |
| 1234 | |
| 1235 if (text_input_slot) | |
| 1236 { | |
| 1237 ac = 0; | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1238 Xt_SET_ARG(al[ac], XmNcolumns, 50); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1239 Xt_SET_ARG(al[ac], XmNtopAttachment, XmATTACH_NONE); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1240 Xt_SET_ARG(al[ac], XmNbottomAttachment, XmATTACH_WIDGET); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1241 Xt_SET_ARG(al[ac], XmNbottomOffset, 13); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1242 Xt_SET_ARG(al[ac], XmNbottomWidget, separator); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1243 Xt_SET_ARG(al[ac], XmNleftAttachment, XmATTACH_WIDGET); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1244 Xt_SET_ARG(al[ac], XmNleftOffset, 13); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1245 Xt_SET_ARG(al[ac], XmNleftWidget, icon); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1246 Xt_SET_ARG(al[ac], XmNrightAttachment, XmATTACH_FORM); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1247 Xt_SET_ARG(al[ac], XmNrightOffset, 13); ac++; |
| 428 | 1248 value = XmCreateTextField (form, "value", al, ac); |
| 1249 DO_DND_KLUDGE (value); | |
| 1250 } | |
| 1251 else if (radio_box) | |
| 1252 { | |
| 1253 Widget radio_butt; | |
| 1254 ac = 0; | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1255 Xt_SET_ARG(al[ac], XmNmarginWidth, 0); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1256 Xt_SET_ARG(al[ac], XmNmarginHeight, 0); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1257 Xt_SET_ARG(al[ac], XmNspacing, 13); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1258 Xt_SET_ARG(al[ac], XmNalignment, XmALIGNMENT_CENTER); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1259 Xt_SET_ARG(al[ac], XmNorientation, XmHORIZONTAL); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1260 Xt_SET_ARG(al[ac], XmNbottomAttachment, XmATTACH_WIDGET); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1261 Xt_SET_ARG(al[ac], XmNbottomOffset, 13); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1262 Xt_SET_ARG(al[ac], XmNbottomWidget, separator); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1263 Xt_SET_ARG(al[ac], XmNleftAttachment, XmATTACH_WIDGET); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1264 Xt_SET_ARG(al[ac], XmNleftOffset, 13); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1265 Xt_SET_ARG(al[ac], XmNleftWidget, icon); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1266 Xt_SET_ARG(al[ac], XmNrightAttachment, XmATTACH_FORM); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1267 Xt_SET_ARG(al[ac], XmNrightOffset, 13); ac++; |
| 428 | 1268 value = XmCreateRadioBox (form, "radiobutton1", al, ac); |
| 1269 ac = 0; | |
| 1270 i = 0; | |
| 1271 radio_butt = XmCreateToggleButtonGadget (value, "radio1", al, ac); | |
| 1272 children [i++] = radio_butt; | |
| 1273 radio_butt = XmCreateToggleButtonGadget (value, "radio2", al, ac); | |
| 1274 children [i++] = radio_butt; | |
| 1275 radio_butt = XmCreateToggleButtonGadget (value, "radio3", al, ac); | |
| 1276 children [i++] = radio_butt; | |
| 1277 XtManageChildren (children, i); | |
| 1278 } | |
| 1279 else if (list) | |
| 1280 { | |
| 1281 ac = 0; | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1282 Xt_SET_ARG(al[ac], XmNvisibleItemCount, 5); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1283 Xt_SET_ARG(al[ac], XmNtopAttachment, XmATTACH_NONE); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1284 Xt_SET_ARG(al[ac], XmNbottomAttachment, XmATTACH_WIDGET); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1285 Xt_SET_ARG(al[ac], XmNbottomOffset, 13); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1286 Xt_SET_ARG(al[ac], XmNbottomWidget, separator); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1287 Xt_SET_ARG(al[ac], XmNleftAttachment, XmATTACH_WIDGET); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1288 Xt_SET_ARG(al[ac], XmNleftOffset, 13); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1289 Xt_SET_ARG(al[ac], XmNleftWidget, icon); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1290 Xt_SET_ARG(al[ac], XmNrightAttachment, XmATTACH_FORM); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1291 Xt_SET_ARG(al[ac], XmNrightOffset, 13); ac++; |
| 428 | 1292 value = XmCreateScrolledList (form, "list", al, ac); |
| 1293 | |
| 442 | 1294 /* this is the easiest way I found to have the double click in the |
| 428 | 1295 list activate the default button */ |
| 1296 XtAddCallback (value, XmNdefaultActionCallback, activate_button, button); | |
| 1297 } | |
| 805 | 1298 /* else add nothing; it's a separator */ |
| 428 | 1299 |
| 1300 ac = 0; | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1301 Xt_SET_ARG(al[ac], XmNalignment, XmALIGNMENT_BEGINNING); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1302 Xt_SET_ARG(al[ac], XmNtopAttachment, XmATTACH_FORM); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1303 Xt_SET_ARG(al[ac], XmNtopOffset, 13); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1304 Xt_SET_ARG(al[ac], XmNbottomAttachment, XmATTACH_WIDGET); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1305 Xt_SET_ARG(al[ac], XmNbottomOffset, 13); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1306 Xt_SET_ARG(al[ac], XmNbottomWidget, |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1307 text_input_slot || radio_box || list ? value : separator); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1308 Xt_SET_ARG(al[ac], XmNleftAttachment, XmATTACH_WIDGET); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1309 Xt_SET_ARG(al[ac], XmNleftOffset, 13); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1310 Xt_SET_ARG(al[ac], XmNleftWidget, icon); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1311 Xt_SET_ARG(al[ac], XmNrightAttachment, XmATTACH_FORM); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1312 Xt_SET_ARG(al[ac], XmNrightOffset, 13); ac++; |
| 428 | 1313 message = XmCreateLabel (form, "message", al, ac); |
| 1314 DO_DND_KLUDGE (message); | |
| 1315 | |
| 1316 if (list) | |
| 1317 XtManageChild (value); | |
| 1318 | |
| 1319 i = 0; | |
| 1320 children [i] = row; i++; | |
| 1321 children [i] = separator; i++; | |
| 1322 if (text_input_slot || radio_box) | |
| 1323 { | |
| 1324 children [i] = value; i++; | |
| 1325 } | |
| 1326 children [i] = message; i++; | |
| 1327 children [i] = icon; i++; | |
| 1328 children [i] = icon_separator; i++; | |
| 1329 XtManageChildren (children, i); | |
| 1330 | |
| 1331 if (text_input_slot || list) | |
| 1332 { | |
| 1333 XtInstallAccelerators (value, button); | |
| 1334 XmProcessTraversal(value, XmTRAVERSE_CURRENT); | |
| 1335 } | |
| 805 | 1336 else if (radio_box) |
| 428 | 1337 { |
| 1338 XtInstallAccelerators (form, button); | |
| 1339 XmProcessTraversal(value, XmTRAVERSE_CURRENT); | |
| 1340 } | |
| 805 | 1341 /* else we don' need no STEENKIN' assellerators. */ |
| 428 | 1342 |
| 1343 #ifdef DND_KLUDGE | |
| 1344 XtFree ((char *) dnd_override); | |
| 1345 #endif | |
| 1346 #undef DO_DND_KLUDGE | |
| 1347 | |
| 1348 return result; | |
| 1349 } | |
| 1350 | |
| 1351 static destroyed_instance* | |
| 1352 find_matching_instance (widget_instance* instance) | |
| 1353 { | |
| 1354 destroyed_instance* cur; | |
| 1355 destroyed_instance* prev; | |
| 1356 char* type = instance->info->type; | |
| 1357 char* name = instance->info->name; | |
| 1358 | |
| 1359 for (prev = NULL, cur = all_destroyed_instances; | |
| 1360 cur; | |
| 1361 prev = cur, cur = cur->next) | |
| 1362 { | |
| 1363 if (!strcmp (cur->name, name) | |
| 1364 && !strcmp (cur->type, type) | |
| 1365 && cur->parent == instance->parent | |
| 1366 && cur->pop_up_p == instance->pop_up_p) | |
| 1367 { | |
| 1368 if (prev) | |
| 1369 prev->next = cur->next; | |
| 1370 else | |
| 1371 all_destroyed_instances = cur->next; | |
| 1372 return cur; | |
| 1373 } | |
| 1374 /* do some cleanup */ | |
| 1375 else if (!cur->widget) | |
| 1376 { | |
| 1377 if (prev) | |
| 1378 prev->next = cur->next; | |
| 1379 else | |
| 1380 all_destroyed_instances = cur->next; | |
| 1381 free_destroyed_instance (cur); | |
| 1382 cur = prev ? prev : all_destroyed_instances; | |
| 1383 } | |
| 1384 } | |
| 1385 return NULL; | |
| 1386 } | |
| 1387 | |
| 1388 static void | |
| 1389 recenter_widget (Widget widget) | |
| 1390 { | |
| 1391 Widget parent = XtParent (widget); | |
| 1392 Screen* screen = XtScreen (widget); | |
| 1393 Dimension screen_width = WidthOfScreen (screen); | |
| 1394 Dimension screen_height = HeightOfScreen (screen); | |
| 1395 Dimension parent_width = 0; | |
| 1396 Dimension parent_height = 0; | |
| 1397 Dimension child_width = 0; | |
| 1398 Dimension child_height = 0; | |
| 1399 Position x; | |
| 1400 Position y; | |
| 1401 Arg al [2]; | |
| 1402 | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1403 Xt_SET_ARG (al [0], XtNwidth, &child_width); |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1404 Xt_SET_ARG (al [1], XtNheight, &child_height); |
| 428 | 1405 XtGetValues (widget, al, 2); |
| 1406 | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1407 Xt_SET_ARG (al [0], XtNwidth, &parent_width); |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1408 Xt_SET_ARG (al [1], XtNheight, &parent_height); |
| 428 | 1409 XtGetValues (parent, al, 2); |
| 1410 | |
| 1411 x = (Position) ((parent_width - child_width) / 2); | |
| 1412 y = (Position) ((parent_height - child_height) / 2); | |
| 1413 | |
| 1414 XtTranslateCoords (parent, x, y, &x, &y); | |
| 1415 | |
| 1416 if ((Dimension) (x + child_width) > screen_width) | |
| 1417 x = screen_width - child_width; | |
| 1418 if (x < 0) | |
| 1419 x = 0; | |
| 1420 | |
| 1421 if ((Dimension) (y + child_height) > screen_height) | |
| 1422 y = screen_height - child_height; | |
| 1423 if (y < 0) | |
| 1424 y = 0; | |
| 1425 | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1426 Xt_SET_ARG (al [0], XtNx, x); |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1427 Xt_SET_ARG (al [1], XtNy, y); |
| 428 | 1428 XtSetValues (widget, al, 2); |
| 1429 } | |
| 1430 | |
| 1431 static Widget | |
| 1432 recycle_instance (destroyed_instance* instance) | |
| 1433 { | |
| 1434 Widget widget = instance->widget; | |
| 1435 | |
| 1436 /* widget is NULL if the parent was destroyed. */ | |
| 1437 if (widget) | |
| 1438 { | |
| 1439 Widget focus; | |
| 1440 Widget separator; | |
| 1441 | |
| 1442 /* Remove the destroy callback as the instance is not in the list | |
| 1443 anymore */ | |
| 1444 XtRemoveCallback (instance->parent, XtNdestroyCallback, | |
| 1445 mark_dead_instance_destroyed, | |
| 1446 (XtPointer)instance); | |
| 1447 | |
| 1448 /* Give the focus to the initial item */ | |
| 1449 focus = XtNameToWidget (widget, "*value"); | |
| 1450 if (!focus) | |
| 1451 focus = XtNameToWidget (widget, "*button1"); | |
| 1452 if (focus) | |
| 1453 XmProcessTraversal(focus, XmTRAVERSE_CURRENT); | |
| 1454 | |
| 1455 /* shrink the separator label back to their original size */ | |
| 1456 separator = XtNameToWidget (widget, "*separator_button"); | |
| 1457 if (separator) | |
| 1458 { | |
| 1459 Arg al [2]; | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1460 Xt_SET_ARG (al [0], XtNwidth, 5); |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1461 Xt_SET_ARG (al [1], XtNheight, 5); |
| 428 | 1462 XtSetValues (separator, al, 2); |
| 1463 } | |
| 1464 | |
| 1465 /* Center the dialog in its parent */ | |
| 1466 recenter_widget (widget); | |
| 1467 } | |
| 1468 free_destroyed_instance (instance); | |
| 1469 return widget; | |
| 1470 } | |
| 1471 | |
| 1472 Widget | |
| 1473 xm_create_dialog (widget_instance* instance) | |
| 1474 { | |
| 1475 char* name = instance->info->type; | |
| 1476 Widget parent = instance->parent; | |
| 1477 Widget widget; | |
| 1478 Boolean pop_up_p = instance->pop_up_p; | |
| 442 | 1479 const char* shell_name = 0; |
| 1480 const char* icon_name = 0; | |
| 428 | 1481 Boolean text_input_slot = False; |
| 1482 Boolean radio_box = False; | |
| 1483 Boolean list = False; | |
| 1484 int total_buttons; | |
| 1485 int left_buttons = 0; | |
| 1486 int right_buttons = 1; | |
| 1487 destroyed_instance* dead_one; | |
| 1488 | |
| 1489 /* try to find a widget to recycle */ | |
| 1490 dead_one = find_matching_instance (instance); | |
| 1491 if (dead_one) | |
| 1492 { | |
| 1493 Widget recycled_widget = recycle_instance (dead_one); | |
| 1494 if (recycled_widget) | |
| 1495 return recycled_widget; | |
| 1496 } | |
| 1497 | |
| 1498 switch (name [0]){ | |
| 1499 case 'E': case 'e': | |
| 1500 icon_name = "dbox-error"; | |
| 1501 shell_name = "Error"; | |
| 1502 break; | |
| 1503 | |
| 1504 case 'I': case 'i': | |
| 1505 icon_name = "dbox-info"; | |
| 1506 shell_name = "Information"; | |
| 1507 break; | |
| 1508 | |
| 1509 case 'L': case 'l': | |
| 1510 list = True; | |
| 1511 icon_name = "dbox-question"; | |
| 1512 shell_name = "Prompt"; | |
| 1513 break; | |
| 1514 | |
| 1515 case 'P': case 'p': | |
| 1516 text_input_slot = True; | |
| 1517 icon_name = "dbox-question"; | |
| 1518 shell_name = "Prompt"; | |
| 1519 break; | |
| 1520 | |
| 1521 case 'Q': case 'q': | |
| 1522 icon_name = "dbox-question"; | |
| 1523 shell_name = "Question"; | |
| 1524 break; | |
| 1525 } | |
| 1526 | |
| 1527 total_buttons = name [1] - '0'; | |
| 1528 | |
| 1529 if (name [3] == 'T' || name [3] == 't') | |
| 1530 { | |
| 1531 text_input_slot = False; | |
| 1532 radio_box = True; | |
| 1533 } | |
| 1534 else if (name [3]) | |
| 1535 right_buttons = name [4] - '0'; | |
| 1536 | |
| 1537 left_buttons = total_buttons - right_buttons; | |
| 1538 | |
| 1539 widget = make_dialog (name, parent, pop_up_p, | |
| 1540 shell_name, icon_name, text_input_slot, radio_box, | |
| 1541 list, left_buttons, right_buttons); | |
| 1542 | |
| 1543 XtAddCallback (widget, XmNpopdownCallback, xm_nosel_callback, | |
| 1544 (XtPointer) instance); | |
| 1545 return widget; | |
| 1546 } | |
| 1547 | |
| 1548 #endif /* LWLIB_DIALOGS_MOTIF */ | |
| 1549 | |
| 1550 #ifdef LWLIB_MENUBARS_MOTIF | |
| 1551 static Widget | |
| 1552 make_menubar (widget_instance* instance) | |
| 1553 { | |
| 1554 Arg al[10]; | |
| 1555 int ac = 0; | |
| 1556 | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1557 Xt_SET_ARG(al[ac], XmNmarginHeight, 0); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1558 Xt_SET_ARG(al[ac], XmNshadowThickness, 3); ac++; |
| 428 | 1559 |
| 1560 return XmCreateMenuBar (instance->parent, instance->info->name, al, ac); | |
| 1561 } | |
| 1562 | |
| 1563 static void | |
| 1564 remove_grabs (Widget shell, XtPointer closure, XtPointer call_data) | |
| 1565 { | |
| 1566 Widget menu = (Widget) closure; | |
| 1567 XmRemoveFromPostFromList (menu, XtParent (XtParent ((Widget) menu))); | |
| 1568 } | |
| 1569 | |
| 1570 static Widget | |
| 1571 make_popup_menu (widget_instance* instance) | |
| 1572 { | |
| 1573 Widget parent = instance->parent; | |
| 1574 Window parent_window = parent->core.window; | |
| 1575 Widget result; | |
| 1576 | |
| 1577 /* sets the parent window to 0 to fool Motif into not generating a grab */ | |
| 1578 parent->core.window = 0; | |
| 1579 result = XmCreatePopupMenu (parent, instance->info->name, NULL, 0); | |
| 1580 XtAddCallback (XtParent (result), XmNpopdownCallback, remove_grabs, | |
| 1581 (XtPointer)result); | |
| 1582 parent->core.window = parent_window; | |
| 1583 return result; | |
| 1584 } | |
| 1585 #endif /* LWLIB_MENUBARS_MOTIF */ | |
| 1586 | |
| 1587 #ifdef LWLIB_SCROLLBARS_MOTIF | |
| 1588 static Widget | |
| 1589 make_scrollbar (widget_instance *instance, int vertical) | |
| 1590 { | |
| 1591 Arg al[20]; | |
| 1592 int ac = 0; | |
| 1593 static XtCallbackRec callbacks[2] = | |
| 1594 { {xm_scrollbar_callback, NULL}, {NULL, NULL} }; | |
| 1595 | |
| 1596 callbacks[0].closure = (XtPointer) instance; | |
| 1597 | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1598 Xt_SET_ARG (al[ac], XmNminimum, 1); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1599 Xt_SET_ARG (al[ac], XmNmaximum, INT_MAX); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1600 Xt_SET_ARG (al[ac], XmNincrement, 1); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1601 Xt_SET_ARG (al[ac], XmNpageIncrement, 1); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1602 Xt_SET_ARG (al[ac], XmNborderWidth, 0); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1603 Xt_SET_ARG (al[ac], XmNorientation, |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1604 vertical ? XmVERTICAL : XmHORIZONTAL); ac++; |
| 428 | 1605 |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1606 Xt_SET_ARG (al[ac], XmNdecrementCallback, callbacks); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1607 Xt_SET_ARG (al[ac], XmNdragCallback, callbacks); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1608 Xt_SET_ARG (al[ac], XmNincrementCallback, callbacks); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1609 Xt_SET_ARG (al[ac], XmNpageDecrementCallback, callbacks); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1610 Xt_SET_ARG (al[ac], XmNpageIncrementCallback, callbacks); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1611 Xt_SET_ARG (al[ac], XmNtoBottomCallback, callbacks); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1612 Xt_SET_ARG (al[ac], XmNtoTopCallback, callbacks); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1613 Xt_SET_ARG (al[ac], XmNvalueChangedCallback, callbacks); ac++; |
| 428 | 1614 |
| 1615 return XmCreateScrollBar (instance->parent, instance->info->name, al, ac); | |
| 1616 } | |
| 1617 | |
| 1618 static Widget | |
| 1619 make_vertical_scrollbar (widget_instance *instance) | |
| 1620 { | |
| 1621 return make_scrollbar (instance, 1); | |
| 1622 } | |
| 1623 | |
| 1624 static Widget | |
| 1625 make_horizontal_scrollbar (widget_instance *instance) | |
| 1626 { | |
| 1627 return make_scrollbar (instance, 0); | |
| 1628 } | |
| 1629 | |
| 1630 #endif /* LWLIB_SCROLLBARS_MOTIF */ | |
| 1631 | |
| 1632 #ifdef LWLIB_WIDGETS_MOTIF | |
| 1633 /* glyph widgets */ | |
| 1634 static Widget | |
| 1635 xm_create_button (widget_instance *instance) | |
| 1636 { | |
| 1637 Arg al[20]; | |
| 1638 int ac = 0; | |
| 1639 Widget button = 0; | |
| 1640 widget_value* val = instance->info->val; | |
| 1641 | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1642 Xt_SET_ARG (al [ac], XmNsensitive, val->enabled); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1643 Xt_SET_ARG (al [ac], XmNalignment, XmALIGNMENT_BEGINNING); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1644 Xt_SET_ARG (al [ac], XmNuserData, val->call_data); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1645 Xt_SET_ARG (al [ac], XmNmappedWhenManaged, FALSE); ac++; |
| 428 | 1646 /* The highlight doesn't appear to be dynamically set which makes it |
| 1647 look ugly. I think this may be a LessTif bug but for now we just | |
| 1648 get rid of it. */ | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1649 Xt_SET_ARG (al [ac], XmNhighlightThickness, (Dimension)0); ac++; |
| 428 | 1650 |
| 1651 /* add any args the user supplied for creation time */ | |
| 1652 lw_add_value_args_to_args (val, al, &ac); | |
| 1653 | |
| 1654 if (!val->call_data) | |
| 1655 button = XmCreateLabel (instance->parent, val->name, al, ac); | |
| 1656 | |
| 1657 else if (val->type == TOGGLE_TYPE || val->type == RADIO_TYPE) | |
| 1658 { | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1659 Xt_SET_ARG (al [ac], XmNset, val->selected); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1660 Xt_SET_ARG (al [ac], XmNindicatorType, |
| 428 | 1661 (val->type == TOGGLE_TYPE ? |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1662 XmN_OF_MANY : XmONE_OF_MANY)); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1663 Xt_SET_ARG (al [ac], XmNvisibleWhenOff, True); ac++; |
| 428 | 1664 button = XmCreateToggleButton (instance->parent, val->name, al, ac); |
| 1665 XtRemoveAllCallbacks (button, XmNvalueChangedCallback); | |
| 1666 XtAddCallback (button, XmNvalueChangedCallback, xm_generic_callback, | |
| 1667 (XtPointer)instance); | |
| 1668 } | |
| 1669 else | |
| 1670 { | |
| 1671 button = XmCreatePushButton (instance->parent, val->name, al, ac); | |
| 1672 XtAddCallback (button, XmNactivateCallback, xm_generic_callback, | |
| 1673 (XtPointer)instance); | |
| 1674 } | |
| 1675 | |
| 1676 XtManageChild (button); | |
| 1677 | |
| 1678 return button; | |
| 1679 } | |
| 1680 | |
| 1681 static Widget | |
| 1682 xm_create_progress (widget_instance *instance) | |
| 1683 { | |
| 1684 Arg al[20]; | |
| 1685 int ac = 0; | |
| 639 | 1686 Dimension height = 0; |
| 1687 Dimension width = 0; | |
| 428 | 1688 Widget scale = 0; |
| 1689 widget_value* val = instance->info->val; | |
| 1690 if (!val->call_data) | |
| 1691 { | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1692 Xt_SET_ARG (al [ac], XmNeditable, False); ac++; |
| 428 | 1693 } |
| 1694 else | |
| 1695 { | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1696 Xt_SET_ARG (al [ac], XmNeditable, val->enabled); ac++; |
| 428 | 1697 } |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1698 Xt_SET_ARG (al [ac], XmNalignment, XmALIGNMENT_BEGINNING); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1699 Xt_SET_ARG (al [ac], XmNuserData, val->call_data); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1700 Xt_SET_ARG (al [ac], XmNmappedWhenManaged, FALSE); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1701 Xt_SET_ARG (al [ac], XmNorientation, XmHORIZONTAL); ac++; |
| 428 | 1702 /* The highlight doesn't appear to be dynamically set which makes it |
| 1703 look ugly. I think this may be a LessTif bug but for now we just | |
| 1704 get rid of it. */ | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1705 Xt_SET_ARG (al [ac], XmNhighlightThickness, (Dimension)0); ac++; |
| 639 | 1706 |
| 1707 height = (Dimension)lw_get_value_arg (val, XtNheight); | |
| 1708 width = (Dimension)lw_get_value_arg (val, XtNwidth); | |
| 1709 if (height > 0) | |
| 1710 { | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1711 Xt_SET_ARG (al [ac], XmNscaleHeight, height); ac++; |
| 639 | 1712 } |
| 1713 if (width > 0) | |
| 1714 { | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1715 Xt_SET_ARG (al [ac], XmNscaleWidth, width); ac++; |
| 639 | 1716 } |
| 1717 | |
| 428 | 1718 /* add any args the user supplied for creation time */ |
| 1719 lw_add_value_args_to_args (val, al, &ac); | |
| 1720 | |
| 1721 scale = XmCreateScale (instance->parent, val->name, al, ac); | |
| 1722 if (val->call_data) | |
| 1723 XtAddCallback (scale, XmNvalueChangedCallback, xm_generic_callback, | |
| 1724 (XtPointer)instance); | |
| 1725 | |
| 1726 XtManageChild (scale); | |
| 1727 | |
| 1728 return scale; | |
| 1729 } | |
| 1730 | |
| 1731 static Widget | |
| 1732 xm_create_text_field (widget_instance *instance) | |
| 1733 { | |
| 1734 Arg al[20]; | |
| 1735 int ac = 0; | |
| 1736 Widget text = 0; | |
| 1737 widget_value* val = instance->info->val; | |
| 1738 | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1739 Xt_SET_ARG (al [ac], XmNsensitive, val->enabled); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1740 Xt_SET_ARG (al [ac], XmNalignment, XmALIGNMENT_BEGINNING); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1741 Xt_SET_ARG (al [ac], XmNuserData, val->call_data); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1742 Xt_SET_ARG (al [ac], XmNmappedWhenManaged, FALSE); ac++; |
| 428 | 1743 /* The highlight doesn't appear to be dynamically set which makes it |
| 1744 look ugly. I think this may be a LessTif bug but for now we just | |
| 1745 get rid of it. */ | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1746 Xt_SET_ARG (al [ac], XmNhighlightThickness, (Dimension)0); ac++; |
| 428 | 1747 |
| 1748 /* add any args the user supplied for creation time */ | |
| 1749 lw_add_value_args_to_args (val, al, &ac); | |
| 1750 | |
| 1751 text = XmCreateTextField (instance->parent, val->name, al, ac); | |
| 1752 if (val->call_data) | |
| 1753 XtAddCallback (text, XmNvalueChangedCallback, xm_generic_callback, | |
| 1754 (XtPointer)instance); | |
| 1755 | |
| 1756 XtManageChild (text); | |
| 1757 | |
| 1758 return text; | |
| 1759 } | |
| 1760 | |
| 1761 static Widget | |
| 1762 xm_create_label_field (widget_instance *instance) | |
| 1763 { | |
| 1764 return xm_create_label (instance->parent, instance->info->val); | |
| 1765 } | |
| 1766 | |
| 1767 Widget | |
| 1768 xm_create_label (Widget parent, widget_value* val) | |
| 1769 { | |
| 1770 Arg al[20]; | |
| 1771 int ac = 0; | |
| 1772 Widget label = 0; | |
| 1773 | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1774 Xt_SET_ARG (al [ac], XmNsensitive, val->enabled); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1775 Xt_SET_ARG (al [ac], XmNalignment, XmALIGNMENT_BEGINNING); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1776 Xt_SET_ARG (al [ac], XmNmappedWhenManaged, FALSE); ac++; |
| 428 | 1777 /* The highlight doesn't appear to be dynamically set which makes it |
| 1778 look ugly. I think this may be a LessTif bug but for now we just | |
| 1779 get rid of it. */ | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1780 Xt_SET_ARG (al [ac], XmNhighlightThickness, (Dimension)0); ac++; |
| 428 | 1781 |
| 1782 /* add any args the user supplied for creation time */ | |
| 1783 lw_add_value_args_to_args (val, al, &ac); | |
| 1784 | |
| 1785 label = XmCreateLabel (parent, val->name, al, ac); | |
| 1786 | |
| 1787 XtManageChild (label); | |
| 1788 | |
| 1789 /* Do it again for arguments that have no effect until the widget is realized. */ | |
| 1790 ac = 0; | |
| 1791 lw_add_value_args_to_args (val, al, &ac); | |
| 1792 XtSetValues (label, al, ac); | |
| 1793 | |
| 1794 return label; | |
| 1795 } | |
| 1796 | |
| 1797 #if XmVERSION > 1 | |
| 1798 static Widget | |
| 1799 xm_create_combo_box (widget_instance *instance) | |
| 1800 { | |
| 1801 Arg al[20]; | |
| 1802 int ac = 0; | |
| 1803 Widget combo = 0; | |
| 1804 widget_value* val = instance->info->val; | |
| 1805 | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1806 Xt_SET_ARG (al [ac], XmNsensitive, val->enabled); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1807 Xt_SET_ARG (al [ac], XmNalignment, XmALIGNMENT_BEGINNING); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1808 Xt_SET_ARG (al [ac], XmNuserData, val->call_data); ac++; |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1809 Xt_SET_ARG (al [ac], XmNmappedWhenManaged, FALSE); ac++; |
| 428 | 1810 /* The highlight doesn't appear to be dynamically set which makes it |
| 1811 look ugly. I think this may be a LessTif bug but for now we just | |
| 1812 get rid of it. */ | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1813 Xt_SET_ARG (al [ac], XmNhighlightThickness, (Dimension)0); ac++; |
| 428 | 1814 |
| 1815 /* add any args the user supplied for creation time */ | |
| 1816 lw_add_value_args_to_args (val, al, &ac); | |
| 1817 | |
| 1818 combo = XmCreateDropDownComboBox (instance->parent, val->name, al, ac); | |
| 1819 if (val->call_data) | |
| 1820 XtAddCallback (combo, XmNselectionCallback, xm_generic_callback, | |
| 1821 (XtPointer)instance); | |
| 1822 | |
| 1823 XtManageChild (combo); | |
| 1824 | |
| 1825 return combo; | |
| 1826 } | |
| 1827 #endif | |
| 1828 #endif /* LWLIB_WIDGETS_MOTIF */ | |
| 1829 | |
| 1830 | |
| 1831 /* Table of functions to create widgets */ | |
| 1832 | |
| 450 | 1833 const widget_creation_entry |
| 428 | 1834 xm_creation_table [] = |
| 1835 { | |
| 1836 #ifdef LWLIB_MENUBARS_MOTIF | |
| 1837 {"menubar", make_menubar}, | |
| 1838 {"popup", make_popup_menu}, | |
| 1839 #endif | |
| 1840 #ifdef LWLIB_SCROLLBARS_MOTIF | |
| 1841 {"vertical-scrollbar", make_vertical_scrollbar}, | |
| 1842 {"horizontal-scrollbar", make_horizontal_scrollbar}, | |
| 1843 #endif | |
| 1844 #ifdef LWLIB_WIDGETS_MOTIF | |
| 1845 {"button", xm_create_button}, | |
| 1846 {"progress", xm_create_progress}, | |
| 1847 {"text-field", xm_create_text_field}, | |
| 1848 {"label", xm_create_label_field}, | |
| 1849 #if XmVERSION > 1 | |
| 1850 {"combo-box", xm_create_combo_box}, | |
| 1851 #endif | |
| 1852 #endif | |
| 1853 {NULL, NULL} | |
| 1854 }; | |
| 1855 | |
| 1856 /* Destruction of instances */ | |
| 1857 void | |
| 2286 | 1858 xm_destroy_instance ( |
| 1859 #if defined (LWLIB_DIALOGS_MOTIF) || defined (LWLIB_WIDGETS_MOTIF) | |
| 1860 widget_instance* instance | |
| 1861 #else | |
| 1862 widget_instance* UNUSED (instance) | |
| 1863 #endif | |
| 1864 ) | |
| 428 | 1865 { |
| 1866 #if defined (LWLIB_DIALOGS_MOTIF) || defined (LWLIB_WIDGETS_MOTIF) | |
| 1867 /* It appears that this is used only for dialog boxes. */ | |
| 1868 Widget widget = instance->widget; | |
| 1869 /* recycle the dialog boxes */ | |
| 1870 /* Disable the recycling until we can find a way to have the dialog box | |
| 1871 get reasonable layout after we modify its contents. */ | |
| 1872 if (0 | |
| 1873 && XtClass (widget) == xmDialogShellWidgetClass) | |
| 1874 { | |
| 1875 destroyed_instance* dead_instance = | |
| 1876 make_destroyed_instance (instance->info->name, | |
| 1877 instance->info->type, | |
| 1878 instance->widget, | |
| 1879 instance->parent, | |
| 1880 instance->pop_up_p); | |
| 1881 dead_instance->next = all_destroyed_instances; | |
| 1882 all_destroyed_instances = dead_instance; | |
| 1883 XtUnmanageChild (first_child (instance->widget)); | |
| 1884 XFlush (XtDisplay (instance->widget)); | |
| 1885 XtAddCallback (instance->parent, XtNdestroyCallback, | |
| 1886 mark_dead_instance_destroyed, (XtPointer)dead_instance); | |
| 1887 } | |
| 1888 else | |
| 1889 { | |
| 1890 /* This might not be necessary now that the nosel is attached to | |
| 1891 popdown instead of destroy, but it can't hurt. */ | |
| 1892 XtRemoveCallback (instance->widget, XtNdestroyCallback, | |
| 1893 xm_nosel_callback, (XtPointer)instance); | |
| 1894 | |
| 1895 XtDestroyWidget (instance->widget); | |
| 1896 } | |
| 1897 #endif /* LWLIB_DIALOGS_MOTIF || LWLIB_WIDGETS_MOTIF */ | |
| 1898 } | |
| 1899 | |
| 1900 /* popup utility */ | |
| 1901 #ifdef LWLIB_MENUBARS_MOTIF | |
| 1902 | |
| 1903 void | |
| 1904 xm_popup_menu (Widget widget, XEvent *event) | |
| 1905 { | |
| 1906 if (event->type == ButtonPress || event->type == ButtonRelease) | |
| 1907 { | |
| 1908 /* This is so totally ridiculous: there's NO WAY to tell Motif | |
| 1909 that *any* button can select a menu item. Only one button | |
| 1910 can have that honor. | |
| 1911 */ | |
| 1912 char *trans = 0; | |
| 1913 if (event->xbutton.state & Button5Mask) trans = "<Btn5Down>"; | |
| 1914 else if (event->xbutton.state & Button4Mask) trans = "<Btn4Down>"; | |
| 1915 else if (event->xbutton.state & Button3Mask) trans = "<Btn3Down>"; | |
| 1916 else if (event->xbutton.state & Button2Mask) trans = "<Btn2Down>"; | |
| 1917 else if (event->xbutton.state & Button1Mask) trans = "<Btn1Down>"; | |
| 1918 if (trans) | |
| 1919 { | |
| 1920 Arg al [1]; | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1921 Xt_SET_ARG (al [0], XmNmenuPost, trans); |
| 428 | 1922 XtSetValues (widget, al, 1); |
| 1923 } | |
| 1924 XmMenuPosition (widget, (XButtonPressedEvent *) event); | |
| 1925 } | |
| 1926 XtManageChild (widget); | |
| 1927 } | |
| 1928 | |
| 1929 #endif | |
| 1930 | |
| 1931 #ifdef LWLIB_DIALOGS_MOTIF | |
| 1932 | |
| 1933 static void | |
| 1934 set_min_dialog_size (Widget w) | |
| 1935 { | |
| 1936 short width; | |
| 1937 short height; | |
| 1938 Arg al [2]; | |
| 1939 | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1940 Xt_SET_ARG (al [0], XmNwidth, &width); |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1941 Xt_SET_ARG (al [1], XmNheight, &height); |
| 428 | 1942 XtGetValues (w, al, 2); |
| 1943 | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1944 Xt_SET_ARG (al [0], XmNminWidth, width); |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
1945 Xt_SET_ARG (al [1], XmNminHeight, height); |
| 428 | 1946 XtSetValues (w, al, 2); |
| 1947 } | |
| 1948 | |
| 1949 #endif | |
| 1950 | |
| 1951 void | |
| 1952 xm_pop_instance (widget_instance* instance, Boolean up) | |
| 1953 { | |
| 1954 Widget widget = instance->widget; | |
| 1955 | |
| 1956 #ifdef LWLIB_DIALOGS_MOTIF | |
| 1957 if (XtClass (widget) == xmDialogShellWidgetClass) | |
| 1958 { | |
| 1959 Widget widget_to_manage = first_child (widget); | |
| 1960 if (up) | |
| 1961 { | |
| 1962 XtManageChild (widget_to_manage); | |
| 1963 set_min_dialog_size (widget); | |
| 1964 XmProcessTraversal(widget, XmTRAVERSE_CURRENT); | |
| 1965 } | |
| 1966 else | |
| 1967 XtUnmanageChild (widget_to_manage); | |
| 1968 } | |
| 1969 else | |
| 1970 #endif | |
| 1971 { | |
| 1972 if (up) | |
| 1973 XtManageChild (widget); | |
| 1974 else | |
| 1975 XtUnmanageChild (widget); | |
| 1976 } | |
| 1977 } | |
| 1978 | |
| 1979 | |
| 1980 /* motif callback */ | |
| 1981 | |
| 1982 enum do_call_type { pre_activate, selection, no_selection, post_activate }; | |
| 1983 | |
| 1984 static void | |
| 1985 do_call (Widget widget, XtPointer closure, enum do_call_type type) | |
| 1986 { | |
| 1987 XtPointer user_data; | |
| 1988 widget_instance* instance = (widget_instance*)closure; | |
| 1989 Widget instance_widget; | |
| 1990 LWLIB_ID id; | |
| 1991 | |
| 1992 if (!instance) | |
| 1993 return; | |
| 1994 if (widget->core.being_destroyed) | |
| 1995 return; | |
| 1996 | |
| 1997 instance_widget = instance->widget; | |
| 1998 if (!instance_widget) | |
| 1999 return; | |
| 2000 | |
| 2001 id = instance->info->id; | |
| 2002 user_data = NULL; | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
2003 Xt_GET_VALUE (widget, XmNuserData, &user_data); |
| 428 | 2004 switch (type) |
| 2005 { | |
| 2006 case pre_activate: | |
| 2007 if (instance->info->pre_activate_cb) | |
| 2008 instance->info->pre_activate_cb (widget, id, user_data); | |
| 2009 break; | |
| 2010 case selection: | |
| 2011 if (instance->info->selection_cb) | |
| 2012 instance->info->selection_cb (widget, id, user_data); | |
| 2013 break; | |
| 2014 case no_selection: | |
| 2015 if (instance->info->selection_cb) | |
| 2016 instance->info->selection_cb (widget, id, (XtPointer) -1); | |
| 2017 break; | |
| 2018 case post_activate: | |
| 2019 if (instance->info->post_activate_cb) | |
| 2020 instance->info->post_activate_cb (widget, id, user_data); | |
| 2021 break; | |
| 2022 default: | |
| 2023 abort (); | |
| 2024 } | |
| 2025 } | |
| 2026 | |
| 2027 /* Like lw_internal_update_other_instances except that it does not do | |
| 2028 anything if its shell parent is not managed. This is to protect | |
| 2029 lw_internal_update_other_instances to dereference freed memory | |
| 2030 if the widget was ``destroyed'' by caching it in the all_destroyed_instances | |
| 2031 list */ | |
| 2032 static void | |
| 2033 xm_internal_update_other_instances (Widget widget, XtPointer closure, | |
| 2034 XtPointer call_data) | |
| 2035 { | |
| 2036 Widget parent; | |
| 2037 for (parent = widget; parent; parent = XtParent (parent)) | |
| 2038 if (XtIsShell (parent)) | |
| 2039 break; | |
| 2040 else if (!XtIsManaged (parent)) | |
| 2041 return; | |
| 2042 lw_internal_update_other_instances (widget, closure, call_data); | |
| 2043 } | |
| 2044 | |
| 2045 static void | |
| 2046 xm_generic_callback (Widget widget, XtPointer closure, XtPointer call_data) | |
| 2047 { | |
| 2048 #if (defined (LWLIB_MENUBARS_MOTIF) || defined (LWLIB_DIALOGS_MOTIF) || defined (LWLIB_WIDGETS_MOTIF)) | |
| 2049 /* We want the selected status to change only when we decide it | |
| 2050 should change. Yuck but correct. */ | |
| 2051 if (XtClass (widget) == xmToggleButtonWidgetClass | |
| 2052 || XtClass (widget) == xmToggleButtonGadgetClass) | |
| 2053 { | |
| 2054 Boolean check; | |
| 2055 | |
|
4528
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
2056 Xt_GET_VALUE (widget, XmNset, &check); |
|
726060ee587c
First draft of g++ 4.3 warning removal patch. Builds. *Needs ChangeLogs.*
Stephen J. Turnbull <stephen@xemacs.org>
parents:
4522
diff
changeset
|
2057 Xt_SET_VALUE (widget, XmNset, !check); |
| 428 | 2058 } |
| 2059 #endif | |
| 2060 lw_internal_update_other_instances (widget, closure, call_data); | |
| 2061 do_call (widget, closure, selection); | |
| 2062 } | |
| 2063 | |
| 1261 | 2064 #if 0 /* Caller above is commented out */ |
| 428 | 2065 static void |
| 2066 xm_pop_down_callback (Widget widget, XtPointer closure, XtPointer call_data) | |
| 2067 { | |
| 2068 do_call (widget, closure, post_activate); | |
| 2069 } | |
| 1261 | 2070 #endif /* 0 */ |
| 428 | 2071 |
| 2072 #ifdef LWLIB_MENUBARS_MOTIF | |
| 2073 | |
| 2074 static void | |
| 2075 xm_pull_down_callback (Widget widget, XtPointer closure, XtPointer call_data) | |
| 2076 { | |
| 2077 #if 0 | |
| 2078 if (call_data) | |
| 2079 { | |
| 2080 /* new behavior for incremental menu construction */ | |
| 2081 | |
| 2082 } | |
| 2083 else | |
| 2084 #endif | |
| 2085 do_call (widget, closure, pre_activate); | |
| 2086 } | |
| 2087 | |
| 2088 #endif /* LWLIB_MENUBARS_MOTIF */ | |
| 2089 | |
| 2090 #ifdef LWLIB_SCROLLBARS_MOTIF | |
| 2091 static void | |
| 2092 xm_scrollbar_callback (Widget widget, XtPointer closure, XtPointer call_data) | |
| 2093 { | |
| 2094 widget_instance *instance = (widget_instance *) closure; | |
| 2095 LWLIB_ID id; | |
| 2096 XmScrollBarCallbackStruct *data = | |
| 2097 (XmScrollBarCallbackStruct *) call_data; | |
| 2098 scroll_event event_data; | |
| 2099 scrollbar_values *val = | |
| 2100 (scrollbar_values *) instance->info->val->scrollbar_data; | |
| 2101 double percent; | |
| 2102 | |
| 2103 if (!instance || widget->core.being_destroyed) | |
| 2104 return; | |
| 2105 | |
| 2106 id = instance->info->id; | |
| 2107 | |
| 2108 percent = (double) (data->value - 1) / (double) (INT_MAX - 1); | |
| 2109 event_data.slider_value = | |
| 2110 (int) (percent * (double) (val->maximum - val->minimum)) + val->minimum; | |
| 2111 | |
| 2112 if (event_data.slider_value > (val->maximum - val->slider_size)) | |
| 2113 event_data.slider_value = val->maximum - val->slider_size; | |
| 2114 else if (event_data.slider_value < 1) | |
| 2115 event_data.slider_value = 1; | |
| 2116 | |
| 2117 if (data->event) | |
| 2118 { | |
| 2119 switch (data->event->xany.type) | |
| 2120 { | |
| 2121 case KeyPress: | |
| 2122 case KeyRelease: | |
| 2123 event_data.time = data->event->xkey.time; | |
| 2124 break; | |
| 2125 case ButtonPress: | |
| 2126 case ButtonRelease: | |
| 2127 event_data.time = data->event->xbutton.time; | |
| 2128 break; | |
| 2129 case MotionNotify: | |
| 2130 event_data.time = data->event->xmotion.time; | |
| 2131 break; | |
| 2132 case EnterNotify: | |
| 2133 case LeaveNotify: | |
| 2134 event_data.time = data->event->xcrossing.time; | |
| 2135 break; | |
| 2136 default: | |
| 2137 event_data.time = 0; | |
| 2138 break; | |
| 2139 } | |
| 2140 } | |
| 2141 else | |
| 2142 event_data.time = 0; | |
| 2143 | |
| 2144 switch (data->reason) | |
| 2145 { | |
| 2146 case XmCR_DECREMENT: | |
| 2147 event_data.action = SCROLLBAR_LINE_UP; | |
| 2148 break; | |
| 2149 case XmCR_INCREMENT: | |
| 2150 event_data.action = SCROLLBAR_LINE_DOWN; | |
| 2151 break; | |
| 2152 case XmCR_PAGE_DECREMENT: | |
| 2153 event_data.action = SCROLLBAR_PAGE_UP; | |
| 2154 break; | |
| 2155 case XmCR_PAGE_INCREMENT: | |
| 2156 event_data.action = SCROLLBAR_PAGE_DOWN; | |
| 2157 break; | |
| 2158 case XmCR_TO_TOP: | |
| 2159 event_data.action = SCROLLBAR_TOP; | |
| 2160 break; | |
| 2161 case XmCR_TO_BOTTOM: | |
| 2162 event_data.action = SCROLLBAR_BOTTOM; | |
| 2163 break; | |
| 2164 case XmCR_DRAG: | |
| 2165 event_data.action = SCROLLBAR_DRAG; | |
| 2166 break; | |
| 2167 case XmCR_VALUE_CHANGED: | |
| 2168 event_data.action = SCROLLBAR_CHANGE; | |
| 2169 break; | |
| 2170 default: | |
| 2171 event_data.action = SCROLLBAR_CHANGE; | |
| 2172 break; | |
| 2173 } | |
| 2174 | |
| 2175 if (instance->info->pre_activate_cb) | |
| 2176 instance->info->pre_activate_cb (widget, id, (XtPointer) &event_data); | |
| 2177 } | |
| 2178 #endif /* LWLIB_SCROLLBARS_MOTIF */ | |
| 2179 | |
| 2180 #if defined (LWLIB_DIALOGS_MOTIF) || defined (LWLIB_WIDGETS_MOTIF) | |
| 2181 static void | |
| 2311 | 2182 mark_dead_instance_destroyed (Widget UNUSED (widget), XtPointer closure, |
| 2183 XtPointer UNUSED (call_data)) | |
| 428 | 2184 { |
| 2185 destroyed_instance* instance = (destroyed_instance*)closure; | |
| 2186 instance->widget = NULL; | |
| 2187 } | |
| 2188 | |
| 2189 static void | |
| 2311 | 2190 xm_nosel_callback (Widget widget, XtPointer closure, |
| 2191 XtPointer UNUSED (call_data)) | |
| 428 | 2192 { |
| 2193 /* This callback is only called when a dialog box is dismissed with the wm's | |
| 2194 destroy button (WM_DELETE_WINDOW.) We want the dialog box to be destroyed | |
| 2195 in that case, not just unmapped, so that it releases its keyboard grabs. | |
| 2196 But there are problems with running our callbacks while the widget is in | |
| 2197 the process of being destroyed, so we set XmNdeleteResponse to XmUNMAP | |
| 2198 instead of XmDESTROY and then destroy it ourself after having run the | |
| 2199 callback. | |
| 2200 */ | |
| 2201 do_call (widget, closure, no_selection); | |
| 2202 XtDestroyWidget (widget); | |
| 2203 } | |
| 2204 #endif | |
| 2205 | |
| 2206 | |
| 2207 /* set the keyboard focus */ | |
| 2208 void | |
| 2286 | 2209 xm_set_keyboard_focus (Widget UNUSED (parent), Widget w) |
| 428 | 2210 { |
| 2211 XmProcessTraversal (w, XmTRAVERSE_CURRENT); | |
| 2212 /* At some point we believed that it was necessary to use XtSetKeyboardFocus | |
| 2213 instead of XmProcessTraversal when using Motif >= 1.2.1, but that's bogus. | |
| 2214 Presumably the problem was elsewhere, and is now gone... | |
| 2215 */ | |
| 2216 } |