GNU standards require "file name" instead of "filename" in
[pspp-builds.git] / src / ui / gui / message-dialog.c
1 /* 
2    PSPPIRE --- A Graphical User Interface for PSPP
3    Copyright (C) 2004,2005  Free Software Foundation
4    Written by John Darrington
5
6    This program is free software; you can redistribute it and/or modify
7    it under the terms of the GNU General Public License as published by
8    the Free Software Foundation; either version 2 of the License, or
9    (at your option) any later version.
10
11    This program is distributed in the hope that it will be useful,
12    but WITHOUT ANY WARRANTY; without even the implied warranty of
13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14    GNU General Public License for more details.
15
16    You should have received a copy of the GNU General Public License
17    along with this program; if not, write to the Free Software
18    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
19    02110-1301, USA. 
20 */
21
22
23 #include <stdio.h>
24 #include <stdarg.h>
25
26 #include <config.h>
27 #include <libpspp/message.h>
28 #include "message-dialog.h"
29 #include "progname.h"
30
31
32 #include <gtk/gtk.h>
33 #include <glade/glade.h>
34
35 #include "helper.h"
36
37 extern GladeXML *xml;
38
39 #define _(A) A
40
41
42 void 
43 vmsg(int klass, const char *fmt, va_list args)
44 {
45   gchar *msg = 0;
46   gchar *text = g_strdup_vprintf (fmt, args);
47
48   GtkWindow *parent ;
49   GtkWidget *dialog ;
50                     
51   gint message_type;
52
53   switch (klass)
54     {
55     case SE:
56     case DE:
57     case ME:
58       message_type = GTK_MESSAGE_ERROR;
59       break;
60     case SW:
61     case DW:
62     case MW:
63       message_type = GTK_MESSAGE_WARNING;
64       break;
65     case SM:
66     case MM:
67     default:
68       message_type = GTK_MESSAGE_INFO;
69       break;
70     };
71   
72   switch (klass) 
73     {
74     case SE:
75     case SW:
76     case SM:
77       msg = g_strdup(_("Script Error"));
78       break;
79
80     case DE:
81     case DW:
82       msg = g_strdup(_("Data File Error"));
83       break;
84
85     case ME:
86     case MW:
87     case MM:
88     default:
89       msg = g_strdup(_("PSPP Error"));
90       break;
91     };
92   
93   parent = GTK_WINDOW(get_widget_assert(xml, "data_editor"));
94
95   dialog = gtk_message_dialog_new(parent,
96                                   GTK_DIALOG_MODAL,
97                                   message_type,
98                                   GTK_BUTTONS_CLOSE,
99                                   msg);
100   
101   gtk_message_dialog_format_secondary_text(GTK_MESSAGE_DIALOG(dialog), text);
102
103   g_free(text);
104   g_free(msg);
105     
106   gtk_window_set_transient_for(GTK_WINDOW(dialog), parent);
107
108   gtk_dialog_run(GTK_DIALOG(dialog));
109
110   gtk_widget_destroy (dialog);
111
112 }
113
114
115 void 
116 msg(int klass, const char *fmt, ...)
117 {
118   va_list ap;
119   va_start(ap, fmt);
120   vmsg(klass, fmt, ap);
121   va_end(ap);
122 }
123
124
125 void
126 err_vmsg (const struct error *e, const char *format, va_list args)
127 {
128   vmsg(e->class, format, args);
129 }
130
131
132 void 
133 err_assert_fail(const char *expr, const char *file, int line)
134 {
135   msg(ME, "Assertion failed: %s:%d; (%s)\n",file,line,expr);
136 }
137
138 /* Writes MESSAGE formatted with printf, to stderr, if the
139    verbosity level is at least LEVEL. */
140 void
141 verbose_msg (int level, const char *format, ...)
142 {
143   /* Do nothing for now. */
144 }
145
146 /* FIXME: This is a stub .
147  * A temporary workaround until getl.c is rearranged
148  */
149 void
150 err_location (struct file_locator *f)
151 {
152         f->file_name = 0;
153         f->line_number = -1;
154 }
155