inpecting NSView hierarchy with MacRuby

gistfile1.rb

class NSView
	def view_tree
		self.view_where { true }
	end
	
	def views_where(&block)
	  # traverse view hierarchy and collect views matching condition.
	  hits = []
		hits << self if yield self
	  self.subviews.each do |subview|
	    subview_hits = subview.views_where(&block)
	    hits << subview_hits if ! subview_hits.empty?
	  end
	  
	  hits
	end
end