# Tcl autoload index file, version 2.0

set classList [list \
		OpenOffice \
		Presentation \
		SpreadSheet \
		ChartDocument \
		Writer \
		TextTable \
	]
foreach class $classList {
	set ::auto_index(::itcluno::$class) [list source [file join $dir $class.tcl]]
}
set classList [list \
		OfficeUtilities \
		Tktable2OOTable \
		Tablelist2OOTable \
	]
foreach class $classList {
	set fd [open [file join $dir $class.tcl]]
	while {[gets $fd line] >= 0} {
		if {[string first "\tproc" $line] == 0} {
			append line "\}"
			set auto_index(::itcluno::${class}::[lindex $line 1]) [list source [file join $dir $class.tcl]]
		}
	}
	close $fd
}
