purple_shoes 0.0.126 → 0.5.149

data/lib/ext/highlighter/markup.rb

@@ -0,0 +1,222 @@
+# syntax highlighting
+
+require_relative 'common'
+
+module HH::Markup
+
+  TOKENIZER = HH::Syntax.load "ruby"
+  COLORS = {
+    :comment => {:stroke => "#887"},
+    :keyword => {:stroke => "#111"},
+    :method => {:stroke => "#C09", :weight => "bold"},
+    # :class => {:stroke => "#0c4", :weight => "bold"},
+    # :module => {:stroke => "#050"},
+    # :punct => {:stroke => "#668", :weight => "bold"},
+    :symbol => {:stroke => "#C30"},
+    :string => {:stroke => "#C90"},
+    :number => {:stroke => "#396" },
+    :regex => {:stroke => "#000", :fill => "#FFC" },
+    # :char => {:stroke => "#f07"},
+    :attribute => {:stroke => "#369" },
+    # :global => {:stroke => "#7FB" },
+    :expr => {:stroke => "#722" },
+    # :escape => {:stroke => "#277" }
+    :ident => {:stroke => "#994c99"},
+    :constant => {:stroke => "#630", :weight => "bold"},
+    :class => {:stroke => "#630", :weight => "bold"},
+    :matching => {:stroke => "#ff0", :weight => "bold"},
+  }
+
+  
+  def highlight str, pos=nil, colors=COLORS
+    tokens = []
+    TOKENIZER.tokenize(str) do |t|
+      if t.group == :punct
+        # split punctuation into single characters tokens
+        # TODO: to it in the parser
+        tokens += t.split('').map{|s| HH::Syntax::Token.new(s, :punct)}
+      else
+        # add token as is
+        tokens << t
+      end
+    end
+
+    res = []
+    tokens.each do |token|
+      res <<
+        if colors[token.group]
+          #span(token, colors[token.group])
+          tmp = fg(token, tr_color(colors[token.group][:stroke]))
+          colors[token.group][:fill] ? bg(tmp, tr_color(colors[token.group][:fill])) : tmp
+        elsif colors[:any]
+          #span(token, colors[:any])
+          tmp = fg(token, tr_color(colors[:any][:stroke]))
+          colors[:any][:fill] ? bg(tmp, tr_color(colors[:any][:fill])) : tmp
+        else
+          token
+        end
+    end
+
+    if pos.nil? or pos < 0
+      return res
+    end
+
+    token_index, matching_index = matching_token(tokens, pos)
+
+    if token_index
+      #res[token_index] = span(tokens[token_index], colors[:matching])
+      tmp = fg(tokens[token_index], tr_color(colors[:matching][:stroke]))
+      res[token_index] = colors[:matching][:fill] ? bg(tmp, tr_color(colors[:matching][:fill])) : tmp
+      if matching_index
+        #res[matching_index] = span(tokens[matching_index], colors[:matching])
+        tmp = fg(tokens[matching_index], tr_color(colors[:matching][:stroke]))
+        res[matching_index] = colors[:matching][:fill] ? bg(tmp, tr_color(colors[:matching][:fill])) : tmp
+      end
+    end
+
+    res
+  end
+
+private
+  def matching_token(tokens, pos)
+    curr_pos = 0
+    token_index = nil
+    tokens.each_with_index do |t, i|
+      curr_pos += t.size
+      if token_index.nil? and curr_pos >= pos
+        token_index = i
+        break
+      end
+    end
+    if token_index.nil? then return nil end
+
+    match = matching_token_at_index(tokens, token_index);
+    if match.nil? and curr_pos == pos and token_index < tokens.size-1
+      # try the token before the cursor, instead of the one after
+      token_index += 1
+      match = matching_token_at_index(tokens, token_index)
+    end
+
+    if match
+      [token_index, match]
+    else
+      nil
+    end
+  end
+
+
+  def matching_token_at_index(tokens, index)
+    starts, ends, direction = matching_tokens(tokens, index)
+    if starts.nil?
+      return nil
+    end
+
+    stack_level = 1
+    index += direction
+    while index >= 0 and index < tokens.size
+      # TODO separate space in the tokenizer
+      t = tokens[index].gsub(/\s/, '')
+      if ends.include?(t) and not as_modifier?(tokens, index)
+        stack_level -= 1
+        return index if stack_level == 0
+      elsif starts.include?(t) and not as_modifier?(tokens, index)
+        stack_level += 1
+      end
+      index += direction
+    end
+    # no matching token found
+    return nil
+  end
+
+  # returns an array of tokens matching and the direction
+  def matching_tokens(tokens, index)
+    # TODO separate space in the tokenizer
+    token = tokens[index].gsub(/\s/, '')
+    starts = [token]
+    if OPEN_BRACKETS[token]
+      direction = 1
+      ends = [OPEN_BRACKETS[token]]
+    elsif CLOSE_BRACKETS[token]
+      direction = -1
+      ends = [CLOSE_BRACKETS[token]]
+    elsif OPEN_BLOCK.include?(token)
+      if as_modifier?(tokens, index)
+        return nil
+      end
+      direction = 1
+      ends = ['end']
+      starts = OPEN_BLOCK
+    elsif token == 'end'
+      direction = -1
+      ends = OPEN_BLOCK
+    else
+      return nil
+    end
+
+    [starts, ends, direction]
+  end
+
+  def as_modifier?(tokens, index)
+
+    if not MODIFIERS.include? tokens[index].gsub(/\s/, '')
+      return false
+    end
+    
+    index -= 1
+    # find last index before the token that is no space
+    index -= 1 while index >= 0 and tokens[index] =~ /\A[ \t]*\z/
+
+    if index < 0
+      # first character of the string
+      false
+    elsif tokens[index] =~ /\n[ \t]*\Z/
+      # first token of the line
+      false
+    elsif tokens[index].group == :punct
+      # preceded by a punctuation token on the same line
+      i = tokens[index].rindex(/\S/)
+      punc = tokens[index][i, 1]
+      # true if the preceeding statement was terminating
+      not NON_TERMINATING.include?(punc)
+    else
+      # preceded by a non punctuation token on the same line
+      true
+    end
+  end
+
+
+  OPEN_BRACKETS = {
+    '{' => '}',
+    '(' => ')',
+    '[' => ']',
+  }
+
+  #close_bracket = {}
+  #OPEN_BRACKETS.each{|open, close| opens_bracket[close] = open}
+  #CLOSE_BRACKETS = opens_bracket
+  # the following is more readable :)
+  CLOSE_BRACKETS = {
+    '}' => '{',
+    ')' => '(',
+    ']' => '[',
+  }
+
+  BRACKETS = CLOSE_BRACKETS.keys + OPEN_BRACKETS.keys
+
+  OPEN_BLOCK = [
+    'def',
+    'class',
+    'module',
+    'do',
+    'if',
+    'unless',
+    'while',
+    'until',
+    'begin',
+    'for'
+  ]
+
+  MODIFIERS = %w[if unless while until]
+
+  NON_TERMINATING = %w{+ - * / , . = ~ < > ( [}
+end

data/lib/ext/highlighter.rb

@@ -0,0 +1,2 @@
+module ::HH end
+require_relative 'highlighter/markup'

data/lib/purple_shoes.rb

@@ -22,6 +22,7 @@ module Shoes
     PAGE_UP PAGE_DOWN HOME END INSERT 
     F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 F12 F13 F14 F15].each{|k| KEY_NAMES[eval("Swt::SWT::#{k}")] = k}
   KEY_NAMES[Swt::SWT::CR] = "\n"
+  LINECAP = {curve: Swt::SWT::CAP_ROUND, rect: Swt::SWT::CAP_FLAT, project: Swt::SWT::CAP_SQUARE}
   COLORS = {}
 end
 
@@ -31,6 +32,9 @@ module Swt
   include_package 'org.eclipse.swt.widgets'
   include_package 'org.eclipse.swt.graphics'
   include_package 'org.eclipse.swt.events'
+  include_package 'org.eclipse.swt.dnd'
+  import java.awt.datatransfer.StringSelection
+  import java.awt.Toolkit
 end
 
 class Object
@@ -53,3 +57,5 @@ require_relative 'shoes/download'
 require_relative 'shoes/manual'
 
 require_relative 'plugins/video'
+
+autoload :HH, File.join(Shoes::DIR, 'ext/highlighter')

data/lib/shoes/app.rb

@@ -6,6 +6,15 @@ class Shoes
       args.each do |k, v|
         instance_variable_set "@#{k}", v
       end
+
+      win_title = @owner.instance_variable_get('@title')
+      class << @owner; self end.
+      class_eval do
+        define_method :inspect do
+          win_title or 'purple shoes'
+        end
+      end if @owner
+
       App.class_eval do
         attr_accessor *(args.keys - [:width, :height, :title])
       end
@@ -14,9 +23,9 @@ class Shoes
       Shoes.APPS << self
     end
     
-    attr_accessor :cslot, :top_slot, :contents, :mmcs, :mscs, :order, :mouse_pos, :hided
+    attr_accessor :cslot, :top_slot, :contents, :mmcs, :mhcs, :mscs, :order, :mouse_pos, :hided
     attr_writer :mouse_button
-    attr_reader :location
+    attr_reader :owner, :location
 
     def visit url
       if url =~ /^(http|https):\/\//
@@ -124,11 +133,25 @@ class Shoes
     def image name, args={}, &blk
       args = basic_attributes args
       args[:rotate] ||= rotate
+      if name =~ /^(http|https):\/\//
+        tmpname = File.join(Dir.tmpdir, "__purple_shoes_#{Time.now.to_f}.png")
+        url, name = name, File.join(DIR, '../static/downloading.png')
+      end
       img = Swt::Image.new Shoes.display, name
       args[:full_width], args[:full_height] = img.getImageData.width, img.getImageData.height
       args[:real], args[:app] = img, self
       
       Image.new(args).tap do |s|
+        download url, save: tmpname do
+          tmp = Swt::Image.new Shoes.display, tmpname
+          s.real = tmp
+          s.full_width, s.full_height = tmp.getImageData.width, tmp.getImageData.height
+          if s.initials[:width].zero? and s.initials[:height].zero?
+            s.width, s.height = s.full_width, s.full_height
+          end
+          File.delete tmpname
+        end if url
+
         pl = Swt::PaintListener.new
         s.pl = pl
         class << pl; self end.
@@ -139,11 +162,11 @@ class Shoes
             unless s.hided
               Shoes.set_rotate e.gc, *s.rotate do
                 if s.initials[:width].zero? and s.initials[:height].zero?
-                  gc.drawImage img, s.left, s.top
+                  gc.drawImage s.real, s.left, s.top
                 else
                   s.width = s.full_width if s.width.zero?
                   s.height = s.full_height if s.height.zero?
-                  gc.drawImage img, 0, 0, s.full_width, s.full_height, s.left, s.top, s.width, s.height
+                  gc.drawImage s.real, 0, 0, s.full_width, s.full_height, s.left, s.top, s.width, s.height
                 end
               end
             end
@@ -161,6 +184,8 @@ class Shoes
         elsif klass == Radio then Swt::SWT::RADIO
         elsif klass == Check then Swt::SWT::CHECK end
       b = Swt::Button.new @cs, opt
+      b.setVisible false if args[:hidden]
+      args.delete :hidden
       b.setText name if klass == Button
       b.setLocation args[:left], args[:top]
       if args[:width] > 0 and args[:height] > 0
@@ -197,6 +222,8 @@ class Shoes
       args[:height] = h if args[:height].zero?
       
       el = Swt::Text.new @cs, Swt::SWT::BORDER | style
+      el.setVisible false if args[:hidden]
+      args.delete :hidden
       el.setText txt || args[:text].to_s
       el.setSize args[:width], args[:height]
       args[:real], args[:app] = el, self
@@ -219,6 +246,8 @@ class Shoes
       args[:height] = 20 if args[:height].zero?
       args[:items] ||= []
       cb = Swt::Combo.new @cs, Swt::SWT::DROP_DOWN
+      cb.setVisible false if args[:hidden]
+      args.delete :hidden
       cb.setSize args[:width], args[:height]
       cb.setItems args[:items].map(&:to_s)
       cb.setText args[:choose].to_s
@@ -273,6 +302,7 @@ class Shoes
       args[:stroke] ||= stroke
       args[:fill] ||= fill
       args[:rotate] ||= rotate
+      args[:cap] = (LINECAP[args[:cap]] or cap)
       args[:real], args[:app], args[:block] = :shape, self, blk
       Shape.new(args).tap do |s|
         pl = Swt::PaintListener.new
@@ -286,6 +316,7 @@ class Shoes
               gc = e.gc
               Shoes.dps_reset s.dps, gc
               gc.setAntialias Swt::SWT::ON
+              gc.setLineCap s.cap
               sw, pat1, pat2 = s.strokewidth, s.stroke, s.fill
               Shoes.set_rotate gc, *s.rotate do
                 if pat2
@@ -320,13 +351,19 @@ class Shoes
       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?
+      if args[:center]
+        args[:left] -= args[:width] / 2
+        args[:top] -= args[:height] / 2
+      end
       args[:strokewidth] = ( args[:strokewidth] or strokewidth or 1 )
       args[:nocontrol] = args[:noorder] = true
 
       args[:stroke] ||= stroke
       args[:fill] ||= fill
       args[:rotate] ||= rotate
+      args[:cap] = (LINECAP[args[:cap]] or cap)
       args[:real], args[:app] = :shape, self
+      args[:angle1] = false unless args[:angle1]
       Oval.new(args).tap do |s|
         pl = Swt::PaintListener.new
         s.pl = pl
@@ -337,17 +374,20 @@ class Shoes
               gc = e.gc
               Shoes.dps_reset s.dps, gc
               gc.setAntialias Swt::SWT::ON
+              gc.setLineCap s.cap
               sw, pat1, pat2 = s.strokewidth, s.stroke, s.fill
               Shoes.set_rotate gc, *s.rotate do
                 if pat2
                   Shoes.set_pattern s, gc, pat2
-                  gc.fillOval s.left+sw, s.top+sw, s.width-sw*2, s.height-sw*2
+                  s.angle1 ? gc.fillArc(s.left+sw, s.top+sw, s.width-sw*2, s.height-sw*2, s.angle1, s.angle2) : 
+                    gc.fillOval(s.left+sw, s.top+sw, s.width-sw*2, s.height-sw*2)
                 end
                 if pat1
                   Shoes.set_pattern s, gc, pat1, :Foreground
                   if sw > 0
                     gc.setLineWidth sw
-                    gc.drawOval s.left+sw/2, s.top+sw/2, s.width-sw, s.height-sw
+                    s.angle1 ? gc.drawArc(s.left+sw/2, s.top+sw/2, s.width-sw, s.height-sw, s.angle1, s.angle2) : 
+                      gc.drawOval(s.left+sw/2, s.top+sw/2, s.width-sw, s.height-sw)
                   end
                 end
               end
@@ -358,6 +398,13 @@ class Shoes
         clickable s, &blk
       end
     end
+    
+    def arc l, t, w, h, a1, a2, args={}
+      a1 = a1 * 180 / Math::PI
+      a2 = -a2 * 180 / Math::PI
+      args.merge!({angle1: a1, angle2: a2})
+      oval  l, t, w, h, args
+    end
 
     def rect *attrs, &blk
       args = attrs.last.class == Hash ? attrs.pop : {}
@@ -368,6 +415,10 @@ class Shoes
         else args[:left], args[:top], args[:width], args[:height] = attrs
       end
       args[:height] = args[:width] unless args[:height]
+      if args[:center]
+        args[:left] -= args[:width] / 2
+        args[:top] -= args[:height] / 2
+      end
       args[:strokewidth] = ( args[:strokewidth] or strokewidth or 1 )
       args[:curve] ||= 0
       args[:nocontrol] = args[:noorder] = true
@@ -376,6 +427,7 @@ class Shoes
       args[:stroke] ||= stroke
       args[:fill] ||= fill
       args[:rotate] ||= rotate
+      args[:cap] = (LINECAP[args[:cap]] or cap)
       args[:real], args[:app] = :shape, self
       Rect.new(args).tap do |s|
         pl = Swt::PaintListener.new
@@ -387,6 +439,7 @@ class Shoes
               gc = e.gc
               Shoes.dps_reset s.dps, gc
               gc.setAntialias Swt::SWT::ON
+              gc.setLineCap s.cap
               sw, pat1, pat2 = s.strokewidth, s.stroke, s.fill
               Shoes.set_rotate gc, *s.rotate do
                 if pat2
@@ -444,6 +497,7 @@ class Shoes
 
       args[:stroke] ||= stroke
       args[:rotate] ||= rotate
+      args[:cap] = (LINECAP[args[:cap]] or cap)
       args[:real], args[:app] = :shape, self
       Line.new(args).tap do |s|
         pl = Swt::PaintListener.new
@@ -455,6 +509,7 @@ class Shoes
               gc = e.gc
               Shoes.dps_reset s.dps, gc
               gc.setAntialias Swt::SWT::ON
+              gc.setLineCap s.cap
               sw, pat = s.strokewidth, s.stroke
               Shoes.set_rotate gc, *s.rotate do
                 if pat
@@ -487,6 +542,7 @@ class Shoes
       args[:stroke] ||= stroke
       args[:fill] ||= fill
       args[:rotate] ||= rotate
+      args[:cap] = (LINECAP[args[:cap]] or cap)
       args[:real], args[:app] = :shape, self
       Star.new(args).tap do |s|
         pl = Swt::PaintListener.new
@@ -498,6 +554,7 @@ class Shoes
               gc = e.gc
               Shoes.dps_reset s.dps, gc
               gc.setAntialias Swt::SWT::ON
+              gc.setLineCap s.cap
               sw, pat1, pat2 = s.strokewidth, s.stroke, s.fill
               outer, inner, points, left, top = s.outer, s.inner, s.points, s.left, s.top
               polygon = []
@@ -653,6 +710,8 @@ class Shoes
       args[:width] ||= 150
       args[:height] ||= 16
       args = basic_attributes args
+      pb.setVisible false if args[:hidden]
+      args.delete :hidden
       pb.setSize args[:width], args[:height]
       pb.setLocation args[:left], args[:top]
       args[:real], args[:app] = pb, self
@@ -660,7 +719,7 @@ class Shoes
     end
 
     def download name, args={}, &blk
-      Download.new name, args, &blk
+      Download.new self, name, args, &blk
     end
 
     def scroll_top
@@ -680,11 +739,24 @@ class Shoes
       shell.getVerticalBar.getMaximum - 10
     end
 
+    def clipboard
+      Swt::Clipboard.new(Shoes.display).getContents Swt::TextTransfer.getInstance
+    end
+
+    def clipboard=(str)
+      Swt::Toolkit.getDefaultToolkit.getSystemClipboard.setContents Swt::StringSelection.new(str), Shoes
+    end
+
     def close
       @shell.close
       Shoes.APPS.delete self
     end
 
+    def window args={}, &blk
+      args.merge! owner: self
+      Shoes.app args, &blk
+    end
+
     def flush
       unless @cs.isDisposed
         Shoes.call_back_procs self
@@ -711,5 +783,14 @@ class Shoes
       g, a = attrs
       g ? rgb(g*255, g*255, g*255, a) : rgb(128, 128, 128)[0..2]
     end
+    
+    def cap *line_cap
+      @line_cap = case line_cap.first
+        when :curve, :rect, :project
+          LINECAP[line_cap.first]
+        else
+          @line_cap ||= LINECAP[:rect]
+      end
+    end
   end
 end

data/lib/shoes/basic.rb

@@ -3,6 +3,8 @@ class Shoes
     include Mod
     def initialize args
       @initials = args
+      @hided = true if args[:hidden]
+      args.delete :hidden
       args.each do |k, v|
         instance_variable_set "@#{k}", v
       end
@@ -39,10 +41,6 @@ class Shoes
     attr_reader :args, :initials
     attr_accessor :parent, :pl, :ln, :dps
 
-    def hided
-      @app.hided or @hided
-    end
-
     def move x, y
       @app.cslot.contents -= [self]
       move3 x, y
@@ -61,6 +59,10 @@ class Shoes
       @left, @top = x, y
     end
 
+    def center_at x, y
+      [x - (@width / 2), y - (@height / 2)]
+    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
@@ -82,6 +84,7 @@ class Shoes
         @dps.clear
         @parent.contents -= [self]
         @app.mscs -= [self]
+        @app.mhcs -= [self]
         hide
       end
     end
@@ -154,8 +157,18 @@ class Shoes
   class Border < Pattern; end
 
   class ShapeBase < Basic; end
-  class Rect < ShapeBase; end
-  class Oval < ShapeBase; end
+  class Rect < ShapeBase
+    def move3 x, y
+      x, y = center_at(x, y) if @center
+      super
+    end
+  end
+  class Oval < ShapeBase
+    def move3 x, y
+      x, y = center_at(x, y) if @center
+      super
+    end
+  end
   class Line < ShapeBase; end
   class Star < ShapeBase
     def move3 x, y
@@ -247,7 +260,13 @@ class Shoes
     end
   end
 
-  class Button < Native; end
+  class Button < Native
+    def click &blk
+      @real.addSelectionListener do |e|
+        self.class == Button ? blk[self] : (blk[self] if @real.getSelection)
+      end
+    end
+  end
   class ToggleButton < Button
     def checked?
       real.getSelection
@@ -260,9 +279,21 @@ class Shoes
   class Radio < ToggleButton; end
   class Check < ToggleButton; end
 
-  class EditLine < Native; end
-  class EditBox < Native; end
-  class ListBox < Native; end
+  class EditLine < Native
+    def change &blk
+      @real.addModifyListener{|e| blk[self]}
+    end
+  end
+  class EditBox < Native
+    def change &blk
+      @real.addModifyListener{|e| blk[self]}
+    end
+  end
+  class ListBox < Native
+    def change &blk
+      @real.addSelectionListener{|e| blk[self]}
+    end
+  end
   class Progress < Native
     def fraction
       @real.isDisposed ? 0 : real.getSelection / 100.0

data/lib/shoes/download.rb

@@ -1,16 +1,18 @@
 class Shoes
   class Download
-    def initialize name, args, &blk
+    def initialize app, 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
+          @finished, @sio = true, sio
         end
       end
+      a = app.animate do
+        (a.stop; blk[@sio]) if @finished
+      end if blk
     end
     
     attr_reader :progress, :content_length

data/lib/shoes/help.rb

@@ -4,10 +4,9 @@ require 'nkf'
 class Manual < Shoes
   url '/', :index
   url '/manual/(\d+)', :index
-  #url '/mk_search_page', :mk_search_page
 
   include Hpricot
-  #include HH::Markup
+  include HH::Markup
 
   def index pnum = 0
     font LANG == 'ja' ? 'MS UI Gothic' : 'Arial'
@@ -90,7 +89,7 @@ class Manual < Shoes
         end
       end
       para NL
-      show_page mk_paras(d.gsub('&', '\u0026')), false, term
+      show_page mk_paras(d), false, term
     end
   end
 
@@ -107,8 +106,7 @@ class Manual < Shoes
             if _code.include? 'te-su-to'
               para fg(code('  ' + _code), maroon), NL, margin: [-10, 10, 0, 20]
             else
-              #para code(highlight('  ' + _code, nil)), NL, margin: [-10, 10, 0, 20]
-              para fg(code('  ' + _code), blueviolet), NL, margin: [-10, 10, 0, 20]
+              para *highlight('  ' + _code, nil).map{|e| code e}, NL, margin: [-10, 10, 0, 20]
             end
           end
           para NL
@@ -171,7 +169,7 @@ class Manual < Shoes
     COLORS.each do |color, v|
       r, g, b = v
       c = v.dark? ? white : black
-      flow width: 0.33 do
+      flow width: 0.33, height: 55, margin_top: 5 do
         background send(color)
         para fg(strong(color), c), align: 'center'
         para fg("rgb(#{r}, #{g}, #{b})", c), align: 'center'
@@ -203,6 +201,7 @@ class Manual < Shoes
   end
   
   def find_pnum page
+    return 999 if page == 'Search'
     TOC_LIST.each_with_index do |e, i|
       title, section = e
       return i if title == page