## mark a section (Learn more)

require "silverlight" include System::Windows::Controls include System::Windows::Browser # This fixes a problem with the value... needs to be a clr string as well. Stupid clr class HtmlElement alias_method :orig_set_property, :set_property def set_property(index, value) orig_set_property(index.to_s.to_clr_string, value.to_s.to_clr_string) end end # Monkey patch existing SilverlightApplicaiton definition to use our debugging thing class SilverlightApplication def puts(message) Mint::Debug.puts(message) end end # Change this to be a global function in addition to the app function. It can then be accessed anywhere in the application! def puts(message) Mint::Debug.puts(message) end module Mint class Debug # Better-looking debug panel, and fixes cross-browser issues (umm... it didn't work in firefox or safari before) def self.puts (message) document = HtmlPage.document # Inject the main container if document.debug_container.nil? div = document.create_element('div') div[:id] = "debug_container" div[:style] = "position:absolute; top: 10px; right: 10px; border:solid 1px #666; padding:10px; font-size:8pt; font-family:Verdana; background-color:#EEF" document.get_elements_by_tag_name("body").get_Item(0).append_child(div) end # Inject a new set of info if document.debug_print.nil? document.debug_container.set_property "innerHTML", "<div id='debug_links' style='float:right;'><a href='#' onclick='var cont = document.getElementById(\"debug_container\"); cont.innerHTML = \"\"; cont.style.visibility = \"hidden\"'>[ clear ]</a></div><div style=' margin-bottom:10px;'><b>Debug Console</b></div><div id='debug_print'></div>" end # Show the container document.debug_container.style[:visibility] = 'visible' # Add our message oldhtml = document.debug_print.get_property "innerHTML" document.debug_print.set_property "innerHTML", "#{oldhtml} #{message} <br />" end end # Solution for user controls. # Loads the specified xaml, and stores it in @view. # Proxies @view # Support for Custom Events class UserControl < Grid def initialize (name) raise "Must specify component name in initialize" if name.nil? @view = load_xaml(:name => name) #name.downcase? @name = name children.add @view @custom_events = {} end def load_xaml(options = {}) options = {:type => System::Windows::Controls::UserControl, :name => "app"}.merge(options) view = options[:type].new Application.current.load_component view, "#{options[:name]}.xaml" view end def method_missing(m, *args, &block) listen(m, &block) unless block.nil? # Assume they want to listen if they pass a block. If we're wrong, it's not that big of a deal @view.send(m, *args, &block) end # Custom Event System ... Normally, use my_control.my_custom_event {} instead of my_control.listen def listen(name, &block) name = name.to_s # so you can use strings or symbols. This might be a bad idea, but I don't know ruby well enough to know any better @custom_events[name] = [] if @custom_events[name].nil? # I should change this to a dictionary instead and allow you to unlisten :) @custom_events[name] << block end # You can send an event object if you want.. .NET probably forces it to be some event type or something def dispatch(name, event = {}) name = name.to_s return if @custom_events[name].nil? @custom_events[name].each do |block| block.call(self, event) end end end end

This paste will be private.