#pixmap_path "./icons"

style "icon-style"

{

  stock["gnome-stock-about"] = {{ "gtk-dialog-question.png", *, *, * }}

  stock["gnome-stock-gnome-run"] = {{ "gnome-stock-gnome-run.png", *, *, * }}

  stock["panel-run"] = {{ "gnome-stock-gnome-run.png", *, *, * }}

  stock["gtk-floppy"] = {{ "gtk-find.png", *, *, * }}



  stock["gtk-go-back"] = {{ "gtk-go-back.png", *, *, * }}

  stock["gtk-go-forward"] = {{ "gtk-go-forward.png", *, *, * }}

  stock["gtk-go-up"] = {{ "gtk-go-up.png", *, *, * }}

  stock["gtk-home"] = {{ "gtk-home.png", *, *, * }}

  stock["gtk-refresh"] = {{ "gtk-refresh.png", *, *, * }}

  stock["gtk-stop"] = {{ "gtk-stop.png", *, *, * }}

  

  stock["gtk-revert-to-saved"] = {{ "gtk-revert.png", *, *, * }}

  stock["gtk-add"] = {{ "gtk-add.png", *, *, * }}

  stock["gtk-apply"] = {{ "gtk-ok.png", *, *, * }}

  stock["gtk-delete"] = {{ "gtk-delete.png", *, *, * }}

  stock["gtk-execute"] = {{ "gnome-stock-gnome-run.png", *, *, * }}

  stock["gtk-remove"] = {{ "gtk-delete.png", *, *, * }}

  stock["gtk-jump-to"] = {{ "gtk-jump-to.png", *, *, * }}

  stock["gtk-goto-top"] = {{ "gtk-goto-top.png", *, *, * }}

  stock["gtk-goto-bottom"] = {{ "gtk-goto-bottom.png", *, *, * }}

  stock["gtk-goto-first"] = {{ "gtk-goto-first.png", *, *, * }}

  stock["gtk-goto-last"] = {{ "gtk-goto-last.png", *, *, * }}

  stock["gtk-go-down"] = {{ "gtk-go-down.png", *, *, * }}

  stock["gtk-go-back"] = {{ "gtk-go-back.png", *, *, * }}

  stock["gtk-go-forward"] = {{ "gtk-go-forward.png", *, *, * }}

  stock["gtk-go-up"] = {{ "gtk-go-up.png", *, *, * }}

  stock["gtk-home"] = {{ "gtk-home.png", *, *, * }}

  stock["gtk-no"] = {{ "gtk-delete.png", *, *, * }}

  stock["gtk-ok"] = {{ "gtk-ok.png", *, *, * }}

  stock["gtk-refresh"] = {{ "gtk-refresh.png", *, *, * }}

  stock["gtk-stop"] = {{ "gtk-stop.png", *, *, * }}

  stock["gtk-close"] = {{ "gtk-close.png", *, *, * }}

  stock["gtk-cancel"] = {{ "gtk-stop.png", *, *, * }}

  stock["gtk-yes"] = {{ "gtk-ok.png", *, *, * }}

  stock["gtk-undo"] = {{ "gtk-undo.png", *, *, * }}

  stock["gtk-redo"] = {{ "gtk-redo.png", *, *, * }}

  stock["gtk-save-as"] = {{ "gtk-save-as.png", *, *, * }}

  stock["gtk-save"] = {{ "gtk-save.png", *, *, * }}

  stock["gtk-open"] = {{ "gtk-open.png", *, *, * }}

  stock["gtk-new"] = {{ "gtk-new.png", *, *, * }}

  stock["gtk-print"] = {{ "gtk-print.png", *, *, * }}

  stock["gtk-print-preview"] = {{ "gtk-print-preview.png", *, *, * }}

  stock["gtk-cut"] = {{ "gtk-cut.png", *, *, * }}

  stock["gtk-copy"] = {{ "gtk-copy.png", *, *, * }}

  stock["gtk-paste"] = {{ "gtk-paste.png", *, *, * }}

  stock["gtk-find-and-replace"] = {{ "gtk-find-and-replace.png", *, *, * }}

  stock["gtk-find"] = {{ "gtk-find.png", *, *, * }}

  stock["gtk-dialog-error"] = {{ "gtk-dialog-error.png", *, *, * }}

  stock["gtk-dialog-info"] = {{ "gtk-dialog-info.png", *, *, * }}

  stock["gtk-dialog-question"] = {{ "gtk-dialog-question.png", *, *, * }}

  stock["gtk-dialog-warning"] = {{ "gtk-dialog-warning.png", *, *, * }}

  stock["gtk-help"] = {{ "gtk-help.png", *, *, * }}

  stock["gtk-quit"] = {{ "gtk-quit.png", *, *, * }}

  stock["gtk-zoom-in"] = {{ "gtk-zoom-in.png", *, *, * }}

  stock["gtk-zoom-out"] = {{ "gtk-zoom-out.png", *, *, * }}

  stock["gtk-zoom-100"] = {{ "gtk-zoom-100.png", *, *, * }}

  stock["gtk-zoom-fit"] = {{ "gtk-zoom-fit.png", *, *, * }}

  stock["gtk-cdrom"] = {{ "gtk-cdrom.png", *, *, * }}

  stock["panel-logout"] = {{ "gtk-quit.png", *, *, * }}

  stock["gtk-select-color"] = {{ "gtk-select-color.png", *, *, * }}

  stock["gtk-properties"] = {{ "gtk-dialog-info.png", *, *, * }}

  stock["gtk-preferences"] = {{ "gtk-preferences.png", *, *, * }}

  stock["gtk-select-font"] = {{ "gtk-select-font.png", *, *, * }}

  stock["gtk-index"] = {{ "gtk-index.png", *, *, * }}

  stock["gnome-stock-connect"] = {{ "gnome-stock-connect.png", *, *, * }}

  stock["gnome-stock-disconnect"] = {{ "gnome-stock-disconnect.png", *, *, * }}

  stock["volume-max"] = {{ "volume-max.png", *, *, * }}

  stock["volume-med"] = {{ "volume-med.png", *, *, * }}

  stock["volume-min"] = {{ "volume-min.png", *, *, * }}

  stock["volume-mute"] = {{ "volume-mute.png", *, *, * }}

  stock["volume-zero"] = {{ "volume-zero.png", *, *, * }}

}

class "GtkWidget" style "icon-style"



style "panel"

{

	      stock["panel-screenshot"] = {{ "panel-screenshot.png", *, *, * }}

  		stock["panel-lockscreen"] = {{ "panel-lockscreen.png", *, *, * }}

  		stock["panel-searchtool"] = {{ "panel-find.png", *, *, * }}

            stock ["panel-multimedia"] =    {{"stock_multimedia.png"}}

		stock ["panel-gnome-logo"] =    {{"gnome-logo.png"}}

}

