35 lines
1.0 KiB
Tcl
35 lines
1.0 KiB
Tcl
######################################################################
|
|
# Visual Menu Helper Functions - Bertrand Irissou
|
|
######################################################################
|
|
|
|
###
|
|
### Add a menu button to the Magic wrapper window for the toolkit
|
|
###
|
|
proc magic::add_menu {framename toolname button_text } {
|
|
menubutton ${framename}.titlebar.mbuttons.${toolname} \
|
|
-text $button_text \
|
|
-relief raised \
|
|
-menu ${framename}.titlebar.mbuttons.${toolname}.toolmenu \
|
|
-borderwidth 2
|
|
|
|
menu ${framename}.titlebar.mbuttons.${toolname}.toolmenu -tearoff 0
|
|
pack ${framename}.titlebar.mbuttons.${toolname} -side left
|
|
}
|
|
|
|
###
|
|
### Add a command item to the toolkit menu
|
|
###
|
|
proc magic::add_menu_command {framename toolname button_text command} {
|
|
set m ${framename}.titlebar.mbuttons.${toolname}.toolmenu
|
|
$m add command -label "$button_text" -command $command
|
|
}
|
|
|
|
###
|
|
### Add a separator to a menu
|
|
###
|
|
proc magic::add_menu_separator {framename toolname} {
|
|
set m ${framename}.titlebar.mbuttons.${toolname}.toolmenu
|
|
$m add separator
|
|
}
|
|
|