#5 no embedded image at index "xxx.0"

[Larry J. Elmore]

If a directory contains more than 499 directories,
attempting to open one will result in a Configuration
Error dialog appearing that states, "Error while
executing action from "Popups": no embedded image at
index "xxx.0" [where xxx = the directory place number
in the listbox, with "." and ".." counted as 1 and 2]

Inspecting the error gives the following:
####################################
Error: no embedded image at index "7.0"

errorCode: NONE

errorInfo: no embedded image at index "7.0"
while executing
"[$frame.dlb getText] image cget $index -image"
invoked from within
"if $add_icons {
if {$tkdesk(tcl_version) < 8.0} {
catch {label $framedlb.text.l:$index}
set closed_image [$framedlb.text.l:$index cget -image..."
(object "::.fv0-top.lb0" method
"::dsk_FileListbox::tagpath" body line 48)
invoked from within
"$top.lb[expr $i - 1] tagpath $lbdirs($i)"
(object "::.fv0" method
"::dsk_FileViewer::_configDirectory" body line 75)
invoked from within
"_configDirectory"
(error in configuration of public variable
"::dsk_FileViewer::directory")
(object "::.fv0" method "::dsk_Common::configure" )
invoked from within
"configure -directory /home/lelmore/1000"
("eval" body line 1)
invoked from within
"eval configure $args"
(object "::.fv0" method "::dsk_FileViewer::config"
body line 2)
invoked from within
"$tkdesk(active_viewer) config -directory $dir"
invoked from within
"if !$openNew {
$tkdesk(active_viewer) config -directory $dir
} else {
dsk_open_dir $dir
}"
(procedure "dsk_cd" line 42)
invoked from within
"dsk_cd /home/lelmore/1000 "
("eval" body line 1)
invoked from within
"eval [_expand_pc $action $file]"
invoked from within
"if $tkdesk(file_lb,control) {
if $tkdesk(in_browser) {
dsk_FileViewer .fv[dsk_FileViewer::id] -dir "$file"
-num_lbs $tkdesk(num_lbs)
} el..."
invoked from within
"if [file isdirectory $file] {
# DIRECTORY

if ![file executable $file] {
dsk_errbell
cb_error "Permission denied (directory not
executable..."
(procedure "::dsk_open" line 23)
invoked from within
"::dsk_open $this "$file""
(object "::.fv0" method
"::dsk_FileViewer::_dblclick" body line 23)
invoked from within
"::.fv0 _dblclick ::.fv0-top.lb0
[.fv0-top.lb0-frame.dlb select get]"
invoked from within
"if $tkdesk(single_click) {
set tkdesk(file_lb,control) 0
::.fv0 _dblclick ::.fv0-top.lb0
[.fv0-top.lb0-frame.dlb select get]
}"
(command bound to event)
#####################################

This is using fully patched TkDesk v2.0b, tcl/tk
8.4.13, itcl 3.3, blt 2.4z. Error occurs on both
Gentoo amd64 Linux and on Solaris 9.