From f65f60056d74d1ed2aea00a142c93d092f6386f0 Mon Sep 17 00:00:00 2001
From: jenglish <jenglish@flightlab.com>
Date: Fri, 19 Oct 2007 01:25:12 +0000
Subject: s/style/ttk::style/

---
 library/ttk/aquaTheme.tcl | 47 ++++++++++++++++++++++-------------------------
 1 file changed, 22 insertions(+), 25 deletions(-)

diff --git a/library/ttk/aquaTheme.tcl b/library/ttk/aquaTheme.tcl
index c6636d7..1c1994c 100644
--- a/library/ttk/aquaTheme.tcl
+++ b/library/ttk/aquaTheme.tcl
@@ -1,17 +1,13 @@
 #
-# $Id: aquaTheme.tcl,v 1.3 2007/07/06 19:44:51 jenglish Exp $
+# $Id: aquaTheme.tcl,v 1.4 2007/10/19 01:25:12 jenglish Exp $
 #
-# Ttk widget set: Aqua theme (OSX native look and feel)
+# Aqua theme (OSX native look and feel)
 #
-#
-# TODO: panedwindow sashes should be 9 pixels (HIG:Controls:Split Views)
-#
-
-namespace eval ttk {
 
-    style theme settings aqua {
+namespace eval ttk::theme::aqua {
+    ttk::style theme settings aqua {
 
-	style configure . \
+	ttk::style configure . \
 	    -font System \
 	    -background White \
 	    -foreground Black \
@@ -20,7 +16,7 @@ namespace eval ttk {
 	    -selectborderwidth 0 \
 	    -insertwidth 1 \
 	    ;
-	style map . \
+	ttk::style map . \
 	    -foreground [list  disabled "#a3a3a3"  background "#a3a3a3"] \
 	    -selectbackground [list background "#c3c3c3"  !focus "#c3c3c3"] \
 	    -selectforeground [list background "#a3a3a3"  !focus "#000000"] \
@@ -30,33 +26,33 @@ namespace eval ttk {
 	# Actually, on Aqua we probably shouldn't stipple images in
 	# disabled buttons even if it did work...
 	#
-	style configure . -stipple {}
+	ttk::style configure . -stipple {}
 
-	style configure TButton -padding {0 2} -width -6
-	style configure TMenubutton -anchor w
-	style configure Toolbutton -padding 4
+	ttk::style configure TButton -padding {0 2} -width -6
+	ttk::style configure TMenubutton -anchor w
+	ttk::style configure Toolbutton -padding 4
 	# See Apple HIG figs 14-63, 14-65
-	style configure TNotebook -tabposition n -padding {20 12}
-	style configure TNotebook.Tab -padding {10 2 10 2}
+	ttk::style configure TNotebook -tabposition n -padding {20 12}
+	ttk::style configure TNotebook.Tab -padding {10 2 10 2}
 
 	# Treeview:
-	style configure Treeview -rowheight 18
-	style configure Heading -font TkHeadingFont
-	style map Row -background [list \
+	ttk::style configure Treeview -rowheight 18
+	ttk::style configure Heading -font TkHeadingFont
+	ttk::style map Row -background [list \
 		{selected background} "#c3c3c3" selected SystemHighlight] ;
-	style map Cell -foreground [list \
+	ttk::style map Cell -foreground [list \
 		{selected background} "#000000" selected SystemHighlightText] ;
-	style map Item -foreground [list \
+	ttk::style map Item -foreground [list \
 		{selected background} "#000000" selected SystemHighlightText] ;
 
 	# Enable animation for ttk::progressbar widget:
-	style configure TProgressbar -period 100 -maxphase 255
+	ttk::style configure TProgressbar -period 100 -maxphase 255
 
 	# Modify the the default Labelframe layout to use generic text element
 	# instead of Labelframe.text; the latter erases the window background
 	# (@@@ this still isn't right... want to fill with background pattern)
 
-	style layout TLabelframe {
+	ttk::style layout TLabelframe {
 	    Labelframe.border
 	    text
 	}
@@ -65,8 +61,9 @@ namespace eval ttk {
 	# with a 14 pixel inset and 4 pixels spacing between border and label
 	# (ref: Apple Human Interface Guidelines / Controls / Grouping Controls)
 	#
-    	style configure TLabelframe \
-		-labeloutside true -labelmargins {14 0 14 4}
+    	ttk::style configure TLabelframe \
+	    -labeloutside true -labelmargins {14 0 14 4}
 
+	# TODO: panedwindow sashes should be 9 pixels (HIG:Controls:Split Views)
     }
 }
-- 
cgit v0.12