exerbtk/test/timer.rb

#! /usr/bin/ruby

#==============================================================================#
# $Id: timer.rb,v 1.2 2004/02/13 15:05:04 yuya Exp $
#==============================================================================#

require 'etk/etk'

#==============================================================================#

class MyForm < Etk::Form

  def initialize
    self.set_client_size(150, 90)
    self << start = Etk::Button.new(:start, "Start", 10, 10, 130, 30)
    self << stop  = Etk::Button.new(:stop,  "Stop",  10, 50, 130, 30)

    $timer = Etk::Timer.new
    $timer.interval = 1000
    $timer.start

    def $timer.on_tick(arg)
      p(:on_tick)
    end
  end

  def on_start_click(arg)
    p(:start)
    $timer.start
  end

  def on_stop_click(arg)
    p(:stop)
    $timer.stop
  end

end

#==============================================================================#

Etk.main(MyForm.new)

#==============================================================================#
#==============================================================================#