Posted to tcl by rjhobart at Thu Dec 26 16:08:37 GMT 2019view pretty
#!/usr/bin/env tclsh package require Tk #.... more code .... proc creategui {} { wm title . "PrePressActions" menu .mbar . configure -menu .mbar #create file on main menu .mbar add cascade -label Converting -menu .mbar.file -underline 0 menu .mbar.file # Create the menu items under File - now called by label Negatives .mbar.file add cascade -label {Open PDF,EPS,PS and Separate to tiffs... Ctl-p} -menu .mbar.file.open -underline 0 \ -command {openPDFtoTiff} # more menu setups ...... # Throws error HERE on linux debian but works perfect on macs. # invalid command name ".mbar.file.open" # invoked from within ".#mbar.#mbar#file postcascade active # bind short cut keys for the menu bind . <Control-p> {openPDFtoTiff} bind . <Command-p> {openPDFtoTiff} } creategui