hotcocoa 0.5

data/lib/hotcocoa/mappings/menu.rb

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

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

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

data/lib/hotcocoa/mappings/movie_view.rb

@@ -0,0 +1,27 @@
+HotCocoa::Mappings.map :movie_view => :QTMovieView, :framework => :QTKit do
+  
+  defaults :layout => {}, :frame => DefaultEmptyRect
+
+  def init_with_options(movie_view, options)
+    movie_view.initWithFrame(options.delete(:frame))
+  end
+
+  custom_methods do
+    
+    def controller_visible=(value)
+      setControllerVisible(value)
+    end
+    
+    def controller_buttons=(buttons)
+      setBackButtonVisible(buttons.include?(:back))
+      setCustomButtonVisible(buttons.include?(:custom))
+      setHotSpotButtonVisible(buttons.include?(:hot_spot))
+      setStepButtonsVisible(buttons.include?(:step))
+      setTranslateButtonVisible(buttons.include?(:translate))
+      setVolumeButtonVisible(buttons.include?(:volume))
+      setZoomButtonsVisible(buttons.include?(:zoom))
+    end
+    
+  end
+
+end

data/lib/hotcocoa/mappings/notification.rb

@@ -0,0 +1,17 @@
+HotCocoa::Mappings.map :notification => :NSNotification do
+
+  defaults :post => true, :distributed => false
+  
+  def alloc_with_options(options)
+    if options.delete(:post)
+      if options.delete(:distributed)
+        NSDistributedNotificationCenter.defaultCenter.postNotificationName options.delete(:name), object:options.delete(:object), userInfo:options.delete(:info), deliverImmediately:(options.delete(:immediately) == true)
+      else
+        NSNotificationCenter.defaultCenter.postNotificationName options.delete(:name), object:options.delete(:object), userInfo:options.delete(:info)
+      end
+    else
+      NSNotification.notificationName options.delete(:name), object:options.delete(:object), userInfo:options.delete(:info)
+    end
+  end
+  
+end

data/lib/hotcocoa/mappings/popup.rb

@@ -0,0 +1,110 @@
+module HotCocoa
+  class PopUpItemList
+    
+    include Enumerable
+    
+    attr_reader :control
+    
+    def initialize(control)
+      @control = control
+    end
+    
+    def <<(title)
+      control.addItemWithTitle(title)
+    end
+    
+    def [](index)
+      control.itemTitleAtIndex(index)
+    end
+    
+    def delete(title)
+      if title.kind_of?(Fixnum)
+        control.removeItemAtIndex(title)
+      else
+        control.removeItemWithTitle(title)
+      end
+    end
+    
+    def insert(title, at:index)
+      control.insertItemWithTitle(title, atIndex:index)
+    end
+    
+    def selected
+      control.titleOfSelectedItem
+    end
+    
+    def selected=(title)
+      if title.kind_of?(Fixnum)
+        control.selectItemAtIndex(title)
+      else
+        control.selectItemWithTitle(title)
+      end
+    end
+    
+    def selected_index
+      control.indexOfSelectedItem
+    end
+    
+    def size
+      control.numberOfItems
+    end
+    
+    def each(&block)
+      control.itemTitles.each(&block)
+    end
+    
+  end
+  
+  class PopUpMenuItemList < PopUpItemList
+    include Enumerable
+    
+    def selected
+      control.selectedItem
+    end
+
+    def selected=(menu_item)
+      if menu_item.kind_of?(Fixnum)
+        control.selectItemAtIndex(menu_item)
+      else
+        control.selectItem(menu_item)
+      end
+    end
+
+    def [](index)
+      control.itemAtIndex(index)
+    end
+    
+    def each(&block)
+      control.itemArray.each(&block)
+    end
+  end
+end
+
+HotCocoa::Mappings.map :popup => :NSPopUpButton do
+  
+  defaults :pulls_down => false, 
+           :frame => DefaultEmptyRect,
+           :layout => {}
+
+  def init_with_options(popup, options)
+    popup.initWithFrame(options.delete(:frame), pullsDown:options.delete(:pulls_down))
+  end
+  
+  custom_methods do
+    
+    def items=(values)
+      removeAllItems
+      addItemsWithTitles(values)
+    end
+    
+    def items
+      @_item_list ||= HotCocoa::PopUpItemList.new(self)
+    end
+    
+    def menu_items
+      @_menu_item_list ||=  HotCocoa::PopUpMenuItemList.new(self)
+    end
+    
+  end
+  
+end

