class RubyProf::DotPrinter

def print_classes(thread)
  grouped = {}
  thread.methods.each{|m| grouped[m.klass_name] ||= []; grouped[m.klass_name] << m}
  grouped.each do |cls, methods2|
    # Filter down to just seen methods
    big_methods = methods2.select{|m| @seen_methods.include? m}
    if !big_methods.empty?
      color = color_for_class(cls)
      puts "subgraph cluster_#{cls.object_id} {"
      puts "label = \"#{cls}\";"
      puts "fontname = \"Helvetica\";"
      puts "fontcolor = \"#{color}\";"
      puts "fontsize = 14;"
      puts "color = \"#{color}\";"
      puts "style = \"rounded,dashed\";"
      puts "penwidth = 1.5;"
      big_methods.each do |m|
        puts "#{m.object_id};"
      end
      puts "}"
    end
  end
end