hotcocoa 0.5.1 → 0.6.0pre

data/lib/hotcocoa/mappings/application.rb

@@ -1,112 +0,0 @@
-HotCocoa::Mappings.map :application => :NSApplication do
-  
-  def alloc_with_options(options)
-    NSApplication.sharedApplication
-  end
-  
-  def handle_block(application, &block)
-    application.load_application_menu
-    block.call(application)
-    application.run
-  end
-  
-  custom_methods do
-    
-    def load_application_menu
-      begin
-        require 'lib/menu'
-        o = Object.new
-        o.extend HotCocoa
-        setMainMenu(o.application_menu)
-      rescue LoadError => e
-      end
-    end
-    
-    def name=(name)
-      @name = name
-    end
-    
-    def name
-      @name
-    end
-    
-    def menu=(menu)
-      setMainMenu(menu)
-    end
-    
-=begin
-    def menu(path=nil)
-      if path
-        find_menu(mainMenu, path)
-      else
-        mainMenu
-      end
-    end
-=end
-    def menu; mainMenu; end
-    
-    def on_hide(menu)
-      hide(menu)
-    end
-    
-    def on_about(menu)
-      orderFrontStandardAboutPanel(menu)
-    end
-    
-    def on_hide_others(menu)
-      hideOtherApplications(menu)
-    end
-    
-    def on_show_all(menu)
-      unhideAllApplications(menu)
-    end
-    
-    def on_quit(menu)
-      terminate(menu)
-    end
-
-    private
-    
-      def find_menu(menu, path)
-        key = path.keys.first
-        value = path.values.first
-        menu = menu[key]
-        if value.kind_of?(Array)
-          find_menu(menu, value.first)
-        else
-          menu[value]
-        end
-      end
-    
-  end
-
-  delegating "application:delegateHandlesKey:",                       :to => :delegate_handles_key?,            :parameters => [:delegateHandlesKey]
-  delegating "application:openFile:",                                 :to => :open_file,                        :parameters => [:openFile]
-  delegating "application:openFiles:",                                :to => :open_files,                       :parameters => [:openFiles]
-  delegating "application:openFileWithoutUI:",                        :to => :open_file_without_ui,             :parameters => [:openFileWithoutUI]
-  delegating "application:openTempFile:",                             :to => :open_temp_file,                   :parameters => [:openTempFile]
-  delegating "application:printFile:",                                :to => :print_file
-  delegating "application:printFiles:withSettings:showPrintPanels:",  :to => :print_files
-  delegating "application:willPresentError:",                         :to => :will_present_error
-  delegating "applicationDidBecomeActive:",                           :to => :did_become_active
-  delegating "applicationDidChangeScreenParameters:",                 :to => :did_change_screen_parameters
-  delegating "applicationDidFinishLaunching:",                        :to => :did_finish_launching
-  delegating "applicationDidHide:",                                   :to => :did_hide
-  delegating "applicationDidResignActive:",                           :to => :resign_active
-  delegating "applicationDidUnhide:",                                 :to => :did_unhide
-  delegating "applicationDidUpdate:",                                 :to => :did_update
-  delegating "applicationDockMenu:",                                  :to => :dock_menu
-  delegating "applicationOpenUntitledFile:",                          :to => :open_untitled_file
-  delegating "applicationShouldHandleReopen:hasVisibleWindows:",      :to => :should_handle_reopen?,            :parameters => [:hasVisibleWindows]
-  delegating "applicationShouldOpenUntitledFile:",                    :to => :should_open_untitled_file?
-  delegating "applicationShouldTerminate:",                           :to => :should_terminate?
-  delegating "applicationShouldTerminateAfterLastWindowClosed:",      :to => :should_terminate_after_last_window_closed?
-  delegating "applicationWillBecomeActive:",                          :to => :will_become_active
-  delegating "applicationWillFinishLaunching:",                       :to => :will_finish_launching
-  delegating "applicationWillHide:",                                  :to => :will_hide
-  delegating "applicationWillResignActive:",                          :to => :will_resign_active
-  delegating "applicationWillTerminate:",                             :to => :will_terminate
-  delegating "applicationWillUnhide:",                                :to => :will_unhide
-  delegating "applicationWillUpdate:",                                :to => :will_update
-  
-end

data/lib/hotcocoa/mappings/box.rb

