diff options
Diffstat (limited to 'ext/tk/sample/tkextlib/tile/themes')
6 files changed, 40 insertions, 40 deletions
diff --git a/ext/tk/sample/tkextlib/tile/themes/blue/blue.tcl b/ext/tk/sample/tkextlib/tile/themes/blue/blue.tcl index 37e3d07ff7..68733e8ad2 100644 --- a/ext/tk/sample/tkextlib/tile/themes/blue/blue.tcl +++ b/ext/tk/sample/tkextlib/tile/themes/blue/blue.tcl @@ -68,12 +68,12 @@ namespace eval tile::theme::blue { style default Toolbutton \ -width 0 -relief flat -borderwidth 2 -padding 4 \ -background $colors(-frame) -foreground #000000 ; - style map Toolbutton -background [list active $colors(-selectbg)] - style map Toolbutton -foreground [list active $colors(-selectfg)] + style map Toolbutton -background [list active $colors(-selectbg)] + style map Toolbutton -foreground [list active $colors(-selectfg)] style map Toolbutton -relief { disabled flat - selected sunken - pressed sunken + selected sunken + pressed sunken active raised } diff --git a/ext/tk/sample/tkextlib/tile/themes/keramik/keramik.tcl b/ext/tk/sample/tkextlib/tile/themes/keramik/keramik.tcl index 79fcd7c04e..60c59be0ca 100644 --- a/ext/tk/sample/tkextlib/tile/themes/keramik/keramik.tcl +++ b/ext/tk/sample/tkextlib/tile/themes/keramik/keramik.tcl @@ -1,4 +1,4 @@ -# keramik.tcl - +# keramik.tcl - # # A sample pixmap theme for the tile package. # @@ -48,12 +48,12 @@ namespace eval tile::theme::keramik { ; 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 checkbutton and radiobutton have the focus drawn around # the whole widget - hence the new layouts. # style layout TButton { @@ -125,7 +125,7 @@ namespace eval tile::theme::keramik { # one at the top. # style layout Vertical.TScrollbar { - Scrollbar.background + Scrollbar.background Scrollbar.trough -children { Scrollbar.uparrow -side top Scrollbar.downarrow -side bottom @@ -133,9 +133,9 @@ namespace eval tile::theme::keramik { Vertical.Scrollbar.thumb -side top -expand true -sticky ns } } - + style layout Horizontal.TScrollbar { - Scrollbar.background + Scrollbar.background Scrollbar.trough -children { Scrollbar.leftarrow -side left Scrollbar.rightarrow -side right @@ -149,26 +149,26 @@ namespace eval tile::theme::keramik { style element create Horizontal.Scrollbar.thumb image $I(hsb-n) \ -border {6 4} -width 15 -height 16 -sticky news \ -map [list {pressed !disabled} $I(hsb-p)] - + style element create Vertical.Scrollbar.thumb image $I(vsb-n) \ -border {4 6} -width 16 -height 15 -sticky news \ -map [list {pressed !disabled} $I(vsb-p)] - + style element create Scale.slider image $I(hslider-n) \ -border 3 - + style element create Vertical.Scale.slider image $I(vslider-n) \ -border 3 - + style element create Horizontal.Progress.bar image $I(hsb-n) \ -border {6 4} - + style element create Vertical.Progress.bar image $I(vsb-n) \ -border {4 6} - + style element create uparrow image $I(arrowup-n) \ -map [list {pressed !disabled} $I(arrowup-p)] - + style element create downarrow image $I(arrowdown-n) \ -map [list {pressed !disabled} $I(arrowdown-p)] @@ -177,7 +177,7 @@ namespace eval tile::theme::keramik { style element create leftarrow image $I(arrowleft-n) \ -map [list {pressed !disabled} $I(arrowleft-p)] - + # ----------------------------------------------------------------- # Notebook elements # diff --git a/ext/tk/sample/tkextlib/tile/themes/keramik/pkgIndex.tcl b/ext/tk/sample/tkextlib/tile/themes/keramik/pkgIndex.tcl index 4bb89aa8a5..cedec328f8 100644 --- a/ext/tk/sample/tkextlib/tile/themes/keramik/pkgIndex.tcl +++ b/ext/tk/sample/tkextlib/tile/themes/keramik/pkgIndex.tcl @@ -4,7 +4,7 @@ # 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 +# use tile::availableThemes and tile::setTheme # # $Id$ diff --git a/ext/tk/sample/tkextlib/tile/themes/kroc/kroc.tcl b/ext/tk/sample/tkextlib/tile/themes/kroc/kroc.tcl index 73548acef2..b2cd79679a 100644 --- a/ext/tk/sample/tkextlib/tile/themes/kroc/kroc.tcl +++ b/ext/tk/sample/tkextlib/tile/themes/kroc/kroc.tcl @@ -11,25 +11,25 @@ namespace eval tile { } namespace eval tile::kroc { - + set imgdir [file join [file dirname [info script]] kroc] array set Images [tile::LoadImages $imgdir *.gif] - + if {[package vsatisfies [package provide tile] 0.5]} { set TNoteBook_Tab TNotebook.Tab } else { set TNoteBook_Tab Tab.TNotebook } - + style theme create kroc -parent alt -settings { - + style default . -background #FCB64F -troughcolor #F8C278 -borderwidth 1 style default . -font TkDefaultFont -borderwidth 1 style map . -background [list active #694418] style map . -foreground [list disabled #B2B2B2 active #FFE7CB] - + style default TButton -padding "10 4" - + style default $TNoteBook_Tab -padding {10 3} -font TkDefaultFont style map $TNoteBook_Tab \ -background [list selected #FCB64F {} #FFE6BA] \ @@ -41,7 +41,7 @@ namespace eval tile::kroc { -arrowcolor { pressed #FFE7CB } \ -relief { pressed sunken } \ ; - + style layout Vertical.TScrollbar { Scrollbar.trough -children { Scrollbar.uparrow -side top @@ -50,7 +50,7 @@ namespace eval tile::kroc { Scrollbar.thumb -side top -expand true } } - + style layout Horizontal.TScrollbar { Scrollbar.trough -children { Scrollbar.leftarrow -side left @@ -59,18 +59,18 @@ namespace eval tile::kroc { Scrollbar.thumb -side left -expand true } } - + # # Elements: # if {[package vsatisfies [package provide tile] 0.5]} { - + style element create Button.button image $Images(button-n) \ -map [list \ pressed $Images(button-p) \ active $Images(button-h) \ ] -border 3 -sticky ew - + style element create Checkbutton.indicator image $Images(check-nu) \ -map [list \ {pressed selected} $Images(check-nc) \ @@ -79,7 +79,7 @@ namespace eval tile::kroc { active $Images(check-hu) \ selected $Images(check-nc) \ ] -sticky w - + style element create Radiobutton.indicator image $Images(radio-nu) \ -map [list \ {pressed selected} $Images(radio-nc) \ @@ -88,15 +88,15 @@ namespace eval tile::kroc { active $Images(radio-hu) \ selected $Images(radio-nc) \ ] -sticky w - + } else { - + style element create Button.button pixmap -images [list \ pressed $Images(button-p) \ active $Images(button-h) \ {} $Images(button-n) \ ] -border 3 -tiling tile - + style element create Checkbutton.indicator pixmap -images [list \ {pressed selected} $Images(check-nc) \ pressed $Images(check-nu) \ @@ -105,7 +105,7 @@ namespace eval tile::kroc { selected $Images(check-nc) \ {} $Images(check-nu) \ ] -tiling fixed - + style element create Radiobutton.indicator pixmap -images [list \ {pressed selected} $Images(radio-nc) \ pressed $Images(radio-nu) \ @@ -114,7 +114,7 @@ namespace eval tile::kroc { selected $Images(radio-nc) \ {} $Images(radio-nu) \ ] -tiling fixed - + } # @@ -141,7 +141,7 @@ namespace eval tile::kroc { } } } - + style layout TRadiobutton { Radiobutton.border -children { Radiobutton.background @@ -153,7 +153,7 @@ namespace eval tile::kroc { } } } - + } } # ------------------------------------------------------------------------- diff --git a/ext/tk/sample/tkextlib/tile/themes/kroc/pkgIndex.tcl b/ext/tk/sample/tkextlib/tile/themes/kroc/pkgIndex.tcl index 179077917c..de4f3d4555 100644 --- a/ext/tk/sample/tkextlib/tile/themes/kroc/pkgIndex.tcl +++ b/ext/tk/sample/tkextlib/tile/themes/kroc/pkgIndex.tcl @@ -4,7 +4,7 @@ # 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 +# use tile::availableThemes and tile::setTheme # # $Id$ diff --git a/ext/tk/sample/tkextlib/tile/themes/plastik/pkgIndex.tcl b/ext/tk/sample/tkextlib/tile/themes/plastik/pkgIndex.tcl index e39aff6f44..f402a73f10 100644 --- a/ext/tk/sample/tkextlib/tile/themes/plastik/pkgIndex.tcl +++ b/ext/tk/sample/tkextlib/tile/themes/plastik/pkgIndex.tcl @@ -4,7 +4,7 @@ # 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 +# use tile::availableThemes and tile::setTheme # # $Id$ |