class "GtkWidget" style "panel"



style "rhythmbox"

{

  stock["rhythmbox-play"] = {{ "rhythmbox-play.png", *, *, * }}

  stock["rhythmbox-stop"] = {{ "rhythmbox-stop.png", *, *, * }}

  stock["rhythmbox-previous"] = {{ "rhythmbox-previous.png", *, *, * }}

  stock["rhythmbox-next"] = {{ "rhythmbox-next.png", *, *, * }}

  stock["rhythmbox-pause"] = {{ "rhythmbox-pause.png", *, *, * }}

  stock["rhythmbox-volume-max"] = {{ "volume-max.png", *, *, * }}

  stock["rhythmbox-volume-medium"] = {{ "volume-med.png", *, *, * }}

  stock["rhythmbox-volume-min"] = {{ "volume-min.png", *, *, * }}

  stock["rhythmbox-volume-zero"] = {{ "volume-zero.png", *, *, * }}

  stock["rhythmbox-volume-mute"] = {{ "volume-mute.png", *, *, * }}

}

class "GtkWidget" style "rhythmbox"



style "epiphany"

{

  stock["epiphany-bookmarks"] = {{ "epiphany-bookmarks.png", *, *, * }}

  stock["epiphany-bookmark-page"] = {{ "epiphany-bookmark-page.png", *, *, * }}

  stock["epiphany-history"] = {{ "epiphany-history.png", *, *, * }}

  stock["epiphany-fullscreen"] = {{ "gtk-zoom-fit.png", *, *, * }}

  stock["epiphany-secure"] = {{ "epiphany-secure.png", *, *, * }}

  stock["epiphany-unsecure"] = {{ "epiphany-unsecure.png", *, *, * }}

}

class "GtkWidget" style "epiphany"

# black.tcl -
#
#   Experimental!
#
#  Copyright (c) 2007-2008 Mats Bengtsson
#
# $Id: black.tcl,v 1.1 2009/09/09 19:21:38 oberdorfer Exp $

package require Tk 8.4;                 # minimum version for Tile

namespace eval ttk {
  namespace eval theme {
    namespace eval black {
      variable version 0.0.1
    }
  }
}

namespace eval ttk::theme::black {
  
  #variable imgdir [file join [file dirname [info script]] black]
  #variable I
  #array set I [tile::LoadImages $imgdir *.png]
  
  variable dir [file dirname [info script]]
  
  # NB: These colors must be in sync with the ones in black.rdb

  variable colors
  array set colors {
    -disabledfg	"DarkGrey"
    -frame  	"#424242"
    -dark	"#222222"
    -darker 	"#121212"
    -darkest	"black"
    -lighter	"#626262"
    -lightest 	"#ffffff"
    -selectbg	"#4a6984"
    -selectfg	"#ffffff"
  }
  if {[info commands ::ttk::style] ne ""} {
    set styleCmd ttk::style
  } else {
    set styleCmd style
  }
  
  $styleCmd theme create black -parent clam -settings {
    
    # -----------------------------------------------------------------
    # Theme defaults
    #
    $styleCmd configure "." \
        -background $colors(-frame) \
        -foreground white \
        -bordercolor $colors(-darkest) \
        -darkcolor $colors(-dark) \
        -lightcolor $colors(-lighter) \
        -troughcolor $colors(-darker) \
        -selectbackground $colors(-selectbg) \
        -selectforeground $colors(-selectfg) \
        -selectborderwidth 0 \
        -font TkDefaultFont \
        ;
    
    $styleCmd map "." \
        -background [list disabled $colors(-frame) \
        active $colors(-lighter)] \
        -foreground [list disabled $colors(-disabledfg)] \
        -selectbackground [list  !focus $colors(-darkest)] \
        -selectforeground [list  !focus white] \
        ;
    
    # ttk widgets.
    $styleCmd configure TButton \
        -width -8 -padding {5 1} -relief raised
    $styleCmd configure TMenubutton \
        -width -11 -padding {5 1} -relief raised
    $styleCmd configure TCheckbutton \
        -indicatorbackground "#ffffff" -indicatormargin {1 1 4 1}
    $styleCmd configure TRadiobutton \
        -indicatorbackground "#ffffff" -indicatormargin {1 1 4 1}
    
    $styleCmd configure TEntry \
        -fieldbackground white -foreground black \
        -padding {2 0}
    $styleCmd configure TCombobox \
        -fieldbackground white -foreground black \
        -padding {2 0}
    
    $styleCmd configure TNotebook.Tab \
        -padding {6 2 6 2}
    
    # tk widgets.
    $styleCmd map Menu \
        -background [list active $colors(-lighter)] \
        -foreground [list disabled $colors(-disabledfg)]
    
    $styleCmd configure TreeCtrl \
        -background gray30 -itembackground {gray60 gray50} \
        -itemfill white -itemaccentfill yellow
  }
}

# A few tricks for Tablelist.

namespace eval ::tablelist:: {

  proc blackTheme {} {
    variable themeDefaults

    array set colors [array get ttk::theme::black::colors]

    array set themeDefaults [list \
      -background	  "Black" \
      -foreground	  "White" \
      -disabledforeground $colors(-disabledfg) \
      -stripebackground	  "#191919" \
      -selectbackground	  "#4a6984" \
      -selectforeground	  "DarkRed" \
      -selectborderwidth 0 \
      -font		TkTextFont \
      -labelbackground	$colors(-frame) \
      -labeldisabledBg	"#dcdad5" \
      -labelactiveBg	"#eeebe7" \
      -labelpressedBg	"#eeebe7" \
      -labelforeground	white \
      -labeldisabledFg	"#999999" \
      -labelactiveFg	white \
      -labelpressedFg	white \
      -labelfont	TkDefaultFont \
      -labelborderwidth	2 \
      -labelpady	1 \
      -arrowcolor	"" \
      -arrowstyle	sunken10x9 \
      ]
  }
}

package provide ttk::theme::black $::ttk::theme::black::version

# if { [catch {package require tile 0.8 }] != 0 } { return }

package ifneeded ttk::theme::black 0.0.1 \
  [list source [file join $dir black.tcl]]

# keramik.tcl - 
#
# A sample pixmap theme for the tile package.
#
#  Copyright (c) 2004 Googie
#  Copyright (c) 2004 Pat Thoyts <[email protected]>
#
# $Id: keramik.tcl,v 1.1 2009/09/09 19:19:07 oberdorfer Exp $

package require Tk 8.4;                 # minimum version for Tile
package require tile 0.8.0;             # depends upon tile 0.8.0

namespace eval ttk {
    namespace eval theme {
        namespace eval keramik {
            variable version 0.5.1
        }
    }
}

namespace eval ttk::theme::keramik {