@@ -1,39 +0,0 @@
-HotCocoa::Mappings.map :box => :NSBox do
-  
-  defaults :frame => DefaultEmptyRect, :layout => {}
-  
-  constant :title_position, {
-    :none           => NSNoTitle,
-    :above_top      => NSAboveTop,
-    :top            => NSAtTop,
-    :below_top      => NSBelowTop,
-    :above_bottom   => NSAboveBottom,
-    :bottom         => NSAtBottom,
-    :below_bottom   => NSBelowBottom
-  }
-  
-  constant :type, {
-    :primary        => NSBoxPrimary,
-    :secondary      => NSBoxSecondary,
-    :separator      => NSBoxSeparator,
-    :old            => NSBoxOldStyle,
-    :custom         => NSBoxCustom
-  }
-  
-  def init_with_options(box, options)
-    box.initWithFrame options.delete(:frame)
-  end
-  
-  custom_methods do
-    
-    def type=(value)
-      setBoxType(value)
-    end
-
-    def border=(value)
-      setBorderType(value)
-    end
-    
-  end
-  
-end

data/lib/hotcocoa/mappings/button.rb

@@ -1,92 +0,0 @@
-HotCocoa::Mappings.map :button => :NSButton do
-  
-  defaults :bezel => :rounded, 
-           :frame => DefaultEmptyRect,
-           :layout => {}
-  
-  constant :bezel, {
-     :rounded             => NSRoundedBezelStyle,
-     :regular_square      => NSRegularSquareBezelStyle,
-     :thick_square        => NSThickSquareBezelStyle,
-     :thicker_square      => NSThickerSquareBezelStyle,
-     :disclosure          => NSDisclosureBezelStyle,
-     :shadowless_square   => NSShadowlessSquareBezelStyle,
-     :circular            => NSCircularBezelStyle,
-     :textured_square     => NSTexturedSquareBezelStyle,
-     :help_button         => NSHelpButtonBezelStyle,
-     :small_square        => NSSmallSquareBezelStyle,
-     :textured_rounded    => NSTexturedRoundedBezelStyle,
-     :round_rect          => NSRoundRectBezelStyle,
-     :recessed            => NSRecessedBezelStyle,
-     :rounded_disclosure  => NSRoundedDisclosureBezelStyle
-  }
-  
-  constant :type, {
-     :momentary_light     => NSMomentaryLightButton,
-     :push_on_push_off    => NSPushOnPushOffButton,
-     :toggle              => NSToggleButton,
-     :switch              => NSSwitchButton,
-     :radio               => NSRadioButton,
-     :momentary_change    => NSMomentaryChangeButton,
-     :on_off              => NSOnOffButton,
-     :momentary_push_in   => NSMomentaryPushInButton,
-     :momentary_push      => NSMomentaryPushButton
-  }
-
-  constant :state, {
-    :on                   => NSOnState,
-    :off                  => NSOffState,
-    :mixed                => NSMixedState
-  }
-
-  constant :image_position, {
-    :text_only            => NSNoImage,
-    :image_only           => NSImageOnly,
-    :overlaps             => NSImageOverlaps,
-    :left                 => NSImageLeft,
-    :right                => NSImageRight,
-    :below                => NSImageBelow,
-    :above                => NSImageAbove
-  }
-  
-  def init_with_options(button, options)
-    button.initWithFrame options.delete(:frame)
-  end
-
-  custom_methods do
-    
-    def bezel=(value)
-      setBezelStyle(value)
-    end
-    
-    def type=(value)
-      setButtonType(value)
-    end
-
-    def state=(value)
-      case value 
-        when :on
-          value = NSOnState
-        when :off
-          value = NSOffState
-        when :mixed
-          value = NSMixedState
-      end 
-      setState(value)
-    end
-    
-    def on?
-      state == NSOnState
-    end
-
-    def off?
-      state == NSOffState
-    end
-
-    def mixed?
-      state == NSMixedState
-    end
-    
-  end
-  
-end

data/lib/hotcocoa/mappings/collection_view.rb

@@ -1,44 +0,0 @@
-HotCocoa::Mappings.map :collection_view => :NSCollectionView do
-  
-  defaults :layout => {}, :frame => [0,0,100,100]
-  
-  def init_with_options(collection_view, options)
-    collection_view.initWithFrame options.delete(:frame)
-  end
-  
-  custom_methods do
-    
-    def item_prototype
-      itemPrototype
-    end
-    
-    def item_view
-      item_prototype ? item_prototype.view : nil
-    end
-    
-    def item_view=(view)
-      item = NSCollectionViewItem.alloc.init
-      item.setView(view)
-      view.collection_item = item if view.respond_to?(:collection_item=)
-      setItemPrototype(item)
-    end
-    
-    def rows=(value)
-      setMaxNumberOfRows(value)
-    end
-    
-    def rows
-      maxNumberOfRows
-    end
-    
-    def columns=(value)
-      setMaxNumberOfColumns(value)
-    end
-    
-    def columns
-      maxNumberOfColumns
-    end
-    
-  end
-  
-end

