75 lines
2.0 KiB
Ruby
75 lines
2.0 KiB
Ruby
require_relative "ref_view"
|
|
|
|
class ObjectView < ListView
|
|
|
|
# z is the z-index
|
|
|
|
def initialize object , interpreter = nil , z = nil
|
|
@object = object
|
|
@z = z
|
|
@interpreter = interpreter
|
|
@interpreter.register_event(:object_changed, self) if interpreter
|
|
super( content_elements )
|
|
end
|
|
|
|
def draw
|
|
@element = super(@interpreter ? "ul.nav!" : "ul")
|
|
prepend_element div( "li" ) << div("span" , class_header )
|
|
return @element
|
|
end
|
|
|
|
def object_changed( reg , at)
|
|
#puts "Object changed in #{reg} , at #{at}"
|
|
for_object = @interpreter.get_register( reg )
|
|
return unless for_object == @object
|
|
#puts "Object changed #{for_object} , at #{at}"
|
|
variable = @object.get_instance_variables.get(at)
|
|
if(variable)
|
|
f = @object.get_instance_variable(variable)
|
|
else
|
|
variable = at.to_s
|
|
f = @object.get_internal_word(at)
|
|
end
|
|
#puts "got var name #{variable}#{variable.class} for #{at}, #{f}"
|
|
view = RefView.new( variable , f , @z )
|
|
if( @children[at + 1] )
|
|
replace_at(at + 1, view)
|
|
else
|
|
append_view(view)
|
|
end
|
|
end
|
|
|
|
def class_header
|
|
pos = Risc::Position.set?(@object)
|
|
str = pos ? pos.to_s : @object.object_id.to_s(16)
|
|
clazz = @object.class.name.split("::").last
|
|
[clazz, str].join " : "
|
|
end
|
|
|
|
def content_elements
|
|
fields = [ConstantView.new("li" , "------------------------------")]
|
|
object = @object
|
|
if object and ! object.is_a?(String)
|
|
object.get_instance_variables.each do |variable|
|
|
f = object.get_instance_variable(variable)
|
|
fields << RefView.new( variable , f , @z )
|
|
end
|
|
if( object.is_a?(Parfait::List) )
|
|
index = 0
|
|
object.each do | o|
|
|
fields << RefView.new( index.to_s , o , @z )
|
|
index += 1
|
|
end
|
|
end
|
|
if( object.is_a?(Parfait::Integer) )
|
|
fields << RefView.new( 3.to_s , object.value , @z )
|
|
end
|
|
if( object.is_a?(Parfait::Word) )
|
|
fields << RefView.new( 3.to_s , object.to_string , @z )
|
|
end
|
|
end
|
|
fields
|
|
end
|
|
|
|
end
|