    variable colors
    array set colors {
        -frame      "#dddddd"
        -lighter    "#cccccc"
        -window     "#ffffff"
        -selectbg   "#eeeeee"
        -selectfg   "#000000"
        -disabledfg "#aaaaaa"
    }

    proc LoadImages {imgdir} {
        variable I
        foreach file [glob -directory $imgdir *.gif] {
            set img [file tail [file rootname $file]]
            set I($img) [image create photo -file $file -format gif89]
        }
    }

    LoadImages [file join [file dirname [info script]] keramik]

    ttk::style theme create keramik -parent alt -settings {


        # -----------------------------------------------------------------
        # Theme defaults
        #
        ttk::style configure . \
            -borderwidth 1 \
	    -foreground "Black" \
            -background $colors(-frame) \
            -troughcolor $colors(-lighter) \
	    -fieldbackground $colors(-window) \
            -font TkDefaultFont \
            ;

        ttk::style map . -foreground [list disabled $colors(-disabledfg)]
                
        # -----------------------------------------------------------------
        # Button elements
        #  - the button has a large rounded border and needs a bit of
        #    horizontal padding.
        #  - the checkbutton and radiobutton have the focus drawn around 
        #    the whole widget - hence the new layouts.
        #
        ttk::style layout TButton {
            Button.background
            Button.button -children {
                Button.focus -children {
                    Button.label
                }
            }
        }
        ttk::style layout Toolbutton {
            Toolbutton.background
            Toolbutton.button -children {
                Toolbutton.focus -children {
                    Toolbutton.label
                }
            }
        }

        ttk::style element create button image [list $I(button-n) \
                {pressed !disabled}	$I(button-p) \
                {active !selected}	$I(button-h) \
                selected		$I(button-s) \
                disabled		$I(button-d)] \
            -border {8 6 8 16} -padding {6 6} -sticky news
        ttk::style configure TButton -padding {10 6} -anchor center

        ttk::style element create Toolbutton.button image [list $I(tbar-n) \
                {pressed !disabled}	$I(tbar-p) \
                {active !selected}	$I(tbar-a) \
                selected                $I(tbar-p)] \
            -border {2 9 2 18} -padding {2 2} -sticky news
	ttk::style configure Toolbutton -anchor center

        ttk::style element create Checkbutton.indicator \
	    image [list $I(check-u) selected $I(check-c)] \
            -width 20 -sticky w

        ttk::style element create Radiobutton.indicator \
	    image [list $I(radio-u) selected $I(radio-c)] \
            -width 20 -sticky w

        # The layout for the menubutton is modified to have a button element
        # drawn on top of the background. This means we can have transparent
        # pixels in the button element. Also, the pixmap has a special
        # region on the right for the arrow. So we draw the indicator as a
        # sibling element to the button, and draw it after (ie on top of) the
        # button image.
        ttk::style layout TMenubutton {
            Menubutton.background
            Menubutton.button -children {
                Menubutton.focus -children {
                    Menubutton.padding -children {
                        Menubutton.label -side left -expand true
                    }
                }
            }
            Menubutton.indicator -side right
        }
        ttk::style element create Menubutton.button image [list $I(mbut-n) \
                {active !disabled}      $I(mbut-a) \
                {pressed !disabled}     $I(mbut-a) \
                {disabled}              $I(mbut-d)] \
            -border {7 10 29 15} -padding {7 4 29 4} -sticky news
        ttk::style element create Menubutton.indicator image $I(mbut-arrow-n) \
            -width 11 -sticky w -padding {0 0 18 0}

	ttk::style element create Combobox.field image [list $I(cbox-n) \
	        {readonly disabled}     $I(mbut-d) \
		{readonly active}       $I(mbut-a) \
		{readonly}              $I(mbut-n) \
		{disabled}              $I(cbox-d) \
		{active}                $I(cbox-a) \
	    ] -border {9 10 32 15} -padding {9 4 8 4} -sticky news
	ttk::style element create Combobox.downarrow image $I(mbut-arrow-n) \
	    -width 11 -sticky e -border {22 0 0 0}

        # -----------------------------------------------------------------
        # Scrollbars, scale and progress elements
        #  - the scrollbar has three arrow buttons, two at the bottom and
        #    one at the top.
        #
        ttk::style layout Vertical.TScrollbar {
            Scrollbar.background 
            Vertical.Scrollbar.trough -children {
                Scrollbar.uparrow -side top
                Scrollbar.downarrow -side bottom
               Vertical.Scrollbar.thumb -side top -expand true -sticky ns
            }
        }
        
        ttk::style layout Horizontal.TScrollbar {
            Scrollbar.background 
            Horizontal.Scrollbar.trough -children {
                Scrollbar.leftarrow -side left
                Scrollbar.rightarrow -side right
                Horizontal.Scrollbar.thumb -side left -expand true -sticky we
            }
        }

        ttk::style element create Horizontal.Scrollbar.thumb \
	    image [list $I(hsb-n) {pressed !disabled} $I(hsb-p)] \
            -border {6 4} -width 15 -height 16 -sticky news
	ttk::style element create Horizontal.Scrollbar.trough image $I(hsb-t)

        ttk::style element create Vertical.Scrollbar.thumb \
	    image [list $I(vsb-n) {pressed !disabled} $I(vsb-p)] \
            -border {4 6} -width 16 -height 15 -sticky news
	ttk::style element create Vertical.Scrollbar.trough image $I(vsb-t)
        
        ttk::style element create Horizontal.Scale.slider image $I(hslider-n) \
	    -border 3
	ttk::style element create Horizontal.Scale.trough image $I(hslider-t) \
	    -border {6 1 7 0} -padding 0 -sticky wes
        
        ttk::style element create Vertical.Scale.slider image $I(vslider-n) \
            -border 3
	ttk::style element create Vertical.Scale.trough image $I(vslider-t) \
	    -border {1 6 0 7} -padding 0 -sticky nes
        
        ttk::style element create Horizontal.Progressbar.pbar \
	    image $I(progress-h) -border {1 1 6}
        
        ttk::style element create Vertical.Progressbar.pbar \
	    image $I(progress-v) -border {1 6 1 1}
        
        ttk::style element create uparrow \
	    image [list $I(arrowup-n) {pressed !disabled} $I(arrowup-p)]
                  
        ttk::style element create downarrow \
	    image [list $I(arrowdown-n) {pressed !disabled} $I(arrowdown-p)]

        ttk::style element create rightarrow \
	    image [list $I(arrowright-n) {pressed !disabled} $I(arrowright-p)]

        ttk::style element create leftarrow \
	    image [list $I(arrowleft-n) {pressed !disabled} $I(arrowleft-p)]

	# Treeview elements
	#
	ttk::style element create Treeheading.cell \
	    image [list $I(tree-n) pressed $I(tree-p)] \
	    -border {5 15 5 8} -padding 12 -sticky ewns

        # -----------------------------------------------------------------
        # Notebook elements
        #
        ttk::style element create tab \
	    image [list $I(tab-n) selected $I(tab-p) active $I(tab-p)] \
            -border {6 6 6 4} -padding {6 3} -height 12

	ttk::style configure TNotebook -tabmargins {0 3 0 0}
	ttk::style map TNotebook.Tab \
	    -expand [list selected {0 3 2 2} !selected {0 0 2}]

	## Settings.
	#
	ttk::style configure TLabelframe -borderwidth 2 -relief groove
	ttk::style configure Treeview.Row -background $colors(-window)
	ttk::style configure Treeview.Heading -borderwidth 0
    }
}

