v0.8.2

README.md

@@ -1,14 +1,14 @@
 ## What's that
 
-The *aloupe v0.8* is a Tcl/Tk small widget / utility allowing to view the screen through a loupe.
+The *aloupe v0.8.2* is a Tcl/Tk small widget / utility allowing to view the screen through a loupe.
 
 It allows also
 
   * to make screenshots of magnified images
   * to pick a color from the images.
 
 It is inspired by the Tcl/Tk wiki pages:
- 
+
    [A little magnifying glass](https://wiki.tcl-lang.org/page/A+little+magnifying+glass)
 
    [A Screenshot Widget implemented with TclOO](https://wiki.tcl-lang.org/page/A+Screenshot+Widget+implemented+with+TclOO)
@@ -77,5 +77,5 @@ From a Tcl code, *aloupe* is run this way:
   * [Demo and executables](https://github.com/aplsimple/aloupe/releases) for Linux / Windows
 
 ## License
- 
+
 MIT.

aloupe.tcl

@@ -19,7 +19,7 @@ package require treectrl
 package require Img
 ::msgcat::mcload [file join [file dirname [info script]] msgs]
 
-package provide aloupe 0.8.1
+package provide aloupe 0.8.2
 
 # _______________________________________________________________________ #
 
@@ -331,9 +331,11 @@ proc ::aloupe::my::Button2Click {} {
   # Processes the click on 'Clipboard' button.
 
   variable data
-  $data(BUT2) configure -style TButton
-  update idletasks
-  after 100 ;# just to make the click visible
+  if {$data(COLOR) ne ""} {
+    StyleButton2 yes -background $data(INVCOLOR) -foreground $data(COLOR)
+    update idletasks
+    after 60 ;# just to make the click visible
+  }
   if {[HandleColor] && !$data(-exit) && $data(-command) ne ""} {
     SaveGeometry
     {*}[string map [list %c $data(COLOR)] $data(-command)]

pkgIndex.tcl

@@ -1,13 +1,13 @@
 
-package ifneeded aloupe 0.8.1 [list source [file join $dir aloupe.tcl]]
+package ifneeded aloupe 0.8.2 [list source [file join $dir aloupe.tcl]]
 
 
 # A short intro (for Ruff! docs generator:)
 
 namespace eval aloupe {
 
   set _ruff_preamble {
-The *aloupe v0.8* is a Tcl/Tk small widget / utility allowing to view the screen through a loupe.
+The *aloupe v0.8.2* is a Tcl/Tk small widget / utility allowing to view the screen through a loupe.
 
 It allows also