add Edit menu to Catalog symbol dialog

10 files changed, 42 insertions, 0 deletions

diff --git a/ds9/doc/release/r8.0.html b/ds9/doc/release/r8.0.html
index e8ec261..0ba80c6 100644
--- a/ds9/doc/release/r8.0.html
+++ b/ds9/doc/release/r8.0.html
@@ -18,6 +18,7 @@
         <li><tt>06.12.2018 CATALOG: GUI now uses a conesearch radius for query.</tt></li>
         <li><tt>06.12.2018 SIA: GUI now uses a conesearch radius for query.</tt></li>
         <li><tt>06.13.2018 FITSY++: be sure to output REAL header keywords with scientific notation with capital 'E', per FITS standard.</tt></li>
+        <li><tt>06.14.2018 CATALOG: add Edit menu to Symbol dialog.</tt></li>
         <li><tt><b>xx.xx.2018 RELEASE version 8.0b1</b></tt></li>
       </ol>
     </ol>
diff --git a/ds9/library/catsym.tcl b/ds9/library/catsym.tcl
index 7b91ff2..0b1346d 100644
--- a/ds9/library/catsym.tcl
+++ b/ds9/library/catsym.tcl
@@ -77,6 +77,7 @@ proc CATSymDialog {parent} {
 
     Toplevel $w $mb 7 [msgcat::mc {Symbol Editor}] "CATSymDestroy $varname"
     $mb add cascade -label [msgcat::mc {File}] -menu $mb.file
+    $mb add cascade -label [msgcat::mc {Edit}] -menu $mb.edit
 
     # menu
     menu $mb.file
@@ -96,6 +97,14 @@ proc CATSymDialog {parent} {
     $mb.file add command -label [msgcat::mc {Close}] \
 	-command "CATSymDestroy $varname"
 
+    menu $mb.edit
+    $mb.edit add command -label [msgcat::mc {Cut}] \
+	-command "EntryCut $var(top)" -accelerator "${ds9(ctrl)}X"
+    $mb.edit add command -label [msgcat::mc {Copy}] \
+	-command "EntryCopy $var(top)" -accelerator "${ds9(ctrl)}C"
+    $mb.edit add command -label [msgcat::mc {Paste}] \
+	-command "EntryPaste $var(top)" -accelerator "${ds9(ctrl)}V"
+
     # Param
     set f [ttk::frame $w.param]
 
diff --git a/ds9/msgs/cs.msg b/ds9/msgs/cs.msg
index 877b2c2..5eab686 100644
--- a/ds9/msgs/cs.msg
+++ b/ds9/msgs/cs.msg
@@ -597,6 +597,7 @@
 ::msgcat::mcset cs {Play} 
 ::msgcat::mcset cs {Please Select a Region} 
 ::msgcat::mcset cs {Please change the file's permission to disable other users write access. Use anyway?} 
+::msgcat::mcset cs {Please specify radius and either name or (ra,dec)} 
 ::msgcat::mcset cs {Please specify width, height, and either name or (ra,dec)} 
 ::msgcat::mcset cs {Plot 2D} 
 ::msgcat::mcset cs {Plot 3D} 
@@ -714,6 +715,7 @@
 ::msgcat::mcset cs {Show/Hide Frames} [encoding convertfrom iso8859-2 {Zobrazit/skrýt snímky}]
 ::msgcat::mcset cs {Show} 
 ::msgcat::mcset cs {Simple Cross} 
+::msgcat::mcset cs {Simple Image Access} 
 ::msgcat::mcset cs {Simple Plus} 
 ::msgcat::mcset cs {Single Frame} [encoding convertfrom iso8859-2 {Jeden snímek}]
 ::msgcat::mcset cs {Single} [encoding convertfrom iso8859-2 {jeden}]
@@ -787,7 +789,9 @@
 ::msgcat::mcset cs {Unable to find URL column} 
 ::msgcat::mcset cs {Unable to find catalog window} 
 ::msgcat::mcset cs {Unable to find plot window} 
+::msgcat::mcset cs {Unable to find web window} 
 ::msgcat::mcset cs {Unable to load RGB image into a non-rgb frame} 
+::msgcat::mcset cs {Unable to load plot data} 
 ::msgcat::mcset cs {Unable to load region file} 
 ::msgcat::mcset cs {Unable to load} 
 ::msgcat::mcset cs {Unable to locate URL} 
diff --git a/ds9/msgs/da.msg b/ds9/msgs/da.msg
index 84a7625..739225e 100644
--- a/ds9/msgs/da.msg
+++ b/ds9/msgs/da.msg
@@ -597,6 +597,7 @@
 ::msgcat::mcset da {Play} {Afspil}
 ::msgcat::mcset da {Please Select a Region} 
 ::msgcat::mcset da {Please change the file's permission to disable other users write access. Use anyway?} 
+::msgcat::mcset da {Please specify radius and either name or (ra,dec)} 
 ::msgcat::mcset da {Please specify width, height, and either name or (ra,dec)} [encoding convertfrom iso8859-1 {angiv venligst bredde, højde, og enten navn eller (ra,dec)}]
 ::msgcat::mcset da {Plot 2D} 
 ::msgcat::mcset da {Plot 3D} 
@@ -714,6 +715,7 @@
 ::msgcat::mcset da {Show/Hide Frames} {Vis/skjul rammer}
 ::msgcat::mcset da {Show} {Vis}
 ::msgcat::mcset da {Simple Cross} 
+::msgcat::mcset da {Simple Image Access} 
 ::msgcat::mcset da {Simple Plus} 
 ::msgcat::mcset da {Single Frame} {Enkel ramme}
 ::msgcat::mcset da {Single} {Enkel}
@@ -787,7 +789,9 @@
 ::msgcat::mcset da {Unable to find URL column} 
 ::msgcat::mcset da {Unable to find catalog window} {Kan ikke finde katalog vinduet}
 ::msgcat::mcset da {Unable to find plot window} {kan ikke finde plotte vinduet}
+::msgcat::mcset da {Unable to find web window} 
 ::msgcat::mcset da {Unable to load RGB image into a non-rgb frame} {Kan ikke hente et RGB billede ind i en ikke-RGB ramme}
+::msgcat::mcset da {Unable to load plot data} 
 ::msgcat::mcset da {Unable to load region file} 
 ::msgcat::mcset da {Unable to load} {Kan ikke hente}
 ::msgcat::mcset da {Unable to locate URL} {Kan ikke finde URL}
diff --git a/ds9/msgs/de.msg b/ds9/msgs/de.msg
index a7d08a6..1443439 100644
--- a/ds9/msgs/de.msg
+++ b/ds9/msgs/de.msg
@@ -597,6 +597,7 @@
 ::msgcat::mcset de {Play} {Abspielen}
 ::msgcat::mcset de {Please Select a Region} 
 ::msgcat::mcset de {Please change the file's permission to disable other users write access. Use anyway?} 
+::msgcat::mcset de {Please specify radius and either name or (ra,dec)} 
 ::msgcat::mcset de {Please specify width, height, and either name or (ra,dec)} [encoding convertfrom iso8859-1 {Bitte Weite, Höhe und entweder Namen oder (RA,Dec) angeben}]
 ::msgcat::mcset de {Plot 2D} 
 ::msgcat::mcset de {Plot 3D} 
@@ -714,6 +715,7 @@
 ::msgcat::mcset de {Show/Hide Frames} {Rahmen zeigen/verstecken}
 ::msgcat::mcset de {Show} 
 ::msgcat::mcset de {Simple Cross} 
+::msgcat::mcset de {Simple Image Access} 
 ::msgcat::mcset de {Simple Plus} 
 ::msgcat::mcset de {Single Frame} {Einzelner rahmen}
 ::msgcat::mcset de {Single} {Einzeln}
@@ -787,7 +789,9 @@
 ::msgcat::mcset de {Unable to find URL column} 
 ::msgcat::mcset de {Unable to find catalog window} [encoding convertfrom iso8859-1 {Nicht möglich Katalogfenster zu finden}]
 ::msgcat::mcset de {Unable to find plot window} [encoding convertfrom iso8859-1 {Nicht möglich Plotfenster zu finden}]
+::msgcat::mcset de {Unable to find web window} 
 ::msgcat::mcset de {Unable to load RGB image into a non-rgb frame} [encoding convertfrom iso8859-1 {Nicht möglich RGB-Bild in nicht-RGB-rahmen zu laden}]
+::msgcat::mcset de {Unable to load plot data} 
 ::msgcat::mcset de {Unable to load region file} 
 ::msgcat::mcset de {Unable to load} [encoding convertfrom iso8859-1 {Nicht möglich zu laden}]
 ::msgcat::mcset de {Unable to locate URL} [encoding convertfrom iso8859-1 {Nicht möglich URL zu finden}]
diff --git a/ds9/msgs/es.msg b/ds9/msgs/es.msg
index 821a6a0..b5c9680 100644
--- a/ds9/msgs/es.msg
+++ b/ds9/msgs/es.msg
@@ -597,6 +597,7 @@
 ::msgcat::mcset es {Play} 
 ::msgcat::mcset es {Please Select a Region} 
 ::msgcat::mcset es {Please change the file's permission to disable other users write access. Use anyway?} 
+::msgcat::mcset es {Please specify radius and either name or (ra,dec)} 
 ::msgcat::mcset es {Please specify width, height, and either name or (ra,dec)} {Por farvor, especifique el ancho, altura, y nombre o (A.R.,Dec.)}
 ::msgcat::mcset es {Plot 2D} 
 ::msgcat::mcset es {Plot 3D} 
@@ -714,6 +715,7 @@
 ::msgcat::mcset es {Show/Hide Frames} {Mostar/ocultar marcos}
 ::msgcat::mcset es {Show} {Mostrar}
 ::msgcat::mcset es {Simple Cross} 
+::msgcat::mcset es {Simple Image Access} 
 ::msgcat::mcset es {Simple Plus} 
 ::msgcat::mcset es {Single Frame} [encoding convertfrom iso8859-1 {Un único marco}]
 ::msgcat::mcset es {Single} [encoding convertfrom iso8859-1 {Único}]
@@ -787,7 +789,9 @@
 ::msgcat::mcset es {Unable to find URL column} 
 ::msgcat::mcset es {Unable to find catalog window} [encoding convertfrom iso8859-1 {Incapaz de hallar la ventana de catálogo}]
 ::msgcat::mcset es {Unable to find plot window} [encoding convertfrom iso8859-1 {Incapaz de hallar la ventana gráfica}]
+::msgcat::mcset es {Unable to find web window} 
 ::msgcat::mcset es {Unable to load RGB image into a non-rgb frame} {Incapaz de cargar imagen RGB en un marco no RGB}
+::msgcat::mcset es {Unable to load plot data} 
 ::msgcat::mcset es {Unable to load region file} 
 ::msgcat::mcset es {Unable to load} {Incapaz de cargar}
 ::msgcat::mcset es {Unable to locate URL} {Incapaz de localizar URL}
diff --git a/ds9/msgs/fr.msg b/ds9/msgs/fr.msg
index c0982f5..add7a71 100644
--- a/ds9/msgs/fr.msg
+++ b/ds9/msgs/fr.msg
@@ -597,6 +597,7 @@
 ::msgcat::mcset fr {Play} {Jouer}
 ::msgcat::mcset fr {Please Select a Region} 
 ::msgcat::mcset fr {Please change the file's permission to disable other users write access. Use anyway?} 
+::msgcat::mcset fr {Please specify radius and either name or (ra,dec)} 
 ::msgcat::mcset fr {Please specify width, height, and either name or (ra,dec)} {Specifiez largeur, longeur, et autre noms possibles ou (ra,dec)}
 ::msgcat::mcset fr {Plot 2D} 
 ::msgcat::mcset fr {Plot 3D} 
@@ -714,6 +715,7 @@
 ::msgcat::mcset fr {Show/Hide Frames} [encoding convertfrom iso8859-1 {Montrer/Cacher les fenêtres}]
 ::msgcat::mcset fr {Show} 
 ::msgcat::mcset fr {Simple Cross} 
+::msgcat::mcset fr {Simple Image Access} 
 ::msgcat::mcset fr {Simple Plus} 
 ::msgcat::mcset fr {Single Frame} 
 ::msgcat::mcset fr {Single} 
@@ -787,7 +789,9 @@
 ::msgcat::mcset fr {Unable to find URL column} 
 ::msgcat::mcset fr {Unable to find catalog window} 
 ::msgcat::mcset fr {Unable to find plot window} 
+::msgcat::mcset fr {Unable to find web window} 
 ::msgcat::mcset fr {Unable to load RGB image into a non-rgb frame} 
+::msgcat::mcset fr {Unable to load plot data} 
 ::msgcat::mcset fr {Unable to load region file} 
 ::msgcat::mcset fr {Unable to load} 
 ::msgcat::mcset fr {Unable to locate URL} 
diff --git a/ds9/msgs/ja.msg b/ds9/msgs/ja.msg
index b593761..f557e0e 100644
--- a/ds9/msgs/ja.msg
+++ b/ds9/msgs/ja.msg
@@ -597,6 +597,7 @@
 ::msgcat::mcset ja {Play} [encoding convertfrom euc-jp "\xba\xc6\xc0\xb8"]
 ::msgcat::mcset ja {Please Select a Region} [encoding convertfrom euc-jp "\xce\xce\xb0\xe8\xa4\xf2\xbb\xd8\xc4\xea\xa4\xb7\xa4\xc6\xa4\xaf\xa4\xc0\xa4\xb5\xa4\xa4\xa1\xa3"]
 ::msgcat::mcset ja {Please change the file's permission to disable other users write access. Use anyway?} 
+::msgcat::mcset ja {Please specify radius and either name or (ra,dec)} 
 ::msgcat::mcset ja {Please specify width, height, and either name or (ra,dec)} [encoding convertfrom euc-jp "\xc9\xfd\xa1\xa2\xb9\xe2\xa4\xb5\xa1\xa2\xcc\xbe\xc1\xb0\xa4\xe2\xa4\xb7\xa4\xaf\xa4\xcf\x20\x28\x72\x61\x2c\x64\x65\x63\x29\x20\xa4\xf2\xbb\xd8\xc4\xea\xa4\xb7\xa4\xc6\xa4\xaf\xa4\xc0\xa4\xb5\xa4\xa4\xa1\xa3"]
 ::msgcat::mcset ja {Plot 2D} 
 ::msgcat::mcset ja {Plot 3D} 
@@ -714,6 +715,7 @@
 ::msgcat::mcset ja {Show/Hide Frames} [encoding convertfrom euc-jp "\xa5\xd5\xa5\xec\xa1\xbc\xa5\xe0\xa4\xce\xc9\xbd\xbc\xa8\x2f\xc8\xf3\xc9\xbd\xbc\xa8"]
 ::msgcat::mcset ja {Show} [encoding convertfrom euc-jp "\xc9\xbd\xbc\xa8"]
 ::msgcat::mcset ja {Simple Cross} 
+::msgcat::mcset ja {Simple Image Access} 
 ::msgcat::mcset ja {Simple Plus} 
 ::msgcat::mcset ja {Single Frame} [encoding convertfrom euc-jp "\xc3\xb1\xb0\xec\xa5\xd5\xa5\xec\xa1\xbc\xa5\xe0"]
 ::msgcat::mcset ja {Single} [encoding convertfrom euc-jp "\xc3\xb1\xb0\xec"]
@@ -787,7 +789,9 @@
 ::msgcat::mcset ja {Unable to find URL column} 
 ::msgcat::mcset ja {Unable to find catalog window} [encoding convertfrom euc-jp "\xa5\xab\xa5\xbf\xa5\xed\xa5\xb0\xa5\xa6\xa5\xa3\xa5\xf3\xa5\xc9\xa5\xa6\xa4\xac\xb8\xab\xa4\xc4\xa4\xab\xa4\xea\xa4\xde\xa4\xbb\xa4\xf3\xa1\xa3"]
 ::msgcat::mcset ja {Unable to find plot window} [encoding convertfrom euc-jp "\xa5\xd7\xa5\xed\xa5\xc3\xa5\xc8\xa5\xa6\xa5\xa3\xa5\xf3\xa5\xc9\xa5\xa6\xa4\xac\xb8\xab\xa4\xc4\xa4\xab\xa4\xea\xa4\xde\xa4\xbb\xa4\xf3\xa1\xa3"]
+::msgcat::mcset ja {Unable to find web window} 
 ::msgcat::mcset ja {Unable to load RGB image into a non-rgb frame} [encoding convertfrom euc-jp "\x52\x42\x47\xa5\xa4\xa5\xe1\xa1\xbc\xa5\xb8\xa4\xf2\xc8\xf3\x52\x47\x42\xa5\xd5\xa5\xec\xa1\xbc\xa5\xe0\xa4\xcb\xc6\xc9\xa4\xdf\xb9\xfe\xa4\xe1\xa4\xde\xa4\xbb\xa4\xf3\xa1\xa3"]
+::msgcat::mcset ja {Unable to load plot data} 
 ::msgcat::mcset ja {Unable to load region file} [encoding convertfrom euc-jp "\xce\xce\xb0\xe8\xa5\xd5\xa5\xa1\xa5\xa4\xa5\xeb\xa4\xf2\xc6\xc9\xa4\xdf\xb9\xfe\xa4\xe1\xa4\xde\xa4\xbb\xa4\xf3\xa1\xa3"]
 ::msgcat::mcset ja {Unable to load} [encoding convertfrom euc-jp "\xc6\xc9\xa4\xdf\xb9\xfe\xa4\xe1\xa4\xde\xa4\xbb\xa4\xf3\xa1\xa3"]
 ::msgcat::mcset ja {Unable to locate URL} [encoding convertfrom euc-jp "\x55\x52\x4c\xa4\xf2\xc6\xc3\xc4\xea\xa4\xc7\xa4\xad\xa4\xde\xa4\xbb\xa4\xf3\xa1\xa3"]
diff --git a/ds9/msgs/pt.msg b/ds9/msgs/pt.msg
index 938ce82..e482ee8 100644
--- a/ds9/msgs/pt.msg
+++ b/ds9/msgs/pt.msg
@@ -597,6 +597,7 @@
 ::msgcat::mcset pt {Play} {Execute}
 ::msgcat::mcset pt {Please Select a Region} 
 ::msgcat::mcset pt {Please change the file's permission to disable other users write access. Use anyway?} 
+::msgcat::mcset pt {Please specify radius and either name or (ra,dec)} 
 ::msgcat::mcset pt {Please specify width, height, and either name or (ra,dec)} 
 ::msgcat::mcset pt {Plot 2D} 
 ::msgcat::mcset pt {Plot 3D} 
@@ -714,6 +715,7 @@
 ::msgcat::mcset pt {Show/Hide Frames} {Mostra/Esconde Frames}
 ::msgcat::mcset pt {Show} {Mostrar}
 ::msgcat::mcset pt {Simple Cross} 
+::msgcat::mcset pt {Simple Image Access} 
 ::msgcat::mcset pt {Simple Plus} 
 ::msgcat::mcset pt {Single Frame} [encoding convertfrom iso8859-1 {Frame Único}]
 ::msgcat::mcset pt {Single} [encoding convertfrom iso8859-1 {Único}]
@@ -787,7 +789,9 @@
 ::msgcat::mcset pt {Unable to find URL column} 
 ::msgcat::mcset pt {Unable to find catalog window} [encoding convertfrom iso8859-1 {Incapaz de encontrar janela do catálogo}]
 ::msgcat::mcset pt {Unable to find plot window} [encoding convertfrom iso8859-1 {Incapaz de encontrar janela de gráfico}]
+::msgcat::mcset pt {Unable to find web window} 
 ::msgcat::mcset pt {Unable to load RGB image into a non-rgb frame} [encoding convertfrom iso8859-1 {Incapaz de carregar imagem RGB em um frame não RGB}]
+::msgcat::mcset pt {Unable to load plot data} 
 ::msgcat::mcset pt {Unable to load region file} 
 ::msgcat::mcset pt {Unable to load} {Incapaz de carregar}
 ::msgcat::mcset pt {Unable to locate URL} {Incapaz de localizar URL}
diff --git a/ds9/msgs/zh.msg b/ds9/msgs/zh.msg
index 31efc56..313c7fa 100644
--- a/ds9/msgs/zh.msg
+++ b/ds9/msgs/zh.msg
@@ -597,6 +597,7 @@
 ::msgcat::mcset zh {Play} 
 ::msgcat::mcset zh {Please Select a Region} 
 ::msgcat::mcset zh {Please change the file's permission to disable other users write access. Use anyway?} 
+::msgcat::mcset zh {Please specify radius and either name or (ra,dec)} 
 ::msgcat::mcset zh {Please specify width, height, and either name or (ra,dec)} 
 ::msgcat::mcset zh {Plot 2D} 
 ::msgcat::mcset zh {Plot 3D} 
@@ -714,6 +715,7 @@
 ::msgcat::mcset zh {Show/Hide Frames} 
 ::msgcat::mcset zh {Show} [encoding convertfrom big5 "\xC5\xE3 \xA5\xDC"]
 ::msgcat::mcset zh {Simple Cross} 
+::msgcat::mcset zh {Simple Image Access} 
 ::msgcat::mcset zh {Simple Plus} 
 ::msgcat::mcset zh {Single Frame} [encoding convertfrom big5 "\xB3\xE6 \xA4\x40 \xBC\x76 \xB9\xB3 \xB5\xF8 \xB5\xA1"]
 ::msgcat::mcset zh {Single} [encoding convertfrom big5 "\xB3\xE6 \xA4\x40"]
@@ -787,7 +789,9 @@
 ::msgcat::mcset zh {Unable to find URL column} 
 ::msgcat::mcset zh {Unable to find catalog window} 
 ::msgcat::mcset zh {Unable to find plot window} 
+::msgcat::mcset zh {Unable to find web window} 
 ::msgcat::mcset zh {Unable to load RGB image into a non-rgb frame} 
+::msgcat::mcset zh {Unable to load plot data} 
 ::msgcat::mcset zh {Unable to load region file} 
 ::msgcat::mcset zh {Unable to load} 
 ::msgcat::mcset zh {Unable to locate URL}