data/lib/hotcocoa/mappings/color.rb

@@ -1,28 +0,0 @@
-HotCocoa::Mappings.map :color => :NSColor do
-  
-  def alloc_with_options(options)
-    if options.has_key?(:name)
-      color = eval("NSColor.#{options.delete(:name)}Color")
-      color = color.colorWithAlphaComponent(options.delete(:alpha)) if options.has_key?(:alpha)
-      return color
-    elsif options.has_key?(:rgb)
-      calibrated = !options.delete(:device)
-      rgb = options.delete(:rgb)
-      red   = ((rgb >> 16) & 0xff)/255.0
-      green = ((rgb >> 8) & 0xff)/255.0
-      blue  = (rgb & 0xff)/255.0
-      alpha = options.delete(:alpha) || 1.0
-      if calibrated
-        return NSColor.colorWithCalibratedRed red, green:green, blue:blue, alpha:alpha
-      else
-        return NSColor.colorWithDeviceRed red, green:green, blue:blue, alpha:alpha
-      end
-    elsif (options.keys & [:red, :green, :blue]).size == 3
-      alpha = (options.delete(:alpha) or 1.0)
-      return NSColor.colorWithCalibratedRed options.delete(:red), green:options.delete(:green), blue:options.delete(:blue), alpha:alpha
-    else
-      raise "Cannot create color with the provided options"
-    end
-  end
-  
-end

data/lib/hotcocoa/mappings/column.rb

@@ -1,21 +0,0 @@
-HotCocoa::Mappings.map :column => :NSTableColumn do
-
-  defaults :title => 'Column'
-
-  def init_with_options(column, options)
-    column.initWithIdentifier(options.delete(:id))
-  end
-
-  custom_methods do
-    
-    def title
-      headerCell.stringValue
-    end
-
-    def title=(newTitle)
-      headerCell.stringValue = newTitle
-    end
-
-  end
-
-end

data/lib/hotcocoa/mappings/combo_box.rb

@@ -1,24 +0,0 @@
-HotCocoa::Mappings.map :combo_box => :NSComboBox do
-  
-  defaults :selectable => true, :editable => true, :completes => true, :layout => {}
-  
-  def init_with_options(combo_box, options)
-    combo_box.initWithFrame options.delete(:frame)
-  end
-
-  custom_methods do
-
-    def data=(data_source)
-      setUsesDataSource(true)
-      data_source = HotCocoa::ComboBoxDataSource.new(data_source) if data_source.kind_of?(Array)
-      setDataSource(data_source)
-    end
-    
-  end
-  
-  delegating "comboBoxSelectionDidChange:",   :to => :selection_did_change
-  delegating "comboBoxSelectionIsChanging:",  :to => :selection_is_changing
-  delegating "comboBoxWillDismiss:",          :to => :will_dismiss
-  delegating "comboBoxWillPopUp:",            :to => :will_pop_up
-  
-end

data/lib/hotcocoa/mappings/control.rb

@@ -1,33 +0,0 @@
-HotCocoa::Mappings.map :control => :NSControl do
-
-  constant :alignment, {
-    :left      => NSLeftTextAlignment,
-    :right     => NSRightTextAlignment,
-    :center    => NSCenterTextAlignment,
-    :justified => NSJustifiedTextAlignment,
-    :natural   => NSNaturalTextAlignment
-  }
-
-  custom_methods do
-   
-    include HotCocoa::Mappings::TargetActionConvenience 
-    
-    def text=(text)
-      setStringValue(text)
-    end
-
-    def to_i
-      intValue
-    end
-
-    def to_f
-      doubleValue
-    end
-    
-    def to_s
-      stringValue
-    end
-
-  end
-
-end

data/lib/hotcocoa/mappings/font.rb

