#!/usr/bin/env ruby
# wxRuby2 Sample Code. Copyright (c) 2004-2008 wxRuby development team
# Freely reusable code: see SAMPLES-LICENSE.TXT for details
begin
  require 'rubygems' 
rescue LoadError
end
require 'wx'


include Wx

BUTTON_CLOSE = 1003

class MyFrame < Frame
  def initialize(parent, log)
    @log = log
    super(parent, -1, "Shaped Window", DEFAULT_POSITION, Size.new(350,200), 
          FRAME_SHAPED|SIMPLE_BORDER|FRAME_NO_TASKBAR|STAY_ON_TOP)

    @has_shape = false
    @delta = [0,0]

    evt_left_dclick {on_double_click}
    evt_left_down {|event| on_left_down(event)}
    evt_left_up {|event| on_left_up(event)}
    evt_motion {|event| on_mouse_move(event)}
    evt_right_up {on_exit}
    evt_paint {on_paint}

    shape = File.join( File.dirname(__FILE__), 'icons', 'ruby.png' )
    @bmp = Bitmap.new( Image.new(shape) )
    set_client_size(@bmp.get_width, @bmp.get_height)

    if Wx::PLATFORM == 'WXGTK'
      # wxGTK requires that the window be created before you can
      # set its shape, so delay the call to SetWindowShape until
      # this event.
      evt_window_create { set_window_shape }
    else
      # On wxMSW and wxMac the window has already been created, so go for it.
      set_window_shape
    end

    paint { | dc | dc.draw_bitmap(@bmp, 0, 0, true) }
  end

  def set_window_shape
    r = Region.new(@bmp)
    @has_shape = set_shape(r)
  end

  def on_double_click
    if @has_shape
      set_shape(Region.new)
      @has_shape = false
    else
      set_window_shape
    end
  end

  def on_paint
    paint { | dc | dc.draw_bitmap(@bmp, 0, 0, true) }
  end
    
  def on_exit
    close(true)
  end

  def on_left_down(event)
    capture_mouse
    point = client_to_screen(event.get_position)
    origin = get_position
    dx = point.x - origin.x
    dy = point.y - origin.y
    @delta = [dx, dy]
  end

  def on_left_up(event)
    if has_capture
      release_mouse
    end
  end

  def on_mouse_move(event)
    if event.dragging and event.left_is_down
      point = client_to_screen(event.get_position)
      move(point.x - @delta[0], point.y - @delta[1])
    end
  end
end

class TestPanel < Wx::Panel
  def initialize(parent, log)
    super(parent, -1, Wx::DEFAULT_POSITION, Wx::DEFAULT_SIZE, Wx::NO_FULL_REPAINT_ON_RESIZE)
    @log = log

    b = Button.new(self, -1, 'Show the ShapedWindow Sample', Wx::Point.new(50,50))
    evt_button(b.get_id) { on_button }
  end

  def on_button
    win = MyFrame.new(self, @log)
    win.set_size(Wx::Size.new(200, 200))
    win.center_on_parent(Wx::BOTH)
    win.show(true)
  end
end
        
module Demo
  def Demo.run(frame, nb, log)
    TestPanel.new(nb, log)
  end
    
  def Demo.overview
    <<EOS
Top level windows now have a SetShape method that lets you set a
non-rectangular shape for the window using a wxRegion.  All pixels
outside of the region will not be drawn and the window will not be
sensitive to the mouse in those areas either.
EOS
  end
end



if __FILE__ == $0
  run_solo_lib = File.join( File.dirname(__FILE__), 'run.rb')
  load run_solo_lib
  run File.basename($0)
end