[Emacs-diffs] Changes to emacs/src/w32menu.c

[Nick Roberts]

Index: emacs/src/w32menu.c
diff -c emacs/src/w32menu.c:1.70 emacs/src/w32menu.c:1.71
*** emacs/src/w32menu.c:1.70    Tue Sep  7 21:49:59 2004
--- emacs/src/w32menu.c Tue May 24 08:38:58 2005
***************
*** 860,868 ****
  An ITEM may also be just a string--that makes a nonselectable item.
  An ITEM may also be nil--that means to put all preceding items
  on the left of the dialog box and all following items on the right.
! \(By default, approximately half appear on each side.)  */)
!   (position, contents)
!      Lisp_Object position, contents;
  {
    FRAME_PTR f = NULL;
    Lisp_Object window;
--- 860,871 ----
  An ITEM may also be just a string--that makes a nonselectable item.
  An ITEM may also be nil--that means to put all preceding items
  on the left of the dialog box and all following items on the right.
! \(By default, approximately half appear on each side.)
! 
! If HEADER is non-nil, the frame title for the box is "Information",
! otherwise it is "Question". */)
!   (position, contents, header)
!      Lisp_Object position, contents, header;
  {
    FRAME_PTR f = NULL;
    Lisp_Object window;
***************
*** 949,955 ****
  
      /* Display them in a dialog box.  */
      BLOCK_INPUT;
!     selection = w32_dialog_show (f, 0, title, &error_name);
      UNBLOCK_INPUT;
  
      discard_menu_items ();
--- 952,958 ----
  
      /* Display them in a dialog box.  */
      BLOCK_INPUT;
!     selection = w32_dialog_show (f, 0, title, header, &error_name);
      UNBLOCK_INPUT;
  
      discard_menu_items ();
***************
*** 1995,2004 ****
    "button6", "button7", "button8", "button9", "button10" };
  
  static Lisp_Object
! w32_dialog_show (f, keymaps, title, error)
       FRAME_PTR f;
       int keymaps;
!      Lisp_Object title;
       char **error;
  {
    int i, nb_buttons=0;
--- 1998,2007 ----
    "button6", "button7", "button8", "button9", "button10" };
  
  static Lisp_Object
! w32_dialog_show (f, keymaps, title, header, error)
       FRAME_PTR f;
       int keymaps;
!      Lisp_Object title, header;
       char **error;
  {
    int i, nb_buttons=0;
***************
*** 2099,2109 ****
      wv->name = dialog_name;
      wv->help = Qnil;
  
      /* Dialog boxes use a really stupid name encoding
         which specifies how many buttons to use
!        and how many buttons are on the right.
!        The Q means something also.  */
!     dialog_name[0] = 'Q';
      dialog_name[1] = '0' + nb_buttons;
      dialog_name[2] = 'B';
      dialog_name[3] = 'R';
--- 2102,2118 ----
      wv->name = dialog_name;
      wv->help = Qnil;
  
+     /*  Frame title: 'Q' = Question, 'I' = Information.
+         Can also have 'E' = Error if, one day, we want
+         a popup for errors. */
+     if (NILP(header))
+       dialog_name[0] = 'Q';
+     else
+       dialog_name[0] = 'I';
+ 
      /* Dialog boxes use a really stupid name encoding
         which specifies how many buttons to use
!        and how many buttons are on the right. */
      dialog_name[1] = '0' + nb_buttons;
      dialog_name[2] = 'B';
      dialog_name[3] = 'R';