Errata for 2nd Edition

Note: Environment variables can be initialized for Macintosh applications by editing a resource of type STR# whose name is "Tcl Environment Variables". This resource is part of the tclsh and wish applications. Follow the directions on page 26 for using ResEdit. The format of the resource values is NAME=VALUE.

 regsub "HTTP/1.. " $header(http) {} header(http)

proc CopyDone {in out bytes {error {}} {
	close $in ; close $out
}

http::geturl
http::config
http::formatQuery
http::reset
http::data
http::status
http::error
http::code
http::wait 

     ::safe::interpCreate ?slave? ?options...?
     ::safe::interpInit slave ?options...?
     ::safe::interpConfigure slave ?options...?
     ::safe::interpDelete slave
     ::safe::interpAddToAccessPath slave directory
     ::safe::interpFindInAccessPath slave directory
     ::safe::setLogCmd ?cmd arg...?

     -accessPath pathList
     -noStatics
     -nestedLoadOk
     -deleteHook script

proc SafeAfterExitAlias {slave} {
	global after
	foreach id [array names after id,$slave,*] {
		after cancel $after($id)
		unset after($id)
	}
	interp delete $slave
}

proc EvalTypein {} {
	global eval
	$eval(text) insert insert \n
	set command [$eval(text) get limit end]
	if [info complete $command] {
		$eval(text) mark set limit insert
		Eval $command
	}
}

grid bbox master ?c1 r1? ?c2 r2?

Unfortunately, if a font is missing, versions of Tk before 8.0 do not attempt to substitute another font, not even fixed. (Tk 8.0 only does substitutions if you use platform-independent font names.) Before Tk 8.0, the widget creation or reconfiguration command raises an error if the font does not exist.

append eval(cmdbuf,$sock) $line\n

frame .embed -container true

    switch -regexp -- $default {
	    ^CHOICE {
		    PrefValueSet $varName [lindex $default 1]
	    }
	    ^OFF {
		    PrefValueSet $varName 0
	    }
	    ^ON {
		    PrefValueSet $varName 1
	    }
	    default {
		    # This is a string or numeric
		    PrefValueSet $varName $default
	    }
    }

The Tcl_NewTypeObj allocates storage for an object and sets its reference count to zero. Tcl_IncrRefCount and Tcl_DecrRefCount increment and decrement the reference count on an object. Tcl_DecrRefCount frees the storage for an object when it goes to zero. The initial reference count of zero was chosen because functions like Tcl_SetObjResult automatically increment the reference count on an object.

if (info.isNativeObjectProc)

if (info.isNativeObjectProc)

Tcl_IncrRefCount(objv[argc]);

if (info.isNativeObjectProc)

(void)Tcl_GetStringResult(interp);

clockPtr->widgetCmd = Tcl_CreateCommand(interp,
	Tk_PathName(clockPtr->tkwin),
	ClockInstanceCmd,
	(ClientData) clockPtr, (void (*)()) NULL);

Tcl_DeleteCommandFromToken(clockPtr->interp, 
		clockPtr->widgetCmd);
 

Initialization of a safe interpreter with a safe base that supports auto loading and a standard exit alias has been abstracted into a Tcl interface. The safe::interpCreate and safe::interpInit procedures create or initialize a slave with the safe base. The safe::interpDelete procedure cleans up. The safe base is described on page 212.

This book first went to press after Tcl/Tk 8.0a2, the 2nd alpha release, and just before the first beta release. I tried to document the last major changes to Tcl/Tk 8.0 such as namespaces, binary I/O, and menu enhancements that appeared in the beta and final versions. However, I could not anticipate every change made before Tcl/Tk 8.0 went final. The rest of this section summarizes updates made in the 2nd and later reprints. Please consult http://www.beedub.com/book/ for errata and news about Tcl/Tk updates.

namespace eval

http Package

Safe-Tcl Safe Base

Object Reference Counts

The Web Browser Plug-in

set embed [frame $rim.child -container true]

::safe::loadTk safetk -use [winfo id $embed]