Attachment "tutorial-changes.diff-wu" to
ticket [2962834fff]
added by
andreas_kupries
2010-03-04 02:45:56.
--- tcltutorial.orig/html/Tcl25.html 2010-03-03 11:21:55.000000000 -0800
+++ tcltutorial/html/Tcl25.html 2010-03-03 11:22:54.000000000 -0800
@@ -292,7 +292,7 @@
set dirs [glob -nocomplain -type d *]
if { $dirs != {} } {
- puts "Directories:
+ puts "Directories:"
foreach d [lsort $dirs] {
puts " $d"
}
@@ -302,7 +302,7 @@
set files [glob -nocomplain -type f *]
if { $files != {} } {
- puts "Files:
+ puts "Files:"
foreach f [lsort $files] {
puts " [file size $f] - $f"
}
--- tcltutorial.orig/html/Tcl26a.html 2010-03-03 11:21:55.000000000 -0800
+++ tcltutorial/html/Tcl26a.html 2010-03-03 11:23:19.000000000 -0800
@@ -22,11 +22,11 @@
proc accept {socket address port} {
puts "Accepted connection $socket from $address\:$port"
# Copy input from the socket directly back to the socket
- chan copy $socket $socket -command [list finish $socket]
+ fcopy $socket $socket -command [list finish $socket]
}
proc finish {socket args} {
puts "Closed $socket"
- catch { chan close $socket }
+ catch { close $socket }
}
socket -server accept 8080
# Start the event loop by waiting on a non-existant variable 'forever'
