raw source int the source view

lib/views/blocks_view.rb

@@ -12,7 +12,7 @@ class BlocksView < ListView
 
   def draw
     super()
-    wrap_element div("div.label_view") << div("h4" , "Method + Block " ) << div("h4.method" , @method_name)
+    wrap_element div("div.labels_view") << div("h4" , "Method + Block " ) << div("h4.method" , @method_name)
     return @element
   end
 

lib/views/file_view.rb

@@ -1,8 +0,0 @@
-class FileView < ElementView
-
-
-  def draw
-    @element = div(".file_view") << div("h4" ,"Future")
-  end
-
-end

lib/views/instruction_view.rb

@@ -24,7 +24,7 @@ class InstructionView < ListView
   def draw
     super()
     wrap_node_with @elements.first , div
-    wrap_element div(".source_view") << div("h4" ,"Register Machine Instruction")
+    wrap_element div(".instruction_view") << div("h4" ,"Register Machine Instruction")
     @element
   end
 
@@ -38,4 +38,5 @@ class InstructionView < ListView
     return "" unless @interpreter.instruction
     @interpreter.instruction.to_s
   end
+
 end

lib/views/source_view.rb

@@ -0,0 +1,32 @@
+class SourceView < ElementView
+
+  def initialize interpreter
+    @interpreter = interpreter
+    @interpreter.register_event(:instruction_changed,  self)
+  end
+
+  def draw
+    @text = div
+    @element = div(".source_view") << div("h4" ,"Future") << @text
+    @element
+  end
+
+  def instruction_changed
+    @text.text = source
+  end
+
+  def source
+    i = @interpreter.instruction
+    return "" unless i
+    case i.source
+    when AST::Node
+      i.source.to_s
+    when String
+      "String " + i.source
+    else
+      raise i.source.class.name
+    end
+
+  end
+
+end

lib/views/switch_view.rb

@@ -64,7 +64,7 @@ class SelectView < ElementView
     promise.then do |response|
       code = decode( response.text)
       machine = Register.machine.boot
-      Soml::Compiler.compile( code  )
+      Soml.compile( code  )
       machine.collect
       @interpreter.start machine.init
     end