green_shoes 0.129.0

data/lib/shoes/basic.rb

@@ -0,0 +1,242 @@
+class Shoes
+  class Basic
+    include Mod
+    def initialize args
+      args.each do |k, v|
+        instance_variable_set "@#{k}", v
+      end
+
+      (@app.order << self) unless @noorder or self.is_a?(EditBox) or self.is_a?(EditLine)
+      (@app.cslot.contents << self) unless @nocontrol or @app.cmask
+      (@app.cmask.contents << self) if @app.cmask
+      @parent = @app.cslot
+      
+      Basic.class_eval do
+        attr_accessor *args.keys
+      end
+
+      (@width, @height = @real.size_request) if @real and !self.is_a?(TextBlock)
+
+      set_margin
+      @width += (@margin_left + @margin_right)
+      @height += (@margin_top + @margin_bottom)
+
+      @proc = nil
+      [:app, :real].each{|k| args.delete k}
+      @args = args
+      @hided, @shows, @hovered = false, true, false
+    end
+
+    attr_reader :parent, :click_proc, :release_proc, :hover_proc, :leave_proc, :args, :shows
+    attr_accessor :hided, :hovered
+
+    def move x, y
+      @app.cslot.contents -= [self]
+      @app.canvas.move @real, x, y
+      move3 x, y
+      self
+    end
+
+    def move2 x, y
+      unless @hided
+        remove
+        @app.canvas.put @real, x, y
+      end
+      move3 x, y
+    end
+
+    def move3 x, y
+      @left, @top = x, y
+    end
+
+    def remove
+      @app.canvas.remove @real unless @hided
+    end
+
+    def hide
+      @app.shcs.delete self
+      @app.shcs << self
+      @shows = false
+      self
+    end
+
+    def show
+      @app.shcs.delete self
+      @app.shcs << self
+      @shows = true
+      self
+    end
+
+    def toggle
+      @app.shcs.delete self
+      @app.shcs << self
+      @shows = !@shows
+      self
+    end
+
+    def clear
+      @app.mccs.delete(self); @app.mrcs.delete(self); @app.mmcs.delete(self)
+      case self
+        when Button, EditLine, EditBox, ListBox
+          @app.cslot.contents.delete self
+          remove
+        else @real.clear
+      end
+    end
+
+    def positioning x, y, max
+      if parent.is_a?(Flow) and x + @width <= parent.left + parent.width
+        move3 x + parent.margin_left, max.top + parent.margin_top
+        max = self if max.height < @height
+      else
+        move3 parent.left + parent.margin_left, max.top + max.height + parent.margin_top
+        max = self
+      end
+      max
+    end
+
+    def click &blk
+      @click_proc = blk
+      @app.mccs << self
+    end
+    
+    def release &blk
+      @release_proc = blk
+      @app.mrcs << self
+    end
+
+    def hover &blk
+      @hover_proc = blk
+      (@app.mhcs << self) unless @app.mhcs.include? self
+    end
+
+    def leave &blk
+      @leave_proc = blk
+      (@app.mhcs << self) unless @app.mhcs.include? self
+    end
+    
+    def style args
+      clear
+      @args[:nocontrol] = @args[:noorder] = true
+      m = self.class.to_s.downcase[7..-1]
+      args = @args.merge args
+      blk = args[:block]
+      @real = @app.send(m, args, &blk).real
+    end
+  end
+
+  class Image < Basic; end
+  class Button < Basic; end
+
+  class Pattern < Basic
+    def move2 x, y
+      return if @hided
+      clear if @real
+      @left, @top, @width, @height = parent.left, parent.top, parent.width, parent.height
+      @width = @args[:width] unless @args[:width].zero?
+      @height = @args[:height] unless @args[:height].zero?
+      m = self.class.to_s.downcase[7..-1]
+      args = eval "{#{@args.keys.map{|k| "#{k}: @#{k}"}.join(', ')}}"
+      args = [@pattern, args.merge({create_real: true, nocontrol: true})]
+      pt = @app.send(m, *args)
+      @real = pt.real
+      @width, @height = 0, 0
+    end
+  end
+  class Background < Pattern; end
+  class Border < Pattern; end
+
+  class ShapeBase < Basic; end
+  class Shape < ShapeBase; end
+  class Rect < ShapeBase; end
+  class Oval < ShapeBase; end
+  class Line < ShapeBase; end
+  class Star < ShapeBase; end
+  
+  class TextBlock < Basic
+    def initialize args
+      super
+      @app.mlcs << self  unless @real
+    end
+
+    def text
+      @args[:markup].gsub(/\<.*?>/, '')
+    end
+    
+    def text= s
+      clear if @real
+      @width = (@left + parent.width <= @app.width) ? parent.width : @app.width - @left
+      @height = 20 if @height.zero?
+      m = self.class.to_s.downcase[7..-1]
+      args = [s, @args.merge({left: @left, top: @top, width: @width, height: @height, create_real: true, nocontrol: true})]
+      tb = @app.send(m, *args)
+      @real, @height, @args[:markup] = tb.real, tb.height, tb.markup
+    end
+
+    alias :replace :text=
+
+    def positioning x, y, max
+      self.text = @args[:markup]
+      super
+    end
+    
+    def move2 x, y
+      self.text = @args[:markup]
+      super
+    end
+  end
+  
+  class Banner < TextBlock; end
+  class Title < TextBlock; end
+  class Subtitle < TextBlock; end
+  class Tagline < TextBlock; end
+  class Caption < TextBlock; end
+  class Para < TextBlock; end
+  class Inscription < TextBlock; end
+
+  class EditLine < Basic
+    def text
+      @real.text
+    end
+    
+    def text=(s)
+      @real.text = s
+    end
+
+    def move2 x, y
+      @app.canvas.move @real, x, y
+      move3 x, y
+    end
+  end
+
+  class EditBox < Basic
+    def text
+      @textview.buffer.text
+    end
+    
+    def text=(s)
+      @textview.buffer.text = s
+    end
+
+    def move2 x, y
+      @app.canvas.move @real, x, y
+      move3 x, y
+    end
+  end
+  
+  class ListBox < Basic
+    def text
+      @items[@real.active]
+    end
+  end
+
+  class Progress < Basic
+    def fraction
+      real.fraction
+    end
+
+    def fraction= n
+      real.fraction = n
+    end
+  end
+end

