ghc/rts/VisCallbacks.c

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