diff options
Diffstat (limited to 'trunk/ext/tk/sample/tkextlib/tile/themes/plastik')
27 files changed, 141 insertions, 0 deletions
diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/pkgIndex.tcl b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/pkgIndex.tcl new file mode 100644 index 0000000000..e39aff6f44 --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/pkgIndex.tcl @@ -0,0 +1,16 @@ +# 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$ + +if {![file isdirectory [file join $dir plastik]]} { return } +if {![package vsatisfies [package provide Tcl] 8.4]} { return } + +package ifneeded tile::theme::plastik 0.3.1 \ + [list source [file join $dir plastik.tcl]] + diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik.tcl b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik.tcl new file mode 100644 index 0000000000..ea6ed74162 --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik.tcl @@ -0,0 +1,125 @@ +# plastik.tcl - Copyright (C) 2004 Googie +# +# A sample pixmap theme for the tile package. +# +# Copyright (c) 2004 Googie +# Copyright (c) 2005 Pat Thoyts <patthoyts@users.sourceforge.net> +# +# $Id$ + +package require Tk 8.4 +package require tile 0.5 + +namespace eval tile::theme::plastik { + + variable version 0.3.1 + package provide tile::theme::plastik $version + + variable imgdir [file join [file dirname [info script]] plastik] + variable Images; + array set Images [tile::LoadImages $imgdir *.gif] + + variable colors + array set colors { + -frame "#cccccc" + -disabledfg "#aaaaaa" + -selectbg "#657a9e" + -selectfg "#ffffff" + } + +style theme create plastik -parent default -settings { + style default . \ + -background $colors(-frame) \ + -troughcolor $colors(-frame) \ + -selectbackground $colors(-selectbg) \ + -selectforeground $colors(-selectfg) \ + -font TkDefaultFont \ + -borderwidth 1 \ + ; + + style map . -foreground [list disabled $colors(-disabledfg)] + + # + # Layouts: + # + style layout Vertical.TScrollbar { + Scrollbar.background + Scrollbar.trough -children { + Scrollbar.uparrow -side top + Scrollbar.downarrow -side bottom + Scrollbar.uparrow -side bottom + Vertical.Scrollbar.thumb -side top -expand true -sticky ns + } + } + + style layout Horizontal.TScrollbar { + Scrollbar.background + Scrollbar.trough -children { + Scrollbar.leftarrow -side left + Scrollbar.rightarrow -side right + Scrollbar.leftarrow -side right + Horizontal.Scrollbar.thumb -side left -expand true -sticky we + } + } + + style layout TButton { + Button.button -children { + Button.focus -children { + Button.padding -children { + Button.label -side left -expand true + } + } + } + } + + # + # Elements: + # + style element create Button.button image $Images(button-n) \ + -border 4 -sticky ew \ + -map [list pressed $Images(button-p) active $Images(button-h)] + + style element create Checkbutton.indicator image $Images(check-nu) \ + -sticky {} -map [list \ + {active selected} $Images(check-hc) \ + {pressed selected} $Images(check-pc) \ + active $Images(check-hu) \ + selected $Images(check-nc) \ + ] + + style element create Radiobutton.indicator image $Images(radio-nu) \ + -sticky {} -map [list \ + {active selected} $Images(radio-hc) \ + {pressed selected} $Images(radio-pc) \ + active $Images(radio-hu) \ + selected $Images(radio-nc) \ + ] + + style element create Horizontal.Scrollbar.thumb \ + image $Images(hsb-n) -border 3 -sticky ew + style element create Vertical.Scrollbar.thumb \ + image $Images(vsb-n) -border 3 -sticky ns + + style element create Scale.slider \ + image $Images(hslider-n) -sticky {} + style element create Vertical.Scale.slider \ + image $Images(vslider-n) -sticky {} + + style element create Scrollbar.uparrow image $Images(arrowup-n) \ + -map [list pressed $Images(arrowup-p)] -sticky {} + style element create Scrollbar.downarrow image $Images(arrowdown-n) \ + -map [list pressed $Images(arrowdown-p)] -sticky {} + style element create Scrollbar.leftarrow image $Images(arrowleft-n) \ + -map [list pressed $Images(arrowleft-p)] -sticky {} + style element create Scrollbar.rightarrow image $Images(arrowright-n) \ + -map [list pressed $Images(arrowright-p)] -sticky {} + + # + # Settings: + # + style default TButton -width -10 + style default TNotebook.Tab -padding {6 2 6 2} + style default TLabelframe -borderwidth 2 -relief groove + +} } + diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowdown-n.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowdown-n.gif Binary files differnew file mode 100644 index 0000000000..d914e7a3d3 --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowdown-n.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowdown-p.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowdown-p.gif Binary files differnew file mode 100644 index 0000000000..abffaa49f6 --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowdown-p.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowleft-n.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowleft-n.gif Binary files differnew file mode 100644 index 0000000000..9939ae1d50 --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowleft-n.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowleft-p.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowleft-p.gif Binary files differnew file mode 100644 index 0000000000..1a45ef2e4b --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowleft-p.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowright-n.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowright-n.gif Binary files differnew file mode 100644 index 0000000000..f4b563fed2 --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowright-n.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowright-p.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowright-p.gif Binary files differnew file mode 100644 index 0000000000..5459d5e615 --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowright-p.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowup-n.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowup-n.gif Binary files differnew file mode 100644 index 0000000000..118290cd95 --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowup-n.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowup-p.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowup-p.gif Binary files differnew file mode 100644 index 0000000000..89f9b38c73 --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/arrowup-p.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/button-h.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/button-h.gif Binary files differnew file mode 100644 index 0000000000..548f3769df --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/button-h.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/button-n.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/button-n.gif Binary files differnew file mode 100644 index 0000000000..49a25909f3 --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/button-n.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/button-p.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/button-p.gif Binary files differnew file mode 100644 index 0000000000..e83f7ed985 --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/button-p.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/check-hc.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/check-hc.gif Binary files differnew file mode 100644 index 0000000000..b279fa50d8 --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/check-hc.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/check-hu.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/check-hu.gif Binary files differnew file mode 100644 index 0000000000..5b4fb4f037 --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/check-hu.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/check-nc.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/check-nc.gif Binary files differnew file mode 100644 index 0000000000..b139e02a09 --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/check-nc.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/check-nu.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/check-nu.gif Binary files differnew file mode 100644 index 0000000000..fbe391f9d8 --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/check-nu.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/check-pc.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/check-pc.gif Binary files differnew file mode 100644 index 0000000000..75a3bd635c --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/check-pc.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/hsb-n.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/hsb-n.gif Binary files differnew file mode 100644 index 0000000000..b8ea07ea92 --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/hsb-n.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/hslider-n.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/hslider-n.gif Binary files differnew file mode 100644 index 0000000000..ce8f28404f --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/hslider-n.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/radio-hc.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/radio-hc.gif Binary files differnew file mode 100644 index 0000000000..33917715b0 --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/radio-hc.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/radio-hu.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/radio-hu.gif Binary files differnew file mode 100644 index 0000000000..88925d0e1d --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/radio-hu.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/radio-nc.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/radio-nc.gif Binary files differnew file mode 100644 index 0000000000..f8723d367a --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/radio-nc.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/radio-nu.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/radio-nu.gif Binary files differnew file mode 100644 index 0000000000..fb5140e6a1 --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/radio-nu.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/radio-pc.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/radio-pc.gif Binary files differnew file mode 100644 index 0000000000..176225d9e1 --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/radio-pc.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/vsb-n.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/vsb-n.gif Binary files differnew file mode 100644 index 0000000000..85bac4579e --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/vsb-n.gif diff --git a/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/vslider-n.gif b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/vslider-n.gif Binary files differnew file mode 100644 index 0000000000..cf887f9855 --- /dev/null +++ b/trunk/ext/tk/sample/tkextlib/tile/themes/plastik/plastik/vslider-n.gif |