green_shoes 0.129.0

data/lib/green_shoes.rb

@@ -0,0 +1,45 @@
+require 'tmpdir'
+require 'pathname'
+require 'cairo'
+require 'pango'
+require 'gdk_pixbuf2'
+require 'gtk2'
+
+STDOUT.sync = true
+
+Types = module Shoes; self end
+
+module Shoes
+  DIR = Pathname.new(__FILE__).realpath.dirname.to_s
+  TMP_PNG_FILE = File.join(Dir.tmpdir, '__green_shoes_temporary_file__')
+  HAND = Gdk::Cursor.new(Gdk::Cursor::HAND1)
+  ARROW = Gdk::Cursor.new(Gdk::Cursor::ARROW)
+  FONTS = Gtk::Invisible.new.pango_context.families.map(&:name).sort
+  LINK_DEFAULT = "<span underline='single' underline_color='#06E' foreground='#06E' weight='normal'>"
+  LINKHOVER_DEFAULT = "<span underline='single' underline_color='#039' foreground='#039' weight='normal'>"
+  ROTATE = [Gdk::Pixbuf::ROTATE_NONE, Gdk::Pixbuf::ROTATE_CLOCKWISE, Gdk::Pixbuf::ROTATE_UPSIDEDOWN, Gdk::Pixbuf::ROTATE_COUNTERCLOCKWISE]
+end
+
+class Object
+  remove_const :Shoes
+end
+
+require_relative 'shoes/ruby'
+require_relative 'shoes/helper_methods'
+require_relative 'shoes/colors'
+require_relative 'shoes/basic'
+require_relative 'shoes/main'
+require_relative 'shoes/app'
+require_relative 'shoes/anim'
+require_relative 'shoes/slot'
+require_relative 'shoes/text'
+require_relative 'shoes/mask'
+require_relative 'shoes/widget'
+require_relative 'shoes/url'
+require_relative 'shoes/projector'
+require_relative 'shoes/download'
+require_relative 'shoes/manual'
+
+autoload :ChipMunk, File.join(Shoes::DIR, 'ext/chipmunk')
+autoload :Bloops, File.join(Shoes::DIR, 'ext/bloops')
+autoload :Projector, File.join(Shoes::DIR, 'ext/projector')

data/lib/shoes/anim.rb

@@ -0,0 +1,19 @@
+class Shoes
+  class Anim
+    def stop
+      @stop = true
+    end
+
+    def continue?
+      !@stop
+    end
+
+    def pause
+      @pause = !@pause
+    end
+
+    def pause?
+      @pause
+    end
+  end
+end

data/lib/shoes/app.rb

