diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-08-02 05:04:30 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-08-02 05:04:30 +0000 |
| commit | 4c3328f5476f54c84b1f048eed075e6edf5e5b1d (patch) | |
| tree | 92b661314bdfd045882e365e3e43b77f57244725 /ext/tk/lib/tkafter.rb | |
| parent | d7bdf5df56f337d8ca1152598ff138703896c54b (diff) | |
* (bug fix) TkEntry#delete
* (bug fix) some widget demos
* support <TkVariable object> == <Symbol>
( "coerce TkVariable" add to the TODO list :-) )
* freeze some object for security reason
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4282 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/lib/tkafter.rb')
| -rw-r--r-- | ext/tk/lib/tkafter.rb | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/ext/tk/lib/tkafter.rb b/ext/tk/lib/tkafter.rb index 529b1e6cfb..0572106771 100644 --- a/ext/tk/lib/tkafter.rb +++ b/ext/tk/lib/tkafter.rb @@ -11,7 +11,7 @@ class TkTimer TkCommandNames = ['after'.freeze].freeze - Tk_CBID = ['a'.freeze, '00000'] + Tk_CBID = ['a'.freeze, '00000'].freeze Tk_CBTBL = {} TkCore::INTERP.add_tk_procs('rb_after', 'id', <<-'EOL') @@ -311,6 +311,22 @@ class TkTimer self end + def reset(*reset_args) + restart() if @running + + if @init_proc + @return_value = @init_proc.call(self) + else + @return_value = nil + end + + @current_pos = 0 + @current_args = @init_args + @set_next = false if @in_callback + + self + end + def restart(*restart_args) cancel if @running if restart_args == [] |