@@ -1,44 +0,0 @@
-HotCocoa::Mappings.map :font => :NSFont do
-  
-  constant :trait, {
-     :italic => NSItalicFontMask,
-     :bold => NSBoldFontMask,
-     :unbold => NSUnboldFontMask,
-     :nonstandard_character_set => NSNonStandardCharacterSetFontMask,
-     :narrow => NSNarrowFontMask,
-     :expanded => NSExpandedFontMask,
-     :condensed => NSCondensedFontMask,
-     :small_caps => NSSmallCapsFontMask,
-     :poster => NSPosterFontMask,
-     :compressed => NSCompressedFontMask,
-     :fixed_pitch => NSFixedPitchFontMask,
-     :unitalic => NSUnitalicFontMask
-  }
-  
-  def alloc_with_options(options)
-    font = nil
-    {
-      :label => :labelFontOfSize,
-      :system => :systemFontOfSize,
-      :control_content => :controlContentFontOfSize,
-      :menu_bar => :menuBarFontOfSize,
-      :message => :messageFontOfSize,
-      :palette =>  :paletteFontOfSize,
-      :small_system => :smallSystemFontOfSize,
-      :title_bar => :titleBarFontOfSize,
-      :tool_tip => :toolTipFontOfSize,
-      :user_fixed => :userFixedPitchFontOfSize,
-      :user => :userFontOfSize
-    }.each do |key, method|
-      if options.has_key?(key)
-        font = eval("NSFont.#{method}(#{options.delete(key)})")
-        break
-      end
-    end
-    font = NSFont.fontWithName(options.delete(:name), size:(options.delete(:size) || 0)) if options.has_key?(:name)
-    raise "Cannot create font with the provided options" unless font
-    font = NSFontManager.sharedFontManager.convertFont(font, toHaveTrait:options.delete(:trait)) if options[:trait]
-    font
-  end
-  
-end

data/lib/hotcocoa/mappings/gradient.rb

@@ -1,15 +0,0 @@
-HotCocoa::Mappings.map :gradient => :NSGradient do 
-  
-  def alloc_with_options(options)
-    if options[:colors]
-      if options[:locations]
-        NSGradient.alloc.initWithColors options.delete(:colors), atLocations:options.delete(:locations), colorSpace:(options.delete(:color_space) || NSColorSpace.deviceRGBColorSpace)
-      else
-        NSGradient.alloc.initWithColors(options.delete(:colors))
-      end
-    elsif options[:start] && option[:end]
-      NSGradient.alloc.initWithStartingColor options.delete(:start), endingColor:options.delete(:end)
-    end
-  end
-  
-end

data/lib/hotcocoa/mappings/image.rb

@@ -1,15 +0,0 @@
-HotCocoa::Mappings.map :image => :NSImage do
-  
-  def alloc_with_options(options)
-    if options.has_key?(:file)
-      NSImage.alloc.initWithContentsOfFile(options.delete(:file))
-    elsif options.has_key?(:url)
-      NSImage.alloc.initByReferencingURL(NSURL.alloc.initWithString(options.delete(:url)))
-    elsif options.has_key?(:named)
-      NSImage.imageNamed(options.delete(:named))
-    else
-      NSImage.alloc.init
-    end
-  end
-
-end

data/lib/hotcocoa/mappings/image_view.rb

@@ -1,43 +0,0 @@
-HotCocoa::Mappings.map :image_view => :NSImageView do
-  
-  defaults :layout => {}, :frame_style => :none
-  
-  constant :frame_style, {
-    :none   => NSImageFrameNone,
-    :photo  => NSImageFramePhoto,
-    :bezel  => NSImageFrameGrayBezel,
-    :groove => NSImageFrameGroove,
-    :button => NSImageFrameButton
-  }
-  
-  constant :scale, {
-    :fit => NSScaleToFit,
-    :none => NSScaleNone,
-    :proportionally => NSScaleProportionally
-  }
-  
-  def init_with_options(image_view, options)
-    image_view.initWithFrame options.delete(:frame)
-  end
-  
-  custom_methods do
-    
-    def frame_style=(value)
-      setImageFrameStyle(value)
-    end
-    
-    def url=(url)
-      setImage(NSImage.alloc.initByReferencingURL(NSURL.alloc.initWithString(url)))
-    end
-    
-    def file=(file)
-      setImage(NSImage.alloc.initWithContentsOfFile(file))
-    end
-    
-    def scale=(value)
-      setImageScaling(value)
-    end
-    
-  end
-  
-end

data/lib/hotcocoa/mappings/label.rb

@@ -1,25 +0,0 @@
-HotCocoa::Mappings.map :label => :NSTextField do
-
-  constant :text_align, {
-    :right  => NSRightTextAlignment,
-    :left   => NSLeftTextAlignment,
-    :center => NSCenterTextAlignment
-  }
-  
-  defaults :selectable => false, :bordered => false, :drawsBackground => false, :frame => DefaultEmptyRect, :layout => {}
-  
-  def init_with_options(text_field, options)
-    tf = text_field.initWithFrame options.delete(:frame)
-    tf.editable = false
-    tf
-  end
-  
-  custom_methods do
-
-    def text_align=(value)
-      setAlignment(value)
-    end
-    
-  end
-  
-end

