glimr 0.1.0

data/lib/glimr/widgets/stretchable_image.rb

@@ -0,0 +1,135 @@
+require 'glimr/widgets/image'
+
+
+module GlimR
+
+
+  class StretchableImage < Image
+
+    def set_dimensions(w,h)
+      @width = w if w >= @texture.width
+      @height = h if h >= @texture.height
+      update_geometry
+    end
+
+    def width=(w)
+      return if w < @texture.width
+      super
+      update_geometry
+    end
+
+    def height=(h)
+      return if h < @texture.height
+      super
+      update_geometry
+    end
+
+    def update_geometry
+      @min_width = @texture.width
+      @min_height = @texture.height
+      @width = [@width, @texture.width].max
+      @height = [@height, @texture.height].max
+      super
+    end
+
+
+    def create_texcoords
+      tc = super
+      tw = th = 0
+      tc.each_with_index{|e,i|
+        if i % 2 == 0
+          tw = e if e > tw
+        else
+          th = e if e > th
+        end
+      }
+      texcoords_3 = create_vertices(0.5*tw, 0.5*tw, tw, 0.5*th, 0.5*th, th)
+      xcoords = []
+      ycoords = []
+      texcoords_3.each_with_index{|e,i|
+        case i%3
+        when 0
+          xcoords << e
+        when 1
+          ycoords << e
+        end
+      }
+      xcoords.zip(ycoords)
+    end
+
+    def create_normals
+      super * 9
+    end
+
+    def create_vertices(
+      hw = @texture.width / 2.0,
+      fhw = @width - hw,
+      w = @width,
+      hh = @texture.height / 2.0,
+      fhh = @height - hh,
+      h = @height
+    )
+      top_left_quad = [
+        0, hh, 0,
+        hw, hh, 0,
+        hw, 0, 0,
+        0,0,0
+      ]
+      top_middle_quad = [
+        hw, hh, 0,
+        fhw, hh, 0,
+        fhw, 0, 0,
+        hw, 0, 0
+      ]
+      top_right_quad = [
+        fhw, hh, 0,
+        w, hh, 0,
+        w, 0, 0,
+        fhw, 0, 0
+      ]
+      middle_left_quad = [
+        0, fhh, 0,
+        hw, fhh, 0,
+        hw, hh, 0,
+        0, hh, 0
+      ]
+      middle_middle_quad = [
+        hw, fhh, 0,
+        fhw, fhh, 0,
+        fhw, hh, 0,
+        hw, hh, 0
+      ]
+      middle_right_quad = [
+        fhw, fhh, 0,
+        w, fhh, 0,
+        w, hh, 0,
+        fhw, hh, 0
+      ]
+      bottom_left_quad = [
+        0, h, 0,
+        hw, h, 0,
+        hw, fhh, 0,
+        0, fhh, 0
+      ]
+      bottom_middle_quad = [
+        hw, h, 0,
+        fhw, h, 0,
+        fhw, fhh, 0,
+        hw, fhh, 0
+      ]
+      bottom_right_quad = [
+        fhw, h, 0,
+        w, h, 0,
+        w, fhh, 0,
+        fhw, fhh, 0
+      ]
+      (
+        top_left_quad + top_middle_quad + top_right_quad +
+        middle_left_quad + middle_middle_quad + middle_right_quad +
+        bottom_left_quad + bottom_middle_quad + bottom_right_quad
+      )
+    end
+
+  end
+
+end

data/lib/glimr/widgets/text_editor.rb

