#!/usr/bin/tclsh
#
#
#
# 7.11
#   - set menu.relief to solid.

set ap [file normalize [file dirname [info script]]]
if { $ap ni $::auto_path } {
  lappend ::auto_path $ap
}
set ap [file normalize [file join [file dirname [info script]] .. code]]
if { $ap ni $::auto_path } {
  lappend ::auto_path $ap
}
unset ap
package require awthemes
package require colorutils
::themeutils::setBackgroundColor awdark #494a4a
#::themeutils::setHighlightColor awdark #fcd277

namespace eval ::ttk::theme::awdark {

  proc setBaseColors { } {
    variable colors

    array set colors {
        style.arrow           solid-bg
        style.checkbutton     roundedrect-check
        style.menubutton      solid
        style.radiobutton     circle-circle-hlbg
        style.treeview        solid
        bg.bg                 #494a4a
        fg.fg                 lightgrey
        graphics.color        #494a4a
        is.dark               true
    }
  }

  proc setDerivedColors { } {
    variable colors

    set colors(arrow.color) $colors(fg.fg)
    set colors(border) #000000
    set colors(border.scale) $colors(bg.darkest)
    set colors(border.tab) $colors(bg.light)
    set colors(button) $colors(bg.darker)
    set colors(button.active) $colors(bg.light)
    set colors(button.anchor) {}
    set colors(button.padding) {5 3}
    set colors(entrybg.bg) $colors(bg.darkest)
    set colors(entry.padding) {5 1}
    set colors(menubutton.padding) {5 2}
    set colors(menu.relief) solid
    set colors(notebook.tab.focusthickness) 5
    set colors(scrollbar.color.grip) #000000
    set colors(select.bg) $colors(graphics.color)
    set colors(spinbox.color.bg) $colors(graphics.color)
    set colors(tab.active) $colors(bg.darker)
    set colors(tab.disabled) $colors(bg.darker)
    set colors(tab.inactive) $colors(bg.darker)
    set colors(tab.selected) $colors(bg.darker)
    set colors(tab.use.topbar) true
    set colors(trough.color) $colors(bg.darkest)
  }

  proc init { } {
    set theme awdark
    set version 7.12
    ::ttk::awthemes::init $theme
    package provide $theme $version
    package provide ttk::theme::${theme} $version
  }

  init
}