data/lib/shoes/colors.rb

@@ -0,0 +1,150 @@
+class Shoes
+  colors = [
+    [:aliceblue, 240, 248, 255],
+    [:antiquewhite, 250, 235, 215],
+    [:aqua, 0, 255, 255],
+    [:aquamarine, 127, 255, 212],
+    [:azure, 240, 255, 255],
+    [:beige, 245, 245, 220],
+    [:bisque, 255, 228, 196],
+    [:black, 0, 0, 0],
+    [:blanchedalmond, 255, 235, 205],
+    [:blue, 0, 0, 255],
+    [:blueviolet, 138, 43, 226],
+    [:brown, 165, 42, 42],
+    [:burlywood, 222, 184, 135],
+    [:cadetblue, 95, 158, 160],
+    [:chartreuse, 127, 255, 0],
+    [:chocolate, 210, 105, 30],
+    [:coral, 255, 127, 80],
+    [:cornflowerblue, 100, 149, 237],
+    [:cornsilk, 255, 248, 220],
+    [:crimson, 220, 20, 60],
+    [:cyan, 0, 255, 255],
+    [:darkblue, 0, 0, 139],
+    [:darkcyan, 0, 139, 139],
+    [:darkgoldenrod, 184, 134, 11],
+    [:darkgray, 169, 169, 169],
+    [:darkgreen, 0, 100, 0],
+    [:darkkhaki, 189, 183, 107],
+    [:darkmagenta, 139, 0, 139],
+    [:darkolivegreen, 85, 107, 47],
+    [:darkorange, 255, 140, 0],
+    [:darkorchid, 153, 50, 204],
+    [:darkred, 139, 0, 0],
+    [:darksalmon, 233, 150, 122],
+    [:darkseagreen, 143, 188, 143],
+    [:darkslateblue, 72, 61, 139],
+    [:darkslategray, 47, 79, 79],
+    [:darkturquoise, 0, 206, 209],
+    [:darkviolet, 148, 0, 211],
+    [:deeppink, 255, 20, 147],
+    [:deepskyblue, 0, 191, 255],
+    [:dimgray, 105, 105, 105],
+    [:dodgerblue, 30, 144, 255],
+    [:firebrick, 178, 34, 34],
+    [:floralwhite, 255, 250, 240],
+    [:forestgreen, 34, 139, 34],
+    [:fuchsia, 255, 0, 255],
+    [:gainsboro, 220, 220, 220],
+    [:ghostwhite, 248, 248, 255],
+    [:gold, 255, 215, 0],
+    [:goldenrod, 218, 165, 32],
+    [:gray, 128, 128, 128],
+    [:green, 0, 128, 0],
+    [:greenyellow, 173, 255, 47],
+    [:honeydew, 240, 255, 240],
+    [:hotpink, 255, 105, 180],
+    [:indianred, 205, 92, 92],
+    [:indigo, 75, 0, 130],
+    [:ivory, 255, 255, 240],
+    [:khaki, 240, 230, 140],
+    [:lavender, 230, 230, 250],
+    [:lavenderblush, 255, 240, 245],
+    [:lawngreen, 124, 252, 0],
+    [:lemonchiffon, 255, 250, 205],
+    [:lightblue, 173, 216, 230],
+    [:lightcoral, 240, 128, 128],
+    [:lightcyan, 224, 255, 255],
+    [:lightgoldenrodyellow, 250, 250, 210],
+    [:lightgreen, 144, 238, 144],
+    [:lightgrey, 211, 211, 211],
+    [:lightpink, 255, 182, 193],
+    [:lightsalmon, 255, 160, 122],
+    [:lightseagreen, 32, 178, 170],
+    [:lightskyblue, 135, 206, 250],
+    [:lightslategray, 119, 136, 153],
+    [:lightsteelblue, 176, 196, 222],
+    [:lightyellow, 255, 255, 224],
+    [:lime, 0, 255, 0],
+    [:limegreen, 50, 205, 50],
+    [:linen, 250, 240, 230],
+    [:magenta, 255, 0, 255],
+    [:maroon, 128, 0, 0],
+    [:mediumaquamarine, 102, 205, 170],
+    [:mediumblue, 0, 0, 205],
+    [:mediumorchid, 186, 85, 211],
+    [:mediumpurple, 147, 112, 219],
+    [:mediumseagreen, 60, 179, 113],
+    [:mediumslateblue, 123, 104, 238],
+    [:mediumspringgreen, 0, 250, 154],
+    [:mediumturquoise, 72, 209, 204],
+    [:mediumvioletred, 199, 21, 133],
+    [:midnightblue, 25, 25, 112],
+    [:mintcream, 245, 255, 250],
+    [:mistyrose, 255, 228, 225],
+    [:moccasin, 255, 228, 181],
+    [:navajowhite, 255, 222, 173],
+    [:navy, 0, 0, 128],
+    [:oldlace, 253, 245, 230],
+    [:olive, 128, 128, 0],
+    [:olivedrab, 107, 142, 35],
+    [:orange, 255, 165, 0],
+    [:orangered, 255, 69, 0],
+    [:orchid, 218, 112, 214],
+    [:palegoldenrod, 238, 232, 170],
+    [:palegreen, 152, 251, 152],
+    [:paleturquoise, 175, 238, 238],
+    [:palevioletred, 219, 112, 147],
+    [:papayawhip, 255, 239, 213],
+    [:peachpuff, 255, 218, 185],
+    [:peru, 205, 133, 63],
+    [:pink, 255, 192, 203],
+    [:plum, 221, 160, 221],
+    [:powderblue, 176, 224, 230],
+    [:purple, 128, 0, 128],
+    [:red, 255, 0, 0],
+    [:rosybrown, 188, 143, 143],
+    [:royalblue, 65, 105, 225],
+    [:saddlebrown, 139, 69, 19],
+    [:salmon, 250, 128, 114],
+    [:sandybrown, 244, 164, 96],
+    [:seagreen, 46, 139, 87],
+    [:seashell, 255, 245, 238],
+    [:sienna, 160, 82, 45],
+    [:silver, 192, 192, 192],
+    [:skyblue, 135, 206, 235],
+    [:slateblue, 106, 90, 205],
+    [:slategray, 112, 128, 144],
+    [:snow, 255, 250, 250],
+    [:springgreen, 0, 255, 127],
+    [:steelblue, 70, 130, 180],
+    [:tan, 210, 180, 140],
+    [:teal, 0, 128, 128],
+    [:thistle, 216, 191, 216],
+    [:tomato, 255, 99, 71],
+    [:turquoise, 64, 224, 208],
+    [:violet, 238, 130, 238],
+    [:wheat, 245, 222, 179],
+    [:white, 255, 255, 255],
+    [:whitesmoke, 245, 245, 245],
+    [:yellow, 255, 255, 0],
+    [:yellowgreen, 154, 205, 50],
+  ]
+
+  App.class_eval do
+    colors.each{|color| define_method(color[0]){[color[1]/255.0, color[2]/255.0, color[3]/255.0]}}
+  end
+  App::COLORS = {}
+  colors.each{|c, r, g, b| App::COLORS[c] = [r, g, b]}
+end