package provide ttk::theme::keramik $::ttk::theme::keramik::version

# pkgIndex.tcl for additional tile pixmap themes.
#
# We don't provide the package is the image subdirectory isn't present,
# or we don't have the right version of Tcl/Tk
#
# $Id: pkgIndex.tcl,v 1.1 2009/09/09 19:19:07 oberdorfer Exp $

if {![file isdirectory [file join $dir keramik]]} { return }
if {![package vsatisfies [package provide Tcl] 8.4]} { return }

package ifneeded ttk::theme::keramik 0.5.1 \
    [list source [file join $dir keramik.tcl]]

# keramik.tcl - 
#
# A sample pixmap theme for the tile package.
#
#  Copyright (c) 2004 Googie
#  Copyright (c) 2004 Pat Thoyts <[email protected]>
#
# $Id: keramik_alt.tcl,v 1.1 2009/09/09 19:21:14 oberdorfer Exp $

package require Tk 8.4;                 # minimum version for Tile
package require tile 0.8.0;             # depends upon tile 0.8.0
package require ttk::theme::keramik;    # the parent theme

namespace eval ttk {
    namespace eval theme {
        namespace eval keramik_alt {
	    variable version 0.5.1
	}
    }
}

namespace eval ttk::theme::keramik_alt {

    variable colors
    array set colors {
        -frame      "#dddddd"
        -lighter    "#cccccc"
        -window     "#ffffff"
        -selectbg   "#eeeeee"
        -selectfg   "#000000"
        -disabledfg "#aaaaaa"
    }

    proc LoadImages {imgdir} {
        variable I
        foreach file [glob -directory $imgdir *.gif] {
            set img [file tail [file rootname $file]]
            set I($img) [image create photo -file $file -format gif89]
        }
    }

    LoadImages [file join [file dirname [info script]] keramik_alt]

    ttk::style theme create keramik_alt -parent keramik -settings {

        # -----------------------------------------------------------------
        # Theme defaults
        #
        ttk::style configure . \
            -borderwidth 1 \
	    -foreground "Black" \
            -background $colors(-frame) \
            -troughcolor $colors(-lighter) \
	    -fieldbackground $colors(-window) \
            -font TkDefaultFont \
            ;

        ttk::style map . -foreground [list disabled $colors(-disabledfg)]

	# The alternative keramik theme doesn't have the conspicuous
	# highlighted scrollbars of the main keramik theme.
	#
        ttk::style element create Vertical.Scrollbar.thumb \
            image [list $I(vsb-a) {pressed !disabled} $I(vsb-h)] \
            -border {4 6} -width 16 -height 15 -sticky news
        ttk::style element create Horizontal.Scrollbar.thumb \
	    image [list $I(hsb-a) {pressed !disabled} $I(hsb-h)] \
	    -border {6 4} -width 15 -height 16 -sticky news

	# Repeat the settings because they don't seem to be copied from the
	# parent theme.
	#
        ttk::style configure TButton -padding {10 6} -anchor center
	ttk::style configure Toolbutton -anchor center
	ttk::style configure TNotebook -tabmargins {0 3 0 0}
	ttk::style map TNotebook.Tab \
		-expand [list selected {0 3 2 2} !selected {0 0 2}]

	ttk::style configure TLabelframe -borderwidth 2 -relief groove
	ttk::style configure Treeview -padding 0
	ttk::style configure Treeview.Row -background $colors(-window)
	ttk::style configure Treeview.Heading -borderwidth 0
    }
}

package provide ttk::theme::keramik_alt $::ttk::theme::keramik_alt::version

# pkgIndex.tcl for additional tile pixmap themes.
#
# We don't provide the package is the image subdirectory isn't present,
# or we don't have the right version of Tcl/Tk
#
# To use this automatically within tile, the tile-using application should
# use tile::availableThemes and tile::setTheme 
#
# $Id: pkgIndex.tcl,v 1.1 2009/09/09 19:21:14 oberdorfer Exp $

if {![file isdirectory [file join $dir keramik_alt]]} { return }
if {![package vsatisfies [package provide Tcl] 8.4]} { return }

package ifneeded ttk::theme::keramik_alt 0.5.1 \
    [list source [file join $dir keramik_alt.tcl]]

# pkgIndex.tcl for additional tile pixmap themes.
#
# We don't provide the package is the image subdirectory isn't present,
# or we don't have the right version of Tcl/Tk
#
# To use this automatically within tile, the tile-using application should
# use tile::availableThemes and tile::setTheme 
#
# $Id: pkgIndex.tcl,v 1.1 2009/09/09 19:23:17 oberdorfer Exp $

if {![file isdirectory [file join $dir plastik]]} { return }
if {![package vsatisfies [package provide Tcl] 8.4]} { return }

package ifneeded ttk::theme::plastik 0.5.2 \
    [list source [file join $dir plastik.tcl]]

# plastik.tcl - Copyright (C) 2004 Googie
#
# A sample pixmap theme for the tile package.
#
#  Copyright (c) 2004 Googie
#  Copyright (c) 2005 Pat Thoyts <[email protected]>
#
# $Id: plastik.tcl,v 1.1 2009/09/09 19:23:17 oberdorfer Exp $

package require Tk 8.4
package require tile 0.8.0

namespace eval ttk::theme::plastik {

    variable version 0.5.2
    package provide ttk::theme::plastik $version

    variable colors
    array set colors {
    	-frame 		"#efefef"
	-disabledfg	"#aaaaaa"
	-selectbg	"#657a9e"
	-selectfg	"#ffffff"
    }

    proc LoadImages {imgdir} {
        variable I
        foreach file [glob -directory $imgdir *.gif] {
            set img [file tail [file rootname $file]]
            set I($img) [image create photo -file $file -format gif89]
        }
    }

