From 2daa0fcaefd530981cec2d63aa771c7dc0d4accd Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Fri, 13 May 2005 20:18:58 +0000
Subject: Use column -tag instead of zero, to handle -columnprefix option if
 used.

---
 demos/bitmaps.tcl | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/demos/bitmaps.tcl b/demos/bitmaps.tcl
index 4f0f700..ea063fd 100644
--- a/demos/bitmaps.tcl
+++ b/demos/bitmaps.tcl
@@ -17,7 +17,7 @@ proc DemoBitmaps {} {
 	# Create columns
 	#
 
-	$T column create -itembackground {gray90 {}}
+	$T column create -itembackground {gray90 {}} -tag C0
 
 	#
 	# Create elements
@@ -58,21 +58,21 @@ proc DemoBitmaps {} {
 	foreach name $bitmapNames {
 		set I [$T item create]
 #		$T item style set $I 0 $S
-		$T item text $I 0 $name
-		$T item element configure $I 0 elemBmp -bitmap $name
+		$T item text $I C0 $name
+		$T item element configure $I C0 elemBmp -bitmap $name
 		$T item lastchild root $I
 	}
 
 	foreach name $bitmapNames {
 		set I [$T item create]
-		$T item style set $I 0 $S
-		$T item text $I 0 $name
+		$T item style set $I C0 $S
+		$T item text $I C0 $name
 if 1 {
-		$T item element configure $I 0 elemBmp -bitmap $name \
+		$T item element configure $I C0 elemBmp -bitmap $name \
 			-foreground [list brown {}] \
 			-background {"" {}}
 } else {
-		$T item element configure $I 0 elemBmp -bitmap $name \
+		$T item element configure $I C0 elemBmp -bitmap $name \
 			-foreground [list $::SystemHighlight {selected focus} brown {}] \
 			-background {"" {}}
 }
-- 
cgit v0.12