purple_shoes 0.0.101

data/lib/shoes/helper_methods.rb

@@ -0,0 +1,295 @@
+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
+
+    def click &blk
+      @app.clickable self, :click, &blk
+    end
+    
+    def release &blk
+      @app.clickable self, :release, &blk
+    end
+
+    attr_reader :margin_left, :margin_top, :margin_right, :margin_bottom
+  end
+  
+  module Mod2
+    def init_app_vars
+      @contents, @mmcs, @mscs, @order = [], [], [], []
+      @location = '/'
+      @mouse_button, @mouse_pos = 0, [0, 0]
+      @fill, @stroke = black, black
+    end
+  end
+  
+  class App
+    def basic_attributes args={}
+      default = BASIC_ATTRIBUTES_DEFAULT
+      default.merge!({nocontrol: true}) if @nolayout
+      replace_string_to_float args
+      default.merge args
+    end
+
+    def slot_attributes args={}
+      default = SLOT_ATTRIBUTES_DEFAULT
+      replace_string_to_float args
+      default.merge args
+    end
+    
+    def replace_string_to_float args={}
+      [:width, :height, :left, :top].each do |k|
+        if args[k].is_a? String
+          args[k] = args[k].include?('%') ? args[k].to_f / 100 : args[k].to_i
+        end
+      end
+    end
+    
+    def clickable s, flag = :click, &blk
+      if blk
+        ln = Swt::Listener.new
+        s.ln = ln
+        @mscs << s
+        class << ln; self end.
+        instance_eval do
+          define_method :handleEvent do |e|
+            if s.is_a?(Link) and !s.parent.hided
+              mouse_x, mouse_y = e.x, e.y
+              blk[s] if ((s.pl..(s.pl+s.pw)).include?(mouse_x) and (s.sy..s.ey).include?(mouse_y) and !((s.pl..s.sx).include?(mouse_x) and (s.sy..(s.sy+s.lh)).include?(mouse_y)) and !((s.ex..(s.pl+s.pw)).include?(mouse_x) and ((s.ey-s.lh)..s.ey).include?(mouse_y)))
+            elsif !s.is_a?(Link) and !s.hided
+              dx, dy = s.is_a?(Star) ? [s.width / 2.0, s.height / 2.0] : [0, 0]
+              blk[s] if s.left - dx <= e.x and e.x <= s.left - dx + s.width and s.top - dy <= e.y and e.y <= s.top - dy + s.height
+            end
+          end
+        end
+        @cs.addListener Swt::SWT::MouseDown, ln if flag == :click
+        @cs.addListener Swt::SWT::MouseUp, ln if flag == :release
+      end
+    end
+
+    def get_styles msg, styles=[], spoint=0
+      msg.each do |e|
+        if e.is_a? Text
+          epoint = spoint + e.to_s.length - 1
+          styles << [e, spoint..epoint]
+          get_styles e.str, styles, spoint
+        end
+        spoint += e.to_s.length
+      end
+      styles
+    end
+    
+    def set_styles s, args
+      tl = s.real
+      tl.setJustify args[:justify]
+      tl.setSpacing(args[:leading] || 4)
+      tl.setAlignment case args[:align]
+        when 'center'; Swt::SWT::CENTER
+        when 'right'; Swt::SWT::RIGHT
+        else Swt::SWT::LEFT
+        end
+      font = Swt::Font.new Shoes.display, args[:font], args[:size], Swt::SWT::NORMAL
+      fgc = Swt::Color.new Shoes.display, *args[:stroke]
+      bgc = args[:fill] ? Swt::Color.new(Shoes.display, *args[:fill]) : nil
+      style = Swt::TextStyle.new font, fgc, bgc
+      tl.setStyle style, 0, args[:markup].length - 1
+      s.dps << font << fgc << bgc
+      
+      args[:styles].each do |st|
+        font, ft, fg, bg, cmds, small = args[:font], Swt::SWT::NORMAL, fgc, bgc, [], 1
+        nested_styles(args[:styles], st).each do |e|
+          case e[0].style
+          when :strong
+            ft = ft | Swt::SWT::BOLD
+          when :em
+            ft = ft | Swt::SWT::ITALIC 
+          when :fg
+            fg = Swt::Color.new Shoes.display, *e[0].color[0,3]
+          when :bg
+            bg = Swt::Color.new Shoes.display, *e[0].color[0,3]
+          when :ins
+            cmds << "underline = true"
+          when :del
+            cmds << "strikeout = true"
+          when :sub
+            small *= 0.8
+            cmds << "rise = -5"
+          when :sup
+            small *= 0.8
+            cmds << "rise = 5"
+          when :code
+            font = "Lucida Console"
+          when :link
+            cmds << "underline = true"
+            fg = Swt::Color.new Shoes.display, *blue
+            spos = tl.getLocation e[1].first, false
+            epos = tl.getLocation e[1].last, true
+            e[0].lh = tl.getLineBounds(0).height
+            e[0].sx, e[0].sy = s.left + spos.x, s.top + spos.y
+            e[0].ex, e[0].ey = s.left + epos.x, s.top + epos.y + e[0].lh
+            e[0].pl, e[0].pt, e[0].pw, e[0].ph = s.left, s.top, s.width, s.height
+            s.links << e[0]
+            unless e[0].clickabled
+              e[0].parent = s
+              clickable e[0], &e[0].blk
+              e[0].clickabled = true
+            end
+          else
+          end
+        end
+        ft = Swt::Font.new Shoes.display, font, args[:size]*small, ft
+        style = Swt::TextStyle.new ft, fg, bg
+        cmds.each do |cmd|
+          eval "style.#{cmd}"
+        end
+        tl.setStyle style, st[1].first, st[1].last
+        s.dps << ft
+      end if args[:styles]
+    end
+    
+    def nested_styles styles, st
+      styles.map do |e|
+        (e[1].first <= st[1].first and st[1].last <= e[1].last) ? e : nil
+      end - [nil]
+    end
+
+    def pattern_pos left, top, w, h, a
+      w, h = w*0.5, h*0.5
+      a = Math::PI*(a/180.0)
+      a = a % (Math::PI*2.0)
+      cal = proc do
+        l = Math.sqrt(w**2 + h**2)
+        b = Math.atan(h/w)
+        c = Math::PI*0.5 - a - b
+        r = l * Math.cos(c.abs)
+        [r * Math.cos(b+c), r * Math.sin(b+c)]
+      end
+      if 0 <= a and a < Math::PI*0.5
+        x, y = cal.call
+        [left+w+x, top+h-y, left+w-x, top+h+y]
+      elsif Math::PI*0.5 <= a and a < Math::PI
+        a -= Math::PI*0.5
+        w, h = h, w
+        x, y = cal.call
+        [left+h+y, top+w+x, left+h-y, top+w-x]
+      elsif Math::PI <= a and a < Math::PI*1.5
+        a -= Math::PI
+        x, y = cal.call
+        [left+w-x, top+h+y, left+w+x, top+h-y]
+      elsif Math::PI*1.5 <= a and a < Math::PI*2.0
+        a -= Math::PI*1.5
+        w, h = h, w
+        x, y = cal.call
+        [left+h-y, top+w-x, left+h+y, top+w+x]
+      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, slot_top = 0, y
+
+    slot.contents.each do |ele|
+      tmp = max
+      max = ele.positioning x, y, max
+      x, y = ele.left + ele.width, ele.top + ele.height
+      unless max == tmp
+        slot_height = max.top + max.height - slot_top
+      end
+    end
+    slot_height
+  end
+  
+  def self.repaint_all slot
+    slot.contents.each do |ele|
+      ele.is_a?(Basic) ? ele.move2(ele.left + ele.margin_left, ele.top + ele.margin_top) : repaint_all(ele)
+    end
+  end
+  
+  def self.call_back_procs app
+    init_contents app.cslot.contents
+    w, h = app.width, app.height
+    app.cslot.width, app.cslot.height = w, h
+    scrollable_height = contents_alignment app.cslot
+    app.cs.setSize w, [scrollable_height, h].max
+    vb = app.shell.getVerticalBar
+    vb.setVisible(scrollable_height > h)
+    if scrollable_height > h
+      vb.setMaximum scrollable_height - h + 12
+    else
+      location = app.cs.getLocation
+      location.y = 0
+      app.cs.setLocation location
+    end
+    repaint_all app.cslot
+  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_motion_control app
+    app.mmcs.each{|blk| blk[*app.mouse_pos]}
+  end
+
+  def self.mouse_shape_control app
+    flag = false
+    mouse_x, mouse_y = app.mouse_pos
+    app.mscs.each do |s|
+      if s.is_a?(Link) and !s.parent.hided
+        flag = true if ((s.pl..(s.pl+s.pw)).include?(mouse_x) and (s.sy..s.ey).include?(mouse_y) and !((s.pl..s.sx).include?(mouse_x) and (s.sy..(s.sy+s.lh)).include?(mouse_y)) and !((s.ex..(s.pl+s.pw)).include?(mouse_x) and ((s.ey-s.lh)..s.ey).include?(mouse_y)))
+      elsif !s.is_a?(Link) and !s.hided
+        dx, dy = s.is_a?(Star) ? [s.width / 2.0, s.height / 2.0] : [0, 0]
+        flag = true if s.left - dx <= mouse_x and mouse_x <= s.left - dx + s.width and s.top - dy <= mouse_y and mouse_y <= s.top - dy + s.height
+      end
+    end
+    cursor = flag ? Swt::SWT::CURSOR_HAND : Swt::SWT::CURSOR_ARROW
+    app.shell.setCursor  Shoes.display.getSystemCursor(cursor)
+  end
+
+  def self.set_pattern s, gc, pat, m = :Background
+    pat = s.app.tr_color(pat) if pat.is_a? String
+    if pat.is_a? Array
+      eval "gc.set#{m} Swt::Color.new(Shoes.display, *pat[0,3])"
+      gc.setAlpha(pat[3] ? pat[3]*255 : 255)
+    elsif pat.is_a? Range
+      if s.is_a? Star
+        eval "gc.set#{m}Pattern s.app.gradient(pat, s.left-s.width/2.0, s.top-s.height/2.0, s.width, s.height, s.angle)"
+      else
+        eval "gc.set#{m}Pattern s.app.gradient(pat, s.left, s.top, s.width, s.height, s.angle)"
+      end
+    elsif pat.is_a? String
+      eval "gc.set#{m}Pattern Swt::Pattern.new(Shoes.display, Swt::Image.new(Shoes.display, pat))"
+    end
+  end
+  
+  def self.set_rotate gc, angle, left, top
+    if block_given?
+      tr = Swt::Transform.new Shoes.display
+      reset_rotate tr, gc, angle, left, top
+      yield
+      reset_rotate tr, gc, -angle, left, top
+    end
+  end
+    
+  def self.reset_rotate tr, gc, angle, left, top
+    tr.translate left, top
+    tr.rotate angle
+    tr.translate -left, -top
+    gc.setTransform tr
+  end
+end