    LoadImages [file join [file dirname [info script]] plastik]

ttk::style theme create plastik -parent default -settings {
    ttk::style configure . \
	-foreground "Black" \
    	-background $colors(-frame) \
	-troughcolor $colors(-frame) \
	-selectbackground $colors(-selectbg) \
	-selectforeground $colors(-selectfg) \
	-fieldbackground $colors(-frame) \
	-font TkDefaultFont \
	-borderwidth 1 \
	;

    ttk::style map . -foreground [list disabled $colors(-disabledfg)]

    #
    # Layouts:
    #
    ttk::style layout Vertical.TScrollbar {
	Vertical.Scrollbar.uparrow -side top -sticky {}
	Vertical.Scrollbar.downarrow -side bottom -sticky {}
	Vertical.Scrollbar.trough -sticky ns -children {
	    Vertical.Scrollbar.thumb -expand 1 -unit 1 -children {
		Vertical.Scrollbar.grip -sticky {}
	    }
	}
    }

    ttk::style layout Horizontal.TScrollbar {
	Horizontal.Scrollbar.leftarrow -side left -sticky {}
	Horizontal.Scrollbar.rightarrow -side right -sticky {}
	Horizontal.Scrollbar.trough -sticky ew -children {
	    Horizontal.Scrollbar.thumb -expand 1 -unit 1 -children {
		Horizontal.Scrollbar.grip -sticky {}
	    }
        }
    }

    ttk::style layout TButton {
        Button.button -children {
	    Button.focus -children {
		Button.padding -children {
		    Button.label -side left -expand true
		}
	    }
	}
    }

    ttk::style layout Toolbutton {
        Toolbutton.border -children {
            Toolbutton.button -children {
                Toolbutton.padding -children {
                    Toolbutton.label -side left -expand true
                }
            }
        }
    }

    ttk::style layout TMenubutton {
	Menubutton.button -children {
	    Menubutton.indicator -side right
	    Menubutton.focus -children {
		Menubutton.padding -children {
		    Menubutton.label -side left -expand true
		}
	    }
	}
    }

    #
    # Elements:
    #
    ttk::style element create Button.button image [list $I(button-n) \
	    pressed	$I(button-p) \
	    active	$I(button-h) \
	] -border {4 10} -padding 4 -sticky ewns
    ttk::style element create Toolbutton.button image [list $I(tbutton-n) \
	    selected	$I(tbutton-p) \
	    pressed	$I(tbutton-p) \
	    active	$I(tbutton-h) \
	] -border {4 9} -padding 3 -sticky news

    ttk::style element create Checkbutton.indicator image [list $I(check-nu) \
	    {active selected}	$I(check-hc) \
	    {pressed selected}	$I(check-pc) \
	    active              $I(check-hu) \
	    selected            $I(check-nc) \
	] -sticky {}

    ttk::style element create Radiobutton.indicator image [list $I(radio-nu) \
	    {active selected}	$I(radio-hc) \
	    {pressed selected}  $I(radio-pc) \
	    active              $I(radio-hu) \
	    selected            $I(radio-nc) \
	] -sticky {}

    ttk::style element create Horizontal.Scrollbar.thumb image $I(hsb-n) \
	-border 3 -sticky ew
    ttk::style element create Horizontal.Scrollbar.grip image $I(hsb-g)
    ttk::style element create Horizontal.Scrollbar.trough image $I(hsb-t)
    ttk::style element create Vertical.Scrollbar.thumb image $I(vsb-n) \
	-border 3 -sticky ns
    ttk::style element create Vertical.Scrollbar.grip image $I(vsb-g)
    ttk::style element create Vertical.Scrollbar.trough image $I(vsb-t)
    ttk::style element create Scrollbar.uparrow image \
	[list $I(arrowup-n) pressed $I(arrowup-p)] -sticky {}
    ttk::style element create Scrollbar.downarrow \
	image [list $I(arrowdown-n) pressed $I(arrowdown-p)] -sticky {}
    ttk::style element create Scrollbar.leftarrow \
	image [list $I(arrowleft-n) pressed $I(arrowleft-p)] -sticky {}
    ttk::style element create Scrollbar.rightarrow \
	image [list $I(arrowright-n) pressed $I(arrowright-p)] -sticky {}

    ttk::style element create Horizontal.Scale.slider image $I(hslider-n) \
	-sticky {}
    ttk::style element create Horizontal.Scale.trough image $I(hslider-t) \
	-border 1 -padding 0
    ttk::style element create Vertical.Scale.slider image $I(vslider-n) \
	-sticky {}
    ttk::style element create Vertical.Scale.trough image $I(vslider-t) \
	-border 1 -padding 0

    ttk::style element create Entry.field \
	image [list $I(entry-n) focus $I(entry-f)] \
	-border 2 -padding {3 4} -sticky news

    ttk::style element create Labelframe.border image $I(border) \
	-border 4 -padding 4 -sticky news

    ttk::style element create Menubutton.button \
	image [list $I(combo-r) active $I(combo-ra)] \
	-sticky news -border {4 6 24 15} -padding {4 4 5}
    ttk::style element create Menubutton.indicator image $I(arrow-d) \
	-sticky e -border {15 0 0 0}

    ttk::style element create Combobox.field \
	image [list $I(combo-n) \
	    {readonly active}	$I(combo-ra) \
	    {focus active}	$I(combo-fa) \
	    active		$I(combo-a) \
	    {!readonly focus}	$I(combo-f) \
	    readonly		$I(combo-r) \
	] -border {4 6 24 15} -padding {4 4 5} -sticky news
    ttk::style element create Combobox.downarrow image $I(arrow-d) \
	-sticky e -border {15 0 0 0}

    ttk::style element create Notebook.client image $I(notebook-c) -border 4
    ttk::style element create Notebook.tab image [list $I(notebook-tn) \
	    selected	$I(notebook-ts) \
	    active	$I(notebook-ta) \
	] -padding {0 2 0 0} -border {4 10 4 10}

    ttk::style element create Progressbar.trough \
	image $I(hprogress-t) -border 2
    ttk::style element create Horizontal.Progressbar.pbar \
	image $I(hprogress-b) -border {2 9}
    ttk::style element create Vertical.Progressbar.pbar \
	image $I(vprogress-b) -border {9 2}

    ttk::style element create Treeheading.cell \
	image [list $I(tree-n) pressed $I(tree-p)] \
	-border {4 10} -padding 4 -sticky ewns

    #
    # Settings:
    #
    ttk::style configure TButton -width -10 -anchor center
    ttk::style configure Toolbutton -anchor center
    ttk::style configure TNotebook -tabmargins {0 2 0 0}
    ttk::style configure TNotebook.Tab -padding {6 2 6 2} -expand {0 0 2}
    ttk::style map TNotebook.Tab -expand [list selected {1 2 4 2}]
    ttk::style configure Treeview -padding 0
} }

# if { [catch {package require tile 0.8 }] != 0 } { return }

if {[file isdirectory [file join $dir winxpblue]]} {
    package ifneeded ttk::theme::winxpblue 0.0.1 \
        [list source [file join $dir winxpblue.tcl]]
}

