def render_content_on(r)
r.element_id(??'test-forms')
r.table do
r.table_row do
r.table_data do
r.form do
r.selectFromList_selected_callback(self.allClasses, @klass,
proc do |c| self.class(c) end)
r.submit_button(:OK)
end
end
r.table_data do
r.form do
r.selectFromList_selected_callback(self.allSelectors, @selector,
proc do |s| self.selector(s) end)
r.submit_button(:OK)
end
end
end
end
r.horizontal_rule
r.render(@component)
if @has_answer then
r.horizontal_rule
r.bold(??'Answer ')
r.text(@answer)
end
end