FIX Trac #1825: standalone deriving Typeable
[ghc-hetmet.git] / rts / VisCallbacks.c
1 /* -----------------------------------------------------------------------------
2  *
3  * (c) The GHC Team 2000
4  *
5  * RTS GTK Front Panel (callbacks)
6  *
7  * ---------------------------------------------------------------------------*/
8
9 #ifdef RTS_GTK_FRONTPANEL
10
11 #include "Rts.h"
12
13 #include <gtk/gtk.h>
14
15 #include "VisCallbacks.h"
16 #include "VisWindow.h"
17 #include "VisSupport.h"
18 #include "FrontPanel.h"
19
20 void
21 on_cont_radio_clicked                  (GtkButton       *button,
22                                         gpointer         user_data)
23 {
24     update_mode = Continuous;
25 }
26
27
28 void
29 on_stop_before_radio_clicked           (GtkButton       *button,
30                                         gpointer         user_data)
31 {
32     update_mode = BeforeGC;
33 }
34
35
36 void
37 on_stop_after_radio_clicked            (GtkButton       *button,
38                                         gpointer         user_data)
39 {
40     update_mode = AfterGC;
41 }
42
43
44 void
45 on_stop_both_radio_clicked             (GtkButton       *button,
46                                         gpointer         user_data)
47 {
48     update_mode = BeforeAfterGC;
49 }
50
51
52 void
53 on_stop_but_clicked                    (GtkButton       *button,
54                                         gpointer         user_data)
55 {
56     stop_now = TRUE;
57 }
58
59
60 void
61 on_continue_but_clicked                (GtkButton       *button,
62                                         gpointer         user_data)
63 {
64     continue_now = TRUE;
65 }
66
67
68 void
69 on_quit_but_clicked                    (GtkButton       *button,
70                                         gpointer         user_data)
71 {
72     quit = TRUE;
73 }
74
75 #endif /* RTS_GTK_FRONTPANEL */