From 1eb725b10ac4c4442de8b2ad3e285183d02f6ea9 Mon Sep 17 00:00:00 2001
From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Fri, 22 Mar 2002 01:33:33 +0000
Subject: [PATCH] Fix dde check under unix.

---
 tkinspect.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tkinspect.tcl b/tkinspect.tcl
index 96a36a5..d8a1487 100644
--- a/tkinspect.tcl
+++ b/tkinspect.tcl
@@ -232,7 +232,7 @@ dialog tkinspect_main {
     method fill_interp_menu {} {
 	set m $self.menu.file.m.interps
 	catch {$m delete 0 last}
-        if {[package present dde]} {
+        if {[package provide dde] != {}} {
             foreach service [dde services TclEval {}] {
                 $m add command -label [lindex $service 1] \
                     -command [list $self set_target [lindex $service 1]]
-- 
2.23.0