green_shoes 0.129.0

data/lib/shoes/helper_methods.rb

@@ -0,0 +1,308 @@
+class Shoes
+  module Mod
+    def set_margin
+      @margin ||= [0, 0, 0, 0]
+      @margin = [@margin, @margin, @margin, @margin] if @margin.is_a? Integer
+      margin_left, margin_top, margin_right, margin_bottom = @margin
+      @margin_left ||= margin_left
+      @margin_top ||= margin_top
+      @margin_right ||= margin_right
+      @margin_bottom ||= margin_bottom
+    end
+
+    attr_reader :margin_left, :margin_top, :margin_right, :margin_bottom
+  end
+  
+  module Mod2
+    def init_app_vars
+      @contents, @mccs, @mrcs, @mmcs, @mhcs, @mlcs, @shcs, @mcs, @order, @dics = 
+        [], [], [], [], [], [], [], [], [], [], []
+      @cmask = nil
+      @mouse_button, @mouse_pos = 0, [0, 0]
+      @fill, @stroke = black, black
+    end
+
+    def set_rotate_angle args
+      @context_angle2 = Math::PI/2 - @context_angle
+      m = args[:height] * Math.sin(@context_angle)
+      w = args[:width] * Math.sin(@context_angle2) + m
+      h = args[:width] * Math.sin(@context_angle) + args[:height] * Math.sin(@context_angle2)
+      mx, my = m * Math.sin(@context_angle2), m * Math.sin(@context_angle)
+      if @pixbuf_rotate.even?
+        args[:left] += (args[:width] - w)/2.0
+        args[:top] -= (h - args[:height])/2.0
+      else
+        args[:left] -= (h - args[:width])/2.0
+        args[:top] += (args[:height] - w)/2.0
+      end
+      return w, h, mx, my
+    end
+  end
+
+  class App
+    def basic_attributes args={}
+      default = {left: 0, top: 0, width: 0, height: 0, angle: 0, curve: 0}
+      default.merge!({nocontrol: true}) if @nolayout
+      default.merge args
+    end
+
+    def slot_attributes args={}
+      default = {left: nil, top: nil, width: 1.0, height: 0}
+      default.merge args
+    end
+
+    def create_tmp_png surface
+      surface.write_to_png TMP_PNG_FILE
+      Gtk::Image.new TMP_PNG_FILE
+    end
+    
+    def make_link_index msg
+      start, links = 0, []
+      msg.each do |e|
+        len = e.to_s.gsub(/<\/.*?>/, '').gsub(/<.*?>/, '').length
+        (links << e; e.index = [start, start + len - 1]) if e.is_a? Link
+        start += len
+      end
+      links
+    end
+    
+    def make_link_pos links, layout, line_height
+      links.each do |e|
+        e.pos = [layout.index_to_pos(e.index[0]).x / Pango::SCALE, layout.index_to_pos(e.index[0]).y / Pango::SCALE]
+        e.pos << (layout.index_to_pos(e.index[1]).x / Pango::SCALE + line_height / 2) << (layout.index_to_pos(e.index[1]).y / Pango::SCALE)
+        e.pos << line_height
+      end
+    end
+  end
+
+  def self.contents_alignment slot
+    x, y = slot.left.to_i, slot.top.to_i
+    max = Struct.new(:top, :height).new
+    max.top, max.height = y, 0
+    slot_height = 0
+
+    slot.contents.each do |ele|
+      if ele.is_a? ShapeBase
+        ele.hide if slot.masked
+        next
+      end
+      if slot.masked and ele.is_a? Image
+        ele.hide
+        next
+      end
+      tmp = max
+      max = ele.positioning x, y, max
+      x, y = ele.left + ele.width, ele.top + ele.height
+      slot_height += max.height unless max == tmp
+    end
+    slot_height
+  end
+
+  def self.repaint_all slot
+    return if slot.masked
+    slot.contents.each do |ele|
+      next if ele.is_a? ShapeBase
+      ele.is_a?(Basic) ? ele.move2(ele.left + ele.margin_left, ele.top + ele.margin_top) : repaint_all(ele)
+    end
+  end
+
+  def self.repaint_all_by_order app
+    app.order.each do |e|
+      if e.real and !e.is_a?(Pattern) and !e.hided
+        app.canvas.remove e.real
+        app.canvas.put e.real, e.left, e.top
+      end
+    end
+  end
+  
+  def self.call_back_procs app
+    init_contents app.cslot.contents
+    app.cslot.width, app.cslot.height = app.width, app.height
+    scrollable_height = contents_alignment app.cslot
+    repaint_all app.cslot
+    mask_control app
+    repaint_all_by_order app
+    app.canvas.set_size 0, scrollable_height unless app.prjct
+    true
+  end
+
+  def self.init_contents contents
+    contents.each do |ele|
+      next unless ele.is_a? Slot
+      ele.initials.each do |k, v|
+        ele.send "#{k}=", v
+      end
+    end
+  end
+
+  def self.mouse_click_control app
+    app.mccs.each do |e|
+      e.click_proc.call if mouse_on? e
+    end
+  end
+  
+  def self.mouse_release_control app
+    app.mrcs.each do |e|
+      e.release_proc.call if mouse_on? e
+    end
+  end
+
+  def self.mouse_motion_control app
+    app.mmcs.each do |blk|
+      blk[*app.win.pointer]
+    end
+  end
+
+  def self.mouse_hover_control app
+    app.mhcs.each do |e|
+      if mouse_on?(e) and !e.hovered
+        e.hovered = true
+        e.hover_proc.call if e.hover_proc
+      end
+    end
+  end
+
+  def self.mouse_leave_control app
+    app.mhcs.each do |e|
+      if !mouse_on?(e) and e.hovered
+        e.hovered = false
+        e.leave_proc.call if e.leave_proc
+      end
+    end
+  end
+
+  def self.mouse_link_control app
+    app.mlcs.each do |tb|
+      link_proc,  = mouse_on_link(tb, app)
+      link_proc.call if link_proc
+    end
+  end
+  
+  def self.set_cursor_type app
+    app.mccs.each do |e|
+      e.real.window.cursor = ARROW if e.real.window
+      (e.real.window.cursor = HAND; return) if mouse_on? e
+    end
+    
+    app.mlcs.each do |tb|
+      tb.text = tb.text unless tb.real
+      tb.real.window.cursor = ARROW if tb.real.window
+      if ret = mouse_on_link(tb, app)
+        tb.real.window.cursor = HAND
+        unless tb.links[ret[1]].link_hover
+          markup = tb.args[:markup].gsub(app.linkhover_style, app.link_style)
+          links = markup.mindex  app.link_style
+          n = links[ret[1]]
+          tb.text = markup[0...n] + markup[n..-1].sub(app.link_style, app.linkhover_style)
+          tb.links.each{|e| e.link_hover = false}
+          tb.links[ret[1]].link_hover = true
+        end
+        return
+      end
+      if tb.links.map(&:link_hover).include? true
+        tb.text = tb.args[:markup].gsub(app.linkhover_style, app.link_style)
+        tb.links.each{|e| e.link_hover = false}
+      end
+    end
+  end
+  
+  def self.mouse_on? e
+    mouse_x, mouse_y = e.real.pointer
+    (0..e.width).include?(mouse_x) and (0..e.height).include?(mouse_y)
+  end
+
+  def self.mouse_on_link tb, app
+    mouse_x, mouse_y = app.win.pointer
+    mouse_y += app.scroll_top
+    mouse_x -= tb.left
+    mouse_y -= tb.top
+    tb.links.each_with_index do |e, n|
+      return [e.link_proc, n] if ((0..tb.width).include?(mouse_x) and (e.pos[1]..(e.pos[3]+e.pos[4])).include?(mouse_y) \
+        and !((0..e.pos[0]).include?(mouse_x) and (e.pos[1]..(e.pos[1]+e.pos[4])).include?(mouse_y)) \
+        and !((e.pos[2]..tb.width).include?(mouse_x) and (e.pos[3]..(e.pos[3]+e.pos[4])).include?(mouse_y)) \
+      )
+    end
+    return false
+  end
+
+  def self.size_allocated? app
+    not (app.width_pre == app.width and app.height_pre == app.height)
+  end
+
+  def self.show_hide_control app
+    flag = false
+    app.shcs.each do |e|
+      case
+        when(!e.shows and !e.hided)
+          e.remove
+          e.hided = true
+          flag = true
+        when(e.shows and e.hided)
+          e.hided = false
+          e.is_a?(Pattern) ? e.move2(e.left, e.top) : app.canvas.put(e.real, e.left, e.top)
+          flag = true
+        else
+      end
+    end
+    repaint_all_by_order app if flag
+  end
+
+  def self.mask_control app
+    app.mcs.each do |m|
+      w, h = m.parent.width, m.parent.height
+      w = app.width if w.zero?
+      h = app.height if h.zero?
+      surface = Cairo::ImageSurface.new Cairo::FORMAT_ARGB32, w, h
+      context = Cairo::Context.new surface
+      context.push_group do
+        m.parent.contents.each do |ele|
+          x, y = ele.left - m.parent.left, ele.top - m.parent.top
+          context.translate x, y
+          context.set_source_pixbuf ele.real.pixbuf
+          context.paint
+          context.translate -x, -y
+        end
+      end
+
+      sf = Cairo::ImageSurface.new Cairo::FORMAT_ARGB32, w, h
+      ct = Cairo::Context.new surface
+      pat = ct.push_group nil, false do
+        m.contents.each do |ele|
+          if ele.is_a? TextBlock
+            ele.height = h
+            ele.text = ele.args[:markup]
+          end
+          x, y = ele.left - m.parent.left, ele.top - m.parent.top
+          ct.translate x, y
+          ct.set_source_pixbuf ele.real.pixbuf
+          ct.paint
+          ct.translate -x, -y
+        end
+      end
+
+      context.mask pat
+      m.real = img = app.create_tmp_png(surface)
+      app.canvas.put img, 0, 0
+      img.show_now
+    end
+  end
+
+  def self.download_images_control app
+    app.dics.each do |e, d, tmpname|
+      args = e.args
+      if d.finished?
+        app.canvas.remove e.real
+        img = Gtk::Image.new tmpname
+        unless args[:width].zero? and args[:height].zero?
+          img = Gtk::Image.new img.pixbuf.scale(args[:width], args[:height])
+        end
+        app.canvas.put img, e.left, e.top
+        img.show_now
+        e.real = img
+        e.width, e.height = img.size_request
+        app.dics.delete [e, d, tmpname]
+        File.delete tmpname
+      end
+    end
+  end
+end