@@ -0,0 +1,591 @@
+class Shoes
+  class App
+    include Types
+    include Mod2
+
+    def initialize args={}
+      args.each do |k, v|
+        instance_variable_set "@#{k}", v
+      end
+      
+      App.class_eval do
+        attr_accessor *(args.keys - [:width, :height, :title])
+      end
+      
+      init_app_vars
+      @canvas, @win, @swin, @top_slot = nil
+      @cslot = (@app ||= self)
+      @width_pre, @height_pre = @width, @height
+      @link_style, @linkhover_style = LINK_DEFAULT, LINKHOVER_DEFAULT
+      @context_angle = @pixbuf_rotate = 0
+    end
+
+    attr_accessor :cslot, :cmask, :top_slot, :contents, :canvas, :app, :mccs, :mrcs, :mmcs, 
+      :mhcs, :mlcs, :shcs, :mcs, :win, :swin, :width_pre, :height_pre, :order, :dics
+    attr_writer :mouse_button, :mouse_pos
+    attr_reader :link_style, :linkhover_style
+
+    def visit url
+      $urls.each do |k, v|
+        clear{init_app_vars; v.call self, $1} if k =~ url
+      end
+    end
+    
+    def stack args={}, &blk
+      args[:app] = self
+      Stack.new slot_attributes(args), &blk
+    end
+
+    def flow args={}, &blk
+      args[:app] = self
+      Flow.new slot_attributes(args), &blk
+    end
+
+    def mask &blk
+      Mask.new(self, &blk).tap{|m| @mcs << m}
+    end
+
+    def clear &blk
+      mcs.each &:clear
+      @top_slot.clear &blk
+    end
+
+    def style klass, args={}
+      if klass == Shoes::Link
+          @link_style = LINK_DEFAULT
+          @link_style.sub!('single', 'none') if args[:underline] == false
+          @link_style.sub!("foreground='#06E'", "foreground='#{args[:stroke]}'") if args[:stroke]
+          @link_style.sub!('>', " background='#{args[:fill]}'>") if args[:fill]
+          @link_style.sub!('normal', "#{args[:weight]}") if args[:weight]
+      elsif klass == Shoes::LinkHover
+          @linkhover_style = LINKHOVER_DEFAULT
+          @linkhover_style.sub!('single', 'none') if args[:underline] == false
+          @linkhover_style.sub!("foreground='#039'", "foreground='#{args[:stroke]}'") if args[:stroke]
+          @linkhover_style.sub!('>', " background='#{args[:fill]}'>") if args[:fill]
+          @linkhover_style.sub!('normal', "#{args[:weight]}") if args[:weight]
+      end
+    end
+
+    def textblock klass, font_size, *msg
+      args = msg.last.class == Hash ? msg.pop : {}
+      args = basic_attributes args
+      msg = msg.map{|s| s == self ? s.to_s.gsub('<', '[').gsub('>', ']') : s}
+      args[:markup] = msg.map(&:to_s).join
+      attr_list, dummy_text = Pango.parse_markup args[:markup].gsub('\u0026', '@')
+      dummy_attr_list, text = Pango.parse_markup args[:markup]
+      text = text.gsub('\u0026', '&')
+      args[:size] ||= font_size
+      args[:font] ||= (@font_family or 'sans')
+      args[:align] ||= 'left'
+      line_height =  args[:size] * 2
+      
+      args[:links] = make_link_index(msg) unless args[:links]
+
+      if !(args[:left].zero? and args[:top].zero?) and (args[:width].zero? or args[:height].zero?)
+        args[:nocontrol], args[:width], args[:height] = true, self.width, self.height
+        layout_control = false
+      else
+        layout_control = true
+      end
+      
+      if args[:create_real] or !layout_control
+        surface = Cairo::ImageSurface.new Cairo::FORMAT_ARGB32, args[:width], args[:height]
+        context = Cairo::Context.new surface
+        layout = context.create_pango_layout
+        layout.width = args[:width] * Pango::SCALE
+        layout.wrap = Pango::WRAP_WORD
+        layout.spacing = 5  * Pango::SCALE
+        layout.text = text
+        layout.alignment = eval "Pango::ALIGN_#{args[:align].upcase}"
+        fd = Pango::FontDescription.new
+        fd.family = args[:font]
+        fd.size = args[:size] * Pango::SCALE
+        layout.font_description = fd
+        layout.attributes = attr_list
+        context.show_pango_layout layout
+        context.show_page
+        
+        make_link_pos args[:links], layout, line_height
+        
+        args[:height] = layout.line_count * line_height
+        img = create_tmp_png surface
+        @canvas.put img, args[:left], args[:top]
+        img.show_now
+        args[:real], args[:noorder] = img, layout_control
+      else
+        args[:real] = false
+      end
+      
+      args[:app] = self
+      klass.new args
+    end
+
+    def banner *msg; textblock Banner, 48, *msg; end
+    def title *msg; textblock Title, 34, *msg; end
+    def subtitle *msg; textblock Subtitle, 26, *msg; end
+    def tagline *msg; textblock Tagline, 18, *msg; end
+    def caption *msg; textblock Caption, 14, *msg; end
+    def para *msg; textblock Para, 12, *msg; end
+    def inscription *msg; textblock Para, 10, *msg; end
+
+    def image name, args={}
+      args = basic_attributes args
+      if name =~ /^(http|https):\/\//
+        tmpname = File.join(Dir.tmpdir, "__green_shoes_#{Time.now.to_f}.png")
+        d = download name, save: tmpname
+        img = Gtk::Image.new File.join(DIR, '../static/downloading.png')
+        downloading = true
+      else
+        img = Gtk::Image.new name
+        downloading = false
+      end
+      if (!args[:width].zero? or !args[:height].zero?) and !downloading 
+        w, h = imagesize(name)
+        args[:width] = w if args[:width].zero?
+        args[:height] = w if args[:height].zero?
+        img = Gtk::Image.new img.pixbuf.scale(args[:width], args[:height])
+      end
+      @canvas.put img, args[:left], args[:top]
+      img.show_now
+      args[:real], args[:app] = img, self
+      Image.new(args).tap{|s| @dics.push([s, d, tmpname]) if downloading}
+    end
+
+    def imagesize name
+      Gtk::Image.new(name).size_request
+    end
+
+    def button name, args={}, &blk
+      args = basic_attributes args
+      b = Gtk::Button.new name
+      b.set_size_request args[:width], args[:height] if args[:width] > 0 and args[:height] > 0
+      b.signal_connect "clicked", &blk if blk
+      @canvas.put b, args[:left], args[:top]
+      b.show_now
+      args[:real], args[:text], args[:app] = b, name, self
+      Button.new args
+    end
+
+    def edit_line args={}
+      args = basic_attributes args
+      args[:width] = 200 if args[:width].zero?
+      el = Gtk::Entry.new
+      el.text = args[:text].to_s
+      el.width_chars = args[:width] / 6
+      el.signal_connect "changed" do
+        yield el
+      end if block_given?
+      @canvas.put el, args[:left], args[:top]
+      el.show_now
+      args[:real], args[:app] = el, self
+      EditLine.new args
+    end
+
+    def edit_box args={}
+      args = basic_attributes args
+      args[:width] = 200 if args[:width].zero?
+      args[:height] = 200 if args[:height].zero?
+      tv = Gtk::TextView.new
+      tv.wrap_mode = Gtk::TextTag::WRAP_WORD
+      tv.buffer.text = args[:text].to_s
+
+      eb = Gtk::ScrolledWindow.new
+      eb.set_size_request args[:width], args[:height]
+      eb.set_policy Gtk::POLICY_NEVER, Gtk::POLICY_AUTOMATIC
+      eb.set_shadow_type Gtk::SHADOW_IN
+      eb.add tv
+
+      tv.buffer.signal_connect "changed" do
+        yield tv.buffer
+      end if block_given?
+
+      @canvas.put eb, args[:left], args[:top]
+      eb.show_now
+      args[:real], args[:app], args[:textview] = eb, self, tv
+      EditBox.new args
+    end
+    
+    def list_box args={}, &blk
+      args = basic_attributes args
+      args[:width] = 200 if args[:width].zero?
+      cb = Gtk::ComboBox.new
+      args[:items] ||= []
+      args[:items].each{|item| cb.append_text item.to_s}
+      cb.active = args[:items].index(args[:choose]) if args[:choose]
+      cb.signal_connect("changed") do
+        blk.call args[:items][cb.active]
+      end if blk
+      @canvas.put cb, args[:left], args[:top]
+      cb.show_now
+      args[:real], args[:app] = cb, self
+      ListBox.new args
+    end
+
+    def animate n=10, repaint=true, &blk
+      n, i = 1000 / n, 0
+      a = Anim.new
+      GLib::Timeout.add n do
+        blk[i = a.pause? ? i : i+1]
+        Shoes.repaint_all_by_order self if repaint
+        a.continue?
+      end
+      a
+    end
+
+    def every n=1, &blk
+      animate 1.0/n, &blk
+    end
+
+    def timer n=1, &blk
+      GLib::Timeout.add 1000*n do
+        blk.call
+        Shoes.repaint_all_by_order self
+        false
+      end
+    end
+
+    def motion &blk
+      @mmcs << blk
+    end
+
+    def keypress &blk
+      win.set_events Gdk::Event::BUTTON_PRESS_MASK | Gdk::Event::BUTTON_RELEASE_MASK | Gdk::Event::POINTER_MOTION_MASK | Gdk::Event::KEY_PRESS_MASK
+      win.signal_connect("key_press_event") do |w, e|
+        blk[Gdk::Keyval.to_name(e.keyval)]
+      end
+    end
+
+    def mouse
+      [@mouse_button, @mouse_pos[0], @mouse_pos[1]]
+    end
+
+    def oval *attrs
+      args = attrs.last.class == Hash ? attrs.pop : {}
+      case attrs.length
+        when 0, 1
+        when 2; args[:left], args[:top] = attrs
+        when 3; args[:left], args[:top], args[:radius] = attrs
+        else args[:left], args[:top], args[:width], args[:height] = attrs
+      end
+      args = basic_attributes args
+      args[:width].zero? ? (args[:width] = args[:radius] * 2) : (args[:radius] = args[:width]/2.0)
+      args[:height] = args[:width] if args[:height].zero?
+      args[:strokewidth] = ( args[:strokewidth] or strokewidth or 1 )
+
+      w, h, mx, my = set_rotate_angle(args)
+      my *= args[:width]/args[:height].to_f
+      
+      surface = Cairo::ImageSurface.new Cairo::FORMAT_ARGB32, w, h
+      context = Cairo::Context.new surface
+      context.rotate @context_angle
+      context.scale(1,  args[:height]/args[:width].to_f)
+      
+      if pat = (args[:fill] or fill)
+        gp = gradient pat, args[:width], args[:height], args[:angle]
+        context.set_source gp
+        context.arc args[:radius]+mx, args[:radius]-my, args[:radius], 0, 2*Math::PI
+        context.fill
+      end
+      
+      pat = (args[:stroke] or stroke)
+      gp = gradient pat, args[:width], args[:height], args[:angle]
+      context.set_source gp
+      context.set_line_width args[:strokewidth]
+      context.arc args[:radius]+mx, args[:radius]-my, args[:radius]-args[:strokewidth]/2.0, 0, 2*Math::PI
+      context.stroke
+
+      img = create_tmp_png surface
+      img = Gtk::Image.new img.pixbuf.rotate(ROTATE[@pixbuf_rotate])
+      @canvas.put img, args[:left], args[:top]
+      img.show_now
+      args[:real], args[:app] = img, self
+      Oval.new args
+    end
+
+    def rect *attrs
+      args = attrs.last.class == Hash ? attrs.pop : {}
+      case attrs.length
+        when 0, 1
+        when 2; args[:left], args[:top] = attrs
+        when 3; args[:left], args[:top], args[:width] = attrs
+        else args[:left], args[:top], args[:width], args[:height] = attrs
+      end
+      args[:height] = args[:width] unless args[:height]
+      sw = args[:strokewidth] = ( args[:strokewidth] or strokewidth or 1 )
+
+      w, h, mx, my = set_rotate_angle(args)
+
+      args = basic_attributes args
+      surface = Cairo::ImageSurface.new Cairo::FORMAT_ARGB32, w, h
+      context = Cairo::Context.new surface
+
+      context.rotate @context_angle
+      
+      if pat = (args[:fill] or fill)
+        gp = gradient pat, args[:width], args[:height], args[:angle]
+        context.set_source gp
+        context.rounded_rectangle mx, -my, args[:width], args[:height], args[:curve]
+        context.fill
+      end
+      
+      pat = (args[:stroke] or stroke)
+      gp = gradient pat, args[:width], args[:height], args[:angle]
+      context.set_source gp
+      context.set_line_width sw
+      context.rounded_rectangle sw/2.0+mx, sw/2.0-my, args[:width]-sw, args[:height]-sw, args[:curve]
+      context.stroke
+      
+      img = create_tmp_png surface
+      img = Gtk::Image.new img.pixbuf.rotate(ROTATE[@pixbuf_rotate])
+      @canvas.put img, args[:left], args[:top]
+      img.show_now
+      args[:real], args[:app] = img, self
+      Rect.new args
+    end
+
+    def line *attrs
+      args = attrs.last.class == Hash ? attrs.pop : {}
+      case attrs.length
+        when 0, 1, 2
+        when 3; args[:sx], args[:sy], args[:ex] = attrs; args[:ey] = args[:ex]
+        else args[:sx], args[:sy], args[:ex], args[:ey] = attrs
+      end
+      sx, sy, ex, ey = args[:sx], args[:sy], args[:ex], args[:ey]
+      sw = args[:strokewidth] = ( args[:strokewidth] or strokewidth or 1 )
+      hsw = sw*0.5
+      args[:width], args[:height] = (sx - ex).abs, (sy - ey).abs
+      
+      args = basic_attributes args
+      surface = Cairo::ImageSurface.new Cairo::FORMAT_ARGB32, args[:width]+sw, args[:height]+sw
+      context = Cairo::Context.new surface
+      
+      pat = (args[:stroke] or stroke)
+      gp = gradient pat, args[:width], args[:height], args[:angle]
+      context.set_source gp
+      context.set_line_width args[:strokewidth]
+      
+      if ((sx - ex) < 0 and (sy - ey) < 0) or ((sx - ex) > 0 and (sy - ey) > 0)
+        context.move_to hsw, hsw
+        context.line_to args[:width]+hsw, args[:height]+hsw
+        args[:left] = (sx - ex) < 0 ? sx - hsw : ex - hsw
+        args[:top] = (sy - ey) < 0 ? sy - hsw : ey - hsw
+      elsif ((sx - ex) < 0 and (sy - ey) > 0) or ((sx - ex) > 0 and (sy - ey) < 0)
+        context.move_to hsw, args[:height] + hsw
+        context.line_to args[:width]+hsw, hsw
+        args[:left] = (sx - ex) < 0 ? sx - hsw : ex - hsw
+        args[:top] = (sy - ey) < 0 ? sy - hsw : ey - hsw
+      elsif !(sx - ex).zero? and (sy - ey).zero?
+        context.move_to 0, hsw
+        context.line_to args[:width], hsw
+        args[:left] = (sx - ex) < 0 ? sx : ex
+        args[:top] = (sy - ey) < 0 ? sy - hsw : ey - hsw
+      elsif (sx - ex).zero? and !(sy - ey).zero?
+        context.move_to hsw, 0
+        context.line_to hsw, args[:height]
+        args[:left] = (sx - ex) < 0 ? sx - hsw : ex - hsw
+        args[:top] = (sy - ey) < 0 ? sy : ey
+      else
+        context.move_to 0, 0
+        context.line_to 0, 0
+        args[:left] = sw
+        args[:top] = sy
+      end
+      
+      context.stroke
+      img = create_tmp_png surface
+      @canvas.put img, args[:left], args[:top]
+      img.show_now
+      args[:real], args[:app] = img, self
+      Line.new args
+    end
+    
+    def shapebase klass, args
+      blk = args[:block]
+      args[:width] ||= 300
+      args[:height] ||= 300
+
+      w, h, mx, my = set_rotate_angle(args)
+
+      args = basic_attributes args
+      surface = Cairo::ImageSurface.new Cairo::FORMAT_ARGB32, w, h
+      context = Cairo::Context.new surface
+      args[:strokewidth] = ( args[:strokewidth] or strokewidth or 1 )
+      context.set_line_width args[:strokewidth]
+
+      context.rotate @context_angle
+      
+      mk_path = proc do |pat|
+        gp = gradient pat, args[:width], args[:height], args[:angle]
+        context.set_source gp
+        context.move_to 0, 0
+        klass == Shoes::Star ? context.instance_eval{blk[self, mx, -my]} : context.instance_eval(&blk)
+      end
+
+      if pat = (args[:fill] or fill)
+        mk_path.call pat
+        context.fill
+      end
+      
+      mk_path.call (args[:stroke] or stroke)
+      context.stroke
+      
+      img = create_tmp_png surface
+      img = Gtk::Image.new img.pixbuf.rotate(ROTATE[@pixbuf_rotate])
+      @canvas.put img, args[:left], args[:top]
+      img.show_now
+      args[:real], args[:app] = img, self
+      klass.new args
+    end
+
+    def shape args, &blk
+      args[:block] = blk
+      shapebase Shape, args
+    end
+    
+    def star *attrs
+      args = attrs.last.class == Hash ? attrs.pop : {}
+      case attrs.length
+        when 2; args[:left], args[:top] = attrs
+        when 5; args[:left], args[:top], args[:points], args[:outer], args[:inner] = attrs
+        else
+      end
+      args[:points] ||= 10; args[:outer] ||= 100.0; args[:inner] ||= 50.0
+      args[:width] = args[:height] = args[:outer]*2.0
+      x = y = outer = args[:outer]
+      points, inner = args[:points], args[:inner]
+
+      args[:block] = proc do |s, mx, my|
+        x += mx; y += my
+        s.move_to x, y + outer
+        (1..points*2).each do |i|
+          angle =  i * Math::PI / points
+          r = (i % 2 == 0) ? outer : inner
+          s.line_to x + r * Math.sin(angle), y + r * Math.cos(angle)
+        end
+      end
+      shapebase Star, args
+    end
+
+    def rotate angle
+      @pixbuf_rotate, angle = angle.divmod(90)
+      @pixbuf_rotate %= 4
+      @context_angle = Math::PI * angle / 180
+    end
+
+    def rgb r, g, b, l=1.0
+      (r < 1 and g < 1 and b < 1) ? [r, g, b, l] : [r/255.0, g/255.0, b/255.0, l]
+    end
+
+    %w[fill stroke strokewidth].each do |name|
+      eval "def #{name} #{name}=nil; #{name} ? @#{name}=#{name} : @#{name} end"
+    end
+
+    def nostroke
+      strokewidth 0
+    end
+    
+    def nofill
+      @fill = false
+    end
+    
+    def gradient pat, w, h, angle=0
+      pat = tr_color pat
+      color = case pat
+        when Range; [tr_color(pat.first), tr_color(pat.last)]
+        when Array; [pat, pat]
+        when String
+          sp = Cairo::SurfacePattern.new Cairo::ImageSurface.from_png(pat)
+          return sp.set_extend(Cairo::Extend::REPEAT)
+        else
+          [black, black]
+      end
+      dx, dy = w*angle/180.0, h*angle/180.0
+      lp = Cairo::LinearPattern.new w*0.5-dx, dy, w*0.5+dx, h-dy
+      lp.add_color_stop_rgba 0, *color[0]
+      lp.add_color_stop_rgba 1, *color[1]
+      lp
+    end
+
+    def tr_color pat
+      if pat.is_a?(String) and pat[0] == '#'
+        color = pat[1..-1]
+        color = color.gsub(/(.)/){$1 + '0'} if color.length == 3
+        rgb *color.gsub(/(..)/).map{$1.hex}
+      else
+        pat
+      end
+    end
+
+    def background pat, args={}
+      args[:pattern] = pat
+      args = basic_attributes args
+
+      if args[:create_real] and !args[:height].zero?
+        surface = Cairo::ImageSurface.new Cairo::FORMAT_ARGB32, args[:width], args[:height]
+        context = Cairo::Context.new surface
+        context.rounded_rectangle 0, 0, args[:width], args[:height], args[:curve]
+        gp = gradient pat, args[:width], args[:height], args[:angle]
+        context.set_source gp
+        context.fill
+        img = create_tmp_png surface
+        @canvas.put img, args[:left], args[:top]
+        img.show_now
+        args[:real] = img
+      else
+        args[:real] = false
+      end
+
+      args[:app] = self
+      Background.new args
+    end
+    
+    def border pat, args={}
+      args[:pattern] = pat
+      args = basic_attributes args
+      sw = args[:strokewidth] = ( args[:strokewidth] or strokewidth or 1 )
+
+      if args[:create_real] and !args[:height].zero?
+        surface = Cairo::ImageSurface.new Cairo::FORMAT_ARGB32, args[:width], args[:height]
+        context = Cairo::Context.new surface
+        gp = gradient pat, args[:width], args[:height], args[:angle]
+        context.set_source gp
+        context.set_line_width sw
+        context.rounded_rectangle sw/2.0, sw/2.0, args[:width]-sw, args[:height]-sw, args[:curve]
+        context.stroke
+        
+        img = create_tmp_png surface
+        @canvas.put img, args[:left], args[:top]
+        img.show_now
+        args[:real] = img
+      else
+        args[:real] = false
+      end
+
+      args[:app] = self
+      Border.new args
+    end
+
+    def progress args={}
+      args = basic_attributes args
+      args[:width] = 150 if args[:width] < 150
+      pb = Gtk::ProgressBar.new
+      pb.text = ' ' * (args[:width] / 4 - 2)
+      @canvas.put pb, args[:left], args[:top]
+      pb.show_now
+      args[:real], args[:app], args[:noorder], args[:nocontrol] = pb, self, true, true
+      Progress.new args
+    end
+
+    def download name, args={}, &blk
+      Download.new name, args, &blk
+    end
+
+    def nolayout
+      @nolayout = true
+    end
+
+    def scroll_top
+      @swin.vadjustment.value
+    end
+  end
+end