# WinXP-Blue --
#
#   Copyright (C) 2004 Pat Thoyts <[email protected]>
#
#   Import the WinXP-Blue Gtk2 Theme by Ativo
#   URL: http://art.gnome.org/download/themes/gtk2/474/GTK2-WinXP-Blue.tar.gz
# ------------------------------------------------------------------------------
# Revision change history:
#   $Id: winxpblue.tcl,v 1.1 2009/09/09 19:25:06 oberdorfer Exp $
#
#   Aug.'08: code refractured/adopted slightly for the use with >= tk8.5,
#            [email protected]
# ------------------------------------------------------------------------------

package require Tk 8.4;                 # minimum version for Tile
package require tile;                   # depends upon tile

namespace eval ::ttk:: {
  namespace eval theme {
    namespace eval winxpblue {
      variable version 0.0.1
    }
  }
}


namespace eval ::ttk::theme::winxpblue {
  
  set imgdir [file join [file dirname [info script]] winxpblue gtk-2.0]
  
  if {[info commands ::ttk::style] ne ""} {
    set styleCmd ttk::style
  } else {
    set styleCmd style
  }
  
  proc LoadImages {imgdir {patterns {*.gif}}} {
    foreach pattern $patterns {
      foreach file [glob -directory $imgdir $pattern] {
        set img [file tail [file rootname $file]]
        if {![info exists images($img)]} {
          set images($img) [image create photo -file $file]
        }
      }
    }
    return [array get images]
  }
  
  array set I [LoadImages $imgdir "*.gif"]
  
  $styleCmd theme create winxpblue -settings {
    
    # defaults:
    
    $styleCmd configure "." \
        -foreground       "Black" \
        -background       "#ece9d8" \
        -selectbackground "#4a6984" \
        -selectforeground "#ffffff" \
	-font TkDefaultFont ;
    
    # gtkrc has #ece9d8 for background, notebook_active looks like #efebde
    
    # Mats: changed -background  disabled
    $styleCmd map "." \
      -foreground { disabled "#565248" } \
      -background { disabled "#ece9d8"
                    pressed  "#bab5ab"
                    active   "#c1d2ee" }

    # Buttons, checkbuttons, radiobuttons, menubuttons:
    
    $styleCmd layout TButton {
      Button.button -children { Button.focus -children { Button.label } }
    }
    $styleCmd configure TButton -padding 3 -width -11
    
    $styleCmd element create Button.button image \
        [list $I(buttonNorm) pressed $I(buttonPressed) active $I(button)] \
        -border {4 9} -padding 3 -sticky nsew

    $styleCmd element create Checkbutton.indicator image \
        [list $I(checkbox_unchecked) selected $I(checkbox_checked)] \
        -width 20 -sticky w
	
    $styleCmd element create Radiobutton.indicator image \
        [list $I(option_out) selected $I(option_in)] \
        -width 20 -sticky w

    $styleCmd element create Menubutton.indicator image $I(menubar_option_arrow)
    
    # Scrollbars, scale, progress bars:
    
    $styleCmd element create Horizontal.Scrollbar.thumb \
        image $I(scroll_horizontal) -border 3 -width 16 -height 0 -sticky nsew
    $styleCmd element create Vertical.Scrollbar.thumb \
        image $I(scroll_vertical) -border 3 -width 0 -height 16 -sticky nsew
    $styleCmd element create trough \
        image $I(horizontal_trough) -sticky ew -border {0 2}
    $styleCmd element create Vertical.Scrollbar.trough \
        image $I(vertical_trough) -sticky ns -border {2 0}
    $styleCmd element create Vertical.Scale.trough \
        image $I(vertical_trough) -sticky ns -border {2 0}
    $styleCmd element create Progress.bar image $I(progressbar)
    $styleCmd element create Progress.trough image $I(through) -border 4
    
    # Notebook parts:
    
    $styleCmd element create tab image \
        [list $I(notebook_inactive) selected $I(notebook_active)] \
        -border {2 2 2 1} -width 8
    $styleCmd configure TNotebook.Tab -padding {4 2}
    $styleCmd configure TNotebook -expandtab {2 1}
    
    # Arrows:
    
    $styleCmd element create uparrow image $I(arrow_up_normal) -sticky {}
    $styleCmd element create downarrow image $I(arrow_down_normal) -sticky {}
    $styleCmd element create leftarrow image $I(arrow_left_normal) -sticky {}
    $styleCmd element create rightarrow image $I(arrow_right_normal) -sticky {}

    # Panes:
    # doesn't work: $styleCmd configure Sash -sashthickness 6 -gripcount 10

    # maybe a nice effect
    # (although the image was not intended to be used like this):

    $styleCmd element create Sash.hsash \
        image $I(horizontal_trough) -border 1 -width 0 -height 8 -sticky nsew
    $styleCmd element create Sash.vsash \
        image $I(vertical_trough) -border 1 -width 0 -height 8 -sticky nsew
  }
}


namespace eval ::tablelist:: {

  proc winxpblueTheme {} {
    variable themeDefaults
    array set themeDefaults [list \
	-background		white \
	-foreground		black \
	-disabledforeground	#565248 \
	-stripebackground	#e0e8f0 \
	-selectbackground	#4a6984 \
	-selectforeground	#ffffff \
	-selectborderwidth	0 \
	-font			TkTextFont \
        -labelbackground	#ece9d8 \
	-labeldisabledBg	#e3e1dd \
	-labelactiveBg		#c1d2ee \
	-labelpressedBg		#bab5ab \
	-labelforeground	black \
	-labeldisabledFg	#565248 \
	-labelactiveFg		black \
	-labelpressedFg		black \
	-labelfont		TkDefaultFont \
	-labelborderwidth	2 \
	-labelpady		1 \
	-arrowcolor		#aca899 \
	-arrowstyle		flat9x5 \
	-showseparators         yes \
      ]
  }
}


# -------------------------------------------------------------------------
# -------------------------------------------------------------------------

package provide ttk::theme::winxpblue $::ttk::theme::winxpblue::version