data/lib/shoes/main.rb

@@ -0,0 +1,99 @@
+class Shoes
+  include Types
+  @apps = []
+  $urls = {}
+
+  def self.app args={}, &blk
+    args[:width] ||= 600
+    args[:height] ||= 500
+    args[:title] ||= 'green shoes'
+    args[:left] ||= 0
+    args[:top] ||= 0
+    projector = args[:prjct] = args[:projector]
+    args.delete :projector
+
+    app = App.new args
+    @apps.push app
+
+    app.top_slot = Flow.new app.slot_attributes(app: app, left: 0, top: 0)
+
+    win = Gtk::Window.new
+    win.icon = Gdk::Pixbuf.new File.join(DIR, '../static/gshoes-icon.png')
+    win.title = args[:title]
+    win.set_default_size args[:width], args[:height]
+
+    style = win.style
+    style.set_bg Gtk::STATE_NORMAL, 65535, 65535, 65535
+
+    class << app; self end.class_eval do
+      define_method(:width){win.size[0]}
+      define_method(:height){win.size[1]}
+    end
+
+    win.set_events Gdk::Event::BUTTON_PRESS_MASK | Gdk::Event::BUTTON_RELEASE_MASK | Gdk::Event::POINTER_MOTION_MASK
+
+    win.signal_connect "delete-event" do
+      false
+    end
+
+    win.signal_connect "destroy" do
+      app.exit
+    end if @apps.size == 1
+
+    win.signal_connect "button_press_event" do |w, e|
+      app.mouse_button = e.button
+      app.mouse_pos = app.win.pointer
+      mouse_click_control app
+      mouse_link_control app
+    end
+    
+    win.signal_connect "button_release_event" do
+      app.mouse_button = 0
+      app.mouse_pos = app.win.pointer
+      mouse_release_control app
+    end
+
+    win.signal_connect "motion_notify_event" do
+      app.mouse_pos = app.win.pointer
+      mouse_motion_control app
+      mouse_hover_control app
+      mouse_leave_control app
+    end
+
+    app.canvas = projector ? Gtk::DrawingArea.new : Gtk::Layout.new
+    swin = Gtk::ScrolledWindow.new
+    swin.set_policy Gtk::POLICY_NEVER, Gtk::POLICY_AUTOMATIC    
+    swin.add app.canvas
+    win.add swin
+    app.canvas.style = style
+    app.win, app.swin = win, swin
+
+    if blk
+      app.instance_eval &blk
+    elsif projector
+      app.send :projector, projector
+    else
+      app.instance_eval{$urls[/^#{'/'}$/].call app}
+    end
+
+    Gtk.timeout_add 100 do
+      unless app.win.destroyed?
+        download_images_control app
+        if size_allocated? app
+          call_back_procs app
+          app.width_pre, app.height_pre = app.width, app.height
+        end
+        show_hide_control app
+        set_cursor_type app
+      end
+      true
+    end
+
+    call_back_procs app
+    
+    win.show_all
+    @apps.pop
+    Gtk.main if @apps.empty?
+    app
+  end
+end

data/lib/shoes/manual.rb

@@ -0,0 +1,6 @@
+class Shoes
+  def self.show_manual lang
+    $lang = lang
+    load File.join(DIR, 'shoes/help.rb')
+  end
+end

data/lib/shoes/mask.rb

@@ -0,0 +1,29 @@
+class Shoes
+  class Mask
+    def initialize app, &blk
+      @app = app
+      @parent = app.cslot
+      @real = nil
+      app.cslot.masked = true
+      mask_block_call &blk
+    end
+
+    attr_reader :parent
+    attr_accessor :contents, :real
+
+    def clear &blk
+      @real.clear
+      @contents.each &:clear
+      mask_block_call &blk
+      Shoes.call_back_procs @app
+    end
+
+    def mask_block_call &blk
+      @contents = []
+      @app.cmask = self
+      blk.call if blk
+      @app.cmask = nil
+      @contents.each &:hide
+    end
+  end
+end

data/lib/shoes/projector.rb

@@ -0,0 +1,42 @@
+class Shoes
+  class App
+    def projector file
+      projector = Projector.new
+      projector.controller = SwingController.new
+      projector.controller.content = TextureMappingData.new
+      projector.controller.content.face_list = AkatsukiFace::create
+      projector.controller.content.texture = Gdk::Pixbuf.new(file)
+  
+      def (projector.controller.content.texture).source_set(context)
+        context.set_source_pixbuf(self)
+      end
+  
+      @canvas.tap do |drawing_area|
+        drawing_area.signal_connect('expose-event') do |widget, event|
+          projector.controller.region(widget.allocation)
+          projector.update
+          projector.draw
+          true
+        end
+        drawing_area.add_events(Gdk::Event::BUTTON_PRESS_MASK)
+        drawing_area.signal_connect('button_press_event') do |widget, event|
+          projector.controller.press(event)
+          true
+        end
+        drawing_area.add_events(Gdk::Event::POINTER_MOTION_MASK)
+        drawing_area.signal_connect('motion_notify_event') do |widget, event|
+          projector.controller.motion(event)
+          true
+        end
+        drawing_area.add_events(Gdk::Event::BUTTON_RELEASE_MASK)
+        drawing_area.signal_connect('button_release_event') do |widget, event|
+          projector.controller.release(event)
+          true
+        end
+      end
+
+      projector.widget = @canvas
+      animate{projector.draw}
+    end
+  end
+end