glimr 0.1.0

data/lib/glimr/widgets/list.rb

@@ -0,0 +1,28 @@
+require 'glimr/widgets/scrollable_container'
+
+
+module GlimR
+
+
+  # A List is a Scrollable with a VLayout as its content.
+  #
+  class List < ScrollableContainer
+
+    def default_config
+      super.merge(
+        :width => 200,
+        :height => 100,
+        :content => VLayout.new
+      )
+    end
+
+    def initialize(*args, &b)
+      super
+    end
+
+  end
+
+
+end
+
+

data/lib/glimr/widgets/radiogroup.rb

@@ -0,0 +1,118 @@
+require 'glimr/widgets/checkbox'
+
+
+module GlimR
+
+  class RadioGroup < VLayout
+
+    attr_accessor :selected_index, :options
+
+    def default_config
+      super.merge(
+        :selected_index => 0,
+        :options => ["Default", "Options"]
+      )
+    end
+
+    def initialize(*a, &b)
+      super
+      self.label = @label if @label
+      @option_models = []
+      self.options = @options
+      self.selected_index = @selected_index
+    end
+
+    def label= l
+      if @label_model
+        @label_model.text = l
+      else
+        @label_model = Label.new(:text => @label)
+        attach @label_model
+      end
+    end
+
+    def options=(opts)
+      @options = opts
+      @option_models.each{|m| m.detach_self }
+      @option_models.clear
+      @options.each_with_index{|opt, i|
+        rb = RadioOption.new(:label => opt)
+        rb.on_change{|o,e|
+          self.selected_index = i
+          dispatch_event(
+            Event.new(
+              :select,
+              {
+                :source => self,
+                :selected_index => i,
+                :option => selection
+              }
+            )
+          )
+        }
+        @option_models << rb
+      }
+      attach *@option_models
+    end
+
+    def selected_index=(index)
+      @option_models[@selected_index].state = false
+      @selected_index = index
+      @option_models[@selected_index].state = true
+    end
+
+    def selected_model
+      @option_models[@selected_index]
+    end
+
+    def selected_model= s
+      @option_models.each_with_index{|e,i|
+        if e == s
+          self.selected_index = i
+          break
+        end
+      }
+    end
+
+    def selection
+      @option_models[@selected_index].label
+    end
+
+    def selection= s
+      @option_models.each_with_index{|e,i|
+        if e.label == s
+          self.selected_index = i
+          break
+        end
+      }
+    end
+
+  end
+
+
+  class RadioOption < Checkbox
+
+    def default_config
+      super.merge(
+        :button => RadioOptionButton.new
+      )
+    end
+
+  end
+
+  class RadioOptionButton < CheckboxButton
+
+    def default_config
+      super.merge(
+        :up_background => "radiobutton_bg.png",
+        :down_background => "radiobutton_checked_bg.png"
+      )
+    end
+
+    def activate o,e
+      super unless parent.state
+    end
+
+  end
+
+end

data/lib/glimr/widgets/resizer.rb

@@ -0,0 +1,31 @@
+require 'glimr/widgets/button'
+
+
+module GlimR
+
+
+  class Resizer < EmptyButton
+
+    attr_accessor :target
+
+    def default_config
+      super.merge(
+        :up_background => "resizer_up.png",
+        :down_background => "resizer_down.png"
+      )
+    end
+
+    def mouse_move(o,e)
+      super
+      if down and target and e.buttons[:left]
+        target.size_changing{
+          target.width += e.dx
+          target.height += e.dy
+        }
+      end
+    end
+
+  end
+
+
+end

data/lib/glimr/widgets/scrollable_container.rb

@@ -0,0 +1,67 @@
+require 'glimr/widgets/layout'
+require 'glimr/widgets/container'
+require 'glimr/widgets/scrollbar'
+require 'glimr/widgets/resizer'
+
+
+module GlimR
+
+
+  class ScrollableContainer < Widget
+
+    ivar_accessor_delegate :@container, :content, :content_view
+    attr_accessor :container, :horizontal_scrollbar, :vertical_scrollbar, :resizer
+
+    def default_config
+      super.merge(
+        :width => 200,
+        :height => 200,
+        :content => nil
+      )
+    end
+
+    def initialize(*a, &b)
+      super
+      @resizer = Resizer.new(:target => self)
+      vsplit = VLayout.new(
+        :item_spacing => 0,
+        :expand_width => true, :expand_height => true
+      )
+      hsplit = HLayout.new(
+        :item_spacing => 0,
+        :expand_width => true, :expand_height => true
+      )
+      @container = Container.new(
+        :content => @content,
+        :expand_width => true, :expand_height => true
+      )
+      @vertical_scrollbar = VScrollBar.new(:container => @container)
+      @horizontal_scrollbar = HScrollBar.new(:container => @container)
+      @vertical_scrollbar.on_scroll{|o,e|
+        @container.scroll_y = e.y
+      }
+      @horizontal_scrollbar.on_scroll{|o,e|
+        @container.scroll_x = e.x
+      }
+      bottom_scroller = HLayout.new(:expand_width => true, :item_spacing => 0)
+      bottom_scroller << @horizontal_scrollbar << @resizer
+      hsplit << @container << @vertical_scrollbar
+      vsplit << hsplit << bottom_scroller
+      attach vsplit
+      @container.on_mouse_down{|o,e|
+        case e.button
+        when :wheel_up
+          @vertical_scrollbar.scroll_up
+        when :wheel_down
+          @vertical_scrollbar.scroll_down
+        end
+      }
+      self.min_width = @horizontal_scrollbar.min_width + @resizer.width
+      self.min_height = @vertical_scrollbar.min_height + @resizer.height
+    end
+
+  end
+
+
+end
+