style "default"
{
        fg[NORMAL]              = "#000000"
        fg[ACTIVE]              = "#000000"
        fg[INSENSITIVE]         = "#565248"
        fg[PRELIGHT]            = "#000000"
        fg[SELECTED]            = "#ffffff"
        
          bg[ACTIVE]              = "#bab5ab"
	  bg[NORMAL]              = "#ece9d8"
          bg[INSENSITIVE]         = "#e3e1dd"
          bg[PRELIGHT]            = "#c1d2ee"
          bg[SELECTED]            = "#c1d2ee"

        base[NORMAL]            = "#ffffff"
        base[ACTIVE]            = "#807d74"
        base[INSENSITIVE]       = "#ffffff"
        base[PRELIGHT]          = "#eae8e3"
	base[SELECTED]          = "#c1d2ee"
       
        text[NORMAL]            = "#000000"
        text[ACTIVE]            = "#000000"
        text[PRELIGHT]          = "#000000"
        text[SELECTED]          = "#ffffff"
        text[INSENSITIVE]       = "#565248"

	GtkRange::slider_width = 11
	GtkRange::stepper_size = 11
	GtkScrollbar::min_slider_length = 15
#	GtkCheckButton::indicator_size=10
	GtkRadioButton::indicator_size=12
	GtkStatusbar::shadow_type = none

	engine "mist"
 	{
	}

    engine "pixmap"
    {
        image {
            function        = ARROW
            recolorable     = TRUE
            state           = NORMAL
            overlay_file    = "arrow_up_normal.png"
            overlay_stretch = FALSE
            arrow_direction = UP
        }
        image {
            function        = ARROW
            recolorable     = TRUE
            state           = PRELIGHT
            overlay_file    = "arrow_up_normal.png"
            overlay_stretch = FALSE
            arrow_direction = UP
        }
        image {
            function        = ARROW
            recolorable     = TRUE
            shadow          = IN
            overlay_file    = "arrow_up_clicked.png"
            overlay_stretch = FALSE
            arrow_direction = UP
        }
        image {
            function        = ARROW
            recolorable     = TRUE
            state           = INSENSITIVE
            overlay_file    = "arrow_up_normal.png"
            overlay_stretch = FALSE
            arrow_direction = UP
        }
        image {
            function        = ARROW
            recolorable     = TRUE
            state           = NORMAL
            overlay_file    = "arrow_down_normal.png"
            overlay_stretch = FALSE
            arrow_direction = DOWN
        }
        image {
            function        = ARROW
            recolorable     = TRUE
            state           = PRELIGHT
            overlay_file    = "arrow_down_normal.png"
            overlay_stretch = FALSE
            arrow_direction = DOWN
        }
        image {
            function        = ARROW
            recolorable     = TRUE
            shadow          = IN
            overlay_file    = "arrow_down_clicked.png"
            overlay_stretch = FALSE
            arrow_direction = DOWN
        }
        image {
            function        = ARROW
            recolorable     = TRUE
            state           = INSENSITIVE
            overlay_file    = "arrow_down_normal.png"
            overlay_stretch = FALSE
            arrow_direction = DOWN
        }
        image {
            function        = ARROW
            recolorable     = TRUE
            state           = NORMAL
            overlay_file    = "arrow_left_normal.png"
            overlay_stretch = FALSE
            arrow_direction = LEFT
        }
        image {
            function        = ARROW
            recolorable     = TRUE
            state           = PRELIGHT
            overlay_file    = "arrow_left_normal.png"
            overlay_stretch = FALSE
            arrow_direction = LEFT
        }
        image {
            function        = ARROW
            recolorable     = TRUE
            shadow          = IN
            overlay_file    = "arrow_left_clicked.png"
            overlay_stretch = FALSE
            arrow_direction = LEFT
        }
        image {
            function        = ARROW
            recolorable     = TRUE
            state           = INSENSITIVE
            overlay_file    = "arrow_left_normal.png"
            overlay_stretch = FALSE
            arrow_direction = LEFT
        }
        image {
            function        = ARROW
            recolorable     = TRUE
            state           = NORMAL
            overlay_file    = "arrow_right_normal.png"
            overlay_stretch = FALSE
            arrow_direction = RIGHT
        }
        image {
            function        = ARROW
            recolorable     = TRUE
            state           = PRELIGHT
            overlay_file    = "arrow_right_normal.png"
            overlay_stretch = FALSE
            arrow_direction = RIGHT
        }
        image {
            function        = ARROW
            recolorable     = TRUE
            shadow          = IN
            overlay_file    = "arrow_right_clicked.png"
            overlay_stretch = FALSE
            arrow_direction = RIGHT
        }
        image {
            function        = ARROW
            recolorable     = TRUE
            state           = INSENSITIVE
            overlay_file    = "arrow_right_normal.png"
            overlay_stretch = FALSE
            arrow_direction = RIGHT
        }
    }
}


style "button"
{
	engine "pixmap" 
	{
               image {
                    function        = CHECK
                    recolorable     = TRUE
                    shadow          = OUT
                    overlay_file    = "checkbox_unchecked.png"
                    overlay_stretch = FALSE
                }
                image {
                    function        = CHECK
                    recolorable     = TRUE
                    shadow          = IN
                    overlay_file    = "checkbox_checked.png"
                    overlay_stretch = FALSE
                }
	        image {
	            function        = OPTION
	            recolorable     = TRUE
	            shadow          = OUT
	            overlay_file    = "option_out.png"
	            overlay_border  = { 0, 0, 0, 0 }
	            overlay_stretch = FALSE
	        }
	        image {
	            function        = OPTION
	            recolorable     = TRUE
	            shadow          = IN
	            overlay_file    = "option_in.png"
	            overlay_border  = { 0, 0, 0, 0 }
	            overlay_stretch = FALSE
	        }

		image 
      		{
		        function        	= BOX
			recolorable     	= TRUE
			state           	= PRELIGHT
			shadow          	= OUT
			file			= "button.png"
			border         	= {7,7,7,7}
			stretch         	= TRUE
		}
		image 
		{
		        function        	= BOX
			recolorable     	= TRUE
			state           	= NORMAL
			shadow          	= OUT
			file			= "buttonNorm.png"
			border         	= {7,7,7,7}
			stretch         	= TRUE
		}
		image 
		{
		        function		= BOX
			recolorable     	= TRUE
			state		= INSENSITIVE
			file            	= "buttonPressed.png"
			border          	= { 7,7,7,7 }
			stretch         	= TRUE
		}
		image 
		{
		        function        	= BOX
			recolorable     	= TRUE
			state		= PRELIGHT
			file            	= "buttonPressed.png"
			border          	= { 7,7,7,7 }
			stretch         	= TRUE
		}
		image
		{
		        function       	= BOX
			recolorable     	= TRUE
			state		= ACTIVE
			file            	= "buttonPressed.png"
			border          	= { 7,7,7,7 }
			stretch         	= TRUE
		}
		image
		{
		        function       	= BOX
			recolorable     	= TRUE
			shadow 		= IN
			state		= SELECTED
			file            	= "buttonPressed.png"
			border          	= { 7,7,7,7 }
			stretch         	= TRUE
		}
	}	
}

style "togglebuttons" = "default"
{
	engine "mist" { }
}

style "CheckRadioButton" {
    engine "pixmap" {
        image {
            function        = FLAT_BOX
            recolorable     = TRUE
        }
    }
}

class "GtkCheckButton" style "CheckRadioButton"
class "GtkRadioButton" style "CheckRadioButton"

class "GtkButton" style "button"

style "thin"
{
	ythickness = 1
	xthickness = 1
}

