From 068bc7e43a7e88d9d48aa627a846ef5f22660694 Mon Sep 17 00:00:00 2001 From: nagai Date: Thu, 19 Jun 2003 16:14:43 +0000 Subject: 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 --- ext/tk/lib/tk.rb | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) (limited to 'ext/tk/lib/tk.rb') 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 -- cgit v1.2.3