@@ -1,137 +1,141 @@ -include System -include System::Windows -include System::Windows::Browser -include System::Windows::Controls - -$DEBUG = false - -class SilverlightApplication - def document - HtmlPage.document - end - - def application - Application.current - end - - def self.use_xaml(options = {}) - options = {:type => UserControl, :name => "app"}.merge(options) - Application.current.load_root_visual(options[:type].new, "#{options[:name]}.xaml") - end - - def root - application.root_visual - end - - def puts(msg) - if document.debug_print.nil? - div = document.create_element('div') - div[:id] = "debug_print" - document.get_elements_by_tag_name("body").get_Item(0).append_child(div) - end - document.debug_print[:innerHTML] = "#{document.debug_print.innerHTML}<hr />#{msg}" - end - - def debug_puts(msg) - puts(msg) if $DEBUG - end - - def method_missing(m) - root.send(m) - end -end - -class HtmlDocument - def method_missing(m) - get_element_by_id(m) - end - - alias_method :orig_get_element_by_id, :get_element_by_id - def get_element_by_id(id) - orig_get_element_by_id(id.to_s.to_clr_string) - end -end - -class HtmlElement - def [](index) - a = get_attribute(index) - return get_property(index) if a.nil? - return a - end - - def []=(index, value) - set_property(index, value) - rescue - begin - set_attribute(index, value) - rescue => e - raise e - end - end - - def method_missing(m, &block) - if(block.nil?) - self[m] - else - attach_event(m.to_s.to_clr_string, System::EventHandler.new(&block)) - end - end - - def style - HtmlStyle.new(self) - end - - alias_method :orig_get_attribute, :get_attribute - def get_attribute(index) - orig_get_attribute(index.to_s.to_clr_string) - end - - alias_method :orig_set_attribute, :set_attribute - def set_attribute(index, value) - orig_set_attribute(index.to_s.to_clr_string, value) - end - - alias_method :orig_get_property, :get_property - def get_property(index) - orig_get_property(index.to_s.to_clr_string) - end - - alias_method :orig_set_property, :set_property - def set_property(index, value) - orig_set_property(index.to_s.to_clr_string, value) - end - - alias_method :orig_get_style_attribute, :get_style_attribute - def get_style_attribute(index) - orig_get_style_attribute(index.to_s.to_clr_string) - end - - alias_method :orig_set_style_attribute, :set_style_attribute - def set_style_attribute(index, value) - orig_set_style_attribute(index.to_s.to_clr_string, value) - end -end - -class HtmlStyle - def initialize(element) - @element = element - end - - def [](index) - @element.get_style_attribute(index) - end - - def []=(index, value) - @element.set_style_attribute(index, value) - end - - def method_missing(m) - self[m] - end -end - -class FrameworkElement - def method_missing(m) - find_name(m.to_s.to_clr_string) - end -end +include System +include System::Windows +include System::Windows::Browser +include System::Windows::Controls + +$DEBUG = false + +class SilverlightApplication + def document + HtmlPage.document + end + + def application + Application.current + end + + def self.use_xaml(options = {}) + options = {:type => UserControl, :name => "app"}.merge(options) + Application.current.load_root_visual(options[:type].new, "#{options[:name]}.xaml") + end + + def root + application.root_visual + end + + def puts(msg) + if document.debug_print.nil? + div = document.create_element('div') + div[:id] = "debug_print" + document.get_elements_by_tag_name("body").get_Item(0).append_child(div) + end + document.debug_print[:innerHTML] = "#{document.debug_print.innerHTML}<hr />#{msg}" + end + + def debug_puts(msg) + puts(msg) if $DEBUG + end + + def method_missing(m) + root.send(m) + end +end + +class HtmlDocument + def method_missing(m) + get_element_by_id(m) + end + + alias_method :orig_get_element_by_id, :get_element_by_id + def get_element_by_id(id) + orig_get_element_by_id(id.to_s.to_clr_string) + end +end + +class HtmlElement + def [](index) + a = get_attribute(index) + return get_property(index) if a.nil? + return a + end + + def []=(index, value) + set_property(index, value) + rescue + begin + set_attribute(index, value) + rescue => e + raise e + end + end + + def method_missing(m, &block) + if(block.nil?) + if m.to_s == "click" + invoke(m.to_s) + else + self[m] + end + else + attach_event(m.to_s.to_clr_string, System::EventHandler.new(&block)) + end + end + + def style + HtmlStyle.new(self) + end + + alias_method :orig_get_attribute, :get_attribute + def get_attribute(index) + orig_get_attribute(index.to_s.to_clr_string) + end + + alias_method :orig_set_attribute, :set_attribute + def set_attribute(index, value) + orig_set_attribute(index.to_s.to_clr_string, value) + end + + alias_method :orig_get_property, :get_property + def get_property(index) + orig_get_property(index.to_s.to_clr_string) + end + + alias_method :orig_set_property, :set_property + def set_property(index, value) + orig_set_property(index.to_s.to_clr_string, value) + end + + alias_method :orig_get_style_attribute, :get_style_attribute + def get_style_attribute(index) + orig_get_style_attribute(index.to_s.to_clr_string) + end + + alias_method :orig_set_style_attribute, :set_style_attribute + def set_style_attribute(index, value) + orig_set_style_attribute(index.to_s.to_clr_string, value) + end +end + +class HtmlStyle + def initialize(element) + @element = element + end + + def [](index) + @element.get_style_attribute(index) + end + + def []=(index, value) + @element.set_style_attribute(index, value) + end + + def method_missing(m) + self[m] + end +end + +class FrameworkElement + def method_missing(m) + find_name(m.to_s.to_clr_string) + end +end samples/ruby/photoviewer/ruby/silverlight.rb 150323308d5668a51119071fe6ed8070a0cf3e41 Jimmy Schementi jschementi@gmail.com http://github.com/jschementi/agdlr/commit/8a5693bb19d08f09b509d61d14733e0a7411b593 8a5693bb19d08f09b509d61d14733e0a7411b593 2009-03-23T23:54:05-07:00 2009-03-23T23:54:05-07:00 make HtmlPage.document.submit_search.click work 8cef9e56cd9c5b3b7377e349b40a1d723629e61e Jimmy Schementi jschementi@gmail.com