require 'Win32API'

getCursorPos = Win32API.new("user32", "GetCursorPos", ['P'], 'V')
lpPoint = " " * 8 # store two LONGs

Shoes.app :height => 500, :width => 500 do
  stack do
    @label = para "Esto es un label"
    @button = button("Presioname")
  end
  keypress do |k|
    getCursorPos.Call(lpPoint)
    x, y = lpPoint.unpack("LL") # get the actual values
    puts "x:", x, " y:", y
    @label.text = "x:", x, " y:", y
  end
end