# WinXP-Blue - Copyright (C) 2004 Pat Thoyts <patthoyts@users.sourceforge.net>
#
# Import the WinXP-Blue Gtk2 Theme by Ativo
# Link:
# URL: http://art.gnome.org/download/themes/gtk2/474/GTK2-WinXP-Blue.tar.gz
#
# You will need to fetch the theme package and extract it under the
# demos/themes directory and maybe modify the demos/themes/pkgIndex.tcl
# file.
#
# $Id: WinXP-Blue.tcl,v 1.3 2004/01/25 03:51:27 jenglish Exp $
package require tile::pixmap
package require Img
namespace eval Tile {
namespace eval WinXPBlue {
variable version 0.0.1
}
}
namespace eval Tile::WinXPBlue {
skin createtheme WinXPBlue
style definetheme WinXPBlue {
style default TButton -padding "4 2" -width -11
style map "." -foreground {
disabled #565248
} -background {
disabled #e3e1dd
pressed #bab5ab
{} #ece9d8
}
skin createlayout WinXPBlue Horizontal.TScrollbar {
draw Scrollbar.background
border Scrollbar.border {
draw Scrollbar.trough
left Scrollbar.leftarrow
right Scrollbar.rightarrow
hfill Scrollbar.thumb
}
}
skin createlayout WinXPBlue Vertical.TScrollbar {
draw Scrollbar.background
border Scrollbar.border {
draw Scrollbar.vtrough
top Scrollbar.uparrow
bottom Scrollbar.downarrow
vfill Scrollbar.vthumb
}
}
skin createlayout WinXPBlue TButton {
draw Button.background
inside Button.padding {
hfill Button.compound
}
}
skin createelement WinXPBlue Checkbutton.indicator -images {
selected Tile::WinXPBlue::_i_checkbox_checked
{} Tile::WinXPBlue::_i_checkbox_unchecked
} -tiling fixed
skin createelement WinXPBlue Radiobutton.indicator -images {
selected Tile::WinXPBlue::_i_option_in
{} Tile::WinXPBlue::_i_option_out
} -tiling fixed
skin createelement WinXPBlue thumb -images {
{} Tile::WinXPBlue::_i_scroll_horizontal
} -border 3 -tiling tile
skin createelement WinXPBlue vthumb -images {
{} Tile::WinXPBlue::_i_scroll_vertical
} -border 3 -tiling tile
skin createelement WinXPBlue trough -images {
{} Tile::WinXPBlue::_i_horizontal_trough
} -tiling tile
skin createelement WinXPBlue vtrough -images {
{} Tile::WinXPBlue::_i_vertical_trough
} -tiling tile
skin createelement WinXPBlue Progress.bar -images {
{} Tile::WinXPBlue::_i_progressbar
} -tiling tile
skin createelement WinXPBlue Progress.trough -images {
{} Tile::WinXPBlue::_i_through
} -border 4 -tiling tile
skin createelement WinXPBlue Button.background -images {
{pressed !disabled} Tile::WinXPBlue::_i_buttonPressed
{} Tile::WinXPBlue::_i_buttonNorm
} -border 4 -tiling tile
skin createelement WinXPBlue uparrow -images {
pressed Tile::WinXPBlue::_i_arrow_up_clicked
{} Tile::WinXPBlue::_i_arrow_up_normal
} -tiling fixed
skin createelement WinXPBlue downarrow -images {
pressed Tile::WinXPBlue::_i_arrow_down_clicked
{} Tile::WinXPBlue::_i_arrow_down_normal
} -tiling fixed
skin createelement WinXPBlue leftarrow -images {
pressed Tile::WinXPBlue::_i_arrow_left_clicked
{} Tile::WinXPBlue::_i_arrow_left_normal
} -tiling fixed
skin createelement WinXPBlue rightarrow -images {
pressed Tile::WinXPBlue::_i_arrow_right_clicked
{} Tile::WinXPBlue::_i_arrow_right_normal
} -tiling fixed
skin createelement WinXPBlue tab -images {
selected Tile::WinXPBlue::_i_notebook_active
{} Tile::WinXPBlue::_i_notebook_inactive
} -tiling tile -border 10
# Load in the images
set imgdir [file join [file dirname [info script]] WinXP-Blue gtk-2.0]
foreach file [glob -directory $imgdir *.png] {
set img [file tail [file rootname $file]]
image create photo Tile::WinXPBlue::_i_$img -file $file
}
} }
# -------------------------------------------------------------------------
package provide tile::theme::WinXPBlue $::Tile::WinXPBlue::version
# -------------------------------------------------------------------------