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, 0 insertions, 194 deletions
diff --git a/ruby_1_8_5/ext/tk/sample/tkballoonhelp.rb b/ruby_1_8_5/ext/tk/sample/tkballoonhelp.rb deleted file mode 100644 index c2c95f771d..0000000000 --- a/ruby_1_8_5/ext/tk/sample/tkballoonhelp.rb +++ /dev/null @@ -1,194 +0,0 @@ -# -# 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 |