diff options
Diffstat (limited to 'trunk/ext/tk/sample/tkrttimer.rb')
-rw-r--r-- | trunk/ext/tk/sample/tkrttimer.rb | 77 |
1 files changed, 0 insertions, 77 deletions
diff --git a/trunk/ext/tk/sample/tkrttimer.rb b/trunk/ext/tk/sample/tkrttimer.rb deleted file mode 100644 index 0abd4ecbd2..0000000000 --- a/trunk/ext/tk/sample/tkrttimer.rb +++ /dev/null @@ -1,77 +0,0 @@ -#!/usr/bin/env ruby -# This script is a re-implementation of tktimer.rb with TkTimer(TkAfter) class. - -require "tk" - -root = TkRoot.new(:title=>'realtime timer sample') - -f1 = TkFrame.new(:borderwidth=>2, :relief=>:ridge) -f1.pack(:side=>:bottom, :fill=>:both) -TkLabel.new(f1, :text=>'use TkTimer (TkAfter) class').pack(:anchor=>:center) -label1 = TkLabel.new(:parent=>f1, :relief=>:raised, - :width=>10).pack(:fill=>:both) - -f2 = TkFrame.new(:borderwidth=>2, :relief=>:ridge) -f2.pack(:side=>:bottom, :fill=>:both) -TkLabel.new(f2, :text=>'use TkRTTimer class').pack -label2 = TkLabel.new(:parent=>f2, :relief=>:raised, - :width=>10).pack(:fill=>:both) - -TkLabel.new(:padx=>10, :pady=>5, :justify=>'left', :text=><<EOT).pack -Interval setting of each timer object is 10 ms. -Each timer object counts up the value on each callback -(the value is not the clock data). -The count of the TkTimer object is delayed by execution -time of callbacks and inaccuracy of interval. -On the other hand, the count of the TkRTTimer object is -not delayed. Its callback interval is not accurate too. -But it can compute error correction about the time when -a callback should start. -EOT - -# define the procedure repeated by the TkTimer object -tick = proc{|aobj| #<== TkTimer object - cnt = aobj.return_value + 1 # return_value keeps a result of the last proc - label = aobj.current_args[0] - label.text format("%d.%02d", *(cnt.divmod(100))) - cnt #==> return value is kept by TkTimer object - # (so, can be send to the next repeat-proc) -} - -timer1 = TkTimer.new(10, -1, [tick, label1]) # 10 ms interval -timer2 = TkRTTimer.new(10, -1, [tick, label2]) # 10 ms interval - -timer1.start(0, proc{ label1.text('0.00'); 0 }) -timer2.start(0, proc{ label2.text('0.00'); 0 }) - -b_start = TkButton.new(:text=>'Start', :state=>:disabled) { - pack(:side=>:left, :fill=>:both, :expand=>true) -} - -b_stop = TkButton.new(:text=>'Stop', :state=>:normal) { - pack('side'=>'left', 'fill'=>'both', 'expand'=>'yes') -} - -b_start.command { - timer1.continue - timer2.continue - b_stop.state(:normal) - b_start.state(:disabled) -} - -b_stop.command { - timer1.stop - timer2.stop - b_start.state(:normal) - b_stop.state(:disabled) -} - -TkButton.new(:text=>'Reset', :state=>:normal) { - command { timer1.reset; timer2.reset } - pack(:side=>:right, :fill=>:both, :expand=>:yes) -} - -ev_quit = TkVirtualEvent.new('Control-c', 'Control-q') -Tk.root.bind(ev_quit, proc{Tk.exit}).focus - -Tk.mainloop |