diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-01-24 22:36:36 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-01-24 22:36:36 +0000 |
commit | 64f0164c4a7a9b430c5c89161753161f28334b1f (patch) | |
tree | abe049630daf7b557a848e011a4bd0fc601e4b92 /buttonbar-plugin.tcl | |
parent | 6b9a70bcb973d931933439776f5ba87f63298b7a (diff) |
added balloon help tooltips
svn path=/trunk/scripts/guiplugins/buttonbar-plugin/; revision=14815
Diffstat (limited to 'buttonbar-plugin.tcl')
-rw-r--r-- | buttonbar-plugin.tcl | 38 |
1 files changed, 21 insertions, 17 deletions
diff --git a/buttonbar-plugin.tcl b/buttonbar-plugin.tcl index 8eafe29..c14e6e3 100644 --- a/buttonbar-plugin.tcl +++ b/buttonbar-plugin.tcl @@ -6,42 +6,46 @@ # menubar will be removed. package require base64 +#package require buttonhelp +eval [read [open [file join $::current_plugin_loadpath balloonhelp.tcl]]] -proc make_pd_button {mytoplevel name} { +proc make_pd_button {mytoplevel name description} { button $mytoplevel.buttonbar.$name -image buttonimage$name \ -relief flat -borderwidth 0 -highlightthickness 0 \ -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 } -proc make_iemgui_button {mytoplevel name} { +proc make_iemgui_button {mytoplevel name description} { button $mytoplevel.buttonbar.$name -image buttonimage$name \ -relief sunken -borderwidth 0 -highlightthickness 0 \ -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 } proc showhide_buttonbar {mytoplevel} { if { ! [winfo exists $mytoplevel.buttonbar]} { frame $mytoplevel.buttonbar -cursor arrow -background grey \ -pady 0 - make_pd_button $mytoplevel obj - make_pd_button $mytoplevel msg - make_pd_button $mytoplevel floatatom - make_pd_button $mytoplevel symbolatom - make_pd_button $mytoplevel text - make_iemgui_button $mytoplevel bng - make_iemgui_button $mytoplevel toggle - make_iemgui_button $mytoplevel numbox - make_iemgui_button $mytoplevel hslider - make_iemgui_button $mytoplevel vslider - make_iemgui_button $mytoplevel hradio - make_iemgui_button $mytoplevel vradio - make_iemgui_button $mytoplevel vumeter - make_iemgui_button $mytoplevel mycnv - make_iemgui_button $mytoplevel menuarray + make_pd_button $mytoplevel obj {Object (obj)} + make_pd_button $mytoplevel msg {Message (msg)} + make_pd_button $mytoplevel floatatom {Number (floatatom)} + make_pd_button $mytoplevel symbolatom {Symbol (symbolatom)} + make_pd_button $mytoplevel text {Comment} + make_iemgui_button $mytoplevel bng {Bang Button \[bng]} + make_iemgui_button $mytoplevel toggle {Toggle \[tgl]} + make_iemgui_button $mytoplevel numbox {Number2 \[my_numbox]} + make_iemgui_button $mytoplevel hslider {Horizontal Slider \[hslider]} + make_iemgui_button $mytoplevel vslider {Verical Slider \[vslider]} + make_iemgui_button $mytoplevel hradio {Horizontal Radio Button \[hradio]} + make_iemgui_button $mytoplevel vradio {Vertical Radio Button \[vradio]} + make_iemgui_button $mytoplevel vumeter {VU Meter \[vumeter]} + make_iemgui_button $mytoplevel mycnv {Canvas \[mycnv]} + make_iemgui_button $mytoplevel menuarray {Array (menuarray)} } if {$::editmode($mytoplevel)} { set tkcanvas [tkcanvas_name $mytoplevel] |