1 files changed, 35 insertions, 0 deletions
diff --git a/library/ttk/cursors.tcl b/library/ttk/cursors.tcl
new file mode 100644
index 0000000..a151194
--- /dev/null
+++ b/library/ttk/cursors.tcl
@@ -0,0 +1,35 @@
+#
+# $Id: cursors.tcl,v 1.1 2006/10/31 01:42:27 hobbs Exp $
+#
+# Ttk package: Symbolic cursor names.
+#
+# @@@ TODO: Figure out appropriate platform-specific cursors
+#	for the various functions.
+#
+
+namespace eval ttk {
+
+    variable Cursors
+
+    switch -glob $::tcl_platform(platform) {
+	"windows" {
+	    array set Cursors {
+		hresize 	sb_h_double_arrow
+		vresize 	sb_v_double_arrow
+		seresize	size_nw_se
+	    }
+	}
+
+	"unix" -
+	* {
+	    array set Cursors {
+		hresize 	sb_h_double_arrow
+		vresize 	sb_v_double_arrow
+		seresize	bottom_right_corner
+	    }
+	}
+
+    }
+}
+
+#*EOF*