From dfc8041cb28b35e3ea5b274a8ec7969174a07981 Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Mon, 30 May 2005 19:35:10 +0000
Subject: Check for existence of env(TREECTRL_LIBRARY) when reporting its
 value.

---
 demos/demo.tcl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/demos/demo.tcl b/demos/demo.tcl
index ab64c43..1b1fce6 100644
--- a/demos/demo.tcl
+++ b/demos/demo.tcl
@@ -113,7 +113,12 @@ foreach list [info loaded] {
     puts "demo.tcl: using '$file'"
     break
 }
-puts "demo.tcl: TREECTRL_LIBRARY=$env(TREECTRL_LIBRARY)"
+if {[info exists env(TREECTRL_LIBRARY)]} {
+	puts "demo.tcl: TREECTRL_LIBRARY=$env(TREECTRL_LIBRARY)"
+} else {
+	puts "demo.tcl: TREECTRL_LIBRARY undefined"
+}
+puts "demo.tcl: treectrl_library=$treectrl_library"
 
 option add *TreeCtrl.useTheme 1
 #option add *TreeCtrl.itemPrefix item
-- 
cgit v0.12