Tcl Source Code

Check-in [03e6eecd77]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:removed windows-tk restriction on code that forked another shell--able to make this change because bug 1495 is fixed.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-1-branch-old
Files: files | file ages | folders
SHA1: 03e6eecd770b3c87127a572393776b0c1ab38d1f
User & Date: hershey 1999-04-03 03:02:47
Context
1999-04-05
21:58
* win/tclWinConsole.c: * win/tclWinPipe.c: * win/tclWinSerial.c: Fixed race condition where backgrou... check-in: 9c78cc3ee2 user: stanton tags: core-8-1-branch-old
1999-04-03
03:02
removed windows-tk restriction on code that forked another shell--able to make this change because b... check-in: 03e6eecd77 user: hershey tags: core-8-1-branch-old
02:27
Test cases for DDE package. check-in: dc921b725e user: redman tags: core-8-1-branch-old
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to tests/defs.tcl.

     7      7   #	of Sun Microsystems.
     8      8   #
     9      9   # Copyright (c) 1990-1994 The Regents of the University of California.
    10     10   # Copyright (c) 1994-1996 Sun Microsystems, Inc.
    11     11   # Copyright (c) 1998-1999 by Scriptics Corporation.
    12     12   # All rights reserved.
    13     13   # 
    14         -# RCS: @(#) $Id: defs.tcl,v 1.1.2.9 1999/04/02 18:57:07 hershey Exp $
           14  +# RCS: @(#) $Id: defs.tcl,v 1.1.2.10 1999/04/03 03:02:47 hershey Exp $
    15     15   
    16     16   # Initialize wish shell
    17     17   if {[info exists tk_version]} {
    18     18       tk appname tktest
    19     19       wm title . tktest
    20     20   } else {
    21     21       # Ensure that we have a minimal auto_path so we don't pick up extra junk.
................................................................................
   808    808       catch {file delete -force tmp}
   809    809       set f [open tmp w]
   810    810       puts $f {
   811    811   	exit
   812    812       }
   813    813       close $f
   814    814   
   815         -    # The following 2 lines cannot be run on Windows in Tk8.1b2
   816         -    # This bug is logged as a pipe bug (bugID 1495).
   817         -
   818         -    if {($tcl_platform(platform) != "windows") || \
   819         -	    (![info exists tk_version])} {
   820         -	set f [open "|[list $tcltest tmp]" r]
   821         -	close $f
   822         -    }
          815  +    set f [open "|[list $tcltest tmp]" r]
          816  +    close $f
          817  +    
   823    818       set ::tcltest::testConfig(stdio) 1
   824    819   }
   825    820   catch {file delete -force tmp}
   826    821   
   827    822   # Deliberately call the socket with the wrong number of arguments.  The error
   828    823   # message you get will indicate whether sockets are available on this system.
   829    824   catch {socket} msg