data/lib/shoes/main.rb

@@ -0,0 +1,96 @@
+class Shoes
+  $urls = {}
+  include Swt
+  
+  def self.display
+    @display
+  end
+  
+  def self.app args={}, &blk
+    args[:width] ||= 600
+    args[:height] ||= 500
+    args[:title] ||= 'purple shoes'
+    args[:left] ||= 0
+    args[:top] ||= 0
+
+    @display ||= Swt::Display.new
+    shell = Swt::Shell.new @display, Swt::SWT::SHELL_TRIM | Swt::SWT::V_SCROLL
+    shell.setSize args[:width] + 16, args[:height] + 38
+    shell.setText args[:title]
+    color = @display.getSystemColor Swt::SWT::COLOR_WHITE
+    shell.setBackground color
+    icon = Swt::Image.new @display, File.join(DIR, '../static/purple_shoes-icon.png')
+    shell.setImage icon
+    
+    cs = Swt::Composite.new shell, Swt::SWT::TRANSPARENT
+    cs.setSize args[:width], args[:height]
+    
+    args[:shell], args[:cs] = shell, cs
+    app = App.new args
+    @main_app ||= app
+    app.top_slot = Flow.new app.slot_attributes(app: app, left: 0, top: 0)
+    
+    class << app; self end.class_eval do
+      define_method(:width){shell.isDisposed ? 0 : shell.getSize.x - 16}
+      define_method(:height){shell.isDisposed ? 0 : shell.getSize.y - 38}
+    end
+    
+    app.hided = true
+    blk ? app.instance_eval(&blk) : app.instance_eval{$urls[/^#{'/'}$/].call app}
+    
+    shell.open
+    call_back_procs app
+    app.aflush
+
+    cl = Swt::ControlListener.new
+    class << cl; self end.
+    instance_eval do
+      define_method(:controlResized){|e| Shoes.call_back_procs app}
+      define_method(:controlMoved){|e|}
+    end
+    shell.addControlListener cl
+
+    vb = shell.getVerticalBar
+    vb.setVisible false
+    ln = Swt::SelectionListener.new
+    class << ln; self end.
+    instance_eval do
+      define_method :widgetSelected do |e|
+        unless e.detail == Swt::SWT::DRAG
+          location = cs.getLocation
+          location.y = -vb.getSelection
+          cs.setLocation location
+        end
+      end
+    end
+    vb.addSelectionListener ln
+
+    mml = Swt::MouseMoveListener.new
+    class << mml; self end.
+    instance_eval do
+      define_method :mouseMove do |e|
+        app.mouse_pos = [e.x, e.y]
+        Shoes.mouse_motion_control app
+        Shoes.mouse_shape_control app
+      end
+    end
+    cs.addMouseMoveListener mml
+    
+    ml = Swt::MouseListener.new
+    class << ml; self end.
+    instance_eval do
+      define_method(:mouseDown){|e| app.mouse_button = e.button; app.mouse_pos = [e.x, e.y]}
+      define_method(:mouseUp){|e| app.mouse_button = 0; app.mouse_pos = [e.x, e.y]}
+      define_method(:mouseDoubleClick){|e|}
+    end
+    cs.addMouseListener ml
+  
+    if @main_app == app
+      while !shell.isDisposed do
+        @display.sleep unless @display.readAndDispatch
+      end
+      @display.dispose
+    end
+    app
+  end
+end

data/lib/shoes/manual.rb

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

data/lib/shoes/ruby.rb

@@ -0,0 +1,61 @@
+class Range 
+  def rand 
+    conv = (Integer === self.end && Integer === self.begin ? :to_i : :to_f)
+    ((Kernel.rand * (self.end - self.begin)) + self.begin).send(conv) 
+  end 
+end
+
+class Object
+  include Types
+
+  def alert msg
+    shell = Swt::Shell.new Shoes.display
+    mb = Swt::MessageBox.new shell, Swt::SWT::OK | Swt::SWT::ICON_INFORMATION
+    mb.setMessage msg.to_s
+    mb.open
+  end
+
+  def ask_open_file
+    dialog_chooser 'Open File...'
+  end
+  
+  def ask_save_file
+    dialog_chooser 'Save File...'
+  end
+
+  def ask_open_folder
+    dialog_chooser 'Open Folder...', :folder
+  end
+
+  def ask_save_folder
+    dialog_chooser 'Save Folder...', :folder
+  end
+  
+  def dialog_chooser title, folder=false, style=Swt::SWT::OPEN
+    shell = Swt::Shell.new Shoes.display
+    fd = folder ? Swt::DirectoryDialog.new(shell, style) : Swt::FileDialog.new(shell, style)
+    fd.setText title
+    fd.open
+  end
+end
+
+class Array
+  def / len
+    a = []
+    each_with_index do |x, i|
+      a << [] if i % len == 0
+      a.last << x
+    end
+    a
+  end
+
+  def dark?
+    r, g, b = self
+    r + g + b < 0x55 * 3
+  end
+
+  def light?
+    r, g, b = self
+    r + g + b > 0xAA * 3
+  end
+end