hotcocoa 0.5

data/lib/hotcocoa/mappings/alert.rb

@@ -0,0 +1,25 @@
+HotCocoa::Mappings.map :alert => :NSAlert do
+  
+  defaults :default => "OK", :alternate => nil, :other => nil, :info => "", :show => true
+  
+  def alloc_with_options(options)
+    if options[:message]
+      alert = NSAlert.alertWithMessageText options.delete(:message), 
+        defaultButton:options.delete(:default), 
+        alternateButton:options.delete(:alternate),
+        otherButton:options.delete(:other),
+        informativeTextWithFormat:options.delete(:info)
+    end
+  end
+  
+  custom_methods do
+    
+    def show
+      runModal
+    end
+    
+  end
+  
+  delegating "alertShowHelp:", :to => :show_help?
+  
+end

data/lib/hotcocoa/mappings/application.rb

@@ -0,0 +1,112 @@
+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/array_controller.rb

@@ -0,0 +1,87 @@
+HotCocoa::Mappings.map :array_controller => :NSArrayController do
+
+  def init_with_options(array_controller, options)
+    result = array_controller.init
+    if options.has_key?(:for)
+      result.addObjects(options.delete(:for))
+    end
+    result
+  end
+
+  custom_methods do
+    
+    def avoids_empty_selection?
+      avoidsEmptySelection
+    end
+    
+    def preserves_selection?
+      preservesSelection
+    end
+    
+    def rearrange_automatically=(value)
+      setAutomaticallyRearrangesObjects(value)
+    end
+    
+    def rearrange_automatically?
+      automaticallyRearrangesObjects
+    end
+    
+    def selects_inserted=(value)
+      setSelectsInsertedObjects(value)
+    end
+    
+    def selects_inserted?
+      selectsInsertedObjects
+    end
+    
+    def <<(object)
+      addObject(object)
+    end
+    
+    def [](index)
+      arrangedObjects[index]
+    end
+    
+    def each(&block)
+      arrangedObjects.each(&block)
+    end
+    
+    def selected
+      selectedObjects.first
+    end
+    
+    def sort_by=(sort_descriptors)
+      sort_descriptors = [sort_descriptors] if sort_descriptors.kind_of?(Hash)
+      descriptors = sort_descriptors.collect do |descriptor|
+        selector = descriptor.delete(:selector)
+        ascending = (descriptor.values.first == :ascending)
+        if selector
+          NSSortDescriptor.alloc.initWithKey(descriptor.keys.first.to_s, ascending: ascending, selector: selector)
+        else
+          NSSortDescriptor.alloc.initWithKey(descriptor.keys.first.to_s, ascending: ascending)
+        end
+      end
+      setSortDescriptors(descriptors)
+    end
+    
+  end
+
+end
+
+=begin
+array :avoids_empty_selection => true, 
+      :preserves_selection => false, 
+      :selects_inserted => false, 
+      :rearrange_automatically => true,
+      :sort_by => {:name => :ascending}
+
+array_controller = NSArrayController.new
+
+array_controller.setAvoidsEmptySelection(false)
+array_controller.setPreservesSelection(false)
+array_controller.setSelectsInsertedObjects(false)
+array_controller.setAutomaticallyRearrangesObjects(true)
+
+array_controller.setSortDescriptors(NSArray.arrayWithObject(NSSortDescriptor.alloc.initWithKey("name", ascending: false)))
+array_controller.addObject Icon.new("Rich", image(:file => "rich.jpg"))
+=end

data/lib/hotcocoa/mappings/box.rb

@@ -0,0 +1,39 @@
+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

@@ -0,0 +1,92 @@
+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

@@ -0,0 +1,44 @@
+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

@@ -0,0 +1,28 @@
+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

@@ -0,0 +1,21 @@
+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

@@ -0,0 +1,24 @@
+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

@@ -0,0 +1,33 @@
+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

@@ -0,0 +1,44 @@
+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

@@ -0,0 +1,15 @@
+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

@@ -0,0 +1,15 @@
+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

@@ -0,0 +1,43 @@
+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

@@ -0,0 +1,25 @@
+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

@@ -0,0 +1,9 @@
+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