data/lib/hotcocoa/mappings/layout_view.rb

@@ -1,9 +0,0 @@
-HotCocoa::Mappings.map :layout_view => :"HotCocoa::LayoutView" do
-
-  defaults :frame => DefaultEmptyRect, :layout => {}
-
-  def init_with_options(view, options)
-    view.initWithFrame options.delete(:frame)
-  end
-
-end

data/lib/hotcocoa/mappings/menu.rb

@@ -1,71 +0,0 @@
-HotCocoa::Mappings.map :menu => :NSMenu do
-  
-  defaults :title => ""
-  
-  def alloc_with_options(options)
-    NSMenu.alloc.initWithTitle(options.delete(:title))
-  end
-
-  custom_methods do
-    
-    def submenu(symbol, options={}, &block)
-      item = addItemWithTitle((options[:title] || titleize(symbol)), :action => nil, :keyEquivalent => "")
-      submenu = builder.menu :title => (options[:title] || titleize(symbol))
-      case symbol
-      when :apple
-        app.setAppleMenu(submenu)
-      when :services
-        app.setServicesMenu(submenu)
-      when :window
-        app.setWindowsMenu(submenu)
-      end
-      item_map[symbol] = submenu
-      block.call(submenu) if block
-      setSubmenu submenu, :forItem => item
-      submenu
-    end
-    
-    def item(symbol, options={})
-      options[:title] ||= titleize(symbol)
-      options[:action] ||= "on_#{symbol}:"
-      item = builder.menu_item(options)
-      item_map[symbol] = item
-      addItem item
-      item
-    end
-    
-    def separator
-      addItem NSMenuItem.separatorItem
-    end
-    
-    def [](*symbols)
-      symbol = symbols.shift
-      symbols.empty? ? item_map[symbol] : item_map[symbol][*symbols]
-    end
-    
-    private
-    
-      def builder
-        @builder || create_builder
-      end
-      
-      def create_builder
-        @builder = Object.new
-        @builder.extend HotCocoa
-        @builder
-      end
-
-      def item_map
-        @item_map ||= {}
-      end
-      
-      def titleize(symbol)
-        symbol.to_s.split("_").collect(&:capitalize).join(" ")
-      end
-      
-      def app
-        @app ||= NSApplication.sharedApplication
-      end
-  end
-
-end

data/lib/hotcocoa/mappings/menu_item.rb

@@ -1,47 +0,0 @@
-HotCocoa::Mappings.map :menu_item => :NSMenuItem do
-  
-  defaults :title => "", :key => "", :action => nil
-  
-  constant :modifiers, {
-    :control    => NSControlKeyMask,
-    :alt        => NSAlternateKeyMask,
-    :command    => NSCommandKeyMask,
-    :shift      => NSShiftKeyMask
-  }
-  
-  def alloc_with_options(options)
-    NSMenuItem.alloc.initWithTitle options.delete(:title), :action => options.delete(:action), :keyEquivalent => options.delete(:key)
-  end
-  
-  custom_methods do
-
-    def on_action=(behavior)
-      object = Object.new
-      object.instance_variable_set("@behavior", behavior)
-      def object.perform_action(sender)
-        @behavior.call(sender)
-      end
-      setTarget(object)
-      setAction("perform_action:")
-    end
-    
-    def on_action(&behavior)
-      self.on_action = behavior
-      self
-    end
-        
-    def key
-      keyEquivalent
-    end
-    
-    def key=(value)
-      setKeyEquivalent(value)
-    end
-    
-    def modifiers=(value)
-      setKeyEquivalentModifierMask(value)
-    end
-    
-  end
-
-end

data/lib/hotcocoa/mappings/movie.rb

@@ -1,13 +0,0 @@
-HotCocoa::Mappings.map :movie => :QTMovie, :framework => :QTKit do
-
-  def alloc_with_options(options)
-    if options.has_key?(:file)
-      QTMovie.movieWithFile(options.delete(:file), error:options.delete(:error))
-    elsif options.has_key?(:url)
-      QTMovie.movieWithURL(NSURL.alloc.initWithString(options.delete(:url)), error:options.delete(:error))
-    else
-      raise "Can only allocate a movie from a file or a url"
-    end
-  end
-
-end