show all classes, reduce delay

lib/debugger.rb

@@ -24,7 +24,7 @@ class MainView < ListView
 
   def initialize
     machine = Register.machine.boot
-    code = s(:statements, s(:class, :Foo, s(:derives, nil),
+    code = s(:statements, s(:class, :Object, s(:derives, nil),
                 s(:statements, s(:class_field, :Integer, :x))))
     Soml.compile( code  )
     machine.collect

lib/views/classes_view.rb

@@ -11,7 +11,6 @@ class ClassesView < ListView
   def class_views
     classes = []
     Register.machine.space.classes.each do |name , claz|
-      next if [:Kernel,:Module,:MetaClass,:BinaryCode].index name
       classes << claz
     end
     classes.sort! {|a,b| a.name <=> b.name }

lib/views/status_view.rb

@@ -42,7 +42,7 @@ class StatusView < ElementView
         self.update
         self.run
       end
-      proc.after( 0.05 )
+      proc.after( 0.001 )
     rescue => e
       puts e
     end