class Shoes
  class App
    include Types
    include Mod2

    def initialize args={}
      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 :to_s do
          win_title or 'green shoes'
        end
      end if @owner

      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
      Shoes.APPS << self
    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, :animates, :owner

    def visit url
      if url =~ /^(http|https):\/\//
        Thread.new do
          case RUBY_PLATFORM
          when /mingw/; system "start #{url}"
          when /linux/; system("/etc/alternatives/x-www-browser #{url} &")
          else
            puts "Sorry, your platform [#{RUBY_PLATFORM}] is not supported..."
          end
        end
      else
        timer 0.001 do
          $urls.each{|k, v| clear{init_app_vars; v.call self, $1} if k =~ url}
        end
      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 textblock klass, font_size, *msg
      args = msg.last.class == Hash ? msg.pop : {}
      args = basic_attributes args
      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
        args[:width] = 1 if args[:width] <= 0
        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={}
      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" do
        yield @_b
      end if block_given?
      @canvas.put b, args[:left], args[:top]
      b.show_now
      args[:real], args[:text], args[:app] = b, name, self
      @_b = Button.new args
    end

    def check args={}
      args = basic_attributes args
      cb = Gtk::CheckButton.new
      cb.active = true if args[:checked]
      cb.signal_connect "clicked" do
        yield @_cb
      end if block_given?
      @canvas.put cb, args[:left], args[:top]
      cb.show_now
      args[:real], args[:app] = cb, self
      @_cb = Check.new args
    end
    
    def radio *attrs
      args = attrs.last.class == Hash ? attrs.pop : {}
      group = attrs.first unless attrs.empty?
      group = group ? (@radio_groups[group] ||= Gtk::RadioButton.new) : cslot.radio_group
      args = basic_attributes args
      rb = Gtk::RadioButton.new group
      rb.active = true if args[:checked]
      rb.signal_connect "clicked" do
        yield @_rb
      end if block_given?
      @canvas.put rb, args[:left], args[:top]
      rb.show_now
      args[:real], args[:app] = rb, self
      @_rb = Radio.new args
    end

    def edit_line args={}
      args = basic_attributes args
      args[:width] = 200 if args[:width].zero?
      args[:height] = 28 if args[:height].zero?
      el = Gtk::Entry.new
      el.text = args[:text].to_s
      el.set_size_request args[:width], args[:height]
      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
      @_el = EditLine.new args
    end

    def edit_box args={}
      args = basic_attributes args
      args[:width] = 200 if args[:width].zero?
      args[:height] = 108 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 @_eb
      end if block_given?

      @canvas.put eb, args[:left], args[:top]
      eb.show_now
      args[:real], args[:app], args[:textview] = eb, self, tv
      @_eb = EditBox.new args
    end
    
    def list_box args={}
      args = basic_attributes args
      args[:width] = 200 if args[:width].zero?
      args[:height] = 28 if args[:height].zero?
      cb = Gtk::ComboBox.new
      args[:items] ||= []
      args[:items].each{|item| cb.append_text item.to_s}
      cb.set_size_request args[:width], args[:height]
      cb.active = args[:items].index(args[:choose]) if args[:choose]
      cb.signal_connect("changed") do
        yield @_lb
      end if block_given?
      @canvas.put cb, args[:left], args[:top]
      cb.show_now
      args[:real], args[:app] = cb, self
      @_lb = ListBox.new args
    end

    def animate n=10, repaint=true, &blk
      n, i = 1000 / n, 0
      a = Anim.new
      @animates << a
      GLib::Timeout.add n do
        if a.continue? 
          blk[i = a.pause? ? i : i+1]
          Shoes.repaint_all_by_order self if repaint
        end
        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[:left] ||= 0
      args[:top] ||= 0
      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?
        args[:width] = 1 if args[:width] <= 0
        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.vscrollbar.value
    end

    def scroll_top=(n)
      @swin.vscrollbar.value = n
    end

    def clipboard
      Gtk::Clipboard.get(Gdk::Selection::CLIPBOARD).wait_for_text
    end

    def clipboard=(str)
      Gtk::Clipboard.get(Gdk::Selection::CLIPBOARD).text = str
    end

    def close
      win.destroy
      Gtk.main_quit
      Shoes.APPS.delete app
      exit if Shoes.APPS.empty?
    end

    def window args={}, &blk
      args.merge! owner: self
      Shoes.app args, &blk
    end

    def flush
      Shoes.call_back_procs self
    end

    [:append, :prepend, :after, :before].each do |m|
      define_method m do |*args, &blk|
        top_slot.send m, *args, &blk
      end
    end
  end
end