comparison lwlib/lwlib-Xm.c @ 89909:68c22ea6027c

Sync to HEAD

89908:ee1402f7b568

  XtCallCallbacks (button, XmNactivateCallback, NULL);
}

/* creation functions */

/* dialogs */
static Widget
make_dialog (name, parent, pop_up_p, shell_title, icon_name, text_input_slot,
	     radio_box, list, left_buttons, right_buttons)
     char* name;

	  XtSetArg(al[ac], XmNshowAsDefault, TRUE); ac++;
	}
      XtSetArg(al[ac], XmNmarginWidth, 10); ac++;
      XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++;
      children [n_children] = XmCreatePushButton (row, button_name, al, ac);

      if (i == 0)
	{
	  button = children [n_children];
	  ac = 0;

      sprintf (button_name, "button%d", left_buttons + i + 1);
      ac = 0;
      XtSetArg(al[ac], XmNmarginWidth, 10); ac++;
      XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++;
      children [n_children] = XmCreatePushButton (row, button_name, al, ac);
      if (! button) button = children [n_children];
      n_children++;
    }

  XtManageChildren (children, n_children);

			shell_name, icon_name, text_input_slot, radio_box,
			list, left_buttons, right_buttons);

  XtAddCallback (widget, XmNpopdownCallback, xm_nosel_callback,
		 (XtPointer) instance);
  return widget;
}

/* Create a menu bar.  We turn off the f10 key
   because we have not yet managed to make it work right in Motif.  */

     Widget w;
     Boolean flag;
{
  XtVaSetValues (w, XtNallowShellResize, flag, NULL);
}

89909:68c22ea6027c

  XtCallCallbacks (button, XmNactivateCallback, NULL);
}

/* creation functions */

/* Called for key press in dialogs.  Used to pop down dialog on ESC.  */
static void
dialog_key_cb (widget, closure, event, continue_to_dispatch)
     Widget widget;
     XtPointer closure;
     XEvent *event;
     Boolean *continue_to_dispatch;
{
  KeySym sym = 0;
  Modifiers modif_ret;
  
  XtTranslateKeycode (event->xkey.display, event->xkey.keycode, 0,
                      &modif_ret, &sym);
                      
  if (sym == osfXK_Cancel)
    {
      Widget w = *((Widget *) closure);

      while (w && ! XtIsShell (w))
        w = XtParent (w);

      if (XtIsShell (w)) XtPopdown (w);
    }

  *continue_to_dispatch = TRUE;
}

/* dialogs */
static Widget
make_dialog (name, parent, pop_up_p, shell_title, icon_name, text_input_slot,
	     radio_box, list, left_buttons, right_buttons)
     char* name;

	  XtSetArg(al[ac], XmNshowAsDefault, TRUE); ac++;
	}
      XtSetArg(al[ac], XmNmarginWidth, 10); ac++;
      XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++;
      children [n_children] = XmCreatePushButton (row, button_name, al, ac);
      XtAddEventHandler (children [n_children],
                         KeyPressMask, False, dialog_key_cb, result);

      if (i == 0)
	{
	  button = children [n_children];
	  ac = 0;

      sprintf (button_name, "button%d", left_buttons + i + 1);
      ac = 0;
      XtSetArg(al[ac], XmNmarginWidth, 10); ac++;
      XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++;
      children [n_children] = XmCreatePushButton (row, button_name, al, ac);
      XtAddEventHandler (children [n_children],
                         KeyPressMask, False, dialog_key_cb, result);

      if (! button) button = children [n_children];
      n_children++;
    }

  XtManageChildren (children, n_children);

			shell_name, icon_name, text_input_slot, radio_box,
			list, left_buttons, right_buttons);

  XtAddCallback (widget, XmNpopdownCallback, xm_nosel_callback,
		 (XtPointer) instance);

  return widget;
}

/* Create a menu bar.  We turn off the f10 key
   because we have not yet managed to make it work right in Motif.  */

     Widget w;
     Boolean flag;
{
  XtVaSetValues (w, XtNallowShellResize, flag, NULL);
}

/* arch-tag: 73976f64-73b2-4600-aa13-d9ede20ee965
   (do not change this comment) */