diff options
Diffstat (limited to 'trunk/ext/tk/sample/tktimer2.rb')
-rw-r--r-- | trunk/ext/tk/sample/tktimer2.rb | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/trunk/ext/tk/sample/tktimer2.rb b/trunk/ext/tk/sample/tktimer2.rb deleted file mode 100644 index dd31bb098e..0000000000 --- a/trunk/ext/tk/sample/tktimer2.rb +++ /dev/null @@ -1,47 +0,0 @@ -#!/usr/bin/env ruby -# This script is a re-implementation of tktimer.rb with TkTimer(TkAfter) class. - -require "tk" - -# new notation : -# * symbols are acceptable as keys or values of the option hash -# * the parent widget can be given by :parent key on the option hash -root = TkRoot.new(:title=>'timer sample') -label = TkLabel.new(:parent=>root, :relief=>:raised, :width=>10) \ - .pack(:side=>:bottom, :fill=>:both) - -# define the procedure repeated by the TkTimer object -tick = proc{|aobj| #<== TkTimer object - cnt = aobj.return_value + 5 # return_value keeps a result of the last proc - 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) -} - -timer = TkTimer.new(50, -1, tick).start(0, proc{ label.text('0.00'); 0 }) - # ==> repeat-interval : (about) 50 ms, - # repeat : infinite (-1) times, - # repeat-procedure : tick (only one, in this case) - # - # ==> wait-before-call-init-proc : 0 ms, - # init_proc : proc{ label.text('0.00'); 0 } - # - # (0ms)-> init_proc ->(50ms)-> tick ->(50ms)-> tick ->.... - -TkButton.new(:text=>'Start') { - command proc{ timer.continue unless timer.running? } - pack(:side=>:left, :fill=>:both, :expand=>true) -} -TkButton.new(:text=>'Restart') { - command proc{ timer.restart(0, proc{ label.text('0.00'); 0 }) } - pack(:side=>:left, :fill=>:both, :expand=>true) -} -TkButton.new(:text=>'Stop') { - command proc{ timer.stop if timer.running? } - 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 |