***checkButtonToggle***

[bll] 2016-4-26.  This code provides an alternative styling of [ttk::checkbutton] as a toggle switch.
This style of switch is becoming more common in user interfaces.  There are currently 7 different
switch styles in order to support the 22 different ttk themes.  The package will select a toggle
switch style upon load, and a bind to <<ThemeChanged>> sets it when the theme is changed.

The user can set any of the styles as a default and can use multiple styles.

[checkButtonToggle-demo]

****Discussion****

[aspect] 2016-04-28:  beautiful widget and a '''very''' nice example of how to do custom layout with [ttk].
One question - is there any particular reason you excluded `Checkbutton.focus` from the layout?  I much prefer having it to aid keyboard navigation & accessibility.
Adding it back as a parent of the new `indicator` element ''seems'' to work, but I've only tested very roughly with the provided demo.

[bll] 2016-4-27: I copied a layout from another theme.  
Sorry, did not check the original.  
I have updated the code below to match the default ttk::checkbutton.

***Code***
checkButtonToggle demo code
======
#!/usr/bin/env tclsh

package require Tk
if { [catch {package require checkButtonToggle}] } {
  source ../../modules/checkButtonToggle/checkButtonToggle.tcl
}

proc dodisable { c } {
  variable vars

  if { $vars(disabled.$c) } {
    .cb$c state disabled
  } else {
    .cb$c state !disabled
  }
}

proc setDisplay { c } {
  set vars(onoff.$c) 0
  set vars(disabled.$c) 0

  ttk::label .l$c \
      -text $c

  ttk::checkbutton .cb$c \
      -variable vars(onoff.$c) \
      -text {} \
      -style $c.Toggle.TCheckbutton

  ttk::checkbutton .dis$c \
      -variable vars(disabled.$c) \
      -text Disable \
      -command [list dodisable $c]
  grid .l$c .cb$c .dis$c -padx 3p -pady 1p
  grid configure .l$c -sticky e
}

proc demo { } {
  variable vars

  set styles [checkButtonToggle::styles]
  set rc [checkButtonToggle::init {*}$styles]

  foreach {c} $styles {
    setDisplay $c
  }

  foreach {c} [lsort [ttk::style theme names]] {
    setDisplay $c
  }
}

demo
======

checkButtonToggle package
======
#!/usr/bin/tclsh
#
#  Written by Brad Lanam 2016-4-26
#  Copyright Brad Lanam Walnut Creek CA USA
#
# Contents:
#   Usage
#   Procedures
#   List of Styles
#   License (MIT License)
#
# Usage
#     package require checkButtonToggle; # uses the current theme setting
#
#  Style your ttk::checkbutton widgets using:
#     ttk::checkbutton -style Toggle.TCheckbutton
#
#  When the theme changes, the <<ThemeChanged>> virtual event will
#  fire and the toggle style will be set to match the theme.
#
#  To use a different toggle style:
#  First, make sure the toggle style is loaded:
#     checkButtonToggle::init {<theme-name>|<toggle-style-name>}
#  Then set up the Toggle.TCheckbutton ttk style:
#     checkButtonToggle::setDefault {<theme-name>|<toggle-style-name>}
#
#  You can also use particular styles by specifying:
#     ttk::checkbutton -style <toggle-style>.Toggle.TCheckbutton
#
#  List of Styles
#    Aqua Arc Black Blue Kroc Tcl Vista
#
#  Procedures:
#
#   checkButtonToggle::setTheme
#     Calls checkButtonToggle::init and checkButtonToggle::setDefault
#     using the current theme name.
#
#     This procedure is called up the load of the package and when
#     the <<ThemeChanged>> virtual event fires.
#
#   checkButtonToggle::init {<theme-name>|<style-name>} ...
#     If a theme-name is supplied, looks up the associated style.
#     Creates the images for the specified checkButtonToggle style(s)
#       and creates the <style>.Toggle.TCheckbutton layout.
#     Multiple themes and/or checkButtonToggle styles may be specified.
#
#   checkButtonToggle::setDefault {<theme-name>|<style-name>b}
#     Creates the Toggle.TCheckbutton layout.
#
#   checkButtonToggle::getDefault
#     Returns the current checkButtonToggle style.
#
#   checkButtonToggle::styles
#     Returns a list of all available checkButtonToggle styles.
#
# License
#
#    This software is provided 'as-is', without any express or implied
#       warranty.  In no event will the authors be held liable for any damages
#       arising from the use of this software.
#
#    Permission is granted to anyone to use this software for any purpose,
#       including commercial applications, and to alter it and redistribute it
#       freely, subject to the following restrictions:
#
#    1. The origin of this software must not be misrepresented; you must not
#       claim that you wrote the original software. If you use this software
#       in a product, an acknowledgment in the product documentation would be
#       appreciated but is not required.
#
#    2. Altered source versions must be plainly marked as such, and must not be
#       misrepresented as being the original software.
#
#    3. This notice may not be removed or altered from any source
#       distribution.
#
#

package require Tk
if { ! [package vsatisfies [package provide Tcl] 8.6-] } {
  package require Img
}
package provide checkButtonToggle 1.0

namespace eval checkButtonToggle {
  variable vars
  # vars(cache.<style>)                 - toggle images are created
  # vars(cache.<theme>.<style>)         - theme element/layout are created
  # vars(style.names)                   - list of toggle style names
  # vars(img.<style>.{on|off}.{n|d})    - the image handle
  # vars(style.default)                 - the default toggle style
  # vars(theme.map)                     - maps theme to toggle style
  # vars(unknown.default)               - style to use when unknown theme
  #                                       or style is specified.

  variable imgdata
  # imgdata(<style>.{on|off}.{n|d})

  set vars(style.names) [list]
  set vars(unknown.default) Tcl
  set vars(style.default) {}

  proc setTheme { } {
    variable vars

    set theme [ttk::style theme use]
    set style [_checkStyle $theme]
    # <<ThemeChanged>> fires for many different widgets
    if { $vars(style.default) ne $style } {
      init $theme
      setDefault $theme
    }
  }

  proc styles { } {
    variable vars

    return $vars(style.names)
  }

  # sets up the Toggle.TCheckbutton ttk style layout.
  proc setDefault { style } {
    variable vars

    set style [_checkStyle $style]

    if { ! [info exists vars(cache.$style)] } {
      set rc [_loadStyle $style]
      if { $rc == 0 } {
        return 0
      }
    }

    set vars(style.default) $style

    ttk::style layout Toggle.TCheckbutton \
        [ttk::style layout $style.Toggle.TCheckbutton]
    ttk::style map Toggle.TCheckbutton \
        -background [list active \
        [ttk::style lookup Toggle.TCheckbutton -background]]
    return 1
  }

  proc getDefault { } {
    variable vars

    return $vars(style.default)
  }

  # Looks up the toggle style first based on the theme mapping,
  # then by toggle name.
  # If neither are found, $vars(unknown.default) is used.
  proc _checkStyle { style } {
    variable vars

    set style [string totitle $style]
    # note that in some cases, the theme name is the
    # same as the toggle style name
    if { [dict exists $vars(theme.map) $style] } {
      set style [dict get $vars(theme.map) $style]
    }
    if { $style ni $vars(style.names) } {
      set style $vars(unknown.default)
    }
    return $style
  }

  # Sets up the <style>.Toggle.TCheckbutton ttk style layout.
  proc _loadStyle { style } {
    variable vars
    variable imgdata

    set style [string totitle $style]
    if { $style ni $vars(style.names) } {
      return 0
    }

    if { ! [info exists vars(cache.$style)] } {
      set imgcount 0
      _cbtoggle_$style
      foreach {type} [list on off] {
        foreach {item} [list n d] {
          set dnm ${style}.${type}.${item}
          if { ! [info exists imgdata($dnm)] } {
            break
          }
          incr imgcount
          set vars(img.$style.$type.$item) \
              [image create photo -data $imgdata($dnm)]
        }
      }

      if { $imgcount < 4 } {
        return 0
      }
      set vars(cache.$style) 1
    }

    set theme [ttk::style theme use]
    if { ! [info exists vars(cache.$theme.$style)] } {
      ttk::style element create ${style}.Toggle.Checkbutton.indicator \
          image [list \
            $vars(img.$style.off.n) \
            {disabled selected} $vars(img.$style.on.d) \
            {selected} $vars(img.$style.on.n) \
            {disabled} $vars(img.$style.off.d) \
            ]

      ttk::style layout ${style}.Toggle.TCheckbutton [list \
          Checkbutton.padding -sticky nswe -children [list \
              ${style}.Toggle.Checkbutton.indicator \
                  -side left -sticky {} \
              Checkbutton.focus -side left -sticky w -children { \
                  Checkbutton.label -sticky nswe \
                  } \
              ] \
          ]
      ttk::style map ${style}.Toggle.TCheckbutton \
          -background [list active \
          [ttk::style lookup ${style}.Toggle.TCheckbutton -background]]

      set vars(cache.$theme.$style) 1
    }
    return 1
  }

  # loads the toggle styles passed as arguments
  proc init { args } {
    variable vars

    set count 0
    foreach {style} $args {
      set style [_checkStyle $style]
      set rc [_loadStyle $style]
      incr count $rc
    }
    set l [llength $args]
    set rc [expr {$l==$count}]
    return $rc
  }

  # Aqua : for the Mac OS X aqua theme and the aquativo theme
  lappend vars(style.names) Aqua
  proc _cbtoggle_Aqua { } {
    variable imgdata

    set imgdata(Aqua.on.n) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoCKSqMzSJKAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAABOtJREFUeNq9l21MW2UUx/+9pRRoZ0eF
     DTdAYfugKLKxyDCOL4PMsGW4ILAsFD8YZ0IyEzPfEo18YHG6uJnhyxc/CFtIFAJjKonBZXxwI2FC
     3NBIbMeYGwUKgyKOAi3lXs+599IXSkttnCf59bbPy73/nuec8zxXgwgmSZKGLlpCR+jV72zL3K0S
     q4nqfbx81Wg0YqTBmggCNxBZRAGRT2QTJlWsJ4AVwZoor5I67z4xRgwRg8Qw4STB7qj+JomMJ3YQ
     nxAjxLIUg9U535Ms/UeiGSoS00QHcZh4hIhbT2QScZC4od4gJqvsKZeyGh6VTs6fCFVFd/UuizJi
     6BPmiM+IHEK35tJTB8fgPuJzIjOWoDu99BFaW1tht9tx7NhreNfwvhKMtNiz814MTSzg15E53L63
     CA09+bGUBORlbkD2pgRsTIqD4A/EFqKesFEoeH1C1ZjMIxqJHbGKbGw6h1H7CGpra/Fh2sdy+zKJ
     HLS70PrzJH4YcMLlXoZ7SckbvU6AMUGL53PNOFy4CTlbDdD6xTYQpwgHifXFAieORRX7r+2M9xSa
     zp3H7eFbeOXoUZ9IzhqbYwFnu+zosc1i8m+P7F1yjLKc5Fb2YtvCPYzNuPHWgUw8viVpZZlfJq4S
     3xNuQfUmZ3cFwlSB9Tz5VWMTbtqsqKiswqfZX/j65t0imq860D04A8esB15SSaEpi2X4O7dxX/fg
     X2jumZDnBDivnDDzDwFKudlJpMfqyaGbNuwpKsL5/Oag/uHJBXz7yxScc0uyKGmNqiupgmdcS/ju
     +hTF70JgdxGRQc4UWGg88RT8xTwqOyudRktLi+zJ7G3bcWD//pAxnDijTrfsvfWMx9in3TTHFdic
     BiWxtRyjcWpDiJ10ncC4YxzJycmoN38Q1HehowMDAwNyX43FguPat4M9JXt0kZIp+s2Lx96iyrCy
     O6jO46UX4gLuG2RFbc+ir69PDvzc3FzU1/iFlnbtw7XeXgi0INXV1b4y9ABMs6KZl57r1MTqEV6v
     15edVqtVThq2iiuH0H35svy9uLgYZzIbwj5h2+ZEKjfR5yeP5ZoaMIO1TRMiC+V993coBwS/10pL
     odMpm4PH4yGxNhy5VoXOzk65jeOypKQk4oOfzjAg/WF9YCEPazxmq1lPc4yBzezAO6xNUCv/dcIe
     OKLOVI/dhYW+3z9euoSLFJfsZb1ej8rKCryueTPiw7NSE1G2MwXJBh20pGQt53Ib95mNOryQn0Ie
     TQzsvkKM8MlKUBv45NKGVbHKS5uYqEx0jI9BFJUad7CsLCS51rIkvQDLc5uxN2cj0kzxiCNBLIq9
     J6gCuY379uYkw7InTZ6jGp+u2okZ+Q/xB9cpuuQSTVi1hfJyX2hv9/3mxOqvubH+Wqomb6GjLrT0
     TqLrNyfmFoO3UINei9I8M6oKaAtNX2cLZdeS2D94xbHqULK7oICyvx8jd+/AaDSivPzFqEWy8YOf
     pD38eGkGDu1KxcDd+/hzalEu9FmpCXJMbqekMwUfSr4hviQmWWTITcMd894Ze0My1RmkWuursZ78
     /rtjXoBYPu49QbxEVBJboJSxB2XsMY7Dn4ivoSQQezKoCoUtHCT4ISivH88Qu6AcXEzqHL7JIvzv
     PPxHxCivXpVZKOXHSnDY8SvJTLhXkYgVTvK/3MWraFUPiPifX+7+AfoGVjI/5TAZAAAAAElFTkSu
     QmCC
    }

