require 'osx/cocoa'

class Super < OSX::NSObject

  def self.new
    alloc.init
  end

  def self.alloc
    puts :alloc
    super_alloc
  end

  def init
    puts :init
    super_init
  end

end

class Sub < Super

  def initialize
    puts :initialize
  end

end

s = Sub.new
puts s.class