debian: Fix package sections.

[mgLib] / msg.c

/* -*-c-*-
 *
 * $Id$
 *
 * Display a message and get an answer
 *
 * (c) 1998 Straylight/Edgeware
 */

/*----- Licensing notice --------------------------------------------------* 
 *
 * This file is part of the mgLib GTK utilities library.
 *
 * mgLib is free software; you can redistribute it and/or modify
 * it under the terms of the GNU Library General Public License as
 * published by the Free Software Foundation; either version 2 of the
 * License, or (at your option) any later version.
 * 
 * mgLib is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Library General Public License for more details.
 * 
 * You should have received a copy of the GNU Library General Public
 * License along with mgLib; if not, write to the Free
 * Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
 * MA 02111-1307, USA.
 */

/*----- Header files ------------------------------------------------------*/

#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include <gtk/gtk.h>

#include <mLib/alloc.h>
#include <mLib/dstr.h>

#include "cancel.h"
#include "mdwfocus.h"
#include "msg.h"

/*----- Static variables --------------------------------------------------*/

static int reply;
static int creply;

/*----- Main code ---------------------------------------------------------*/

/* --- @msg@ --- *
 *
 * Arguments:	@const char *title@ = the title for the message box
 *		@const char *buttons@ = the button strings to display
 *		@const char *msg@ = the message skeleton string
 *
 * Returns:	Index of the button selected.
 *
 * Use:		Displays a message to the user in a nice dialogue box and
 *		returns the index of the button selected.
 *
 *		The @msg@ argument is a @printf@-style format string, which
 *		contains the message to actually be shown.  The @buttons@
 *		argument is a comma-separated list of buttons to be drawn,
 *		from right to left.  A button name can be preceded with `:'
 *		to indicate that it's the default, or `~' if it's the
 *		`cancel' button.  The return value is the zero-based index
 *		of the button selected.
 */

static int close(GtkWidget *w, gpointer p)
{
  reply = creply;
  gtk_main_quit();
  return (1);
}

static void click(GtkWidget *w, gpointer p)
{
  reply = (int)p;
  gtk_main_quit();
}

int msg(const char *title, const char *buttons, const char *msg, ...)
{
  GtkWidget *dbox, *w;

  /* --- Make most of the dialogue box --- */

  dbox = gtk_dialog_new();
  gtk_window_set_title(GTK_WINDOW(dbox), title);
  gtk_signal_connect(GTK_OBJECT(dbox), "delete_event",
		     GTK_SIGNAL_FUNC(close), 0);
  gtk_box_set_homogeneous(GTK_BOX(GTK_DIALOG(dbox)->action_area), 0);  

  /* --- Set up the message string --- */

  {
    dstr d = DSTR_INIT;
    va_list ap;

    va_start(ap, msg);
    dstr_vputf(&d, msg, &ap);
    va_end(ap);
    w = gtk_label_new(d.buf);
    gtk_label_set_justify(GTK_LABEL(w), GTK_JUSTIFY_LEFT);
    gtk_box_pack_start(GTK_BOX(GTK_DIALOG(dbox)->vbox), w, 1, 1, 0);
    gtk_window_position(GTK_WINDOW(dbox), GTK_WIN_POS_MOUSE);
    gtk_widget_show(w);
    gtk_misc_set_padding(GTK_MISC(w), 16, 16);
    dstr_destroy(&d);
  }

  /* --- Set up the buttons --- */

  {
    char *p = xstrdup(buttons);
    unsigned f = 0;
    int i = 0;

#define f_ok 1u
#define f_cancel 2u
#define f_mdwfocus 4u

    if (*p == '!') {
      f |= f_mdwfocus;
      p++;
    }

    creply = -1;

    for (p = strtok(p, ","); p; p = strtok(0, ","), i++) {
      unsigned ff = 0;
      if (*p == ':') {
	ff |= f_ok;
	p++;
      }
      if (*p == '~') {
	ff |= f_cancel;
	creply = i;
	p++;
      }
      w = gtk_button_new_with_label(p);
      GTK_WIDGET_SET_FLAGS(w, GTK_CAN_DEFAULT);
      gtk_box_pack_end(GTK_BOX(GTK_DIALOG(dbox)->action_area), w, 0, 0, 0);
      gtk_signal_connect(GTK_OBJECT(w), "clicked",
			 GTK_SIGNAL_FUNC(click), (gpointer)i);
      if (ff & f_ok)
	gtk_widget_grab_default(w);
      if (ff & f_cancel)
	cancel(GTK_WINDOW(dbox), w);
      gtk_widget_show(w);
    }
    xfree(p);

    /* --- Preflight checklist --- */

    gtk_widget_realize(dbox);
    if (f & f_mdwfocus)
      mdwfocus(dbox);

#undef f_ok
#undef f_cancel
#undef f_mdwfocus
  }

  /* --- Ready --- */

  gtk_grab_add(GTK_WIDGET(dbox));
  gtk_widget_show(dbox);
  gtk_main();
  gtk_grab_remove(GTK_WIDGET(dbox));
  gtk_widget_destroy(dbox);
  return (reply);
}

/*----- That's all, folks -------------------------------------------------*/