data/lib/hotcocoa/mappings/progress_indicator.rb

@@ -0,0 +1,68 @@
+# Cocoa class: NSProgressIndicator
+# ================================
+# 
+# Apple Documentation: http://developer.apple.com/DOCUMENTATION/Cocoa/Reference/ApplicationKit/Classes/NSProgressIndicator_Class/Reference/Reference.html
+#
+# Usage Example:
+# --------------
+#
+
+
+HotCocoa::Mappings.map :progress_indicator => :NSProgressIndicator do
+
+  defaults :layout => {}, :frame => [0,0,250,20]
+  
+  def init_with_options(progress_bar, options)
+    progress_bar.initWithFrame(options.delete(:frame))
+  end
+  
+  custom_methods do
+    
+    def to_f
+      doubleValue
+    end
+    alias :value :to_f
+    
+    def value=(value)
+      setDoubleValue(value.to_f)
+    end
+    
+    def start
+      startAnimation(nil)
+    end
+    
+    def stop
+      stopAnimation(nil)
+    end
+    
+    def show
+      setHidden(false)
+    end
+    
+    def hide
+      setHidden(true)
+    end
+    
+    def reset
+      setDoubleValue(0.0)
+    end
+    
+    def style=(style_name)
+      if style_name == :spinning
+        setStyle(NSProgressIndicatorSpinningStyle)
+      else
+        setStyle(NSProgressIndicatorBarStyle)
+      end
+    end
+    
+    def spinning_style
+      setStyle(NSProgressIndicatorSpinningStyle)
+    end
+    
+    def bar_style
+      setStyle(NSProgressIndicatorBarStyle)
+    end
+    
+  end
+  
+end

data/lib/hotcocoa/mappings/scroll_view.rb

@@ -0,0 +1,29 @@
+HotCocoa::Mappings.map :scroll_view => :NSScrollView do
+  
+  defaults :vertical_scroller => true, :horizontal_scroller => true, :autoresizes_subviews => true, :layout => {}, :frame => [0,0,0,0] 
+  
+  def init_with_options(scroll_view, options)
+    scroll_view.initWithFrame options.delete(:frame)
+  end
+  
+  custom_methods do
+    
+    def <<(view)
+      setDocumentView(view)
+    end
+
+    def background=(value)
+      setDrawsBackground(value)
+    end
+    
+    def vertical_scroller=(value)
+      setHasVerticalScroller(value)
+    end
+    
+    def horizontal_scroller=(value)
+      setHasHorizontalScroller(value)
+    end
+    
+  end
+  
+end

data/lib/hotcocoa/mappings/search_field.rb

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

data/lib/hotcocoa/mappings/secure_text_field.rb

@@ -0,0 +1,17 @@
+HotCocoa::Mappings.map :secure_text_field => :NSSecureTextField do
+  
+  defaults :selectable => true, :editable => true, :echo => true, :layout => {}
+  
+  def init_with_options(secure_text_field, options)
+    secure_text_field.initWithFrame options.delete(:frame)
+  end
+  
+  custom_methods do
+
+    def echo=(value)
+      cell.setEchosBullets(value)
+    end
+
+  end
+  
+end

data/lib/hotcocoa/mappings/segmented_control.rb

@@ -0,0 +1,97 @@
+module HotCocoa
+  class SegmentedControlSegment
+    attr_reader :number, :control
+    def initialize(control, number)
+      @number = number
+      @control = control
+    end
+    
+    def width
+      control.widthForSegment(number)
+    end
+    
+    def width=(width)
+      control.setWidth(width, forSegment:number)
+    end
+    
+    def label
+      control.labelForSegment(number)
+    end
+    
+    def label=(label)
+      control.setLabel(label, forSegment:number)
+    end
+    
+    def image
+      control.imageForSegment(number)
+    end
+    
+    def image=(image)
+      control.setImage(image, forSegment:number)
+    end
+    
+    def menu
+      control.menuForSegment(number)
+    end
+    
+    def menu=(menu)
+      control.setMenu(menu, forSegment:number)
+    end
+    
+    def selected?
+      control.isSelectedForSegment(number)
+    end
+    
+    def selected=(value)
+      control.setSelected(value, forSegment:number)
+    end
+    
+    def enabled?
+      control.isEnabledForSegment(number)
+    end
+    
+    def enabled=(value)
+      control.setEnabled(value, forSegment:number)
+    end
+  end
+end
+
+HotCocoa::Mappings.map :segmented_control => :NSSegmentedControl do
+  
+  defaults :layout => {}, :frame => [0,0,0,0]
+  
+  def init_with_options(segmented_control, options)
+    segmented_control.initWithFrame options.delete(:frame)
+  end
+  
+  custom_methods do
+    
+    def segments=(segments)
+      segments.each do |segment|
+        self << segment
+      end
+    end
+
+    def <<(data)
+      setSegmentCount(segmentCount+1)
+      segment = HotCocoa::SegmentedControlSegment.new(self, segmentCount-1)
+      data.each do |key, value|
+        segment.send("#{key}=", value)
+      end
+    end
+    
+    def [](segment_number)
+      Segment.new(self, segment_number)
+    end
+    
+    def select(segment_number)
+      setSelectedSegment(segment_number)
+    end
+    
+    def selected_segment
+      HotCocoa::SegmentedControlSegment.new(self, selectedSegment)
+    end
+
+  end
+  
+end

