diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-01-25 00:31:36 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-01-25 00:31:36 +0000 |
commit | c599e009061af49582e619ccdeca2a749ee3ab15 (patch) | |
tree | 7f54c77a0adc9d247e6da474d2a02b831ba81e26 /buttonbar-plugin.tcl | |
parent | 64f0164c4a7a9b430c5c89161753161f28334b1f (diff) |
converted to use tcllib's tooltip package
svn path=/trunk/scripts/guiplugins/buttonbar-plugin/; revision=14816
Diffstat (limited to 'buttonbar-plugin.tcl')
-rw-r--r-- | buttonbar-plugin.tcl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/buttonbar-plugin.tcl b/buttonbar-plugin.tcl index c14e6e3..f2975c3 100644 --- a/buttonbar-plugin.tcl +++ b/buttonbar-plugin.tcl @@ -5,9 +5,10 @@ # not in Edit Mode. Also, if a patch is switched to Run Mode, the # menubar will be removed. +lappend ::auto_path $::current_plugin_loadpath + package require base64 -#package require buttonhelp -eval [read [open [file join $::current_plugin_loadpath balloonhelp.tcl]]] +package require tooltip 1.4.2 proc make_pd_button {mytoplevel name description} { button $mytoplevel.buttonbar.$name -image buttonimage$name \ @@ -15,7 +16,7 @@ proc make_pd_button {mytoplevel name description} { -highlightcolor grey -highlightbackground grey -padx 0 -pady 0 \ -command "menu_send_float \$::focused_window $name 0" pack $mytoplevel.buttonbar.$name -side left -padx 0 -pady 0 - balloonhelp::setBalloonHelp $mytoplevel.buttonbar.$name $description + ::tooltip::tooltip $mytoplevel.buttonbar.$name $description } proc make_iemgui_button {mytoplevel name description} { @@ -24,7 +25,7 @@ proc make_iemgui_button {mytoplevel name description} { -highlightcolor grey -highlightbackground grey -padx 0 -pady 0 \ -command "menu_send \$::focused_window $name" pack $mytoplevel.buttonbar.$name -side left -padx 0 -pady 0 - balloonhelp::setBalloonHelp $mytoplevel.buttonbar.$name $description + ::tooltip::tooltip $mytoplevel.buttonbar.$name $description } proc showhide_buttonbar {mytoplevel} { |