require 'gtk2'
module GMVC
  class Window < Gtk::Builder
    # By default the glade file will be the same as the class name with a .glade suffix
    def self.glade_filename
      self.name.split("::").last.downcase + ".glade"
    end
    # By default the main window name will be the same as the class name
    def self.window_name
      self.name.split("::").last.downcase
    end
    # Initialize our extra variables
    def initialize(*args)
      super
      @attached_objects = Hash.new
    end
    # Load the associated glade file
    def load
      self.load_from_file(self.class.glade_filename)
      self.attach_to_object(self.class.window_name, self)
    end
    # Replace the restrictive __connect_signals__ from Gtk::Builder
    def __connect_signals__(connector, object, signal_name, handler_name, connect_object, flags)
      handler_name = canonical_handler_name(handler_name)
      if connect_object
        handler = connect_object.method(handler_name)
      else
        handler = connector.call(handler_name, object, signal_name)
      end
      unless handler
        $stderr.puts("Undefined handler: #{handler_name}") if $DEBUG
        return
      end

      if flags.after?
        signal_connect_method = :signal_connect_after
      else
        signal_connect_method = :signal_connect
      end

      if handler.arity.zero?
        object.send(signal_connect_method, signal_name) {handler.call}
      else
        object.send(signal_connect_method, signal_name, &handler)
      end
    end
    
    # Call this prior to connecting signals to attach signals to ruby objects
    def attach_to_object(gobject, object)
      if object
        @attached_objects[gobject] = object
      else
        @attached_objects.delete(gobject)
      end      
    end
    
    
    ## TODO: Everything below here is still being reworked and may end up in other classes
    def self.open
      self.new.open
    end
    def open
      self.open_view(self.default_view_class)
    end
    def open_view(view_class)
      @view = view_class.new(self, @model)
      self          # return self
    end
  end
end