From b23cd2cb65fa689c7c3e8f35b860b2fa230af85c Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Sat, 19 Jul 2003 17:51:40 +0000
Subject: Set ::Dir to Tcl/lib directory

---
 demos/explorer.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/demos/explorer.tcl b/demos/explorer.tcl
index eefd7a8..541a869 100644
--- a/demos/explorer.tcl
+++ b/demos/explorer.tcl
@@ -1,4 +1,4 @@
-set Dir [file dirname [Path]]
+set Dir [file dirname [info library]]
 
 proc DemoExplorerAux {scriptDir scriptFile} {
 
-- 
cgit v0.12