Posted to tcl by rjhobart at Thu Dec 26 16:08:37 GMT 2019view raw

  1. #!/usr/bin/env tclsh
  2. package require Tk
  3. #.... more code ....
  4. proc creategui {} {
  5. wm title . "PrePressActions"
  6. menu .mbar
  7. . configure -menu .mbar
  8. #create file on main menu
  9. .mbar add cascade -label Converting -menu .mbar.file -underline 0
  10. menu .mbar.file
  11. # Create the menu items under File - now called by label Negatives
  12. .mbar.file add cascade -label {Open PDF,EPS,PS and Separate to tiffs... Ctl-p} -menu .mbar.file.open -underline 0 \
  13. -command {openPDFtoTiff}
  14. # more menu setups ......
  15. # Throws error HERE on linux debian but works perfect on macs.
  16. # invalid command name ".mbar.file.open"
  17. # invoked from within ".#mbar.#mbar#file postcascade active
  18. # bind short cut keys for the menu
  19. bind . <Control-p> {openPDFtoTiff}
  20. bind . <Command-p> {openPDFtoTiff}
  21. }
  22. creategui

AltStyle によって変換されたページ (->オリジナル) /