From d2a9e77748684e786af9525e258aee98c8ff2a8d Mon Sep 17 00:00:00 2001 From: nagai Date: Thu, 10 Mar 2005 10:13:30 +0000 Subject: * ext/tk/tcltklib.c (lib_eventloop_ensure): mis-delete a timer handler when exit from a recursive called eventloop * ext/tk/lib/tk/timer.rb: new TkRTTimer class, which can works for a realtime operation * ext/tk/sample/tkrttimer.rb: sample of TkRTTimer class * ext/tk/lib/tk/textmark.rb: move TkTextMark#+ and TkTextMark#- to TkText::IndexModMethods * ext/tk/lib/tk/text.rb: improve TkTextMark#+ and TkTextMark#-, and add them to TkText::IndexModMethods module * ext/tk/sample/tktextio.rb: add test part of "seek by text index modifiers" git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8133 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/tk/sample/demos-en/widget | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'ext/tk/sample/demos-en') diff --git a/ext/tk/sample/demos-en/widget b/ext/tk/sample/demos-en/widget index b8073a05da..43880e6d23 100644 --- a/ext/tk/sample/demos-en/widget +++ b/ext/tk/sample/demos-en/widget @@ -517,10 +517,10 @@ end # txt - Name of text widget # index - The index of the character that the user clicked on. -def invoke (txt, index) - tag = txt.tag_names(index).find{|t| t.kind_of?(String) && t =~ /^demo-/} +def invoke (txt, idx) + tag = txt.tag_names(idx).find{|t| t.kind_of?(String) && t =~ /^demo-/} return unless tag - cursor = txt.cget('cursor') + current_cursor = txt.cget('cursor') txt.cursor('watch') Tk.update # eval `cat #{tag[5..-1]}.rb` @@ -528,9 +528,9 @@ def invoke (txt, index) eval IO.readlines("#{[$demo_dir, tag[5..-1]].join(File::Separator)}.rb").join Tk.update # txt.cursor('xterm') - txt.cursor(cursor) + txt.cursor(current_cursor) - $tag_visited.add("#{index} linestart +1 chars", "#{index} lineend +1 chars") + $tag_visited.add("#{idx} linestart +1 chars", "#{idx} lineend +1 chars") end # showStatus -- @@ -791,7 +791,7 @@ end # def aboutBox Tk.messageBox('icon'=>'info', 'type'=>'ok', 'title'=>'About Widget Demo', - 'message'=>"Ruby/Tk widget demonstration Ver.1.5.2-en\n\n" + + 'message'=>"Ruby/Tk widget demonstration Ver.1.5.3-en\n\n" + "based on demos of Tk8.1 -- 8.5 " + "( Copyright:: " + "(c) 1996-1997 Sun Microsystems, Inc. / " + -- cgit v1.2.3