From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Fri, 22 Mar 2002 01:33:33 +0000 (+0000)
Subject: Fix dde check under unix.
X-Git-Tag: r5_1_6p7
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=1eb725b10ac4c4442de8b2ad3e285183d02f6ea9;p=tkinspect

Fix dde check under unix.
---

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]]