Posted to tcl by rhobart at Fri Dec 06 20:44:16 GMT 2024view raw

  1. .mbar add cascade -label [msgcat::mc "m_Vector"] -menu .mbar.vector -underline 0
  2. menu .mbar.vector
  3. .mbar.vector add command -label [msgcat::mc "m_openBitmapPBMCreatePS"] \
  4. -command "openBitmapPBMCreatePS"
  5. .mbar.vector add separator
  6. .mbar.vector add command -label [msgcat::mc "m_openImageCreatePBM"] \
  7. -command "openImageCreatePBM"