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 */