tcltklib.c :

 * lib_do_one_event() : change default value of the argument
 * lib_do_one_event() : returns true/false
 * add TclTkLib::EventFlag::NONE ( == 0 )
 * add set_no_event_wait() and get_no_event_wait()
 * modify MANUAL.euc and README.euc

tk.rb :
 * change default value of TkCore.do_one_event argument
 * add TkCore.set_no_event_wait(wait) and TkCore.get_no_event_wait
 * add Tk.exit ( == destroy root widget )

tkafter.rb :
 * rename TkAfter => TkTimer ( TkAfter is an alias name now. )
 * set_callback returns self
 * continue() raises an exception, if already running or no procedure.
 * skip() raises an exception, if not running.

sample/tktimer2.rb
 * new sample for TkTimer class.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3965 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 13 insertions, 1 deletions

diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index 35b9e7ce97..464f7f179e 100644
--- a/ext/tk/lib/tk.rb
+++ b/ext/tk/lib/tk.rb
@@ -765,7 +765,7 @@ module TkCore
     TclTkLib.mainloop_watchdog(check_root)
   end
 
-  def do_one_event(flag = 0)
+  def do_one_event(flag = TclTkLib::EventFlag::ALL)
     TclTkLib.do_one_event(flag)
   end
 
@@ -777,6 +777,14 @@ module TkCore
     TclTkLib.get_eventloop_tick
   end
 
+  def set_no_event_wait(wait)
+    TclTkLib.set_no_even_wait(wait)
+  end
+
+  def get_no_event_wait()
+    TclTkLib.get_no_eventloop_wait
+  end
+
   def set_eventloop_weight(loop_max, no_event_tick)
     TclTkLib.set_eventloop_weight(loop_max, no_event_tick)
   end
@@ -972,6 +980,10 @@ module Tk
     tk_call('destroy', *wins)
   end
 
+  def Tk.exit
+    tk_call('destroy', '.')
+  end
+
   def Tk.current_grabs
     tk_split_list(tk_call('grab', 'current'))
   end