first functional GUI

1 files changed, 55 insertions, 1 deletions

diff --git a/mixgtk/mixgtk_mixvm.c b/mixgtk/mixgtk_mixvm.c
index 16fa410..1ef32a5 100644
--- a/mixgtk/mixgtk_mixvm.c
+++ b/mixgtk/mixgtk_mixvm.c
@@ -1,7 +1,7 @@
 /* -*-c-*- -------------- mixgtk_mixvm.c :
  * Implementation of the functions declared in mixgtk_mixvm.h
  * ------------------------------------------------------------------
- *  Last change: Time-stamp: "01/03/09 22:20:59 jose"
+ *  Last change: Time-stamp: "01/03/13 00:24:56 jose"
  * ------------------------------------------------------------------
  * Copyright (C) 2001 Free Software Foundation, Inc.
  *  
@@ -25,6 +25,7 @@
 #include "mixgtk_widgets.h"
 #include "mixgtk_mixvm.h"
 #include "mixgtk_cmd_dispatcher.h"
+#include "mixgtk_input.h"
 
 /* register widgets */
 #define REGISTER_NO_ (MIXGTK_WIDGET_rI6 - MIXGTK_WIDGET_rA + 1)
@@ -295,3 +296,56 @@ on_loc_arrow_clicked (GtkWidget *widget, gpointer data)
   mixgtk_mixvm_update_cells_to_address (address);
 }
 
+
+static void
+register_AX_ (mix_word_t w, gpointer reg)
+{
+  gint k = GPOINTER_TO_INT (reg);
+  if (k == 0)
+    mix_vm_set_rA (vm_, w);
+  else
+    mix_vm_set_rX (vm_, w);
+  update_register_ (MIXGTK_WIDGET_rA + k);
+}
+
+static void
+register_j_ (mix_word_t w, gpointer data)
+{
+  if (mix_word_is_negative (w)) mix_word_reverse_sign (w);
+  mix_vm_set_rJ (vm_, mix_word_to_short_fast (w));
+  update_register_ (MIXGTK_WIDGET_rJ);
+}
+
+static void
+register_i_ (mix_word_t w, gpointer reg)
+{
+  mix_vm_set_rI (vm_, GPOINTER_TO_INT (reg), mix_word_to_short_fast (w));
+  update_register_ (MIXGTK_WIDGET_rI1 - 1 + GPOINTER_TO_INT (reg));
+}
+
+void
+on_register_click (GtkWidget *w, GdkEvent *e, gpointer data)
+{
+  enum {SIZE = 20};
+  static gchar BUFFER[SIZE];
+  gint k;
+  
+  if (w == GTK_WIDGET (reg_entries_[0]))
+    mixgtk_input_word ("Register A", mix_vm_get_rA (vm_),
+		       register_AX_, GINT_TO_POINTER (0));
+  else if (w == GTK_WIDGET (reg_entries_[1]))
+    mixgtk_input_word ("Register X", mix_vm_get_rX (vm_),
+		       register_AX_, GINT_TO_POINTER(1));
+  else if (w == GTK_WIDGET (reg_entries_[2]))
+    mixgtk_input_short ("Register J", mix_vm_get_rJ (vm_), register_j_, NULL);
+  else for (k = 1; k < 7; ++k)
+    {
+      if (w == GTK_WIDGET (reg_entries_[2 + k]))
+	{
+	  snprintf (BUFFER, SIZE, "Register I%d", k);
+	  mixgtk_input_short (BUFFER, mix_vm_get_rI (vm_, k),
+			      register_i_, GINT_TO_POINTER (k));
+	  break;
+	}
+    }
+}