(InitMenus) added version check around Attach to Socket menu, as

	8.3 is need for the file channels call.

diff --git a/ChangeLog b/ChangeLog
index 43ea93d34902cad4ed3f12a6c0974a4522335cb2..3c5f9ff12c4f5d96a6e32ec2751db3f2994a122b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -6,6 +6,8 @@
        be displayed when input is expected.
        (GetSelection) new command to handle getting selection, this
        supports the new UTF8_STRING type.
+       (InitMenus) added version check around Attach to Socket menu, as
+       8.3 is need for the file channels call.
 
 2001-05-28  Jeff Hobbs  <jeffh@ActiveState.com>
 

diff --git a/tkcon.tcl b/tkcon.tcl
index 35a2072d2cef147f9dcfe754e0e10f27e17c23ff..7af1d3eaabf2dab56cf003de2f2c3f80f12222dd 100755 (executable)
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -1106,10 +1106,15 @@ proc ::tkcon::InitMenus {w title} {
        menu $sub.name -disabledforeground $COLOR(disabled) -tearoff 0 \
                -postcommand [list ::tkcon::NamespaceMenu $sub.name]
 
-       ## Attach Socket Menu
-       ##
-       menu $sub.sock -disabledforeground $COLOR(disabled) -tearoff 0 \
-               -postcommand [list ::tkcon::SocketMenu $sub.sock]
+       if {$::tcl_version >= 8.3} {
+           # This uses [file channels] to create the menu, so we only
+           # want it for newer versions of Tcl.
+
+           ## Attach Socket Menu
+           ##
+           menu $sub.sock -disabledforeground $COLOR(disabled) -tearoff 0 \
+                   -postcommand [list ::tkcon::SocketMenu $sub.sock]
+       }
 
        ## Attach Display Menu
        ##