data/lib/glimr/widgets/scrollbar.rb

@@ -0,0 +1,496 @@
+require 'glimr/widgets/layout'
+require 'glimr/widgets/stretchable_image'
+require 'glimr/widgets/button'
+
+module GlimR
+
+  module Scrollable
+
+    def default_config
+      super.merge(
+        :default_scroll_horiz => 0.1,
+        :default_scroll_vert => 0.1,
+        :scroll_x => 0.0,
+        :scroll_y => 0.0
+      )
+    end
+
+    # Default horizontal scroll amount (=0.1).
+    attr_accessor :default_scroll_horiz
+
+    # Default horizontal scroll amount (=0.1).
+    attr_accessor :default_scroll_vert
+
+    # Accessors for scroll positions
+    attr_accessor :scroll_x, :scroll_y
+
+    # Scrolls to left (decreases scroll_x) by given
+    # amount, default is #default_scroll_horiz.
+    #
+    def scroll_left(amount = default_scroll_horiz)
+      self.scroll_x -= amount
+    end
+
+    # Scrolls to right (increases scroll_x) by given
+    # amount, default is #default_scroll_horiz.
+    #
+    def scroll_right(amount = default_scroll_horiz)
+      self.scroll_x += amount
+    end
+
+    # Scrolls up (decreases scroll_y) by given
+    # amount, default is #default_scroll_vert.
+    #
+    def scroll_up(amount = default_scroll_vert)
+      self.scroll_y -= amount
+    end
+
+    # Scrolls down (increases scroll_y) by given
+    # amount, default is #default_scroll_vert.
+    #
+    def scroll_down(amount = default_scroll_vert)
+      self.scroll_y += amount
+    end
+
+    # Scrolls x to nx, calls scroll_to to do the scrolling.
+    def scroll_x=(nx)
+      scroll_to(nx, scroll_y)
+    end
+
+    # Scrolls y to ny, calls scroll_to to do the scrolling.
+    def scroll_y=(ny)
+      scroll_to(scroll_x, ny)
+    end
+
+    # Increases both x and y scroll position by given amounts.
+    def scroll(x, y)
+      scroll_to(@scroll_position.x + x, @scroll_position.y + y)
+    end
+
+    def scroll_x
+      (@container and @container.scroll_x) or @scroll_x
+    end
+
+    def scroll_y
+      (@container and @container.scroll_y) or @scroll_y
+    end
+
+    # Scrolls to given coordinates, clamped between 0.0 and 1.0, and
+    # fires a scroll event.
+    def scroll_to(x,y)
+      @scroll_x = [[x, 0.0].max, 1.0].min
+      @scroll_y = [[y, 0.0].max, 1.0].min
+      @container.scroll = [@scroll_x, @scroll_y] if @container
+      dispatch_event(Event.new(:scroll, :x => scroll_x, :y => scroll_y, :source => self))
+    end
+
+  end
+
+
+  class HScrollBar < HLayout
+  include Scrollable
+
+    touching_accessor :container
+
+    def default_config
+      super.merge(
+        :item_spacing => 0,
+        :expand_width => true, :container => nil,
+        :left_button => ScrollLeftButton.new,
+        :right_button => ScrollRightButton.new,
+        :scroller => HScroller.new
+      )
+    end
+
+    def initialize(*a, &b)
+      super
+      attach @left_button, @scroller, @right_button
+      @updater = lambda{|o,e| @scroller.update_knob }
+      self.container = @container
+      on_scroll{ @scroller.knob.scroll_handler if @scroller }
+      self.min_width = @left_button.width + @right_button.width + @scroller.min_width
+    end
+
+    def click(o,e)
+      case e.button
+      when :wheel_down
+        scroll_right
+      when :wheel_up
+        scroll_left
+      end
+    end
+
+    def container=(c)
+      @container.remove_event_listener(:layout, @updater) if @container
+      @container = c
+      @container.add_event_listener(:layout, @updater) if @container
+      @scroller.update_knob if @scroller
+      touch!
+    end
+
+  end
+
+
+  class VScrollBar < VLayout
+  include Scrollable
+
+    touching_accessor :container
+
+    def default_config
+      super.merge(
+        :item_spacing => 0,
+        :expand_height => true, :container => nil,
+        :up_button => ScrollUpButton.new,
+        :down_button => ScrollDownButton.new,
+        :scroller => VScroller.new
+      )
+    end
+
+    def initialize(*a, &b)
+      super
+      attach @up_button, @scroller, @down_button
+      @updater = lambda{|o,e| @scroller.update_knob }
+      self.container = @container
+      on_scroll{ @scroller.knob.scroll_handler if @scroller }
+      self.min_height = @up_button.height + @down_button.height + @scroller.min_height
+    end
+
+    def click(o,e)
+      case e.button
+      when :wheel_down
+        scroll_down
+      when :wheel_up
+        scroll_up
+      end
+    end
+
+    def container=(c)
+      @container.remove_event_listener(:layout, @updater) if @container
+      @container = c
+      @container.add_event_listener(:layout, @updater) if @container
+      @scroller.update_knob if @scroller
+    end
+
+  end
+
+
+  class HScroller < Widget
+
+    touching_accessor :knob
+
+    def default_config
+      super.merge(
+        :expand_width => true,
+        :knob => HScrollKnob.new,
+        :background => GlimR::StretchableImage.load_theme('hscroller_bg.png')
+      )
+    end
+
+    def initialize(*a,&b)
+      super
+      @knob.z = 5
+      attach @background, @knob
+      self.min_width = @knob.width
+    end
+
+    def click(o,e)
+      if e.target == @background.geometry
+        distance_from_knob_right = (@knob.x + @knob.width - e.rx)
+        distance_from_knob_left = (@knob.x - e.rx)
+        if distance_from_knob_right.abs > distance_from_knob_left.abs
+          @knob.new_x = e.rx
+        else
+          @knob.new_x = e.rx - @knob.width
+        end
+      end
+    end
+
+    def update_knob
+      @knob.layout
+    end
+
+    def layout
+      return if @layouting
+      @layouting = true
+      super
+      @background.set_dimensions(@width, @height) if @background.width != @width or @background.height != @height
+      update_knob
+      @layouting = false
+    end
+
+  end
+
+
+  class VScroller < Widget
+
+    touching_accessor :knob
+
+    def default_config
+      super.merge(
+        :expand_height => true,
+        :knob => VScrollKnob.new,
+        :background => GlimR::StretchableImage.load_theme('vscroller_bg.png')
+      )
+    end
+
+    def initialize(*a,&b)
+      super
+      @knob.z = 5
+      attach @background,@knob
+      self.min_height = @knob.height
+    end
+
+    def click(o,e)
+      if e.target == @background.geometry
+        distance_from_knob_bottom = (@knob.y + @knob.height - e.ry)
+        distance_from_knob_top = (@knob.y - e.ry)
+        if distance_from_knob_bottom.abs > distance_from_knob_top.abs
+          @knob.new_y = e.ry
+        else
+          @knob.new_y = e.ry - @knob.height
+        end
+      end
+    end
+
+    def update_knob
+      @knob.layout
+    end
+
+    def layout
+      return if @layouting
+      @layouting = true
+      super
+      @background.set_dimensions(@width, @height) if @background.width != @width or @background.height != @height
+      update_knob
+      @layouting = false
+    end
+
+  end
+
+
+  class HScrollKnob < EmptyButton
+
+    def default_config
+      super.merge(
+        :up_background => "scroll_hknob_up.png",
+        :down_background => "scroll_hknob_down.png",
+        :up_cover => nil, :down_cover => nil, :focus_indicator => nil,
+        :label => nil,
+        :padding => 0, :rel_x => 0
+      )
+    end
+
+    def initialize(*a,&b)
+      super
+      on_scroll(:scroll_handler)
+    end
+
+    def container
+      parent.parent.container
+    rescue NoMethodError
+      nil
+    end
+
+    def layout
+      return if @layouting
+      @layouting = true
+      if container
+        self.width = [parent.inner_width,
+          [
+          self.min_width || 0.0,
+          (container.width / container.content.width.to_f)*parent.inner_width
+          ].max
+        ].min.to_i
+        @background_model.width = @width if @background_model
+        parent.parent.scroll_x = parent.parent.scroll_x
+      end
+      @layouting = false
+    end
+
+    def mouse_down(o,e)
+      super
+      @rel_x = e.rx
+    end
+
+    def mouse_move(o,e)
+      if @down and e.buttons[:left]
+        self.new_x += e.dx
+        @rel_x += e.dx
+      end
+    end
+
+    def new_x
+      @new_x || self.x
+    end
+
+    def new_x=(nx)
+      on_frame(:update_scroll) unless @new_x
+      @new_x = [scroll_max, [0, nx].max].min
+    end
+
+    # The highest value the scroll knob can have. (Lowest is 0.)
+    def scroll_max
+      parent.inner_width - self.full_width
+    end
+
+    def scroll_handler(*a)
+      self.x = parent.parent.scroll_x * scroll_max
+    end
+
+    def update_scroll(o,e)
+      new_scroll = (scroll_max > 0 ? (@new_x.to_f / scroll_max) : (@rel_x.to_f / parent.inner_width))
+      parent.parent.scroll_x = new_scroll
+      @new_x = nil
+      remove_event_listener(:frame, :update_scroll)
+    end
+
+  end
+
+
+  class VScrollKnob < EmptyButton
+
+    def default_config
+      super.merge(
+        :up_background => "scroll_vknob_up.png",
+        :down_background => "scroll_vknob_down.png",
+        :up_cover => nil, :down_cover => nil, :focus_indicator => nil, :label => nil,
+        :padding => 0, :rel_y => 0
+      )
+    end
+
+    def initialize(*a,&b)
+      super
+      on_scroll(:scroll_handler)
+    end
+
+    def container
+      parent.parent.container
+    rescue NoMethodError
+      nil
+    end
+
+    def layout
+      return if @layouting
+      @layouting = true
+      if container
+        self.height = [parent.inner_height,
+          [
+          self.min_height || 0.0,
+          (container.height / container.content.height.to_f)*parent.inner_height
+          ].max
+        ].min.to_i
+        @background_model.height = @height if @background_model
+        parent.parent.scroll_y = parent.parent.scroll_y
+      end
+      @layouting = false
+    end
+
+    def mouse_down(o,e)
+      super
+      @rel_y = e.ry
+    end
+
+    def mouse_move(o,e)
+      if @down and e.buttons[:left]
+        self.new_y += e.dy
+        @rel_y += e.dy
+      end
+    end
+
+    def new_y
+      @new_y || self.y
+    end
+
+    def new_y=(ny)
+      on_frame(:update_scroll) unless @new_y
+      @new_y = [scroll_max, [0, ny].max].min
+    end
+
+    # The highest value the scroll knob can have. (Lowest is 0.)
+    def scroll_max
+      parent.inner_height - self.full_height
+    end
+
+    def scroll_handler(*a)
+      self.y = parent.parent.scroll_y * scroll_max
+    end
+
+    def update_scroll(o,e)
+      new_scroll = (scroll_max > 0 ? (@new_y.to_f / scroll_max) : (@rel_y.to_f / parent.inner_height))
+      parent.parent.scroll_y = new_scroll
+      @new_y = nil
+      remove_event_listener(:frame, :update_scroll)
+    end
+
+  end
+
+
+  class ScrollLeftButton < EmptyButton
+
+    def default_config
+      super.merge(
+        :up_background => "scroll_left_up.png",
+        :down_background => "scroll_left_down.png",
+        :up_cover => nil, :down_cover => nil, :focus_indicator => nil, :label => nil,
+        :padding => 0
+      )
+    end
+
+    def activate(o,e)
+      parent.scroll_left
+    end
+
+  end
+
+  class ScrollRightButton < EmptyButton
+
+    def default_config
+      super.merge(
+        :up_background => "scroll_right_up.png",
+        :down_background => "scroll_right_down.png",
+        :up_cover => nil, :down_cover => nil, :focus_indicator => nil, :label => nil,
+        :padding => 0
+      )
+    end
+
+    def activate(o,e)
+      parent.scroll_right
+    end
+
+  end
+
+  class ScrollUpButton < EmptyButton
+
+    def default_config
+      super.merge(
+        :up_background => "scroll_up_up.png",
+        :down_background => "scroll_up_down.png",
+        :up_cover => nil, :down_cover => nil, :focus_indicator => nil, :label => nil,
+        :padding => 0
+      )
+    end
+
+    def activate(o,e)
+      parent.scroll_up
+    end
+
+  end
+
+  class ScrollDownButton < EmptyButton
+
+    def default_config
+      super.merge(
+        :up_background => "scroll_down_up.png",
+        :down_background => "scroll_down_down.png",
+        :up_cover => nil, :down_cover => nil, :focus_indicator => nil, :label => nil,
+        :padding => 0
+      )
+    end
+
+    def activate(o,e)
+      parent.scroll_down
+    end
+
+  end
+
+end