style "menubar" 
{
	ythickness=0
	GtkContainer::border_width=0
	bg[NORMAL]              = "#efedde" #MenuBarbackgroundcolor
	#bg[NORMAL] = "#919b9c"
}

style "menu" # legt die Hintergrundfarbe / Pixmap für das Menu fest
{
	bg_pixmap[NORMAL]		="menupattern.png"
}

style "optionmenu"
{
	engine "pixmap" 
	{

		image 
		{
			function      = BOX
			recolorable  = TRUE
			state           = NORMAL
			file              = "pullDownMenu.png"
			border         = { 6,20,6,6 }
			stretch        = TRUE
      		}
                image
                {
                        function      = BOX
                        recolorable  = TRUE
                        state           = PRELIGHT
                        file              = "pullDownMenu.png"
                        border         = { 6,20,6,6 }
                        stretch        = TRUE
                }
	        image {
	            	function        = TAB
	            	recolorable     = TRUE
	            	overlay_file    = "menubar_option_arrow.png"
	            	overlay_stretch = FALSE
	        }
	        image {
	            	function        = TAB
	            	recolorable     = TRUE
	            	state           = INSENSITIVE
	            	overlay_file    = "menubar_option_arrow.png"
	            	overlay_stretch = FALSE
	        }

	}
}

style "Notebook" {

    engine "pixmap" {
        image {
            function        = EXTENSION
            recolorable     = TRUE
            state           = ACTIVE
            file            = "notebook_inactive.png"
            border          = { 10, 10, 10, 10 }
            stretch         = TRUE
            gap_side        = BOTTOM
        }
        image {
            function        = EXTENSION
            recolorable     = TRUE
            file            = "notebook_active.png"
            border          = { 10, 10, 10, 10 }
            stretch         = TRUE
            gap_side        = BOTTOM
        }
    }
}

class "GtkNotebook" style "Notebook"

style "Scrollbar" {
    engine "pixmap" {
        image {
            function        = BOX
            recolorable     = TRUE
            detail          = "trough"
            file            = "vertical_trough.png"
            border          = { 2, 2, 1, 1 }
            stretch         = TRUE
            orientation     = VERTICAL
        }
        image {
            function        = BOX
            recolorable     = TRUE
            detail          = "trough"
            file            = "horizontal_trough.png"
            border          = { 1, 1, 2, 2 }
            stretch         = TRUE
            orientation     = HORIZONTAL
        }
        image {
            function        = SLIDER
            recolorable     = TRUE
            state           = NORMAL
            file            = "scroll_horizontal.png"
            border          = { 10, 10, 6, 6 }
            stretch         = TRUE
            orientation     = HORIZONTAL
        }
        image {
            function        = SLIDER 
            recolorable     = TRUE
            state           = PRELIGHT
            file            = "scroll_horizontal.png"
            border          = { 10, 10, 6, 6 }
            stretch         = TRUE
            orientation     = HORIZONTAL
        }
        image {
            function        = SLIDER
            recolorable     = TRUE
            state           = NORMAL
            file            = "scroll_vertical.png"
            border          = { 6, 6, 10, 10 }
            stretch         = TRUE
            orientation     = VERTICAL
        }
        image {
            function        = SLIDER 
            recolorable     = TRUE
            state           = PRELIGHT
            file            = "scroll_vertical.png"
            border          = { 6, 6, 10, 10 }
            stretch         = TRUE
            orientation     = VERTICAL
        }
        image {
            function        = BOX
            recolorable     = TRUE
            state           = NORMAL 
            file            = "scroll_button_normal.png"
            border          = { 0, 0, 0, 0 }
            stretch         = TRUE
        }
        image {
            function        = BOX
            recolorable     = TRUE
            state           = PRELIGHT
            file            = "scroll_button_normal.png"
            border          = { 0, 0, 0, 0 }
            stretch         = TRUE
        }
        image {
            function        = BOX
            recolorable     = TRUE
            state           = ACTIVE
            file            = "scroll_button_normal.png"
            border          = { 0, 0, 0, 0 }
            stretch         = TRUE
        }
    }
}

class "GtkScrollbar" style "Scrollbar"

style "Scale" {
    engine "pixmap" {
        image {
            function        = BOX
            recolorable     = TRUE
            detail          = "trough"
            file            = "vertical_trough.png"
            border          = { 2, 2, 1, 1 }
            stretch         = TRUE
            orientation     = VERTICAL
        }
        image {
            function        = BOX
            recolorable     = TRUE
            detail          = "trough"
            file            = "horizontal_trough.png"
            border          = { 1, 1, 2, 2 }
            stretch         = TRUE
            orientation     = HORIZONTAL
        }
        image {
            function        = SLIDER
            recolorable     = TRUE
            state           = NORMAL
            file            = "scroll_horizontal.png"
            border          = { 10, 10, 6, 6 }
            stretch         = TRUE
            orientation     = HORIZONTAL
        }   
        image {
            function        = SLIDER 
            recolorable     = TRUE
            state           = PRELIGHT
            file            = "scroll_horizontal.png"
            border          = { 10, 10, 6, 6 }
            stretch         = TRUE
            orientation     = HORIZONTAL
        }
        image {
            function        = SLIDER
            recolorable     = TRUE
            state           = INSENSITIVE
            file            = "scroll_horizontal.png"
            border          = { 10, 10, 6, 6 }
            stretch         = TRUE
            orientation     = HORIZONTAL
        }   
        image {
            function        = SLIDER
            recolorable     = TRUE
            state           = NORMAL
            file            = "scroll_vertical.png"
            border          = { 6, 6, 10, 10 }
            stretch         = TRUE
            orientation     = VERTICAL
        }
        image {
            function        = SLIDER
            recolorable     = TRUE
            state           = PRELIGHT
            file            = "scroll_vertical.png"
            border          = { 6, 6, 10, 10 }
            stretch         = TRUE
            orientation     = VERTICAL
        }
        image {
            function        = SLIDER
            recolorable     = TRUE
            state           = INSENSITIVE
            file            = "scroll_vertical.png"
            border          = { 6, 6, 10, 10 }
            stretch         = TRUE
            orientation     = VERTICAL
        }
    }
}

class "GtkScale" style "Scale"

style "ProgressBar" {
    engine "pixmap" {
        image {
            function        = BOX
            recolorable     = TRUE
            detail          = "bar"
            file            = "progressbar.png"
            border          = { 2, 2, 2, 2 }
            stretch         = TRUE
        }
    }
}

class "GtkOptionMenu" style "optionmenu"
class "GtkMenuBar" style "menubar"

class "GtkProgressBar" style "ProgressBar"

class "GtkMenu" style "menu"
class "GtkScrolledWindow" style "thin"
#class "GtkCheckBox" style "thin"
class "GtkWidget" style "default"