data/lib/hotcocoa/mappings/slider.rb

@@ -0,0 +1,25 @@
+HotCocoa::Mappings.map :slider => :NSSlider do
+
+  defaults :frame => DefaultEmptyRect, :layout => {}
+ 
+  def init_with_options(button, options)
+    button.initWithFrame options.delete(:frame)
+  end
+
+  custom_methods do
+   
+    def min=(value)
+      setMinValue(value)
+    end
+ 
+    def max=(value)
+      setMaxValue(value)
+    end
+    
+    def tic_marks=(value)
+      setNumberOfTickMarks(value)
+    end
+    
+  end
+  
+end

data/lib/hotcocoa/mappings/sort_descriptor.rb

@@ -0,0 +1,13 @@
+HotCocoa::Mappings.map :sort_descriptor => :NSSortDescriptor do
+
+  defaults :ascending => true
+
+  def init_with_options(sort_descriptor, opts)
+    if opts.has_key?(:selector)
+      sort_descriptor.initWithKey(opts.delete(:key), ascending:opts.delete(:ascending))
+    else
+      sort_descriptor.initWithKey(opts.delete(:key), ascending:opts.delete(:ascending), selector:opts.delete(:selector))
+    end
+  end
+
+end

data/lib/hotcocoa/mappings/sound.rb

@@ -0,0 +1,9 @@
+HotCocoa::Mappings.map :sound => :NSSound do 
+  
+  defaults :by_reference => true
+  
+  def init_with_options(sound, options)
+    sound.initWithContentsOfFile options.delete(:file), byReference:options.delete(:by_reference)
+  end
+  
+end

data/lib/hotcocoa/mappings/speech_synthesizer.rb

@@ -0,0 +1,25 @@
+HotCocoa::Mappings.map :speech_synthesizer => :NSSpeechSynthesizer do
+
+  def init_with_options(obj, options)
+    if voice = options.delete(:voice)
+      obj.initWithVoice voice
+    else
+      obj.init
+    end
+  end
+
+  custom_methods do
+    
+    def speak(what, to=nil)
+      if to
+        url = to.is_a?(String) ?  NSURL.fileURLWithPath(to) : to
+        startSpeakingString(what, toURL:url)
+      else
+        startSpeakingString(what)
+      end
+    end
+
+  end
+
+end
+

data/lib/hotcocoa/mappings/split_view.rb

@@ -0,0 +1,21 @@
+HotCocoa::Mappings.map :split_view => :NSSplitView do
+  
+  defaults :layout => {}
+  
+  def init_with_options(split_view, options)
+    split_view.initWithFrame options.delete(:frame)
+  end
+  
+  custom_methods do
+    
+    def horizontal=(value)
+      setVertical(!value)
+    end
+    
+    def set_position(position, of_divider_at_index:index)
+      setPosition position, ofDividerAtIndex:index
+    end
+    
+  end
+  
+end

data/lib/hotcocoa/mappings/status_bar.rb

@@ -0,0 +1,7 @@
+HotCocoa::Mappings.map :status_bar => :NSStatusBar do
+
+  def alloc_with_options(options)
+    NSStatusBar.systemStatusBar
+  end
+
+end

data/lib/hotcocoa/mappings/status_item.rb

@@ -0,0 +1,9 @@
+HotCocoa::Mappings.map :status_item => :NSStatusItem do
+
+  defaults :length => NSVariableStatusItemLength
+
+  def alloc_with_options(options)
+    HotCocoa.status_bar.statusItemWithLength options.delete(:length) 
+  end
+
+end