ext/tk/sample/tktimer.rb


1
2
3
4
5
6
7
/* Defines INI file vocabulary */
#define TELNET_INI "kerberos.ini"

#define INI_TELNET "Telnet"
#define   INI_FONT "Font"
#define   INI_WIDTH "Width"
#define   INI_HEIGHT "Height"
#define   INI_POSITION "Position"
#define   INI_BACKSPACE "Backspace"
#define   INI_BACKSPACE_BS "BS"
#define   INI_BACKSPACE_DEL "DEL"

#define INI_HOSTS "Telnet Hosts"
#defin#!/usr/bin/env ruby
# This script generates a counter with start and stop buttons.

require "tk"
$label = TkLabel.new {
  text '0.00'
  relief 'raised'
  width 10
  pack('side'=>'bottom', 'fill'=>'both')
}

TkButton.new {
  text 'Start'
  command proc {
    if $stopped
      $stopped = FALSE
      tick
    end
  }
  pack('side'=>'left','fill'=>'both','expand'=>'yes')
}
TkButton.new {
  text 'Stop'
  command proc{
    exit if $stopped
    $stopped = TRUE
  }
  pack('side'=>'right','fill'=>'both','expand'=>'yes')
}

$seconds=0
$hundredths=0
$stopped=TRUE

def tick
  if $stopped then return end
  Tk.after 50, proc{tick}
  $hundredths+=5
  if $hundredths >= 100
    $hundredths=0
    $seconds+=1
  end
  $label.text format("%d.%02d", $seconds, $hundredths)
end

root = Tk.root
root.bind "Control-c", proc{root.destroy}
root.bind "Control-q", proc{root.destroy}
Tk.root.focus
Tk.mainloop