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