@@ -0,0 +1,349 @@
+require 'glimr/widgets/label'
+
+module GlimR
+
+
+  class TextCursor < StretchableImage
+
+    def default_config
+      super.merge(
+        :normal => "text_cursor.png",
+        :insert => "text_cursor_insert.png"
+      )
+    end
+
+    def initialize(*a,&b)
+      super
+      load_theme(@normal)
+      @normal_texture = @texture
+      @insert_texture = Texture.load(GlimR.theme + @insert)
+    end
+
+    def use_normal
+      @texture = @normal_texture
+      touch!
+    end
+
+    def use_insert
+      @texture = @insert_texture
+      touch!
+    end
+
+  end
+
+
+  # TextInput is a single-line text input widget.
+  #
+  class TextInput < Label
+
+    if !WINDOWS and !MAC_OS_X # assume we're in an X environment
+      @@xsel = `which xsel`.strip
+      @@xsel = nil if @@xsel.empty?
+    else
+      @@xsel = false
+    end
+
+    attr_reader :scroll_x, :scroll_y
+
+    attr_accessor :cursor_position, :selection_start, :selection_end
+    attr_accessor :submit_handler
+
+    def default_config
+      super.merge(
+        :fit_children => false,
+        :align => :left,
+        :text => "",
+        :width => 150,
+        :height => 16,
+        :scroll_x => 0,
+        :scroll_y => 0,
+        :background => StretchableImage.load_theme("text_input_bg.png"),
+        :cursor => TextCursor.new,
+        :cursor_position => 0,
+        :selection_start => 0,
+        :selection_end => 0
+      )
+    end
+
+    def initialize(*a,&b)
+      if a[0]
+        txt = a[0][:text]
+        a[0].delete(:text)
+      end
+      super(*a, &nil)
+      @texture.pixels = "\000" * (@width*@height*4)
+      @texture.width = @width
+      @texture.height = @height
+      @bound = @texture.bound
+      update_geometry
+      if a[0]
+        self.text = txt if txt
+      end
+      @cursor.height = @height - 2
+      @cursor.y = 1
+      @cursor.z = -0.1
+      attach @cursor
+      @background.set_dimensions(@width, @height)
+      @background.z = -0.2
+      attach @background
+      if block_given?
+        self.submit_handler = b
+      end
+    end
+
+    def submit_handler= sh
+      remove_event_listener(:submit, @submit_handler) if @submit_handler
+      @submit_handler = sh
+      on_submit(@submit_handler)
+    end
+
+    def key_up(o,e)
+      return unless focused
+      case e.key
+      when :left
+        clear_selection if @text_selected
+        self.cursor_position -= 1
+      when :right
+        clear_selection if @text_selected
+        self.cursor_position += 1
+      when 8 # backspace
+        if @text_selected
+          replace_selection_with ""
+        elsif self.cursor_position > 0
+          @text[self.cursor_position-1] = ""
+          self.text = @text
+          @cursor_position -= 1
+        end
+      when 127 # delete
+        if @text_selected
+          replace_selection_with ""
+        elsif self.cursor_position < @text.size
+          @text[self.cursor_position] = ""
+          self.text = @text
+        end
+      when 13 # enter
+        submit
+      else
+        if @text_selected
+          replace_selection_with e.key.chr
+          cp = [@selection_start, @selection_end].min
+        else
+          cp = self.cursor_position
+          @text.insert(cp, e.key.chr)
+          self.text = @text
+        end
+        @cursor_position = cp + 1
+      end
+    end
+
+    def submit
+      dispatch_event(Event.new(:submit, :text => @text))
+    end
+
+    def replace_selection_with str
+      @text[selection_range] = str
+      clear_selection
+      self.text = @text
+    end
+
+    def selection_range
+      if @selection_start > @selection_end
+        (@selection_end...@selection_start) # up until selection start
+      else
+        (@selection_start..@selection_end)
+      end
+    end
+
+    def selection
+      @text[selection_range]
+    end
+
+    def click(o,e)
+      if e.button == :left
+        clear_selection if @text_selected
+        self.cursor_position = cursor_position_closest_to(e.rx, e.ry)
+      elsif e.button == :middle and @@xsel
+        x_sel = IO.popen("#@@xsel -o", "r"){|f| f.read }
+        replace_selection_with x_sel
+        @cursor_position += x_sel.size
+      end
+    end
+
+    def mouse_down(o,e)
+      if e.button == :left
+        @sx, @sy = e.rx, e.ry
+        @selection_start = @selection_end = cursor_position_closest_to(@sx, @sy)
+      end
+      super
+    end
+
+    def mouse_up(o,e)
+      super unless @selecting
+      if e.button == :left and @selecting
+        @selecting = false
+        @selection_end = cursor_position_closest_to(@sx, @sy)
+        update_selection
+      end
+      @sx = @sy = false
+    end
+
+    def mouse_move(o,e)
+      if @sx and @sy
+        @selecting = true
+        @sx += e.dx
+        @sy += e.dy
+        @selection_end = cursor_position_closest_to(@sx, @sy)
+        update_selection
+      end
+    end
+
+    def update_selection
+      if @@xsel
+        IO.popen("#@@xsel -i", "w"){|f| f.write selection }
+      end
+      ss = @text_offsets[@selection_start][0]
+      se = @text_offsets[@selection_end][0]
+      d = se - ss
+      self.cursor_position = @selection_end
+      ex = @cursor.x
+      ew = @cursor.width
+      if d > 0 # end is after beginning
+        @cursor.x = [0, ex - d].max # ex - d is first character x of selection
+        @cursor.width = ex + ew - @cursor.x # width is distance from right side of end char to current cursor.x
+      else # end is before beginning
+        # cursor.x is where it should be, width is -d
+        @cursor.x = ex
+        @cursor.width = [@width - ex, -d].min
+      end
+      @cursor.use_insert
+      @text_selected = true
+      dispatch_event(
+        Event.new(
+          :select, :selection => selection,
+          :start => @selection_start, :end => @selection_end))
+    end
+
+    def clear_selection(new_cursor_position=[@selection_start, @selection_end].min)
+      @selecting = false
+      @text_selected = false
+      @cursor.use_normal
+      self.cursor_position = new_cursor_position
+    end
+
+    def cursor_position_closest_to(cx,cy)
+      index = nil
+      @text_offsets.each_with_index{|(x,y), i|
+        if x + scroll_x > cx
+          index = [i-1, 0].max
+          break
+        end
+      }
+      index ||= @text.size
+      index
+    end
+
+    def text= text
+      @text = text
+      @text_changed = true
+      change!
+    end
+
+    def change!
+      dispatch_event(Event.new(:change, :text => @text))
+      update_on_frame
+    end
+
+    def update_on_frame
+      if not @updater
+        @updater = on_frame(:update_text)
+      end
+    end
+
+    def scroll_x= sx
+      @scroll_x = sx
+      update_on_frame
+    end
+
+    def cursor_position= index
+      @cursor_position = [[0,index].max, @text.size].min
+      @cursor.width = [((@text_offsets[@cursor_position + 1] || [0])[0] - @text_offsets[@cursor_position][0]), 1].max
+      x_offset, y_offset = @text_offsets[@cursor_position]
+      if @scroll_x + x_offset + @cursor.width > width
+        self.scroll_x = -x_offset + (width - 60)
+      elsif @scroll_x + x_offset < 0
+        self.scroll_x += 60
+        self.scroll_x = 0 if @scroll_x > 0
+      end
+      @cursor.x = @scroll_x + x_offset
+    end
+
+    def layout
+    end
+
+    def update_text(o,e)
+      if @text_changed
+        @text_offsets = false
+        @text_changed = false
+      end
+      update_text_offsets
+      self.cursor_position = self.cursor_position
+      update_selection if @selecting
+      draw_text
+      touch!
+      remove_event_listener(:frame, @updater)
+      @updater = false
+    end
+
+    def update_text_offsets
+      @sdl_font = SDL::TTF.open(font, size)
+      @text_offsets ||= (0..text.size).map{|i|
+        @sdl_font.text_size(text[0,i])
+      }
+    end
+
+    def draw_text x_offset=@scroll_x, y_offset=@scroll_y
+      GC.disable
+      w,h = @width, @height
+      rmask = 0xff000000
+      gmask = 0x00ff0000
+      bmask = 0x0000ff00
+      amask = 0x000000ff
+      mask = SDL::Surface.new(
+          SDL::SWSURFACE|SDL::SRCALPHA,
+          w, h, 32,
+          amask,bmask,gmask,rmask)
+      mask.fill_rect(0,0, w,h, [0,0,0,255])
+      @sdl_font.draw_blended_utf8(
+        mask, text,
+        x_offset, y_offset,
+        255, 255, 255
+      )
+      image = SDL::Surface.new(
+          SDL::SWSURFACE|SDL::SRCALPHA,
+          w, h, 32,
+          amask,bmask,gmask,rmask)
+      image.fill_rect(0,0, w,h, color.map{|i|(i*255).to_i})
+      texture.pixels = as_alpha(image.pixels, mask.pixels)
+      GC.enable
+    end
+
+    def as_alpha(pixels, alpha)
+      i = 3
+      while i < pixels.size
+        pixels[i] = alpha[i-1]
+        i += 4
+      end
+      pixels
+    end
+
+  end
+
+
+  # TextEditor is multi-line text editor widget.
+  #
+  class TextEditor < Widget
+  end
+
+  self.widgets[String] = TextInput
+
+end