show all classes, reduce delay
This commit is contained in:
parent
88aa296356
commit
feeedf973d
@ -24,7 +24,7 @@ class MainView < ListView
|
|||||||
|
|
||||||
def initialize
|
def initialize
|
||||||
machine = Register.machine.boot
|
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))))
|
s(:statements, s(:class_field, :Integer, :x))))
|
||||||
Soml.compile( code )
|
Soml.compile( code )
|
||||||
machine.collect
|
machine.collect
|
||||||
|
@ -11,7 +11,6 @@ class ClassesView < ListView
|
|||||||
def class_views
|
def class_views
|
||||||
classes = []
|
classes = []
|
||||||
Register.machine.space.classes.each do |name , claz|
|
Register.machine.space.classes.each do |name , claz|
|
||||||
next if [:Kernel,:Module,:MetaClass,:BinaryCode].index name
|
|
||||||
classes << claz
|
classes << claz
|
||||||
end
|
end
|
||||||
classes.sort! {|a,b| a.name <=> b.name }
|
classes.sort! {|a,b| a.name <=> b.name }
|
||||||
|
@ -42,7 +42,7 @@ class StatusView < ElementView
|
|||||||
self.update
|
self.update
|
||||||
self.run
|
self.run
|
||||||
end
|
end
|
||||||
proc.after( 0.05 )
|
proc.after( 0.001 )
|
||||||
rescue => e
|
rescue => e
|
||||||
puts e
|
puts e
|
||||||
end
|
end
|
||||||
|
Loading…
x
Reference in New Issue
Block a user