    set imgdata(Aqua.on.d) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoCKg/s5KXOAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAABGlJREFUeNq9V11MW2UYfk7btdpRUTan
     EzSscWawCbqqkMFYG9et0wvYjywY48X8ufbaS7nyQhMTl6mJzsQLXKIBZ7aRES1pmbuRGJfBQHA6
     yor9obgMlg364/t+5zvlHFr6p/FNnnzt+b73nOc83/u+33sUFDC/36/QYCZsINjkb7YUISNRqaXl
     fZI8ejyedKHFSgGCDsI2wguE3QQnoVqSXdZBI6yUOGak321CmDBNGCdcJySI8L2SiBJJKw2NhNcJ
     rxAeI5jKlev8lXOYC8/hDd+bxZYy8QVCgPC1HGNEOKlfZCBAJO00HCR8SXiHUFcJyU++P4Whi0Oo
     r6/PyyqdyQhkVsWqIXQRPie8S3iKuGzIqyhNcAweIHxMeKJccmzDU366z4+IxuI4cvgwvI0HsnOp
     dAbzt5fxZ+wOIn/fg0JP3lJtw7Ytdjy00QqL2bC5ZwjvEX7TlFUkSR6bCacJz1RK8sLgBcSiMXR2
     daLT1ZWdW7ybhP9qHJcmEkJJw5YS47YdNfDs2oyq+yz6qY8I7xP+IrIZbVs5cV6TZCsgOYzBwUGE
     w2H4fL4ckn0jNxG8Np9Dko2v8VzfyKxYq7MThDaCVbyQVJOz+xjWqQLFlTyPUCgEj9uN7rbj2blk
     KiOUnJpbLHqfqbklDI/FRYjoxDsCNX5FonC5eRZq4lSk5GxoFk1NzThx0JjhC0vLYrtLtZFrCSQW
     l/WX9hIeJzFNJintLqwW85IscD1Asf2DULK2rhatrS2Gedblj+idvNu9nvFa9tF5PAo1sc0cvRZ5
     IceGxi8ikUjA4XDgpeaXDXPBYBDT07+LOe9+L/Y96TYSpYdydpdr7MO+iiKikMXjrTdpaZbz2r2n
     ezE5MSGcnE6ngeiHZz7A+NgYFJMCr9drKEP/sSkSIkY51SI525BKCZJsvL2cNGwnB05idHRU/Ha5
     nsPR1mP5n0CKPPKgrWxm7CPVhOQ2z3SYKEfvGNQGIWstLS2wWFTBV1ZWMDMzg8/OfYrLl38S1zgu
     XS5XQSm4mJuU0gsJr2UfnQcLeIO5mWTl/4Uwq3fyPX0IjY07s/9ZxUAwIFS2Wq1w73Ojw9lR8ME1
     VVa0N9SUTJQLP59SOgsSQtxZaQWfO5dvsCZWXa7dsNnU7YvH48jIGrenbU9OcuUzM8Wwe+dmbN+6
     seja7VurxOmkO0q5u/oWasOSbTi4In9F+FXvvL/BS2Wn1XBDTqy3Dr1dskp8LPa012Fvw6a8YcDX
     eK6nvXbtEfoF4RLU0CzelHC9HOjvRyQSgf1+O7qPd1eU5XxK8QHAdTJ6i0uQmjj1D9uxyWEV6uuM
     271ewiRte8pAVJLlNu9FuahJmx/4uR9nvzsrSlFPx6tlk9Sb6JxlNeHsXqPxEtTG6BRhikiuaBP5
     GmdWtgH/snEuk7vWOPdBTaCopuS6RHWEH4D6+fE8gesQNy7V0odvcher3zz8IukSx6TELajlZ5Iw
     AfWTZKHkT5E1ZLWPO6uEWSqQxv/8cfcPzDi6t72HbLcAAAAASUVORK5CYII=
    }

    set imgdata(Aqua.off.n) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoCKTUBxS+/AAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAABARJREFUeNrVl19sFFUUxr+ZbRdp2e62
     tBVl27TEkFg1Clhi2gCJFBM0vhAMINgHkoYX44PBN32hFMQXqaAvRDHEUFGURjRREhIUIUGg5YUN
     xaYVCopsaYst3emyM+N3Zu4U2u7sbkX8c5Jf7u7ce+5+e+bcc+/VkMFs29bYBEg+maE+i5nSrfir
     Zql5UtJqmmZlGqxlEBgi1WQxWUjmkbASm7wLT7CWY2srv2HyK+kmMdJDBih4LCehFBlkU0MayUvk
     YaLfQ+SymQgfJD+QT1Ubp+CUv4dtF5AXyTli2XeZfElZLhM6/l4bIbtIDclPG1F2SA4+R3aTSu95
     kll0dcjCmcsmuvst5/8/UqZjUUUAFcU68gO4H3aAbCEXvchqSqS0T5K95ClvdP8tG3tOJLHvdBLm
     pFQPMBkaa4Noqg+itFDL8fenZa1kB7lGsbaXe7JwNiix4yI3H0pg76mpIsXkmfS90W44Y/0strMV
     beUP4dgzdbDi8Ql9p97dif0lZejc8U46142knsiaga6iKat7tRfh23zde04mcbLXzPq3T/SknKgn
     fYb2tu7Cb/HriJ05i45XX4M1NOQ8P3+oHR1vvoVrgwP45b3d6VwleKtIiSMUbrlZQKLeiCvMyX0/
     JXN+RzJW8jidPdbSjNKychhmCqc/+xyxw1/j5++O4MdXGmGMjqK4ZDZqtm7xm3oJqWAw9TwV2seV
     YKdWyMIxM5bfiWbark/VbH1Kvat6eR0eiEbx7arVGLjRj+NNm6DZNkaTY4gUl2D5gTZUNiz3m3oO
     3IXdKRHNUw8cs/ij3fFpqFQmPpZPqs5ZugQrv2pHZFYIiTHDERkqKMSKLw9mEgkVPHn1ureY7mUr
     zMkMw8Dt1J0abvJzIpHI5qYpnBwV79+9Hl1z6+R0TXx0nyrVy5w8wld/y0ggNLMARYWzkGBUj61Z
     iy7mbAYTbTeIJYpk1ZyHe0Bw5D9dGUBgGqVRaqr4pHOJffgRjq5Zh5GbQwgVhdHAFFj5zWGEmZ8j
     w8P4fv0GdLz/gd/UEsBLok1Xlb+TXPF650Z0NC4O5ixUxkYj6d9CT3ML/qDIwlAIy/Z/gmrm5Nxl
     S/EsF1FROOKIvbTtbb+pj5M+OVl5s8vJ5SBUrgaZwrLj1M/LyyqyrjqAprqg71Y6f/PrqCh/EAu2
     NmP+C8+PP69a0YDa7S2IsnTJmDQmp6sv4B5YxrdQEfwE+Rj/0S0066FEdqm+QQtn+0y3bMliK9Wd
     nJQUCd6fQ4kc95pJF0VO3fP+F8e8SZF9FP/OwbkN7gK6PjmSvslFwUVwrx+1ZBHcg0tY+cgkBu7c
     eeSPWDm2KcVNuOWni1yAeyUZzPkqMkmsd7kLKgIqAhb+4cvdn2INoWLbvZSgAAAAAElFTkSuQmCC
    }

    set imgdata(Aqua.off.d) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoCKgaVOB1qAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAABARJREFUeNrVl0tsU0cUhv/rpHZybedh
     wlOACBJSEkgory4ICEwkKgGriqAiIRagwoZSJArqDglWLEAKArpgQXYBWiReaiFVayBmgRogtAWS
     mEcRUCAQJ8RxsK9fnDN3rgnkXts0Co8jfRrrzkO/z5xzZkZBBvP5fAo1ecRnhEP+ZksQKcn/taRc
     J86t1+tNZhqsZBDoJsqJL4jZxFSiWIrVBmEIVnJsU3JeiPiPuE3cJO4SQRIczUkoibRTU0WsJeqJ
     CYRtGJ7LZiy8h7hIHJHtMxIctxRKIlVq6ohdRM3gfuGKlL7TiqKYb8XwLUwcJn4kAiQ2NkQoieQY
     XErsJyYb3+OJFHrCGu51DaDrRRSsdWyJA1NGqxjltiPPNiKSjxI7iU7Ds4oUye1M+W8+N0b3R+Lw
     /fMcl9qDSKbezBsbebW2wgPvjDK4CvJHQmwDsZt4QmJTRuxx4qyRYtMim/wP0XKre4hINv7GfU3+
     R2Ksld385Vcc2bARv+/YgVgo9Ebf1TNn0LT+G1w/ecps6jqilrALx0hvcnavNDycSKZw/sZzBB6H
     s/7twON+4XUOEdP+c83o7u3Fnc4ArjQ2IjEwIL53Xr6Mq8d+QjDUh9vNzWZT2XlfER4hFHq5mUVM
     NEYE+zX4bwVz3iMODY5jM6tZVY+S4hLEEgn87b+EwJ+tuNfWhpYDB6FFInC7i1Bdv9Jq6YXEJHKm
     LV+6doYULLKbE8dsu62Mx/KcsiLHkGpQXjsfhZ5S/LZnL/r6+uA/dEhUDy0Wg9vlwpItmzGxutpq
     6XHQE/saezRffhDGizztjeJdjeekLP7cuMpKLN2+Da5CFVFNEyLVggLUbd2aSSSk83jrbUYyDeco
     zMliJDCeeJ10cQoFLZrVIYpExCjPfpruobLDdfJdjefwXDO733ZdbH2ExKoOB3mzEDHyqm/fPtxp
     bc20LGvrJpIslLPgBvQLgpBfPkYVdTJX47E8x2xG+x8++Boa8DIchqqqqNv2Pb78YTtcFJ8vqQJc
     2H8Af509Z7U0O/A+a7PJyn+NeGj0ljrtopjnagsqPfC47KZ9HSdOIkwiC0jkom83YXJNDSZUVcG7
     5Ts4nU4hNnD6tNXSLcQDvlkZMco3l58hYzU/TxEnzrTxrqwip413YvH0MsujtGLFMowuLcVsKlNT
     58xJf59Egueu/lr0VSxfZjaVT4fj0C8s6SOUBXP6NeIjPUKzXkr4lOoOafj32YAoQRy6Y4odIiY5
     RNj7I2B83eMbXAeJTOdO2j6Ja95bnq3Eh7k4N0FPoC7Dk5ZCBwkugv78mEdwFvDFpVjO4UUieP3m
     4T+SzLGNS15ALz8dRDv0J0lPzk+Rt8Qajzu7JE96IIn3/Lh7Bb2htHFUMFOzAAAAAElFTkSuQmCC
    }
  }

  # Arc : for the arc theme
  lappend vars(style.names) Arc
  proc _cbtoggle_Arc { } {
    variable imgdata

    set imgdata(Arc.on.n) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoDMBNJCmltAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAABEVJREFUeNq9l11MFFcUx88MwvKlG0yk
     gEgD9cVGImpAjeUJ0gQbTUNZjQE16UMT3ow2NdHIA8Sv+BFp9cUHPqxNJbHiAy9q9EFjosGk8uDH
     AmphcVk0QBAQWHbn9n9mL7uzzH4M29iT/DIz9547859zzz1zR6EYJoRQcEgCycAmz9n83C1J1DR5
     Hx8fFUXRYjkrMQQuB4WgDGwCRcAuxXoNLAhWLB6FHDcJ3KAfvABvwBgEz1l6TYhMASXgAnABv0jA
     GsaOibqne624amAUdII9IBcsiycyHewEz+QNEjLHo2pR2PylOPmpKbIyTdOJYFPgN/A1SI4m0iZF
     DiQq8Kz3lCi9tlHknl4lTkw1hvX5/ZqY/jQj3CMfRP8/g6IP8Dm3+c2ir0uxwcgqhpzcAFpBSSIr
     49z8aWpta6d3Qy6qr6+nUzlng33e+XkadHvonec9Pyt8kSgKrc7JpoK8HEpJDgtiMzgDPPARqmzk
     hVMnxS7ZzvvOUFv7VXr75jXtP3DAJPJl/1saGh4xiZRB0vvYh30N9iPYDlL4QpXR5NVdQ1GqQLxI
     trS2UV+vk2ocu+nXosvBPkwouRDJ8YmPce/DPhx1ZMFCEwevGqzUhVKg3GwE+YlGsr+vl74pL6er
     m66F9c/OztEQptuqcWrMzoVVp3KwBsFUVRna9RQq5pbsojhHHR0deiSLvlpL3+3YYfKZmJyKON3R
     jH15jMFyQAFr41W1TDaY7OR0Ew17hikrK4saV54I67vZ2Uk9PT163766OjqU9IvpodMzM0t5d914
     DI/lRSaDx1OvLix/02uX39hG3d3d+qDi4mJq3BcSWnX7W3ry+DGpmJDa2lo6mnF8yYIsmiLRc5S/
     tSOLPXw+X3DanE6nvmjYah5+T/fv3dPPKyoq6HxBc+QnICIZaWlLVsZjZDRJahsFGgvl7+5zCmwQ
     QlGrqqJkWde8Xi/E9tLeJ7upq6tLb+O8rKysjPlQ+/JM40Pjhw++PMZgHMAB1qaik1X/DYaMHg32
     RtqydWvw+s7du3QLeclRttls5HDU0EHl55gPToUfF3Orlg/f1FSbsekhcPHOaqHg887lBi3KVZ7a
     NDl9nmE3alxgJ7Zz1y7T4opkqqroX5ws+4q4vuyzBr5qaAZ4d/UXGNfvJRu5JvwOeoyDj6Yfp6pF
     ZYcX1h+l1y1HiT+L69YWUn7uFxHTgNu4j30WfUJbwCMKpKZemtiZdwWvcNoALlGgdum2pawMq/8p
     uQYHKDMzk6qrf7As0ii2qCCf8rJX6XWSSxBLTsdscU5yinD0DcaRuALe83fedMNo27wj7sPC3pAh
     6p0/Jbqx+s/bPCWCWM7mdWA/cIA8Q4p8DuOIcR4+AH9SYAFxJMOqUNTaAcG8Avj3oxRspsDGxS7H
     8E1mKfTPwy+iWTz6JBMUKD9OwGnHvyTj0X5FYhY5Efq5S5EkyQho9D//3P0Ly0t5Ta1y9CYAAAAA
     SUVORK5CYII=
    }

    set imgdata(Arc.on.d) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoDLzgo7J6zAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAABEVJREFUeNq9V11sU2UYfk7XddqlEjfc
     ZAMyKwE3dVOqbmGxdJFC0YsNRI3GeIE/11574YW78kITEwlKoph4oSQaEQMsLDrSRrlxMZBsGTBI
     bGfRteticBO2rvV5z/lOd07/W41v8uQ77fd+5zzn+d73/d6joYxNTExoHBqIRqJJXYutEVmFei2j
     7pOWcWhoKFPOWStD0EPcRzxB7CS8xAZFdsUCk7BW5ZhV624ScWKWmCauEykSvl0VUZJ0ceghXiGe
     IzoIR61ynbl0GjfiN/Bq6LVKrkJ8kQgTX6oxQcJpq5ONAEm6OewjPiPeJDbXQ/Kj745i/Nw4urq6
     SjKzxIyI1UKMEJ8QbxHbyaWxqKKckBjcS3xIbK2VnNj5qxO8zw+YTyRx8MABBHv2rpPLZrGysoql
     v5dx67axu3c0NaHZ7YarsRGaZtvcE8Q7xBVTWU2RlLGPOE48Ui/Js2NnkZhPYHhkGMO+kdxcOp3G
     /MICkqlFnbBNKRLc2HI32lpb4XQ6rVMfEO8Sv5Ns1txWSZyXFdk6SJ7H2NgY4vE4QqFQAcnob3Ek
     FlIFJE2lZU58xNdih4lBQnIGDqWmZPchlKgClZU8g1gshqFAAM8PvmAjIUreXFqqeB/xEV/Ly4h4
     B2HEr54oUm4ehZE4dSk5F5tDb28fDu+zZ/jK6iqSVKtak9CQNRZ7kthCMR0OJe1DWC/mVVn4epix
     /b2uZOfmTgwM9Bf4LC0v13QiiJqyxmL3wkjsBolep/qjwManzyGVSsHj8eDpvmdsc5FIBLOz1/S5
     4J4gdm8L2B9KmNldi8ka83RQ4snWO5yW+9ps9PgoLs/M6G/p9XptRN8/8R6mp6agOTQEg0FbGfqP
     TTM5y9ZLqv2R75FZW8sFtmyvJI3YkZNHMDk5qV/7fI/h2YFDJZ8gdbJWkzWWjBZuC0JHiMq5OwWj
     QchZf39/rq6tMsCj0SiOnf4YFy78pP8ncenz+co+VIp5XiGvKJ+ssZgI+Ktwc6jK/wsxZ/UIPbwf
     PT0P5n6LiuFIWFfZ5XIhsDsAv9df9sFy4kgxr9Y2trboaywWIWLSWZkFXzqXr5AXqz7fTjSp7Usm
     k8hmjOldg7sKkquoQlRTThxPc3NFX/ERX8sOSHf1NYyGJddw/EV8Tly0Lt7THWTZGbDdUBLr9f1v
     VK2ShM/Wzg7cQ7WKhYH8J3Pik3eEfkr8CCM0DaKqaZ0h3iaiVu8HurvR3t6uX7vvdMPvL7/dpchu
     amvDjvu92NKxSScmkOsdfHGZyyMp7d4xYl7Oef2FrLOqzXuKGCV6zfmTP3+DU9+e0kvRi/6Xaiaa
     b2Z8FUkzOWulMTpKXCXJ3DFVrHGWoOzGv2yca+RtNs5fwEggUdJWhUrWDhK+C8bnx+OE1CFpXDao
     NXKTW1j/5pEXyVQ5phX+hFF+LsMIO/kkWaz6UySPrPlx51JoUApk8D9/3P0DYXCXyE6NHdUAAAAA
     SUVORK5CYII=
    }

    set imgdata(Arc.off.n) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoDMB2uskRqAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAAA+dJREFUeNrVl01MVFcUx/9vEBgGhgEU
     SnUg0gWJ2KZaY2PaqEmFJmrcEBq1fiyaNN00Lpou242ILW4qVbvrx6KR2tpKtE3UxETFjdGCG6ZF
     iUihykf5RuYNDO/1f97cN1R4b2aowY+T/HIn75575//OO/fcezUkMNM0NTZpJJ1kqt9iM9Kt+L9m
     qHmi0mqaZiRy1hII9JMy8jp5jbxEAkrs1H+wBWsptqYaN07ukw4SInfJEAVHUhJKkRlsKsh+8g5Z
     TjyPEblkJsKHyVXyg2oHKDjqPsI0fWQHuUUMc44ZhmGxiDZBjpEKku4YUXZIDr5NjpPSeCIZJvRI
     BKPjE5gMh63Xz87KQsCfA683Ex5NwyLYKXKQ3LYjqymR0r5KviVrbO+p6Wn8db8Xf/f2i88jM3EC
     rCguQunyYmSkp6cqYCHWQOpJL//LtHNPFs5eJTYu8o+OTvQ86JsnUr2c1Sc+4utmoaMNaCx6EZc3
     vAFjYOCRvutfHMXJgkK01h9xGvoeeZPImoFHRVNWd40dYWYhuhnJ4dGxpK8tPhJ1SREn62w4hgcD
     /Qjd/B0tHx6AMTJiPW8704SWTz5F7/AQ7n153GmoBK+aFFhCESs3a0nQ9tD1CHr4uVM1SQ3JYydb
     XVeLZYVF0GeiuPHjTwid+xV3LlzEtX37oU9OIr9gKSoOHXSbeiMpYTA9S1RoX8ZsMbcWjtPndjPx
     lTG+LO+8vpXv7oY3GMT56hoMDf6D5vc/gEb/yakI8vILsOVUI0ort7hNXYzYwm6ViC5RD+J/+pCr
     e6EmY9xernjTRmw924S8HD/CEd0S6fdlo+qX04lEQgVPPr3HXkyPsxWmZLquYzo6W8Nn+DucPCCa
     wspRGd0X72HZkTq5UJMxmktN7WROXuSnf6iH4c/yITc7B2FG9fLOXWhnziYw0TZIDBEq+24bYgcE
     y6SYawso5OIrY5ws9PU3uLRzNyZGR+DPDaCSKbD1t3MIMD8nxsdxZc9etJz4ym1qCWCXaPOoyt9K
     euxeb2amVcxTtSB9ZZdysru1dRijyGy/H5tPfo8y5uSKzZvwFhdRbiDPEtt1+HO3qZtJt5ys7ByV
     k8tpqFz1eDRrx8kP5CYVKT4l9HXbSss//gglRS9g7aFalG/fFn++sqoS6z+rQ5ClS3wcTE5XPyN2
     YIlvoSL4FfIdntEtNPmhhAJlA5A6KSVIBvjsQwlTRKK/CCbHvVrSTpEz83qfi2PenMiuwtM5ODci
     toD650bS9btRsKwkuX6sJ+sQO7gE1BiZRMfsnUdexEixjSpGESs/7eRPxK4kwylfReaItS93GYo0
     FQEDT/hy9y+RHq4DKJHknAAAAABJRU5ErkJggg==
    }

    set imgdata(Arc.off.d) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoDMAjDb6CBAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAAA8NJREFUeNrNl0tsjFEUx/8zptPpTEe1
     RUSQsNJGi3osiEg1IcFKVEjEgmDjlRSxa8LKgqTisbDQnXfiFY8KE6+FKFpCtOMRz9B2WjoZnc7T
     /3zf/abVft90iuIkv9xm7j23/+/ce+4914Y05vP5bGyGkSySrf4Wi5Ok4lctoeaJSVteXp5IN9iW
     RqCXTCSzSRmZRPKU2EgvDMG2DNuk8guST+QleU5ek3YK7s5IKEU62RSTNaSSjCX234jcQCbCO8ht
     ckK1rRQcsxRKkW42FWQPKe3bnzRz+rMWIsfIEeKn2Gg/oRQpe3AhOUgmpMQlk4hEowh9/45wt74q
     ruxseHLccDqzYLMNieyTZDdpNiJrUyKlnaq+ZpoxOhaLoSUQQFt7hyb4p6WgwJEF+RhdWAiHwzEU
     YmvIXvKZYpPG3pPEWa3EpkS++/gJrYH2fiKNSEufjJGxVvb88hWc2LARN6qrEQ0Gf+p7dOkSjq9b
     j8bzF8xc15K5RHIGdhVNye7lRoRFhEQyGAoN+NkyRsaafYyY/1odAl+/4lWzHw9raxHnFhJrvn8f
     j06dRnuwEy/r6sxcJXjLSIEmFPpxM52MM0bInpTlztTaGFnxMbPSFZUYkTcC0XgcT+/eg/9BPd40
     NODOocOIhMPweoejpHK51dTzyHgG0+5QoZ2CnsNcSxyrCJlZUvlkO539+ibOnYMc7uXr+/ajs7MT
     d48eTSWoNzcXC7ZtwbiSEqupx0BP7McSUYf6IfVPjewejImP1aeNKSrCwp07kMuTojsS0US6XS5U
     VFWlEwkVPFl6u5FMv3MVZmRRCozFe5Iuxq0QGTggNoW2R8X7S+8eOScHa+JjdaK+bWjUlj5MsW6O
     c7tyEGVUfQcO4FV9fbppRVuAJESo3LvPoBcImnnc7kHdPnKmio+Zvbjpg6+mBl08HdwcU7FjOxbt
     2olc7s8u7utbBw/hydVrVlNLAN+KNrs6+R+TD0avMysLIwsLMhYqB7/4mFnTufMIUaSLIudv3oQJ
     paUYW1yM8m1b4fF4NLH+ixetpr5D3ktlZexRqVzOQO1ViZDcOF5ONJDJGBlrdZVOXroYo/LzUcZj
     atKMGanfx1PwzFUrtb7JSxabucrtcBZ6wZK6QkWwpF8t/tMrNLOiJMKipKtPUcKllOUeoqJEyj2p
     4JooMp6KaC+x/3+Z1yeyRfg3hfNx6AnUYkTSUmgvwcOhPz9mEckCKVzylI9MEkbPm0c+JJFhG1N8
     g378NJEX0J8kHRk/RfqINR53TsUwFYEE/vLj7gcCAqasEvOBOwAAAABJRU5ErkJggg==
    }
  }

  # Black : for the black theme
  lappend vars(style.names) Black
  proc _cbtoggle_Black { } {
    variable imgdata

    set imgdata(Black.on.n) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoCHzGPtHrTAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAABLVJREFUeNq9l21IW2cUx/9JNKJVgxVB
     5xvNFN2YrMuYrTAVVApWWsRpR1H3QeZA6GB0Y4ON+cGybmXtmHv5MmTaMtiUWoUp0hUFLcMWldUP
     G8ZkgRg12SQt6qabS3J3znNv4k1iYgjrDvy88Xm593/Pc57znKtBFJMkSUMXHZFIJCm/2bzcrRCv
     +ZT7ePiq0Wh80QZroghMI44R5YSJMBIGReyeCr9gTYxXSZm3TawTVuIXwkY8JMF/x/SaJFJPHCc+
     IRyEV4rDuh++J7XNn49lqI9wEyPEy0QOkXCYyBTiDPFAuUFc1vJjk3Sst1C6vHMpXJXPJ3m9XgH/
     DrE/iM+Jp4nEA5eeOjgGTxFfEAXxBN3Vfz7C0NAQVldXceHC63j3yPtyMPp82N7eht1uh9lsFv20
     xMjNzUVpaSkKCgqQlpYGrVbrv9Ug0UMs0zhPQKgSk88S/cTxeEX2D1zH2qoDXV1d+DD744BIi8WC
     iYkJTE9PY2dnB3t7e6JPr9cjJSUFVVVVaGhoQFFRkVpsL3GFcJFYyS80nS7dxEVE2GDR7JrnihBp
     +9WKVzs78ZnxS/8qwWazoa+vDwsLC3C73UK42lhYZmYmTCYTOmmu0WgU3oa82TqI73mDaRVv8u5u
     jkcke/Lr/gFYls1objkXEMm2u7uL0dFRzM7OYmNjAxSXQqgabuM+HsNjeY5inHWaiKPihSCnm+eI
     vHg8OXD9BqyWZbxYWYkbpm+C+h0OByYnJ7G5uSlEsYdDjdu4b2trC1NTUyJ+VVZJ5NMYERB64hns
     J/OY7FPpKgYHB4UnjU8WoeH06bAxvHFcLlfYch9kPMbpdIo5KsuGvLF1nK8SlIYwu/znJThdTmRk
     ZKDn6AdBfbdGRrC4uCj62tvacFH3dth89mgsItViV1ZW1E3sPF56rT+xhq1J5c0KzM3NiaUpKytD
     T/u+0Prbp3D/3j2xEVpbWwNp6DGYRkHEKOep30JHeDyeQEzxcvCmYWu+24gpiju22tpaXCvojfgU
     zo+qdHOo8dj8/PwgGYSbnc134aT2M+QCYd9r9fVITJQPB857ZvMyzt8/h7GxMdHGcVlXVxf1wSUl
     JcjJyYlJLI/Jzs4Wc1TGDrSzNq2S+X8igrZbt6EHJ06eDPz/w507GKW4ZC8nJSWhpaUZb2jeivrw
     vLw81NTUID09XQhR8mPw2lIb9xkMBrFCIR69Szi4svK/KlcuNxESqzwxOTlZ/HY51wMb48zZs2Gb
     6yDjuY2NjaioqEBWVhZ0Op0QpYbbuI/H8Fj/8yAn/GHikXgh/sN5ii5lxABCjlBe7lvDw4H/eWPN
     tz84VKTf+OWsVivGx8cxMzNz4BFaXV0tQq24uDjiEZqguJ/LmCXIx2hQUXKivJx2/zwcK3akpqai
     qemlmEWy8YP5DO/o6BAxvbS0hLW1NRFCHBock4WFhaFFyXfEV8TvLDLsppHKvHfW35QM3UekLvNr
     8VZ+/12ZpxLL5d5TxCtEC/EE5DT2uIw9xnE4Q3wLeQOxJ4OyUMQiRKmo+PPjBeJ5yIWLQZnDN/kL
     +988/CK+GK8ehU3I6YfPTA47/iR5FOlTJGq1JO1/3OkVdIoHfPifP+7+BcJTXcwmhK1JAAAAAElF
     TkSuQmCC
    }

    set imgdata(Black.on.d) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoCIBni3/gVAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAABFtJREFUeNq9V1tMXFUUXfcOHSIJNoEP
     iK0GJwZSVNCOFVLCzACddqof0FppFOJHfXz77ad8+aGJiU3VRGsiRJtowJq2pAQoQ7Q/JUYTCENx
     Ehky5d0YNFGZR/e699zhDjPMS+NOVs6dex6z7jp777OPhhw2OTmpSeMQHBCUq2daXJBUKNUSap0Y
     246OjkSuwVoOgpWCxwXPC44KXIKDiuw/NliEtQLbpJq3LYgKFgVzgrBgSwj/XRBRIemUplHwmuBl
     wSMCvVi5rv9yDfei9/B64I18Q0n8viAo+Fq160I4Zh+URkBIVkhzSvCF4G3B4VJIfvz9JYzdHENd
     XV0mq2QSiUTCAJ+VWFWCHsFngncE9cLlQFZFpYM+eFLwkeCxYsnRbt2dlHUmsLa+gbNnzsDfeDLV
     F4/Hsbm5iXA4jJWVFWiahpqaGrhcLlRVVaGsrMy+1BXBu4IFS1lNkWTbLLgseKZUkjdGb2B9bR3d
     Pd3odvek+ra3tzE+Po7p6WlDybQt1XW0t7ejq6sLlZWV9q4PBe8JVoRs0tpWjuhXZEsgeQujo6OI
     RqMIBAIZJIeGhjA1NZVBksZ37BscHDTG2uyCoE3gND5IqcnoPod9skB+Ja8jEomgw+dDb9v5VF8s
     FjOUDIVCeddZWFjAxMSE4SI28c7C9F8jUJhunoUZOCUpuRxZRlNTMy6cSo/wra0tY7sLtWAwaPix
     zdoFj4qYuq6kfQq7ybywRcNB8e1xQ8lDhw+htbUlrZ8RzcDJtt37GcdyjsoGtFqYge1gqJWpFxk2
     NnfTUIVO/kLzi2l9VGpx8Vejz3/CD+8TvgyijO5ijXM4l1lBicet162ckHEUDlweQGh+3pjEFGIn
     +sGV9zE3OwtN1+D3+9PS0H9smoLho8xTqxnbIE5tbQG3l0FDuzhyETMzM8az2/0cXmo9l/0fRJHa
     2qwbldM4R6kJxY1OmyBRnruzMAuElLW0tKSS8M7ODpaWlvDptU9w+/aPxjv6pdvt3l8K+TPuhK4X
     frBxLOfYiFLA38hNV5n/J8GyfVLg6dNobHwy9ZsqBqeDhspOpxM+rw8elyfnH1dXV8PjyT3Gbkz8
     PKVsxpQRYWVlfS4rl2+wx1fd7qMoLy83njc2NpBMmN3H245nBFc2czgc6OzsRH19fd6xDQ0Nxulk
     O0qZ/b+FWbCkCo4/BF8KfrZPPnHEL2mnNW1Bbs2bp98qWCVmhf7+fni93qxuwHfs6+vr23uEfi74
     AaZr5i9KmC9HhoexurqKiocq0Hu+t6Qo5ynFVMc8ybXoQgwcfjhdhOrbjOXegCAk2x5PI6rIsszr
     UoOarP6RO8O4+t1VIxW94nm1aJJ2I0ErmzBobIFD+xNmYXRJcFdI7lgd2QpnKnsE/7JwLoY7dgvn
     r2AG0Jql5L5EbYQfhnn9OCZgHmLhclDN4SJ/YffOww9JFNjGFH6HmX5YsczDvJLcL/gqsoesdblz
     KjiUAgn8z5e7BzG2xa9KSEGcAAAAAElFTkSuQmCC
    }

    set imgdata(Black.off.n) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoCIACGtFDVAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAABAdJREFUeNrVl01sVFUUx/9vPlBbptOp
     Uts60MEFCbWN0gZjNEAixQSNi04wFEUWJMaNcWFc6obSVtxIBd35sTC06NgS0URJTFDcGO2UpGVC
     1UAbSDtS6RRbO1M6857/8+a+0o/3Zp6S+nGSX+7L/Zr/nHvuufdqKGCGYWgsvMRP7lDfYjlpVvxd
     09U8WSk1TdMLddYKCAyQjeRh0kjuJ0El9uYiLMGay9JQ46bJGPmFJMglMknBc66EUuQaFnXkAHmG
     1BDPbXiumInwFPmW9KhygoKzziMMo4Q8Tc4T3Vhkuq4buVzORL5XyWbIMVJH/LYeZYPE4BPkONlg
     1c/PzyOZTGJwcBCjo6NmXW1tLerr61FTUwOfz7caXj5JDpGfLM9qSqSUD5IPyENW71QqhZ6eHvT1
     9YGeXDKT1+tFS0sLWltbEQqFVkNsFzlCkhRrWLEnG2e/ErsgsqOjA7FYbIVIMamTts7OTrOvkyWO
     dqG7shpnH3kU+sTEkrbv3zqKExXrMHDkTbuhB8ljRPYMPMqbsrv3WB7OZrOmJ+PxeNG/3d/fb/aV
     ELGzy13HMD5xDYkf+xF/6WXoU1Nm/YW+U4i/9jqSqUmMvH3cbqg4L0oqTKHIp5stJGz1GB8fN5fb
     rfX29ppxbGcPtLfhnnWVyOSy+OHjT5A4/Tl+/uoMvnv+ADKzswhV3I26w4ecpt5G1tOZHp9ybb0S
     LPGKoaEh2+V2MmYBc7OFw2Ewnpa0RZ7dhztZ/2V0Dyav/4ZzL7wIjb8xe3MO5aEK7DzZjQ3NO52m
     rkJ+Yw+IR32qApbQkZER1yItk4wgY21/bfs27P7sFMrXBpCey5giAyWl2NUbKyQSynmy9B5rM93O
     UejKMpkM5rO3cniO3+l0utgwTWHGqIz+daGFSyd58q9aJBJZseyWXWZMnuHS/5FJI3BXCcpK1yJN
     r57d24phxmwBE23XiS5C5dy9gPwFwfyxhoYG+tr9qSk5VQ4AO6GJ997H13v3YebGFAJlQTQzBHZ/
     cRpBxufM9DS+eW4/4u+86zS1OFBOmZxHZf4BctVqraqqQjQadS1UEn91dbVt26W2dvxOkaWBAHac
     +AgbGZP37diOx7mJyoLlptjRjjecpj5HrsjNynKb3FxiULHq9/vNE6epqamoyMbGRrOv01G66dVX
     sL7yXmw53IZNTz25UB/Z1Yytne0IM3VJHxuT29WnyF9YFo5QEdxAPsR/9AgteimRU2psbMzMrYsv
     JRLHEiLi/VUwue61kWGKXJnQ/xfXvGWe3Yx/5+LcjfwGurbck5rjaMMoQ/75sZXIrpKLS1CNkUky
     uPXmkT+iuyyzihvIp59hchH5J0nK9VNkmVjrcbdG4VUe0PEPP+7+BBpOrHu5/O70AAAAAElFTkSu
     QmCC
    }

    set imgdata(Black.off.d) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoCIAsRZoldAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAABANJREFUeNrNl01oVFcUx//zZpqPScaY
     CSFBVHAWiQkmrdq6qCQlGbBguyqmWChdtLTdWBWs0p2gqy5aiKhduDCLBLUfUKu0NSUZkrELMdXY
     UnFmNCIWSSwz2gzRZD79nzv3jWkyb+a1EvXAjzu8d899/znv3HPuc6CIBQIBBwcneYGU699iaZLV
     /F/L6HVSMnZ1dWWKTXYUEegha8gmsoH4SI0Wm5iHKdhhc8xqvzi5Q66Tq2SCxCh4zpZQiizj0Ere
     Iz1kBTGeIHKlTITfI6PkpB7/puCUpVCKdHPwk4Okff79bDarUE4Oh2IJbIYcJ1+RCMUmFwmlSMnB
     LeQwWW1eT6VSiMVimJiYwNTUlBLb2NgIn8+Huro6OJ1O+zLs2ylygITNyDq0SBlf1P/mJXN2PB7H
     0NAQgsEgMpl/57phGOjo6IDf74fH41kKsb3kczJJsVkz9+RJ72qxeZH9/f0YGRlZJFJMrsm9gYEB
     NdfKrv74E05+9DGG9u9HcsG8S2fP4sQHH+LK6R8Kub5PNpMyFRgdTdnd28wIp9NpDA8PIxwOl/zb
     oVBIRV1SpJBFzg0iev8+boQj+K2vD+kHD9T18IULuPT1N4jFp3F9cLCQqwTvLeJVQpErN+vJSnNG
     NBrF6Oio7XckqSF5XMja3+7B8prlSPLP/3H+V0QujuHm+DiCR44iMTvLtFmGtp5tVkt3kFUMpuHS
     oV2nBavNIhun0Ou2MpkrPvX19YuqwZrNr6LSW4tfvvgS09PTOH/smHpGIpmEp7oa3bt3YmVbm9XS
     jcht7MsSUZe+AFPo5OSkbZGmiY9ZvhY9raUFW/btRXWlG3OJhBLprqiAf8+eYiKhgyev3jA305O0
     QluWpMBU+nEep5gKibm5Um4OjcpR8Z7K3+Grkzr5X018rJrArfEr6tXPUqy7vJzRrESSUQ0cOoQb
     Y2PFlhVtUZIRodJ3/0TugKAeJsXcMOx3TZkrPoWEXhsOINDbi4czM3C73fDv/RSvf7YP1czPh6wA
     I4eP4Pefz1ktLQG8JdoMXfkvk7/Mu16vVxVzu9bZ2am6VCELfX8aMxRZQZGvfbIDq9vbsaK1FV27
     d6GqqkqJjZw5Y7V0kNyWk5UZNjm5fAudqy6XS3Wc5ubmkiKbmprQ3d1t2UrXvrkV9bW12MAy5du4
     MX99FQW//M52dW/tG1sLuUp3+A65A0u+hYpg2X59eE5baMlDiXQpaQBSJ6UESR42NDSonJQUkegv
     gclxT05wIYpM5yM6T+zzf8xbENkWPJuD8wnkNtBdM5KWQucJXobc58crRHaBHFxqtI8sMovH3zzy
     RzI2x5TmH+TKT4hcQ+6T5J7tT5EFYs2PuzKNU0cgg6f8cfcIWf26HbTzMTsAAAAASUVORK5CYII=
    }
  }

  # Blue : for the blue theme
  lappend vars(style.names) Blue
  proc _cbtoggle_Blue { } {
    variable imgdata

    set imgdata(Blue.on.n) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoCFxwCsqyuAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAABMtJREFUeNq9l1tMHFUYx/+zy+5yky0U
     bKkFLdZojShghJrKE6SRNm0MQk0D+GCsCUlNjBpNNPJAY7WxNeLlxQehjYlCSjGRl9rUBytJERJA
     o3YB0Xa3XMqtrNx22d3x/80MuwsssG6sX/LLzJzLzP985zvfOaNgA1NVVeHFTCzEZtyL+aXaIFYL
     GO/xyVVRlMBGjZUNBN5FdpFCUkByiN0Q6w1jWbAS5VU1+v1Nhskg+Y0MkSkK9kQ1TIq0kjzyIXES
     vxqD1U29rVZ3H42maYBMkjbyHMkkcZuJTCSHSK/xgpissqNc3dVwr3py/kREVf5AQCPCB2bJJ+Rh
     Yok49ayQGNxPPiXZsQTd6aX30dLSApfLhePHX8ZbSe8Y7wYWlvwYu+2Bc3Ie4+5FflhBeooNWemJ
     uJvXRKsZSigQm0k96Wco+IJCjZh8jDSSvFhFNjadxU2XE7W1tXhv+wdBkTenF/DT4BR+/us2Fn0B
     +Pz6uokzmxBvMSM3OwVFD2zFPakJ4WIbyCkySrHBWJCFU22I/dd2xncKTWfP4c+hP/DisWNBkWKj
     Mx5c7B3FwMgs3AtLmnDVSBbiVbeyhK5BP6bnlnCwYAcyt9iWu75AfiTfEo/J8Kas7gqskwU28+QX
     jU0Y6HegovIIPs75LFjn8anocEzgd5cbM/NLYFiCcamLJXIvZVInbTqujbNPMEuJ88pJmjyYoKeb
     fLIzVk8ODvTjqeJinCv4ckX9+MwieoamMevx6QIjvEPKpG6ObXoYGhNub3h1McmiM00i1EoeQSiZ
     R2UfqafR3NyseTLn/t04eODAmjaycKbmvJr3NjNpMzXr1fqE2XboC9ssMRpnFKyxk3MnMDI6gtTU
     VNSnvbui7kJbG/r6+rS6mupqvGp+Y03/W24PmIOiHry0HeMshJk4T6betLyY1ryt+PyT6OrqkoyA
     3Nxc1NeEhJZd3I/Oq1dh4oRUVVUF09AdMMVAi1HJU2OrW/h8Pk2kmMPh0BaNWMWVZ/D95cvafUlJ
     Cc5kN6z7lW32eCim6NentJWcGi6DTJKACJXo/RX6ASHktbIyWCz65uD1eim2H0c7j6C9vV0rk7gs
     LS3d8MNZWxORlmwNz43ri2SbtCSr1ifMxIHXRZvJyPw9xBXeos5ej6K9e4PP3126hG8Yl+Jlm82G
     ysoKvKK8vuHH01OsyL9vC5JsceCHIuY+KZO6ZLbJz0lFBmchzK4Qp5ysTEaBnFzOY1WsytQmJCRo
     96Mjw8x5eo47dPjwmsUVyWxxJux7KAN7dqbAnmhhTCu6YEX3oNxLmdRJm30PprNPcDhyumol08sD
     Ei+J4FzShFVbqEz3hdbW4LMsrO6a3s3n0rDlLbRzYBK/3HBjkXv+ii2Ug3mUXi/cnbb5Fiqupdhr
     MuNYdSgpKizk6u+G88Z1JCcno7z82ahF6u+GJuDpvEwU5KTBOTHPpO7RttGMlHgtJrdx20ywrDiU
     fE0+J7dEZITRRz7mvTn8mmqvS1JrHS/FevL77455YWIlP+whz5NKsgN6GrtTJh6TOPyBfAV9AYkn
     V2ShdRMHBadA//14gjwO/eBiN/rISxYR+ueRgQSivPoMZqCnHweRsJNfkun1fkU2zHBq6OfOamA2
     PBDA//xz9w9WhlHGvaD1kAAAAABJRU5ErkJggg==
    }

    set imgdata(Blue.on.d) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoCESKViRaDAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAABF9JREFUeNq9V19sU2UU/92udFLXTRbR
     6dCMajAbsAFVV1kcbaRQ9GEDcURjfEDl2Wcf3ZMPmphIUBPFxAcl0WxigIVFS9roeGDhj25uMEZc
     R7eutRMYCGy99Zzvfre7ty3tbTWe5Levu+f77v3d33fO+c5VUMRCoZBCQxVhBaFa/mZLEzISlZoq
     77PEo9/vV4tNVooQdBHWEp4lbCG4CXWS7F0DdMKKxTEj190gxAgThFHCJCFFhO9YIkokHTS0EN4g
     vEJ4lGArV67jF45hJjaDN4NvlZrKxOcJYcI3ckwQ4SXjJBMBIumkYSfhS8I7hDWVkPzkh0MYPDmI
     pqamwswyGQGDWPWEbsLnhHcJ64jLioKKkoNjcAfhY8Lj5ZJjO3UpRPf5CXOJJPbs3o1Ay46sT1VV
     XF+4hdlECn9dXxDXHqitwSMP1aPmfieqbCY9jhDeI1zUlVUkSR7bCIcJmyoleWLgBBJzCXR1d6HL
     0531/X37Ds7/fhkjF69AzZjzz6YoWL9uLdqan8DK+6qNro8I7xNmiWxGfw1OnNcl2QpInsLAwABi
     sRiCwWAeydDpc/h1fDKPpFCarrEvNHRWzDXYfkIHwSFeSKrJ2b0X96gCpZU8jmg0Cr/Ph56OfVlf
     mrablbw6myh5n6vxpJjLIWIQbw+0+BWJwuVmM7TEqUjJ6eg0WlvbsH+nOcMXbt7Cb7TdVo1D4wat
     MdjzhMdITBHBLO0GLBdzSxaeDFNs/yiUbFzTCK+3PW/OzFzKmN0ljcOAk81gDdASu8pOf+zyQp4N
     jp5EKpWCy+XCi20vmXyRSAQTE5eFL7A9gG1P+kx+Jqhndzk2f21BrFUUEYUsHm+9za7fN3dB7+Fe
     jI+NiUVut9tE9MMjH2B0ZASKTUEgEDCVof/YFAkRo1yn4nnbkE5nt423l5OG7WD/QQwPD4vfHs/T
     eNm7t/ATSJFVdTVlM+PaKtWE5PYn02GifO6OQGsQstbe3g67XRN8cXERU1NT+OzYpxga+kVc47j0
     eDxFH9qwul7UScvy0Vw+AAzGAv7B3Gyy8p8lTBtnBDfuQkvL+uz/rGI4EhYqOxwO+Lb50OnuLPpg
     F504XMyt2gaay6eUwSKEKHdWesHnzuVb5MSqx7MF1dXaaZFMJpFRNffWjq15yVXIbFRU+MRpfPjB
     knMbG1aLuYajlLur76A1LNmGg9PzK8J54+LtzQEqO17TDTmx3t51wLJKfCz6n9uMjU+5C4YBX2Of
     37sp9wj9gvAztNAs3ZRwvezv60M8HodzpRM9+3oqynI+pfgA4NpqbEo4jmtrnEJ9g3G710sYp21P
     m4hKshwgL8hJrbq//0wfjn5/VJSiVztfK5tkrunVRMlX+Ca0xugQ4RKRXNQdhRpnVrYZ/7JxLoc3
     lhvnr6El0Jyu5D2JGgjXQvv8eIbAdYjTt06u4ZvcxvI3D7+IanFckrgGrfyME8agfZLMW/4UySGr
     f9w5JKqkAir+54+7fwDMIbO7yfNOCwAAAABJRU5ErkJggg==
    }

    set imgdata(Blue.off.n) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoCESvsVa4nAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAABApJREFUeNrVl11sFFUUx/+z/aTt7vYD
     thQWAkZIWjCABmM0QFKKBAkvBIN8yIOJ8cXwQHjEF0pVfJEK+mb1wVBRVCKaUILl84WALUa7UCFQ
     ItIv+sG2dmdhd8b/mb1TaDuzO4gInuSXu517z+1/zpx77r0a0phpmhqbLJJD8tRvsaR0K/6pGWqe
     hLSaphnpBmtpBPrJbPI8eZY8RYJK7J37sAVrHltT+Q2Rm+QKiZCrpJ+C456EUmQumyqyhbxKphHf
     Q0Quk4nwAXKKfKnaXgpOuHuYZgFZQy4Qw7zP5I+kYViM6fh3bZjsJVUkxzGi7JAcfJnsIzPt54mk
     ib6hOC53DaNzULfev6IkH09PLcLkQB6yfRoegR0gO8nvdmQ1JVLaBeQzstAeHY3dRdOFbjS39YCB
     HDOTjwKr54WwcmE5ApNyvAp4EKsnu0kXxZp27snC2azEjopsaO7AsV+7J4gUk2fS13C8wxrrZpE9
     9WgMVeDECy/C6O0d03f2wz3YXzoFrbs/cHJ9g7xEcq3AqGjK6l5nRzhBEU2/dOPin9GMr33xRtSK
     uqSIk12r34vO3h5Ezv+Mlre3whgctJ63fXcILTveQddAPzo+2ufkKsFbS0otoUiVm0UkbI/oi8bR
     /FuP528kYyWPnWxeXS0mTwlBTyZw7quvETn8Ay43HcWZ17dAHxlBSWkZqnbtdJt6CZnBYPqyVWjn
     K8FWrbjCheP0ud2MVcBabKHi/An1btbGDcgPh3Fk7Tr0993C6TffgsbxI3fiKC4pxfIDjZhZs9xt
     6qlILexWiWi2emAZ1ePmgO5ZpG2d9BFfx/+2dAlWfX8IxUV+xOK6JdJfUIgV3x5MJxIqePLpffZi
     epit0JPpuo67iXs1PMnfsVgsk5umsHJUvLtHezTNqpMPatPoI75Odo05eZSf/i89Bv+kAgQKixBj
     VE+sfw3tzNk0Jtr6iCFCZd9tQ+qAYMmfw2Lu07wXcqmpsgE4eUQ+bcBP6zdg+PYg/IEgapgCq348
     jCDzc3hoCCc3bUbLx5+4TS0BvC7afKryt5Ibdm+ZPw/V80OehcrYskCeY9/V2jpEKbLQ78ey/V9g
     NnNy+rKlqOYiCgSLLbHX333fberT5A85Wdk5KieXg1C5mp2lWTtOZTiQUWTl9ABWLih33Urnbt+G
     GaFyLNpVi7mrXxl9PmtFDRa/V4cwS5eMcTA5XX2D1IFldAsVwc+Qz/GEbqGZDyUUeIsbgNRWKUHy
     ahWsl5LHkiIS/UdgctyrJe0UmZzQ+7845o2LbCUez8G5EakF1DM+kq7fjYJlJcn1YzF5DqmDS1D5
     yCQ67t155EUMj21CcRup8tNOLiF1JRnwfBUZJ9a+3OUqslQEDPzHl7u/AfgHrdGtlw+pAAAAAElF
     TkSuQmCC
    }

    set imgdata(Blue.off.d) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoCFSOG4uMRAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAABAVJREFUeNrNl01MVFcUx/9vUIZ5zPCV
     UhE/EuxGpmWq0HahaQyS2ERdGWnapOlC07qxrYkf6c6krly0CUTbhYuy07aa1Gq0YnT86sIUBWkl
     wgjEaC1oBZwB5num//PmvgFh3syoQT3JL3fy7rt3/u/cc8+5V0MW83q9GpsCMp/Y1W+xOEkqntUS
     ap6YtI2NjYlsL2tZBLpIDXmP1JNlpFSJjUzDFKzl2SbVuAC5T26THjJARig4nJdQiixk4yafkmZS
     TWzP4blcJsJHySVyRLUPKThmKZQidTZNZB/xzOxPJlMrrWka5sgmyI/kB+Kj2OgsoRQpMbiOHCBL
     zefxRBLjk2EMjQQwNh4yHFDmdGBBhQsluh0225yI/ol8Q/pMz2pKpLRvq69ZYb4dDEfR3f8vegYf
     IJF8ct/Y6FV3zevwvLEQDvv8uRDbQvaTIYpNmrEnG+cTJTYt8kLnAP4eGJ4lUkyeSd/FrgHjXSvr
     OXUaRz7fhnN79yIaCDzRd/3kSRze+hluHP8t09AtZDUpNByjvCm7e7Pp4QSXu7t/CPf/8+f87H8e
     +g2vS4hkMt+ZdjwaG0N/nw/X2toQn5w0nvddvYrrP/+CkYAft9vbMw0V520iFYZQpNLNSrLYfCPA
     mOwZHM57jW4yNCSOM5nnw2aUlZYhGo/jryt/wPdnBwa7unD54PeIhEJwuUpQ17zZaur3yRI60zZP
     ufYtTCVzDHPjZFpuK5NsIJut1Fk0q69m9So4Kspx9tvv4Pf7ceXQIeP9SDQKl9OJtTu+xOK6Oqup
     q5Da2J3i0XnqQfpPR8eDeYs0bYxjkhYfV1Vbi3V7dsPp0BGORAyRelERmnbuzCYSynmy9DZzMz1P
     KczLohQYi0/l8BhDIRIO5xqmKYwYldHpgJRkLnnyaa2cY6wKwZ2uG8bShyhWt9vpTQei9Kq3tRX9
     HR3ZphVtj0hChErdvYnUAcGwKibzp6k+klOlAGSyW+e98La0IDgxAV3X0bR7Fz74eg+cjM8gM8DF
     AwfR/fsZq6nFgXdEm01l/k5yz+x1suK8yWSer7lrFsCl2zP29f56HBMUWUSRa77YjqUeD6rdbjTu
     +ArFxcWGWN+JE1ZTXyZ35WRlxqicXI5CxWoBy6JUnEWVJTlFVr9WwnerLEvp8o3rUVlejnqmqWUN
     DennSyj4nY8/MvqWb1ifaahUh2NIHVjSJVQEy/ZrwytaQnMeSqRK+ZnMh41DSdD4tjLmS4ljCZGC
     uTmUyHFPTnC9FBlPe3Sa2Ff/mDfDs7V4OQfnw0htoAemJy2FThMsO0muH+8S2QVycClVY2SSEKbu
     PPIhiTzbmOIxUumnl9xC6koymvdVZIZY83JXqChQHkjgBV/u/gdsibDU96W30wAAAABJRU5ErkJg
     gg==
    }
  }

  # Kroc is meant to match the kroc theme
  lappend vars(style.names) Kroc
  proc _cbtoggle_Kroc { } {
    variable imgdata

    set imgdata(Kroc.on.n) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoCMhoDItl8AAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAABGBJREFUeNq9l11sVEUUx8/cZbtZWqyt
     X2Cg2GpiJNYCpgWjfWpDUpBGaxdDWiDxwaRv+BFNMPShhK8ASv14MbEtiJEmSI2pD0LwQUICKYms
     ia1bsLjd2hZiWw2ryHbvHf9n7ix7d7e7vV2jJ/nl3r0zd+5/z5xzZkZQDpNSClw8wAt8+p7N5GZN
     vmbpceJ8FUJYuTqLHAKXgHJQA9aCClCsxcYcJAQLl1ep37sFxsE1MAhGwDQE33H1NyGyAKwG74II
     MGUe1j79jmy9vNVNVwtMgT7wMlgGFs0ncjHYDK7oAfKywIUmWd65Uu77a8/cuizTJvMTUfABWAW8
     2UT6tMhwvgIPxfbL6hNr5LIDD8i90Y7URjMGGWPSGj0jzaEuaQ5+ou5lFJNmzqYPdVKLvetZ4YjJ
     KtANVueTGYdnD1B3zzH6dSxCbW1ttH/poWTjnd/JGjlNMvw1PmamZYmHxMpNZFQ0IV3vdbZ0goNg
     EnErDf2QE6dVi12wHYkfpJ5jx+n6yM+0fceOTJHB90j+8lWmSOUlU7VZPxxVfR32CngWFPAPQ3uT
     s7uZslSB+TzZ1d1DV4dD1BzYQu9XfJRstOJkXe8jORWcdxz52xXldbJmE4/YeXAzlSqhZJebNWB5
     vp68dnWYnqutpeNrT6R2uH0D3up3PZ4Mo+/tm85HtWAFnGkY2rVPUrKYu7Kj8jD19vYqT1Y8+hht
     2rgx/bMkZ4bmnu6sSi2S04PkWEeWgjLWxlm1SD/IsH1/7qGJyQkqKSmhjtK9KW2n+/ooGAyqtm2t
     rfS65620j0LordGFTRG/Fo2QwLskVBSy83jqjUT6ZyyFtaeeoYGBAa4IVFlZSR3bkkIbvtlAly5e
     JAMT0tLSQrsKdy9YkEsTGhWjvNbeSO8Rj8eVSLZQKKSShq35/Av07blz6r6uro6OlHVm+YQgUbRi
     4cqWlCW8SVrbFLBYKK+7P5K9QUh6raGBvF57cYjFYhA7TFsvbaH+fjs5OC7r6+tzOkOUrsLFINfG
     NbXkCXIUH3ZgmLUZKKas+nsw5nynvbiD1q1ff/f3mbNn6UvEJXvZ5/NRINBMO8WbuT/sfxDF/Hn3
     Oh9BX/9DzkfnQYR3Vom/yzuXU5QWqzy1fr9f3U9OjJNl2TuxzY2NGck1pxleteKI++df7MR9VWSU
     v+hIG7W7+gLMqKH0wyj4FKRU5l2Ld1NDWtnhxPqs+qRrL/GyaDy1E95qVFObqdCj2oyq19KX0C5w
     gezQVKWJ2LWY0p9w2w4+JLt2KVtXU4Psv0yR0TAVFRVRU9NL7kU6xT6+HaNuQJ0cUiVIJVvhcjuO
     ESLsfYexJz4GN3mdzxgv2zbv7fE3ZHF7oWwLvZrvxupfb/PEHGL5yMGpBxdQADzsCJH/wthjHIff
     gc/JTiD2ZEoVyroJgeB7yD5+VIOnyd64FOt3eJC/KXnm4T9iubzGNX+QXX5CgMOOjyQz2Y4iOXdL
     Mnm4K9B4tAcs+p8Pd/8A8nJs8nnwz5EAAAAASUVORK5CYII=
    }

    set imgdata(Kroc.on.d) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoCMjtPS8kiAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAABF9JREFUeNq9V11Mm1UYfr7+0K2hsHHl
     gBkkxmXowK0qZERWMroxvYDNyaIxXsyfa6+9lCsvNDFxmZroTLzQJRpwZhsZThaI7kaybAZCHS6R
     1iI/ljFwUktbn/d8p+VrC/3T+CYPp3znfOd7znPe9z3vMZDHRkZGDDZ2wkm49G+xOJHUKNcSep51
     aTs7OxP5Bht5CHqIh4iniANEI1Gtyf5tQYqwUWSb1O+tEGFimpgk7hAREo4WRZQkK9g0ES8TzxO1
     hK1UuS7duojZ8Cxe6X610FAhvkSMEl/odoGE162DMgiQpJvNUeJT4g2ivhySH3xzFsNXhtHQ0LAF
     taSJDbFqiF7iY+JN4hFycW6qKDvEB48Q7xMPlkpO7NrtEc7zHeYXFnHi+HH4m45YuCUQX1tGdHkW
     sb+W1Icd23fCVV0Lu8sDw2a3TnWeeIv4OaWsoUlK20KcIx4vl+TloctYmF9AT28Pery96b547D5W
     QjewGv6JjLNixrChsnYfPPX7YXe6rT3vEW8Tv5NsMrWtEjgvabJlkLyGoaEhhMNhdHd355BcClzF
     6m83c0kqqROqLxL4Vo212GminZCYgU2rKdF9EltkgcJKXkIwGESnz4e+9lMWDnGl5NrdYMF5ondD
     WOXY5MZiRLwTMP1XBYo4x36YgVOWkqFgCM3NLTh9NDPC49EVbvetoudboWvE1+5ZHz1N7KaYNpuW
     9jFsJPOibPTOKH37qlKyrr4ObW2tuSoth63RXdioZvTerPXJAzAD2+7gH4d+kGPDk1cQiUTg8Xjw
     TMuzGX1jY2OYnv5F9fm7/Dj0sC/ro0kV3aVa7H7EXJyhvFDEk623OVLTZr/Qf64fgakpvpNEY2Nj
     BtF3z7+DyYkJBqwBv9+fkYb+YzM0lI9KnprLHpGIxxVJMdleCRqxM4NnMD4+rn57vU/gubaTW3zC
     gNNdUzIzJ3OrVhOa2x9CR4jKuTsBs0BIW2trKxwOU/BYLIaZmRl8dPFDXL/+g3omfun1evN+1FW1
     S+XJ4vUz1AFgMRHwV+Fm05n/BhGyjujedwxNTY+m/xcVR8dGlcoVFRXwHfKho7Ej73ft26rgYTIv
     1iprm9UpZbExIiiVVWq5Url8iSxf9XoPwOVyqd+Li4sMSrP7YPvBnODaXCCeOjxxXDsKZ75tO3ar
     08lylEp19RXMgiVdcKwSnxE3rS937fUz7bRlTCiB9dqx14tWSY7Fmj1dqKxr2dwNZDHs27nncPYR
     +gnxPUzXLFyUSL4cHBjA3Nwc3Nvd6DvVV1aUyyklB4Dk1nWmLdkbpypKdtFFqpX6FpNyr58IcNvj
     GUQ1WVnSYT2oOdU/+OMALnx9QaWiFzpeLJlkLmvtYUbOif0nzMLoLHGbJGNp4bNHamX34l8WzqXQ
     xkbh/DnMAJpPKbklUQvhKpjXjycJyUNSuFTrd2SSNWzceWQhiSLbdY1lmOknQEzBvJIsFX0VySKb
     utxVaNi1Agn8z5e7fwCaz6q8cO2deAAAAABJRU5ErkJggg==
    }

    set imgdata(Kroc.off.n) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoCMijL9Yj8AAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAAA/5JREFUeNrVl01sVFUUx/93StF2Op12
     gCIwrS0LEqoGkGCMBkikkPDhQoJBEFmYGDfGBWGpG0oR2NAKuvNjQagoAqElURITFDcEbcGEgYJp
     qRAtLf3Alr4pzLzL/95335QO700fYkVO8sudmfsx/3feOefeK5DDpJSCTR7JJ0+Yz8rSqtvwT802
     66RUK4Swcw0WOQRGSBV5gTxPZpOoEXv7HlzBImArzbxB8if5nSRIO+mj4JFAQilyMptqspm8TmaS
     0EN4bjxTwvvJT+Qr0/ZQcMp/hpSF5FVylthyjPGrnXbI7vr3bIjsJdUk39Oj7FAxuILsIxWZEfYd
     wOqG7EtA3rqmBkIUlUPE5gIFT9HXkybCywfJNnLJ9awwIlU7j3xB5meGjwzAbj8M2Xmcg9JjlxJ5
     EE+vRmj2WqZZyUSIbSC7SBfFSjf2VOJsMmJHRZ7bA3nl2P0i9dOldZ/9W70e62eJ+gY0ls3AyRdf
     gt3TM6bv9J56HIhNQ+uu3V5T3yYvE5UzCBlvquxe53oYdgp2xxHI3nPjPra8cVZ7XYeIh3U07MVf
     Pd1I/PIrWt57H/aA81DnjxxFywcfoqu/D1c+3uc1VTmPrwsxLRROuVlA4pkh1nV6qznwO5KdzTqO
     veyZulpMnVaGZDqFM19/g0RTMy5/fwI/v7UZyeFhlMamoHr7Nr+lF5NyOlNngnLts8gUcwnZf8H7
     dfsqtXWyifBMZFe8yo0b8GQ8ju/WrkNf7w2ceuddCCbk8O0RlJTGsOxgIypqlvmtzGzVid2qPDrJ
     /GD+lEIH/wgu0p02dFXP9fy3JYux8thRlBRFYI0ktchIYRjLDx/KJRLGeerVh9xkepitMJAlk0nc
     SY3W8DQ/W5Y13jRh0DGqZl8f7RK6Tj6oiUiFnutlHYzJE3z1t5IWIgWFKA4XwaJXT65/A21NOXNB
     aeslthKq9t3zcA4I+gFEjDuoeIBdU9XU0rnwOjokPvscP6zfgKGbA4gUR1HDEFh5vAlRxufQ4CB+
     fHMTWj751G9l5cBOpS1kKn8ruZbpLihjMV8TXGclxxZM9+xrr63D3xQZjkSw9MB+VDEmZy1dgleY
     RMXREi22c8dOv6VPkavqZOW6TZ1cDsGN1VC+3nHE1PkYz8SUeQhVvea7lc7ZugXlZdOxYHst5qxe
     lfm9cnkNFn1UhzhLlxrjYep09S2cA0tmC1WCnyNf4n+6hQY4lDAyrC7WyQtOCVLJFo47ccwQUd6f
     AFPHvVrSRpH3F/TH4piX5VmVwo/i4NwIJ4G6sz0pfGdLWQzn+rGILIRzcImaOWqRJEbvPOpB7IBt
     ynATTvlpIxfhXEn6A19FssS6l7vJhjzjARv/8eXuLtr+m1ASdUH0AAAAAElFTkSuQmCC
    }

    set imgdata(Kroc.off.d) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoCMjGvniA8AAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAAA/tJREFUeNrNl19sU1Ucx7+33Wh7167d
     EhNpNhJ4YourAuqDxJi5BBP0yTCjCfFBI7yAkiDENxJ54kGTEdAHHtwb+C8RISpTbBR8IE62QSR0
     5U8IOPwT9qfdn7a3t/X7u/fcu7H1tkUy4Zd8cpqee879nu8953fO0VAlksmkxsJPGklA/ZYwSVnx
     X6Ok+ilK2d3dXar2sFZFYISsJk+T9WQNiSqxhQU4grU6y7JqlyVj5Aq5RK6RcQrO1yWUIlew6CSv
     k14SJ777cK5WiPAJ8jM5psp/KLjoKZQidRY9ZD9JLBlIWX1pTcMyxQz5hHxM0hRrLBFKkTIHN5FD
     ZJWrrWTCzGeRnxpDcW7CGn5jqAWB6Er4g1FqXhazPyXvk1HHWU2JlPJxNZonnKdNYxbZW0OYHrso
     iu/uigLD8S5E2tbB36gvh9g+coD8SbFlxw5ZOFuVWFfkeOoHTP8xslSkbbVVN5E6bT3rFZe++RbH
     tm3H6X37YGSzd9WdP3kSR998CyPHv67U9A2ykciagU+5Kat7i+NwWUTQyfzkrZrDzk3etFyXKVIp
     0qcGcGdyEldH0/itvx/mrD2o0XPncP6zzzGezeDKwEClpmLey6TVEgo73awjba6buQyy8rnrjOmx
     C9Y8rhSJV3oRi8ZgmCYunv0F6V8HcX14GGcOf4RCLodIpBldvVu8un6WtNNMX4Oy9jHMJ3PkM7cr
     f26vYDaQxdYQii2pWr3xGYRaW/D9Bx8ik8ng7JEjfLyMgmEgEg7j+V1vo62ry6vnR2Ev7CFxtEH9
     4b7UmB2vX6QKgxnBTV+L39bRgU179yAc0pEvFCyRejCInt27q4mEMk8+vc9ZTPezFdY3EAosmvM5
     vMipUMjnazXTFNYcldZ/zVdpVp6812jUWz03ghvDI9anz1GsHgjQzRAMupo8eBBXBwerdSva7pCS
     CJV993fYBwQrAtH4ve0+zKmB5pUVqy7/mESyrw9zMzPQdR09e97FC+/tRZjzc44Z4KdDh3Hhu1Ne
     PYuBN0SbT2X+IeLmIn8gwmSeqFtnhInfH2yuWJf66jhmKDJIkc/t3IFViQTinZ3o3vUOmpqaLLHp
     Eye8uj5DbsrJypmjcnL5Amquaj6/teMEY+01RQZibQjzWa+tdO1Lm/FISwvWM02t2bDB/b+dgp98
     7VWrbu2Lmys1lXz3JewDi7uFyltk+fXjId1Cax9KKNDMTTFP3rZSkDRosA4lcWuKiPvLEHLckxNc
     iiJN19EFYh/+Y94iZzvwYA7OR2EvoL8dJz2FLhAsy1iuH08RWQVycImqNtJJDvN3HhlIqc6yqJiC
     nX5S5DLsK8lE3VeRRWKdy90KhV85UML/fLn7F8ItpyCuHtQ3AAAAAElFTkSuQmCC
    }
  }

  # Tcl : for : alt, blueelegance, classic, default, waldorf
  lappend vars(style.names) Tcl
  proc _cbtoggle_Tcl { } {
    variable imgdata

    set imgdata(Tcl.on.n) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoDERKykkwYAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAABD1JREFUeNq9l11MFFcUx8/sAgtd2gWT
     ErdRG2lJoEDUbUSbyhOkCRpNQ1kbA2jigwlvTdvYpE15wPgVtSn9ePFB0JgoiYgPvLTGPlRMNGxS
     SaCwrB+hWJZCVEiXhm6Xvf2fO5fdWWY/ZrcfJ/ntzM49d+Y/55575l6N0pgQQsPBDvKBQ52zrXCz
     IleLqvtE+KhpWjSds5ZG4ItgM6gDHlAOXEps2MCqYM3iUah+v4MZ8AD8DB6BZxD8p6XXhMgCsBV8
     AabBisjBOp99Jtp8B6y4RsFTMADeB26Ql0nkC2AvuK9ukJN57zSLzd2vihN/HEuuLBqVJLEQ+Bq8
     AfJTiXQokVO5CjwTPim2X94m3KdeFsdDXQltkUhELC4uikAgIHw+nxgeHpbnCwsLYmXFNGhXldhY
     ZDVDTm4BPWBrLjPj7F+nqKf3Iv36ZJo6Ojro5Pozsbbl5WUaHR2liYkJflbiJNE0qqyspJqaGios
     LDQ2dYPTYBY+wqYu8sRpU2KztnOR09R78RI9fvSQDh46ZBI5NDRE4+PjJpEqSLKNfdjXYIfB26CA
     /9hUNHl2t1CKKpApkhd6eikw6acW7376qvzbWBvykMbGxigYDGa8D/tw1JEGq5c4eM1gnRRKernZ
     BjbkGskHgUnaVV9PlzyXE9pDoZCMllXj1FhaWjJeqgcbEUybTYW2huLF3JJ9Kc5SX1+fjGT5a6/T
     nt27TT5zc3NJhzuVsS/3Mdh6sIm18azKUxdMdmLpGAVng1RaWkpd644ntF0fGKCRkRHZ1t7WRh/a
     j5oeihmdzbtL4z7clyeZCh4PvW11+pteu/7aW4QSIjvV1tZSV3tcaNN379C9u3fJhgFpbW2lT52f
     Zy3IomkKmaP8rf1trQfqXmzY/H6/nDRsLbffpR9u3ZLnDQ0NdG5Td/InICIlJSVZK+M+KpqktD0F
     URbK390x0hcI8ag1NVF+vv5xCIfDEDtJB+7tp8HBQXmN87KxsTHtQ8vKyowPzRw++HIfg3EAp1ib
     DY2s+ifwxOjR6eqiHTt3xv5/f/Mm3UBecpQdDgd5vS30gfZx2gc7nU5ZzK1aVVUVFRcXGy/dBtO8
     slot+LxyuUZrcpWHtqioSJ7PBmdkXWTbu2+faXIlM7vdLr84brc7oy/7VFdXy7xXxqurfvBcRpt/
     uE7hUAt6ac0nlIf7en9/7D9PLF/7fctRYvs3PqF5ypmXMhM47QTfkF67pO2oq8Ps99H0L1NyWJqb
     38tKJBsL8Hg8VFFRQfPz87IEsUCXyyVzklOEo2+wq+A8mGORphumWuZ9MvORcHU6RYf/SK4Lq3+8
     zNOSiOUtRxU4CLzgFdLL2H9lHDHOwx/BFdInEEcyoQqlrB0Q/BLp24/t4E3SFy4u1YdvskzxPQ+/
     SNTiMaJYJL38+AGnHW9JnqfaiqQtciK+uStQ2FUEovQ/b+7+Bq/fhpt2UfpPAAAAAElFTkSuQmCC
    }

    set imgdata(Tcl.on.d) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoDEDUOg8gyAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAABCxJREFUeNq9V11MHFUU/mbZLgGCJfDS
     2Aq4MSZFfrSrQkqkS+y2W32A1kqjMT606rPPPsqTD5qY2FRNtCY+aBMNWNOWlCjNbrQvEqP8BCw2
     wJKt/JamEpSfWb9z584ys7vsn8aTfNxh7jl3vv3uPWfOGMhiQ0NDBocSYg9Rqq/FtomERrFm6nW2
     ZOzs7DSzORtZCFYSDxNPE4cIP7FXk91wwCZs5DkmdNx9Ik5MEePEbWKFhP/OiyhJ+jg0EK8SLxIP
     Ep5C5br66xXcid/BufBruVyF+F0iQnypx0US3nI6uQiQZDmH48RnxJvEgWJIfvjtBQxeH0R9fX1m
     ZomEgkOsaqKb+IR4i3iUXPZkVJQTcgaPER8QtYWSE7txa4jrfI+FxSWcOnkSoYZjyTnTNLG+vo7V
     1VWsra2pexUVFaiqqkJZWRk8Hpcel4i3id9sZQ1NUsYW4iLxeLEkrw1cw+LCIrq6u9AV6E7ObWxs
     YHp6GrOzs04lLaUMA7W1tUp9n8/nnHqfeIf4g2QT9s+QxHlFky2C5A0MDAwgHo8jHA6nkRwdHcXM
     zEwaSTG5J3MjIyPK12FniXZCsfdoNSW7T2OXKpBbyauIxWLoDAbR037Gtd2i5PLycs51VlZWlK/E
     OMQ7Bev8qkSRcvMErMQpSsm52Byam1tw9rg7w+VMynbna+IrMQ57hniIYqoTLNI2YqeY52WR2xGe
     7e+UkvsP7EdbW2uajyROpu3ezcRXYhy2D1Zil3j5x6tvpNng+HW1JZWVlXiu5XnXXDQaxdTU72ou
     dDSEI48E0x5qZ3chJjESK0mmxZOt93jtdVMDei/2YnJiQgX5/X4X0fcuvYvxsTEYHgOhUMhVhv5j
     MzTUGZU6NZ/qYW5vJ7dNtleSRux8/3kMDw+r60DgSbzQdjrzE6iI1MlCTWK0mtDcJBNNISo1YQxW
     g5C01tZWeL2W4Jubm+qgf3zlI9y8+aO6J+cyEAhkfagUc8dDc8tHX4lxmAg4I9w8uvL/TMw5PcJN
     J9DQ8Fjyf1ExEo0olaUwB48E0eHvyPpgeeNIMc/XxFdiHBYlYtJZ2QVfOpevkHJWA4FDKC0tVddL
     S0tImNb04fbDacmVyeS1KG+c6urqnL41NTXK1/Eqle7qa1gNS7Lh+JP4nPjFGXz0YIhlp821oCTW
     6yfeyFslUb+pqQl1dXUZj4Hck7nGxsbUV+inxA+wjmbupkTqZX9fH+bn51FeVo6eMz1FZXmBTYm0
     e73EJLd920VUk5U271nt1GzP9//Uh8vfXFal6KWOlwsmmWp2NcmgsPwCaYwuELdIcjOpfKqnVvYg
     /mXjXAhv7DTOX8BKoAVbyV2JOgg/AOvz4ylC6pA0Lnt1jCzyF3a+eeSHmHmOWxr3YJWfSWIC1ifJ
     3bw/RVLI2h93Po0SrYCJ//nj7h+M/LO786KvUgAAAABJRU5ErkJggg==
    }

    set imgdata(Tcl.off.n) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoDER67JAAzAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAAA+xJREFUeNrVl0tsVFUYx/93hkfpPCnM
     QKUQ6oL0RXgFQyBAIsUEDBtSg8hjYWLcGBfGpWwoRWEjhcIOZWGoKAoRTYCEBKQbArQuOtNWTQvR
     WJyRtmOnnSnM3OH/3Tl3Ku29M1NJRb7kl3Nzz/nO/Z/vfuelIY9lMhmNhZPMJLPVs1haqhX/1nTV
     T0pKTdP0fI21PAI9pJK8QlaTl4lPiX30D0zBWpFlRvkNkz/IryRMeskABY8VJZQiZ7GoIfvJG+Ql
     4niGyBUyET5IfiRfqjJKwSl7j0ymlOwgPxE9M8F0XTeYRouTE6SGzLSMKCskB18jLWSJ+T6dTmNk
     ZASRSASxWEzawe/3IxAIwOPxwOGYlmCfIwfJz2ZkNSVSyhXkc7LSbJ1MJtHZ2Ynu7m5D4FMj1DRU
     VVWhrq4OJSUl0yG2mRwhD/itjBkOmTh7ldicyLa2NnR1dU0SqQZn1EkbaWtn4WPNaA2W4/q69dCj
     0afqbn16DGfLAug4ctTK9W2ygcicgUNFU2Z3gxlh5iFCoRD6+/sLDlvaSNQlRaysr/kE+qMRhO/c
     Rft770MfGjLehy5cRPtHB/BgcAD3jrdYuUrwdpIyQyiyy80qUmG2iMfjRrSKNUkNyWMrq21qxPxA
     EMl0Cre/+hrhS9/jlytX0bZvP5Kjo5hbNg81hw7adb2RLGYwHTNUaOswvpgbE8fqd9uZtBUfr9c7
     qW7pW7tRUlGByzsbMPDwL9x8511obD/6aAz+uWXYcq4VS+q32HW9ENmJ3SERnaFe5D46pH7PVEx8
     7Aa3cNNGbPvuIvxuDxJjSUOkp9SFrd+ezycSKnjy63Nry7NshUWZTLjHqfE1PM3nRCJRyE1TGDkq
     3n/marjsyDo5VRMf8bWyPubkVf76kWQCnjml8LrcSDCq13e9iR7mbB4TbQ+JLkJl3w0he0AwLBgM
     2n7UcthsKz5WFj79Ga7t2o14bAgerw/1TIFtP1yCj/kZHx7GjT170X7ylF3XEsD7os2hVv4O8rtZ
     63K5jMW8WKuurobb7bas621swt8U6eIutvnsF6hkTi7avAmvchJ5fX5D7P3Dn9h1fZP8JicrM0fl
     5HIeKledTqex45SXlxcUKW1qa2ttt9JlH36AxcEFWHWoEcte3557v3RrPdZ+3IQKLl3SxsLkdPUN
     sgeW3BYqX1lOzuB/uoUWPJTILjXM3xPl9idLkAj0+XxGTkqKSPSnweS410h6+L3JW94LccybENlq
     PJ+DcyuyEygyMZK2axAFy34o14+1ZA2yBxef8pFOkhi/88hA9CLLlCKG7PLTQ7qRvZIMFn0VmSDW
     vNzNUjhVBHT8x5e7JyfVrxg83QXjAAAAAElFTkSuQmCC
    }

    set imgdata(Tcl.off.d) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoDEQaoSJhlAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAAA85JREFUeNrNl0tsU0cUhv9rqBM7CXEc
     ISFErMCKRMS0vBagCqWRUintqiIVlRCLVi0bCkgU1B1SWbGgUhCPBYtmB/Qh8VLbpGqtFrpADRDq
     FJEYaBwQ4iGbNFbw2+5/7p17k5p7bVOUNkf6NNbMnPF/z8ycmdFQxkKhkMZiAXmF1KjfYnlSVPxb
     K6hxclJ2dnYWynXWyghsIMvJBrKGrCCNSmxmFqZgrcqyqPwS5AG5TW6SuyROwemqhFKkm0U72U56
     yVLieonIVTIR/pT8Qk6r8gkF5xyFUqSXRRc5SIKl7cWiMdOapmGObJp8QU6QCMVmnxNKkbIGu8lR
     EjDrC4UCkskkJicnMT09rdfV1dXB5/PB4/HA5ZqTYJ8hn5ExM7KaEinlavU1r5q9M5kMxsfHMTEx
     YUXT+kJGNRAIoLW1FW63ey7E9pFD5CHFFs1wyMbZpsRaIsPhMKLR6HMixaRO2kZGRvS+Tnbz2+9w
     +qMd+PHAAWQTiX+0Xbt4Eac++BA3zp23c32fbCJ6FFwqmrK7t5gRlumWSMbj8YqfHYvF9L7iY2eR
     gUHEuGzujEVwtb8f+WfP9PqxK1dw7cuvEE9M4fbgoJ2rBO8d4teFwkg3r5FlZg9ZkzLd1Zr0FR87
     C77bC1+jD9l8HuHLvyLy2xD+HB7GpWPHkUml0NCwCB29W5yGfp20MJiuhSq0qzCTzPWNYzfdTiZ9
     xUc2Wakt37QRHn8Tfjj8OaampnD55Em9fyabRUN9Pd7YswvLOjqchl4CY2Nfl4guVBXWn5q7+0VM
     fJw+bklbG7r370O9x4s017OI9NbWomvv3nIioYInU2/llpc5CquyLAXm8jM5PMelkEmnK7lpCn2N
     ivcjq4Vpx24KK5n4OB0E0eEb+tSnKNZbU8NoepBlVENHjuDO0FC5YUVbjBREqOSWP2BcEHSTZP4i
     p4/0FR87u/VTCKG+PiS5NLxeL7r2fYI3P92Peq7PJDPAz0eP4ffvB5yGlgBGRZtLZf7r5L7ZKieO
     JPNqTfqKj52Nnj2nr99aitz88U4EgkEsbW9H557d+iyI2MiFC05DXyL35GZlrlG5uXwNtVblWJQT
     p7m5uaJIv9+v93U6Sle+3YPFTU1YwzS1Yu1aq76Fgte9t1VvW/lWj52rnA7fwLiwWEeo/Itsv37M
     0yN0vl5K5LonN7hRisxbEZ0ldv5f80oi24b/5+J8CsYGemxG0lHoLMGLYDw/1hPZBXJxaVQ+MkgK
     M28e+ZBClWVO8ReM9DNKbsF4kjyt+ilSItZ83LkVC1QECviPH3d/A8zWsAOw/sBNAAAAAElFTkSu
     QmCC
    }
  }

  # Vista : for : vista, winnative, winxpnative
  lappend vars(style.names) Vista
  proc _cbtoggle_Vista { } {
    variable imgdata

    set imgdata(Vista.on.n) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoDFwOOeMtsAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAABCJJREFUeNq9l01sVFUUx8+b0k4LpU1J
     bcEqlupGYyNgWjDaVRuTQiCmdjCkBRIXJt0ZNZpg6KKErwDG+rFxQQtipAlSFt0owYWEBFIS7ULC
     FMTWwX4GiHW07XSY6/9/587Mm3nz8TpGT/LL+7jnvve/595z3n2WZDGllIVDASgEXnNOe8RmQ74W
     Mc8J82hZViSbs5VF4GqwATSCzaAOlBuxIRsxwZbLozL9/gQT4A64Ce6CBxC86GqYEFkENoKPQAA8
     UnlY94MPVeeN3W5cI+A+GARvgHVgRS6RK8EO8JN5QF7mu9qmNvQ+pQ7/fTC9skhEk8aC4FPwHCjM
     JNJrRI7nK/B46IhqOLtJrTv6mDoU7HGIm5+fV7OzsyoQCGh4zntpRJ8zYuORtWxr8gXQBzbmkxkn
     lo5KX/9p+f1eQLq6uuTI2uPxtqWlJZmenpaZmRm+KzlJLEuqqqqkurpaCguTgtgLjoEp+CiPucnE
     6TRil20nw8ek//QZ+fXuL7J33z6HyLGxMS00VaQJkm6jD31t9iZ4GRTxwmOiyexulwxVIFckT/X1
     y+1Rv7T7dskndZ87RMzNzeV8Dn1SBsPgtYE1WqhEy80m8ES+kbxze1ReaWqSM5vPJrUvLi7q6XZr
     9GUfmzWBJyHe4zGhfV4SxdyVfaxOyMDAgI5k3dPPyPZt2xw+wWAw7XRnMvqyj83WgvXUxqxaYW44
     7PBfB2VyalIqKiqkZ82hpLYLg4MyMjKi2/Z0dso7Be87XrqwsLCcsWtjH/Zlkpngceo9sfR3DLvp
     /EsyPDysO9XX10vPnoTQ1m9flevXrokHE9LR0SH7Vx1YtiCXZhn0GuW3djrVIxwOx6fN7/frpKG1
     X3lNvr98WZ83NzfLyfW96d+AiBQXFy9bGfuYaIrRdh9EKJTf3Z8lukFIRK21NV7XQqEQxI7K7uu7
     ZGhoSN/jumxpacn60tLSUvtLc4cPvuxjMwZwnNo8aKTqH8E9u0d3eY9s2bo1fv3dpUtyEeuSUfZ6
     veLztcvb1ntZX0w/FnO3Rl/2sdkVEODOKlbwuXM5LylrlVNbUlKiz6cmJwSfOn2+Y+dOR3JlihC/
     OGVlZTl96UNf2wxwd/UNeMiLmFDWhC/BiL3z/pUHpDWl7DCxvmo45zpKXD61tbWpIhyDoU/KJ/QU
     uCrRpalLE525K7iF027wmURrl7YtjY3I/hsS+G1cr5+2ttddi7SLrampkcrKSl0nY2WLicNncrpT
     BsFIfAFm+J13PDDTNu+DiXdVefcq1eV/K9+N1b/e5llpxHI1Pwv2Ah943LZE/gtjxLgOfwBfSzSB
     GMmkKpSxdkAwM4C/Hw3gRYluXMpNHz5kQRL/PBxIxOUxbPhDouXHD7js+EvyMNOvSNYipxI/d0WG
     AhOBiPzPP3f/AMuOeWOnl6g0AAAAAElFTkSuQmCC
    }

    set imgdata(Vista.on.d) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoDFiOsDdrlAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAABCxJREFUeNq9V11MHFUU/mb/CJtggZAg
     tgpujBG0oF0VUtLtErvtVh+gtWraGB+q9tlnH/pQnnzQxMSm2kTbpA+1icZa05aUKM1utC8lRhMI
     tdhEluwqUBajguVn1/PN3FlmZmF3djWe5OMOc8+d/e53zzlzRkMJGxkZ0WTwCvyCGnVNWxPkFaq1
     nHrOKse+vr5cKWetBME6wcOCZwU7BCHBFkV22QKTsOZyzKt1fwjSgknBuOCOYF4I33NFVEgGZOgQ
     vCZ4SfCAwFOpXFd+vIxMOoPX42+UcyXxrCAh+FSNs0J41epkIyAkgzLsE5wVvCXYVg3JD786heFr
     w2hra3PjTrEaBQOCjwVvCx4VLv4NFZUJxuBewQeChyolR7t+e0Se8w1mZudw8MABxDr2rsuWz2Nl
     ZQVLS0tYXl7W7wUCAdTW1sLv90PTbId7QXBC8JOprKZIcuwSnBE8WS3Jq0NXMTszi/6BfvSHBwpz
     a2trmJ+fx8LCgk7YppQQrK+vR2NjI7xer3XqfcE7gl+FbN48VibOq4psFSSvY2hoCOl0GvF4vIhk
     JpNBNpstImkqzTn60NdiRwW9FJ7/eJSazO5D2KQKlFfyClKpFPqiUbzc+4qNBJVcXFws+xz60Ney
     GYp3EEb86olCvZ+CkThVKTmdmkZnZxeO7rNnOGOSark1hgbXWGyX4EER0+NR0j6B9WLuyhJ3EhLb
     X+tKbt22FT093UU+TJxKjGo61twPI7G9PvnjUzeKbHj8mn4cdXV1eL7rBdtcMpnE5OTP+lxsTwy7
     H4kWrTezuxJzrKF4PHqPz9yMc8HgmUHcmpjQdxkKhWxE37vwLsbHxqB5NMRiMVsZ+o9NU9BjlHXq
     N6dHTjLQDGweL5OGdvLiSYyOjurX4fDTeLHn0Ka/wjpZqTnWkNtd0iFRaj0Go0EoWHd3N3w+Q3AG
     +NTUFE5f/gg3bnyn32NchsPhkj/KYu4o5GWNayxGAX8hN4+q/N8Lpq0e8e370dHxeOF/qphIJnSV
     uevo7igioUjJH+Ubh8XcrTU0NOhrLJYUpNhZmQWfnctncMRqOLwDNTU1+vXc3BzyOWN6Z+/OouTa
     yKgm3zjBYLCsL33oazkBdlefw2hYCg3Hn4Jzgh+si/e0x6Ts9NgeyMR6c/8x1yrxtdjS0qKrtVEY
     8B7n6ON4hX4i+BZGaBpEVdM6ITgumLJ6P9bejubmZmPXtUFEIqWPezOyTU1NaG1t1Z9FYgSveY9z
     DpJs904LZvie1zdknVVt3nOCQUGnOX/x5he49OUlvRQdjhypmGgF9heMxuiU4LaQLLymNmqcGZTt
     +JeNcwVmbZzPw0ggKmmrQpvWDiF8H4zPj2cErENsXLaoNXzI31j/5uFGci7HVYXfYZSfWzDCjp8k
     WdefIg6y5sddQMGrFMjhf/64+wfCz5FwI6OhTQAAAABJRU5ErkJggg==
    }

    set imgdata(Vista.off.n) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoDFxF9wbokAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAAA7BJREFUeNrVl1lsTFEYx/93arTaWaqY
     WkrwIFHEFiIECSVBvAixe5CIF/EgHnlp1fZCbW+WB1E7sSRIJLYXQevFRBEqBJ3qPjozOr3j/905
     d1rj3pkpsX3JL2dyz/ed+Z/vnvPdczSksFgsprHJIk6SrX6LdUq34mdNV+NEpdU0TU/lrKUQ6CYj
     yFQyiYwkXiX2azdMwVqGbUzFtZEP5BXxk9ekkYIjGQmlyN5sisk6sowMJo5fyFw6E+FN5B45rdp6
     Co7aR8RiuWQxeUr0WJLpum7wGy1IDpJi4rTMKDtkDc4nh8iwbs8RiUQQDAYRDoeNZzk5OXC5XMjO
     zgZn/juyfIaUkhdmZjUlRtrx5DiZYHp3dHSgrq4OgUDAEPzdDCnQ5/OhsLAQTqczUwE9sQqyh3zi
     f8XMtScbZ40SmxBZW1trCE0WaWZa+sRHfO3Mv78Clb5BuDNtOvT6+u/6Hu7bj1MFA1C9Z69V6Hoy
     g8iegUNlU3b30m4ZNkS0tramnbb42E1G7E3FQXysD8D/+AmqNm2G3txsPH926TKqtm3Hp6ZG1B44
     ZBUqyVtCCgyhiJebiaTI9JA1Ka87UxNfibGyMeVl6D/Ah3BnFI/OnoP/6jW8vHkLD9auQ7i9HX0L
     +qF4R6nd0DPJUCbB0Uuldiy6irmxcewyZGXiKzGyyZJt+KqVyCkqwo0lS9HY8Bn3N2yERv/2rxHk
     9y3A3DOVGFYy127ogYhv7GrJaC/1IPGn5u7uiUmM3eQGzpqJBVcuI9/lRigSNkS6c/Mw7+L5VCKh
     kiev3mFupl/5FGY8kY5oVw3v5O9QKJQuTFMYa1Si6xI9LDtWrzCdSYxdTX3DNXmLr/5LOAR3n1x4
     8lwIMat3lq9ADddsChNtDUQXofLdfYb4AcEwKeY9KeTiKzFW5j96DLeXr0SwpRlujxclXAILrl+F
     l+sz2NaGu6vXoOrwEbuhJYFvRZtDVf5q8t7slS+OFPNMTXwlxspel5WjlSLz3G7MPnUSI7gmh8ye
     hTncRB5vviH27c7ddkPfJ+/kZGWuUTm5nIdaq5Ih+eJ4PJ60IsVHfO3ewKitWzDUV4iJO8owatHC
     xPPh80owZVc5ili6xMfC5HR1AfEDS6LAi+Bx5AT+0U/ov3ookeNeGanh+J0/9P4Xx7ykzI7G3zk4
     VyK+gQLJmbR9bxQsO0muH1PIZMQPLl4VI4OE0XXnkYnoGbZRRQvi5aeGPEf8StKU8VUkSax5ueut
     yFIZ0PGHL3ffAKfMrSwg2WmfAAAAAElFTkSuQmCC
    }

    set imgdata(Vista.off.d) {
     iVBORw0KGgoAAAANSUhEUgAAACoAAAAWCAYAAAC2ew6NAAAALHRFWHRDcmVhdGlvbiBUaW1lAE1v
     biAyNSBBcHIgMjAxNiAxMjo1ODowNCAtMDgwMMUkVkUAAAAHdElNRQfgBBoDFjFftKutAAAACXBI
     WXMAAB7CAAAewgFu0HU+AAAABGdBTUEAALGPC/xhBQAAA6RJREFUeNrNl1tIk2Ecxp9tOd08zUEQ
     UUJeqaSduygiTCiorkKjILooqpsOQge6C+qqiwKjw0UXedcZsqLSqNHpQrLSIlHXASmyA23m0M0d
     e/7f3m8u27fNwvIPP96x7/2/PO/znk1IEy6Xy8TCQnJIrvotESExxZ9GVLUTlrKmpiaarrIpjcBC
     MossJvNJGSlWYoNJ6IJNWZYxlecjn8gb0kXeEQ8Fj2QllCKtLCrJZlJPphPzXziXKUS4lzwkF1T5
     jYLDhkIp0s6ilhwh1UaOT2AMkXPkDHFTbOg3oRQpc3AlOUlKE92NxRAKheD3+xEMBrX/rFYrbDYb
     cnJyYDJNSF8uksOkV3fWpERKOUf1Zq5eOxKJwOPxYGBgQBOcHCLQ4XDA6XTCYrFkK2A80UiOks8U
     G9PnniycTUpsQmR/fz+8Xu9vInWn5ZvUkbpG0XXrNi5s34F7hw4h5PP98u35zZs4v3UbOpuvp0rd
     QpYSWTMwKzdlddfpDosIcXJ4eDhjt6WO1E3VGQl3Syu+c0Te9rrxrKkJEdVmb1sbnl+6DI9vEG9a
     W1OlinnriFMTivh2M4/M0GvInJThzjbEWclJFdXr6+EodiBE1189fgL303a87+jAo1OnEQwEUFhY
     hKr6OqOml5GZNNM8RVk7G6ObubZwjBwyCsmRRTY2Zi1dApuzBHePHcfg4CAenz2rtR1kxwoLCrCi
     YTdmVFUZNTsN8YX9Qhydov5IhL66xxPpcqZVVGDlgf0osNkxwnoi0p6Xh9q9e9OJhDJPht6sL6a/
     OQqzihAFhiOje3iYUyE4MpIpzaTQ5qhkf0n+mmoIM0W6nL6OTm3oAxRrz82lmzZtTrtOnMDb9vZ0
     zYq27yQqQmXMXiN+QdBCNvPxhOypRjnd911wNTbCPzQEu92O2v37sOrgARRwfvq5Azw4eQov77QY
     NS0G9ok2s9r5X5CP+lc5cUpKSrIWKhu/5KSKnmvNGKLIPIpcvmsnSqurMb2yEjUNe5Cfn6+Jdd+4
     YdT0I/JBblb6HJWbyxWouSoOyYkjDmQKqSN1jY7S8rWrMZWdns9tqmzBgsT/Myl44cYN2rfyNatT
     pcrpcBXxC0viCBXBsvyaMEmP0Ml6KZHrntzgeigyknA0Sezkv+aNcbYC/+fifB7xBfRVd9JQaJLg
     IsSfH4uIrAK5uBSrHGkkgNE3j3QkmmUZVvxAfPvpId2IP0m8WT9FxojVH3dWhUU5EMU/ftz9BKd3
     oc/jD9DrAAAAAElFTkSuQmCC
    }
  }

  #
  # background colors
  #
  # theme-name      color (color-name)  - mapped-to-style   color
  # alt             #d9d9d9 (grey85)    - tcl               #a2a2a2
  # aqua            #1485fe             - aqua              #1485fe
  # aquablue        #f6f4f2             - tcl               #a2a2a2
  # aquativo        #fafafa (grey98)    - aqua              #1485fe
  # arc             #f5f6f7             - arc               #c0c8cc
  # black           #424242 (grey26)    - black             #424242
  # blue            #6699cc             - blue              #6699cc
  # blueelegance    #d8d8d8             - tcl               #a2a2a2
  # clam            #dcdad5             - tcl               #a2a2a2
  # classic         #d9d9d9 (grey85)    - tcl               #a2a2a2
  # clearlooks      #efebe7             - tcl               #a2a2a2
  # default         #d9d9d9 (grey85)    - tcl               #a2a2a2
  # keramik         #cccccc (grey80)    - tcl               #a2a2a2
  # keramik_alt     #cccccc (grey80)    - tcl               #a2a2a2
  # kroc            #fcb64f             - kroc              #fcb64f
  # plastik         #efefef             - tcl               #a2a2a2
  # radiance        #f6f4f2             - tcl               #a2a2a2
  # vista           #f0f0f0 (grey94)    - vista             #cdcdcd
  # waldorf         #d1d1d1 (grey82)    - tcl               #a2a2a2
  # winnative       #f0f0f0 (grey94)    - vista             #cdcdcd
  # winxpblue       #ece9d8             - tcl               #a2a2a2
  # xpnative        #f0f0f0 (grey94)    - vista             #cdcdcd
### check xpnative on XP

  # ttk-theme-name  toggle-style-name
  set vars(theme.map) {
    Alt             Tcl
    Aqua            Aqua
    Aquablue        Tcl
    Aquativo        Aqua
    Arc             Arc
    Black           Black
    Blue            Blue
    Blueelegance    Tcl
    Clam            Tcl
    Classic         Tcl
    Clearlooks      Tcl
    Default         Tcl
    Keramik         Tcl
    Keramik_alt     Tcl
    Kroc            Kroc
    Plastik         Tcl
    Radiance        Tcl
    Vista           Vista
    Waldorf         Tcl
    Winnative       Vista
    Winxpblue       Tcl
    Xpnative        Vista
  }

  setTheme
  bind . <<ThemeChanged>> +::checkButtonToggle::setTheme
}

======