Gecko [ edgpens.lpkmn.gov.my ]

Name	Size	Permission
altTheme.tcl	3.52 KB	-rw-rw-rw-
aquaTheme.tcl	3.42 KB	-rw-rw-rw-
button.tcl	2.86 KB	-rw-rw-rw-
clamTheme.tcl	4.55 KB	-rw-rw-rw-
classicTheme.tcl	3.66 KB	-rw-rw-rw-
combobox.tcl	11.98 KB	-rw-rw-rw-
cursors.tcl	4.51 KB	-rw-rw-rw-
defaults.tcl	4.31 KB	-rw-rw-rw-
entry.tcl	16.59 KB	-rw-rw-rw-
fonts.tcl	5.44 KB	-rw-rw-rw-
menubutton.tcl	6.3 KB	-rw-rw-rw-
notebook.tcl	5.44 KB	-rw-rw-rw-
panedwindow.tcl	2.15 KB	-rw-rw-rw-
progress.tcl	1.06 KB	-rw-rw-rw-
scale.tcl	2.63 KB	-rw-rw-rw-
scrollbar.tcl	3.17 KB	-rw-rw-rw-
sizegrip.tcl	2.34 KB	-rw-rw-rw-
spinbox.tcl	4.7 KB	-rw-rw-rw-
treeview.tcl	9.57 KB	-rw-rw-rw-
ttk.tcl	4.7 KB	-rw-rw-rw-
utils.tcl	8.24 KB	-rw-rw-rw-
vistaTheme.tcl	9.26 KB	-rw-rw-rw-
winTheme.tcl	2.72 KB	-rw-rw-rw-
xpTheme.tcl	1.99 KB	-rw-rw-rw-

Code Editor : aquaTheme.tcl

#
# Aqua theme (OSX native look and feel)
#

namespace eval ttk::theme::aqua {
    ttk::style theme settings aqua {

ttk::style configure . \
	    -font TkDefaultFont \
	    -background systemWindowBackgroundColor \
	    -foreground systemLabelColor \
	    -selectbackground systemSelectedTextBackgroundColor \
	    -selectforeground systemSelectedTextColor \
	    -selectborderwidth 0 \
	    -insertwidth 1

ttk::style map . \
	    -foreground {
		disabled systemDisabledControlTextColor
		background systemLabelColor} \
	    -selectbackground {
		background systemSelectedTextBackgroundColor
		!focus systemSelectedTextBackgroundColor} \
	    -selectforeground {
		background systemSelectedTextColor
		!focus systemSelectedTextColor}

# Button
	ttk::style configure TButton -anchor center -width -6 \
	    -foreground systemControlTextColor
	ttk::style map TButton \
	    -foreground {
		pressed white
	        {alternate !pressed !background} white}
	ttk::style configure TMenubutton -anchor center -padding {2 0 0 2}
	ttk::style configure Toolbutton -anchor center

# For Entry, Combobox and Spinbox widgets the selected text background
	# is the "Highlight color" selected in preferences when the widget
	# has focus.  It is a gray color when the widget does not have focus or
	# the window does not have focus. (The background state implies !focus
	# so we only need to specify !focus.)

# Entry
	ttk::style map TEntry \
	    -foreground {
		disabled systemDisabledControlTextColor
	    } \
	    -selectbackground {
		!focus systemUnemphasizedSelectedTextBackgroundColor
	    }

# Combobox:
	ttk::style map TCombobox \
	    -foreground {
		disabled systemDisabledControlTextColor
	    } \
	    -selectbackground {
		!focus systemUnemphasizedSelectedTextBackgroundColor
	    }

# Spinbox
	ttk::style map TSpinbox \
	    -foreground {
		disabled systemDisabledControlTextColor
	    } \
	    -selectbackground {
		!focus systemUnemphasizedSelectedTextBackgroundColor
	    }

# Workaround for #1100117:
	# Actually, on Aqua we probably shouldn't stipple images in
	# disabled buttons even if it did work...
	ttk::style configure . -stipple {}

# Notebook
	ttk::style configure TNotebook -tabmargins {10 0} -tabposition n
	ttk::style configure TNotebook -padding {18 8 18 17}
	ttk::style configure TNotebook.Tab -padding {12 3 12 2}
	ttk::style configure TNotebook.Tab -foreground systemControlTextColor
	ttk::style map TNotebook.Tab \
	    -foreground {
		background systemControlTextColor
		disabled systemDisabledControlTextColor
		selected systemSelectedTabTextColor}

# Treeview:
	ttk::style configure Heading \
	    -font TkHeadingFont \
	    -foreground systemTextColor \
	    -background systemWindowBackgroundColor
	ttk::style configure Treeview -rowheight 18 \
	    -background systemTextBackgroundColor \
	    -foreground systemTextColor \
	    -fieldbackground systemTextBackgroundColor
	ttk::style map Treeview \
	    -background {
		selected systemSelectedTextBackgroundColor
	    }

# Enable animation for ttk::progressbar widget:
	ttk::style configure TProgressbar -period 100 -maxphase 120

# For Aqua, labelframe labels should appear outside the border,
	# with a 14 pixel inset and 4 pixels spacing between border and label
	# (ref: Apple Human Interface Guidelines / Controls / Grouping Controls)
	#
	ttk::style configure TLabelframe \
		-labeloutside true -labelmargins {14 0 14 4}

# TODO: panedwindow sashes should be 9 pixels (HIG:Controls:Split Views)
    }
}

${this.title}

Code Editor : aquaTheme.tcl