root/lang/ruby/ruwin/lib/ruwin/component.rb @ 29000

module Ruwin
  class Component < SWin::Window
    include Ruwin
    include Ruwin::Const::Window
    
    CLASS_NAME = nil
    STYLE      = nil
    EXSTYLE    = nil
    
    def initialize &block
      @proparty = self.class.copy_proparty
      
      self.classname = self.class::CLASS_NAME if self.class::CLASS_NAME
      self.style     = self.class::STYLE   | @proparty[:style]   if self.class::STYLE
      self.exstyle   = self.class::EXSTYLE | @proparty[:exstyle] if self.class::EXSTYLE
      self.caption = @proparty[:caption].tosjis
      
      instance_eval &block if block
      
      create
    end
    
    class << self
      def new parent = nil, &block
        Factory.newwindow(parent, self, &block)
      end
      
      def inherited klass
        klass.instance_variable_set :@proparty, copy_proparty
      end
      
      def copy_proparty
        proparty = {}
        @proparty.each do |key, value|
          proparty[key] = value.dup rescue value
        end
        proparty
      end
      
      private
      def property_accessor proparties
        @proparty.merge! proparties
        
        define_instance_methods = ""
        define_class_methods = ""
        
        proparties.each do |name, default|
          unless method_defined? name
            define_instance_methods << <<-"END"
              def #{name}
                @proparty[:#{name}]
              end
            END
          end
          unless method_defined? :"#{name}="
            define_instance_methods << <<-"END"
              def #{name}= value
                @proparty[:#{name}] = value
              end
            END
          end
          define_class_methods << <<-"END"
            def #{name} *args
              return @proparty[:#{name}] if args.empty?
              @proparty[:#{name}] = args.first
            end
          END
        end
        
        self.class_eval define_instance_methods
        (class << self; self; end).class_eval define_class_methods
      end
    end
    
    @proparty = {}
    property_accessor \
      :caption    => "",
      :style      => 0,
      :exstyle    => 0
    
    
    private
    def send_message_with_error_code message, wparam, lparam, error_code = self.class::ERR, &alternate
      result = sendMessage message, wparam, lparam
      if result == error_code
        return alternate ? alternate.call : nil
      end
      result
    end
    
    def draw_bundling &block
      sendMessage WM_SETREDRAW, 0, 0
      block.call
      sendMessage WM_SETREDRAW, 1, 0
    end
  end
end