1# blue.tcl - Copyright (C) 2004 Pat Thoyts <patthoyts@users.sourceforge.net> 2# 3# blue.tcl,v 1.27 2005/10/08 14:56:57 jenglish Exp 4# 5# 6 7namespace eval tile::theme::blue { 8 9 package provide tile::theme::blue 0.7 10 11 set imgdir [file join [file dirname [info script]] blue] 12 array set I [tile::LoadImages $imgdir *.gif] 13 14 array set colors { 15 -frame "#6699cc" 16 -lighter "#bcd2e8" 17 -window "#e6f3ff" 18 -selectbg "#ffff33" 19 -selectfg "#000000" 20 -disabledfg "#666666" 21 } 22 23 style theme create blue -settings { 24 25 style default . \ 26 -borderwidth 1 \ 27 -background $colors(-frame) \ 28 -fieldbackground $colors(-window) \ 29 -troughcolor $colors(-lighter) \ 30 -selectbackground $colors(-selectbg) \ 31 -selectforeground $colors(-selectfg) \ 32 ; 33 style map . -foreground [list disabled $colors(-disabledfg)] 34 35 ## Buttons. 36 # 37 style default TButton -padding "10 0" 38 style layout TButton { 39 Button.button -children { 40 Button.focus -children { 41 Button.padding -children { 42 Button.label 43 } 44 } 45 } 46 } 47 48 style element create button image $I(button-n) \ 49 -map [list pressed $I(button-p) active $I(button-h)] \ 50 -border 4 -sticky ew 51 52 style element create Checkbutton.indicator image $I(check-nu) \ 53 -width 24 -sticky w -map [list \ 54 {!disabled active selected} $I(check-hc) \ 55 {!disabled active} $I(check-hu) \ 56 {!disabled selected} $I(check-nc) ] 57 58 style element create Radiobutton.indicator image $I(radio-nu) \ 59 -width 24 -sticky w -map [list \ 60 {!disabled active selected} $I(radio-hc) \ 61 {!disabled active} $I(radio-hu) \ 62 selected $I(radio-nc) ] 63 64 style default TMenubutton -relief raised -padding {10 2} 65 66 ## Toolbar buttons. 67 # 68 style default Toolbutton \ 69 -width 0 -relief flat -borderwidth 2 -padding 4 \ 70 -background $colors(-frame) -foreground #000000 ; 71 style map Toolbutton -background [list active $colors(-selectbg)] 72 style map Toolbutton -foreground [list active $colors(-selectfg)] 73 style map Toolbutton -relief { 74 disabled flat 75 selected sunken 76 pressed sunken 77 active raised 78 } 79 80 ## Entry widgets. 81 # 82 style default TEntry \ 83 -selectborderwidth 1 -padding 2 -insertwidth 2 -font TkTextFont 84 style default TCombobox \ 85 -selectborderwidth 1 -padding 2 -insertwidth 2 -font TkTextFont 86 87 ## Notebooks. 88 # 89 style default TNotebook.Tab -padding {4 2 4 2} 90 style map TNotebook.Tab \ 91 -background \ 92 [list selected $colors(-frame) active $colors(-lighter)] \ 93 -padding [list selected {4 4 4 2}] 94 95 ## Labelframes. 96 # 97 style default TLabelframe -borderwidth 2 -relief groove 98 99 ## Scrollbars. 100 # 101 style layout Vertical.TScrollbar { 102 Scrollbar.trough -children { 103 Scrollbar.uparrow -side top 104 Scrollbar.downarrow -side bottom 105 Scrollbar.uparrow -side bottom 106 Vertical.Scrollbar.thumb -side top -expand true -sticky ns 107 } 108 } 109 110 style layout Horizontal.TScrollbar { 111 Scrollbar.trough -children { 112 Scrollbar.leftarrow -side left 113 Scrollbar.rightarrow -side right 114 Scrollbar.leftarrow -side right 115 Horizontal.Scrollbar.thumb -side left -expand true -sticky we 116 } 117 } 118 119 style element create Horizontal.Scrollbar.thumb image $I(sb-thumb) \ 120 -map [list {pressed !disabled} $I(sb-thumb-p)] -border 3 121 122 style element create Vertical.Scrollbar.thumb image $I(sb-vthumb) \ 123 -map [list {pressed !disabled} $I(sb-vthumb-p)] -border 3 124 125 foreach dir {up down left right} { 126 style element create ${dir}arrow image $I(arrow${dir}) \ 127 -map [list \ 128 disabled $I(arrow${dir}) \ 129 pressed $I(arrow${dir}-p) \ 130 active $I(arrow${dir}-h)] \ 131 -border 1 -sticky {} 132 } 133 134 ## Scales. 135 # 136 style element create Scale.slider \ 137 image $I(slider) -map [list {pressed !disabled} $I(slider-p)] 138 139 style element create Vertical.Scale.slider \ 140 image $I(vslider) -map [list {pressed !disabled} $I(vslider-p)] 141 142 style element create Horizontal.Progress.bar \ 143 image $I(sb-thumb) -border 2 144 style element create Vertical.Progress.bar \ 145 image $I(sb-vthumb) -border 2 146 147 } 148} 149 150