From 8219d8b8c3e785780e52606d12d0b66552f4a044 Mon Sep 17 00:00:00 2001
From: Alex Plotnikov <aplsimple@gmail.com>
Date: Wed, 24 Jan 2024 20:36:38 +0300
Subject: [PATCH] v1.3

---
 aloupe.tcl   |  6 +++---
 msgs/de.msg  | 12 ++++++++++++
 msgs/es.msg  | 13 +++++++++++++
 msgs/ru.msg  |  1 +
 msgs/uk.msg  |  1 +
 pkgIndex.tcl |  2 +-
 6 files changed, 31 insertions(+), 4 deletions(-)
 create mode 100644 msgs/de.msg
 create mode 100644 msgs/es.msg

diff --git a/aloupe.tcl b/aloupe.tcl
index 4029b28..fd2dbca 100644
--- a/aloupe.tcl
+++ b/aloupe.tcl
@@ -11,7 +11,7 @@
 
 package require Tk
 
-package provide aloupe 1.2
+package provide aloupe 1.3
 
 namespace eval ::aloupe {
   variable solo [expr {[info exist ::argv0] && [file normalize $::argv0] eq [file normalize [info script]]}]
@@ -446,7 +446,7 @@ proc ::aloupe::my::IsCapture {} {
 
   variable data
   if {$data(CAPTURE) eq ""} {
-    Message -title "Color of Image" -icon warning \
+    Message -title [msgcat::mc {Color of Image}] -icon warning \
       -message  [msgcat::mc "Click, then drag and drop\nthe loupe to get the image."]
     return no
   }
@@ -464,7 +464,7 @@ proc ::aloupe::my::HandleColor {{doclb yes}} {
   set res no
   if {[IsCapture]} {
     if {$data(COLOR) eq ""} {
-      Message -title "Color of Image" -icon warning \
+      Message -title [msgcat::mc {Color of Image}] -icon warning \
         -message [msgcat::mc "Click the magnified image\nto get a pixel's color.\n\nThen hit this button."]
     } else {
       if {$doclb && $data(-commandname) eq ""} {
diff --git a/msgs/de.msg b/msgs/de.msg
new file mode 100644
index 0000000..e7bbca6
--- /dev/null
+++ b/msgs/de.msg
@@ -0,0 +1,12 @@
+namespace eval ::aloupe {
+  ::msgcat::mcset de {Loupe} {Lupe}
+  ::msgcat::mcset de {To clipboard} {Zu Zwischenablage}
+  ::msgcat::mcset de {Save} {Speichern}
+  ::msgcat::mcset de {Close} {Schließen}
+  ::msgcat::mcset de {Size} {Größe}
+  ::msgcat::mcset de {Zoom} {Zoom}
+  ::msgcat::mcset de {Color of Image} {Farbe des Bildes}
+  ::msgcat::mcset de {Save the Loupe} {Bild speichern}
+  ::msgcat::mcset de "Click the magnified image\nto get a pixel's color.\n\nThen hit this button." "Klicken Sie auf das Bild, um die Farbe des Pixels zu erhalten.\n\nDrücken Sie dann diesen Knopf."
+  ::msgcat::mcset de "Click, then drag and drop\nthe loupe to get the image." "Haken Sie die Lupe mit der Maus und ziehen Sie sie über den Bildschirm.\n\nWenn Sie die Maus loslassen, erhalten Sie ein vergrößertes Bild."
+}
diff --git a/msgs/es.msg b/msgs/es.msg
new file mode 100644
index 0000000..d574b1a
--- /dev/null
+++ b/msgs/es.msg
@@ -0,0 +1,13 @@
+namespace eval ::aloupe {
+  ::msgcat::mcset es {Loupe} {Lupa}
+  ::msgcat::mcset es {To clipboard} {A portapapeles}
+  ::msgcat::mcset es {Save} {Guardar}
+  ::msgcat::mcset es {Close} {Cerrar}
+  ::msgcat::mcset es {Size} {Tamaño}
+  ::msgcat::mcset es {Zoom} {Zoom}
+  ::msgcat::mcset es {Pause} {Pausa}
+  ::msgcat::mcset es {Color of Image} {Color de imagen}
+  ::msgcat::mcset es {Save the Loupe} {Guardar la imagen}
+  ::msgcat::mcset es "Click the magnified image\nto get a pixel's color.\n\nThen hit this button." "Haga clic en la imagen magnificada\npara obtener el color de un píxel.\n\nLuego presione este botón."
+  ::msgcat::mcset es "Click, then drag and drop\nthe loupe to get the image." "Haga clic, luego arrastre y suelte\n\nla loupe para obtener la imagen."
+}
diff --git a/msgs/ru.msg b/msgs/ru.msg
index dd11dc2..7720d7a 100644
--- a/msgs/ru.msg
+++ b/msgs/ru.msg
@@ -6,6 +6,7 @@ namespace eval ::aloupe {
   ::msgcat::mcset ru {Size} {Размер}
   ::msgcat::mcset ru {Zoom} {Масштаб}
   ::msgcat::mcset ru {Pause} {Пауза}
+  ::msgcat::mcset ru {Color of Image} {Цвет изображения}
   ::msgcat::mcset ru {Save the Loupe} {Сохранить изображение}
   ::msgcat::mcset ru "Click the magnified image\nto get a pixel's color.\n\nThen hit this button." "Кликните по картинке,\nчтобы получить цвет пиксела.\n\nПотом жмите эту кнопку."
   ::msgcat::mcset ru "Click, then drag and drop\nthe loupe to get the image." "Зацепите лупу мышкой и тащите её по экрану.\n\nКогда отпустите мышку, получите увеличенное изображение."
diff --git a/msgs/uk.msg b/msgs/uk.msg
index 86dd726..5d2d6e6 100644
--- a/msgs/uk.msg
+++ b/msgs/uk.msg
@@ -6,6 +6,7 @@ namespace eval ::aloupe {
   ::msgcat::mcset uk {Size} {Розмір}
   ::msgcat::mcset uk {Zoom} {Масштаб}
   ::msgcat::mcset uk {Pause} {Пауза}
+  ::msgcat::mcset uk {Color of Image} {Колір зображення}
   ::msgcat::mcset uk {Save the Loupe} {Зберегти зображення}
   ::msgcat::mcset uk "Click the magnified image\nto get a pixel's color.\n\nThen hit this button." "Кликнить по картинці,\nщоб одержати колір піксела.\n\nПотім натиснить цю кнопку."
   ::msgcat::mcset uk "Click, then drag and drop\nthe loupe to get the image." "Зачепить лупу мишею та тягніть ії по екрану.\n\nКоли відпустите мишу, одержите збільшене зображення."
diff --git a/pkgIndex.tcl b/pkgIndex.tcl
index 099e34b..15e445e 100644
--- a/pkgIndex.tcl
+++ b/pkgIndex.tcl
@@ -1,5 +1,5 @@
 
-package ifneeded aloupe 1.2 [list source [file join $dir aloupe.tcl]]
+package ifneeded aloupe 1.3 [list source [file join $dir aloupe.tcl]]
 
 
 # A short intro (for Ruff! docs generator:)