Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 76 lines (57 sloc) 1.617 kb
39a9917 [project @ 2000-11-01 11:41:47 by simonmar]
simonmar authored
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 */
Something went wrong with that request. Please try again.