data/lib/shoes/download.rb

@@ -0,0 +1,26 @@
+class Shoes
+  class Download
+    def initialize name, args, &blk
+      require 'open-uri'
+      Thread.new do
+        open name,
+          content_length_proc: lambda{|len| @content_length, @started = len, true},
+          progress_proc: lambda{|size| @progress = size} do |sio|
+          open(args[:save], 'wb'){|fw| fw.print sio.read} if args[:save]
+          blk[sio] if blk
+          @finished = true
+        end
+      end
+    end
+    
+    attr_reader :progress, :content_length
+    
+    def started?
+      @started
+    end
+    
+    def finished?
+      @finished
+    end
+  end
+end

data/lib/shoes/help.rb

@@ -0,0 +1,171 @@
+class Manual < Shoes
+  url '/', :index
+  url '/manual/(\d+)', :index
+
+  def index pnum = 0
+    font LANG == 'ja' ? 'MS UI Gothic' : 'Arial'
+    style Link, underline: false, weight: 'bold'
+    style LinkHover, stroke: '#06E'
+    manual *get_title_and_desc(pnum.to_i)
+  end
+  
+  def get_title_and_desc pnum
+    chapter, section = PNUMS[pnum]
+    if section
+      [pnum, DOCS[chapter][1][:sections][section][1][:title], 
+      DOCS[chapter][1][:sections][section][1][:description], 
+      DOCS[chapter][1][:sections][section][1][:methods]]
+    else
+      [pnum, DOCS[chapter][0], DOCS[chapter][1][:description], []]
+    end
+  end
+  
+  def table_of_contents
+    PNUMS.map.with_index do |e, pnum|
+      chapter, section = e
+      title = section ? DOCS[chapter][1][:sections][section][1][:title] : DOCS[chapter][0]
+      title = title.sub('The', '').split(' ').first
+      section ? ['   ', link(title){visit "/manual/#{pnum}"}, "\n"] : [link(fg(title, darkgreen)){visit "/manual/#{pnum}"}, "\n"]
+    end.flatten
+  end
+
+  def manual pnum, docs_title, docs_description, docs_methods
+    flow do
+      background tr_color("#ddd")..white, angle: 90
+      background black..green, height: 90
+      para fg("The Green Shoes Manual", gray), left: 120, top: 10
+      title fg(docs_title, white), left: 120, top: 30, font: 'Coolvetica'
+      image File.join(DIR, '../static/gshoes-icon.png'), left: 5, top: -12, width: 110, height: 110, nocontrol: true
+
+      paras = mk_paras docs_description
+
+      stack{para NL * 4}
+      flow width: 0.2, margin_left: 10 do
+        para *table_of_contents
+      end
+        
+      flow width: 0.8, margin: [10, 0, 20, 0] do
+        show_page paras, true
+        docs_methods.each do |m, d|
+          flow do
+            background rgb(60, 60, 60), curve: 5
+            n = m.index("\u00BB")
+            if n
+              para '  ', fg(strong(m[0...n]), white), fg(strong(m[n..-1]), rgb(160, 160, 160))
+            else
+              para '  ', fg(strong(m), white)
+            end
+          end
+          para
+          show_page mk_paras(d.gsub('&', '\u0026'))
+        end
+        para link('top'){visit "/manual/0"}, "  ",
+          link('prev'){visit "/manual/#{(pnum-1)%PEND}"}, "  ", 
+          link('next'){visit "/manual/#{(pnum+1)%PEND}"}, "  ", 
+          link('end'){visit "/manual/#{PEND-1}"}
+      end
+    end
+  end
+
+  def show_page paras, intro = false
+    paras.each_with_index do |text, i|
+      if text.index CODE_RE
+        text.gsub CODE_RE do |lines|
+          lines = lines.split NL
+          n = lines[1] =~ /\#\!ruby/ ? 2 : 1
+          code = lines[n...-1].join(NL+'  ')
+          flow do
+            background lightsteelblue, curve: 5
+            inscription link(fg('Run this', green)){instance_eval code}, margin_left: 480
+            para '  ', fg(code, maroon), NL
+          end
+          para
+        end
+        next
+      end
+      
+      if text =~ /\A \* (.+)/m
+        $1.split(/^ \* /).each do |txt|
+          image File.join(DIR, '../static/gshoes-icon.png'), width: 20, height: 20
+          flow(width: 510){show_paragraph txt, intro, i}
+        end
+      else
+        show_paragraph text, intro, i
+      end
+    end
+  end
+  
+  def show_paragraph txt, intro, i, dot = nil
+    txt = txt.gsub("\n", ' ').gsub(/`(.+?)`/m){fg code($1), rgb(255, 30, 0)}.
+      gsub(/\^(.+?)\^/m, '\1').gsub(/'''(.+?)'''/m){strong($1)}.gsub(/''(.+?)''/m){em($1)}.
+      gsub(/\[\[BR\]\]/i, "\n").gsub(/\[\[(\S+?)\]\]/m){link ins($1.split('.').last)}.
+      gsub(/\[\[(\S+?) (.+?)\]\]/m){link ins($2)}
+    case txt
+    when /\A==== (.+) ====/; caption $1, size: 24
+    when /\A=== (.+) ===/; tagline $1, size: 12, weight: 'bold'
+    when /\A== (.+) ==/; subtitle $1
+    when /\A= (.+) =/; title $1
+    when /\A\{COLORS\}/; flow{color_page}
+    else
+      para txt.gsub(IMAGE_RE, ''), NL, (intro and i.zero?) ? {size: 16} : ''
+      txt.gsub IMAGE_RE do
+        image File.join(DIR, "../static/#{$3}"), eval("{#{$2 or "margin_left: 50"}}")
+        para
+      end
+    end
+  end
+
+  def mk_paras str
+    str.split("\n\n") - ['']
+  end
+
+  def color_page
+    Shoes::App::COLORS.each do |color, v|
+      r, g, b = v
+      c = v.dark? ? white : black
+      flow width: 0.33 do
+        background send(color)
+        para fg(strong(color), c), align: 'center'
+        para fg("rgb(#{r}, #{g}, #{b})", c), align: 'center'
+      end
+    end
+    para
+  end
+
+  def self.load_docs path
+    str = IO.read(path).force_encoding("UTF-8")
+    (str.split(/^= (.+?) =/)[1..-1]/2).map do |k, v|
+      sparts = v.split(/^== (.+?) ==/)
+      sections = (sparts[1..-1]/2).map do |k2, v2|
+        meth = v2.split(/^=== (.+?) ===/)
+        k2t = k2[/^(?:The )?([\-\w]+)/, 1]
+        meth_plain = meth[0].gsub(IMAGE_RE, '')
+        h = {title: k2, section: k, description: meth[0], methods: (meth[1..-1]/2)}
+        [k2t, h]
+      end
+      h = {description: sparts[0], sections: sections, class: "toc" + k.downcase.gsub(/\W+/, '')}
+      [k, h]
+    end
+  end
+  
+  def self.mk_page_numbers docs
+    pnum = []
+    docs.length.times do |i|
+      pnum << [i, nil]
+      docs[i][1][:sections].length.times do |j|
+        pnum << [i, j]
+      end
+    end
+    pnum
+  end
+
+  IMAGE_RE = /\!(\{([^}\n]+)\})?([^!\n]+\.\w+)\!/
+  CODE_RE = /\{{3}(?:\s*\#![^\n]+)?(.+?)\}{3}/m
+  NL = "\n"
+  LANG = $lang.downcase[0, 2]
+  DOCS = load_docs File.join(DIR, "../static/manual-#{LANG}.txt")
+  PNUMS = mk_page_numbers DOCS
+  PEND = PNUMS.length
+end
+
+Shoes.app title: 'The Green Shoes Manual', width: 720, height: 640