diff options
Diffstat (limited to 'ruby_1_8_5/ext/tk/sample/tkballoonhelp.rb')
| -rw-r--r-- | ruby_1_8_5/ext/tk/sample/tkballoonhelp.rb | 194 |
1 files changed, 194 insertions, 0 deletions
diff --git a/ruby_1_8_5/ext/tk/sample/tkballoonhelp.rb b/ruby_1_8_5/ext/tk/sample/tkballoonhelp.rb new file mode 100644 index 0000000000..c2c95f771d --- /dev/null +++ b/ruby_1_8_5/ext/tk/sample/tkballoonhelp.rb @@ -0,0 +1,194 @@ +# +# tkballoonhelp.rb : simple balloon help widget +# by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp) +# +# Add a balloon help to a widget. +# This widget has only poor featureas. If you need more useful features, +# please try to use the Tix extension of Tcl/Tk under Ruby/Tk. +# +# The interval time to display a balloon help is defined 'interval' option +# (default is 1000ms). +# +require 'tk' + +class TkBalloonHelp<TkLabel + def _balloon_binding(interval) + @timer = TkAfter.new(interval, 1, proc{show}) + def @timer.interval(val) + @sleep_time = val + end + @bindtag = TkBindTag.new + @bindtag.bind('Enter', proc{@timer.start}) + @bindtag.bind('Motion', proc{@timer.restart; erase}) + @bindtag.bind('Any-ButtonPress', proc{@timer.restart; erase}) + @bindtag.bind('Leave', proc{@timer.stop; erase}) + tags = @parent.bindtags + idx = tags.index(@parent) + unless idx + ppath = TkComm.window(@parent.path) + idx = tags.index(ppath) || 0 + end + tags[idx,0] = @bindtag + @parent.bindtags(tags) + end + private :_balloon_binding + + def initialize(parent=nil, keys={}) + @parent = parent || Tk.root + + @frame = TkToplevel.new(@parent) + @frame.withdraw + @frame.overrideredirect(true) + @frame.transient(TkWinfo.toplevel(@parent)) + @epath = @frame.path + + if keys + keys = _symbolkey2str(keys) + else + keys = {} + end + + @command = keys.delete('command') + + @interval = keys.delete('interval'){1000} + _balloon_binding(@interval) + + @label = TkLabel.new(@frame, 'background'=>'bisque').pack + @label.configure(_symbolkey2str(keys)) unless keys.empty? + @path = @label + end + + def epath + @epath + end + + def interval(val) + if val + @timer.interval(val) + else + @interval + end + end + + def command(cmd = Proc.new) + @command = cmd + self + end + + def show + x = TkWinfo.pointerx(@parent) + y = TkWinfo.pointery(@parent) + @frame.geometry("+#{x+1}+#{y+1}") + + if @command + case @command.arity + when 0 + @command.call + when 2 + @command.call(x - TkWinfo.rootx(@parent), y - TkWinfo.rooty(@parent)) + when 3 + @command.call(x - TkWinfo.rootx(@parent), y - TkWinfo.rooty(@parent), + self) + else + @command.call(x - TkWinfo.rootx(@parent), y - TkWinfo.rooty(@parent), + self, @parent) + end + end + + @frame.deiconify + @frame.raise + + @org_cursor = @parent['cursor'] + @parent.cursor('crosshair') + end + + def erase + @parent.cursor(@org_cursor) + @frame.withdraw + end + + def destroy + @frame.destroy + end +end + +################################################ +# test +################################################ +if __FILE__ == $0 + TkButton.new('text'=>'This button has a balloon help') {|b| + pack('fill'=>'x') + TkBalloonHelp.new(b, 'text'=>' Message ') + } + TkButton.new('text'=>'This button has another balloon help') {|b| + pack('fill'=>'x') + TkBalloonHelp.new(b, 'text'=>'configured message', + 'interval'=>200, 'font'=>'courier', + 'background'=>'gray', 'foreground'=>'red') + } + + sb = TkScrollbox.new.pack(:fill=>:x) + sb.insert(:end, *%w(aaa bbb ccc ddd eee fff ggg hhh iii jjj kkk lll mmm)) +=begin + # CASE1 : command takes no arguemnt + bh = TkBalloonHelp.new(sb, :interval=>500, + :relief=>:ridge, :background=>'white', + :command=>proc{ + y = TkWinfo.pointery(sb) - TkWinfo.rooty(sb) + bh.text "current index == #{sb.nearest(y)}" + }) +=end +=begin + # CASE2 : command takes 2 arguemnts + bh = TkBalloonHelp.new(sb, :interval=>500, + :relief=>:ridge, :background=>'white', + :command=>proc{|x, y| + bh.text "current index == #{sb.nearest(y)}" + }) +=end +=begin + # CASE3 : command takes 3 arguemnts + TkBalloonHelp.new(sb, :interval=>500, + :relief=>:ridge, :background=>'white', + :command=>proc{|x, y, bhelp| + bhelp.text "current index == #{sb.nearest(y)}" + }) +=end +=begin + # CASE4a : command is a Proc object and takes 4 arguemnts + cmd = proc{|x, y, bhelp, parent| + bhelp.text "current index == #{parent.nearest(y)}" + } + + TkBalloonHelp.new(sb, :interval=>500, + :relief=>:ridge, :background=>'white', + :command=>cmd) + + sb2 = TkScrollbox.new.pack(:fill=>:x) + sb2.insert(:end, *%w(AAA BBB CCC DDD EEE FFF GGG HHH III JJJ KKK LLL MMM)) + TkBalloonHelp.new(sb2, :interval=>500, + :padx=>5, :relief=>:raised, + :background=>'gray25', :foreground=>'white', + :command=>cmd) +=end +#=begin + # CASE4b : command is a Method object and takes 4 arguemnts + def set_msg(x, y, bhelp, parent) + bhelp.text "current index == #{parent.nearest(y)}" + end + cmd = self.method(:set_msg) + + TkBalloonHelp.new(sb, :interval=>500, + :relief=>:ridge, :background=>'white', + :command=>cmd) + + sb2 = TkScrollbox.new.pack(:fill=>:x) + sb2.insert(:end, *%w(AAA BBB CCC DDD EEE FFF GGG HHH III JJJ KKK LLL MMM)) + TkBalloonHelp.new(sb2, :interval=>500, + :padx=>5, :relief=>:raised, + :background=>'gray25', :foreground=>'white', + :command=>cmd) +#=end + + Tk.mainloop +end |