v1.3

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 ""} {

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."
+}

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."
+}

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Когда отпустите мышку, получите увеличенное изображение."

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Коли відпустите мишу, одержите збільшене зображення."

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:)