From feeedf973de56f33ff591270c009983713eb579c Mon Sep 17 00:00:00 2001
From: Torsten Ruger <torsten@villataika.fi>
Date: Sun, 1 Nov 2015 00:06:03 +0200
Subject: [PATCH] show all classes, reduce delay

---
 lib/debugger.rb           | 2 +-
 lib/views/classes_view.rb | 1 -
 lib/views/status_view.rb  | 2 +-
 3 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/lib/debugger.rb b/lib/debugger.rb
index 84617f2..1ef329f 100644
--- a/lib/debugger.rb
+++ b/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
diff --git a/lib/views/classes_view.rb b/lib/views/classes_view.rb
index bd154ec..f8c5f9c 100644
--- a/lib/views/classes_view.rb
+++ b/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 }
diff --git a/lib/views/status_view.rb b/lib/views/status_view.rb
index d5c9b91..8d2f2d6 100644
--- a/lib/views/status_view.rb
+++ b/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