Factor out the IconList megawidget.

1 files changed, 10 insertions, 788 deletions

diff --git a/library/tkfbox.tcl b/library/tkfbox.tcl
index 03d8859..c0ef0c4 100644
--- a/library/tkfbox.tcl
+++ b/library/tkfbox.tcl
@@ -11,7 +11,7 @@
 #	files by clicking on the file icons or by entering a filename
 #	in the "Filename:" entry.
 #
-# RCS: @(#) $Id: tkfbox.tcl,v 1.71 2009/01/07 14:35:39 patthoyts Exp $
+# RCS: @(#) $Id: tkfbox.tcl,v 1.72 2009/02/12 21:32:49 dkf Exp $
 #
 # Copyright (c) 1994-1998 Sun Microsystems, Inc.
 #
@@ -19,780 +19,6 @@
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
 
-#----------------------------------------------------------------------
-#
-#		      I C O N   L I S T
-#
-# This is a pseudo-widget that implements the icon list inside the
-# ::tk::dialog::file:: dialog box.
-#
-#----------------------------------------------------------------------
-
-# ::tk::IconList --
-#
-#	Creates an IconList widget.
-#
-proc ::tk::IconList {w args} {
-    IconList_Config $w $args
-    IconList_Create $w
-}
-
-proc ::tk::IconList_Index {w i} {
-    upvar #0 ::tk::$w data ::tk::$w:itemList itemList
-    if {![info exists data(list)]} {
-	set data(list) {}
-    }
-    switch -regexp -- $i {
-	"^-?[0-9]+$" {
-	    if {$i < 0} {
-		set i 0
-	    }
-	    if {$i >= [llength $data(list)]} {
-		set i [expr {[llength $data(list)] - 1}]
-	    }
-	    return $i
-	}
-	"^active$" {
-	    return $data(index,active)
-	}
-	"^anchor$" {
-	    return $data(index,anchor)
-	}
-	"^end$" {
-	    return [llength $data(list)]
-	}
-	"@-?[0-9]+,-?[0-9]+" {
-	    foreach {x y} [scan $i "@%d,%d"] {
-		break
-	    }
-	    set item [$data(canvas) find closest \
-		    [$data(canvas) canvasx $x] [$data(canvas) canvasy $y]]
-	    return [lindex [$data(canvas) itemcget $item -tags] 1]
-	}
-    }
-}
-
-proc ::tk::IconList_Selection {w op args} {
-    upvar ::tk::$w data
-    switch -exact -- $op {
-	"anchor" {
-	    if {[llength $args] == 1} {
-		set data(index,anchor) [tk::IconList_Index $w [lindex $args 0]]
-	    } else {
-		return $data(index,anchor)
-	    }
-	}
-	"clear" {
-	    if {[llength $args] == 2} {
-		foreach {first last} $args {
-		    break
-		}
-	    } elseif {[llength $args] == 1} {
-		set first [set last [lindex $args 0]]
-	    } else {
-		error "wrong # args: should be [lindex [info level 0] 0] path\
-			clear first ?last?"
-	    }
-	    set first [IconList_Index $w $first]
-	    set last [IconList_Index $w $last]
-	    if {$first > $last} {
-		set tmp $first
-		set first $last
-		set last $tmp
-	    }
-	    set ind 0
-	    foreach item $data(selection) {
-		if { $item >= $first } {
-		    set first $ind
-		    break
-		}
-		incr ind
-	    }
-	    set ind [expr {[llength $data(selection)] - 1}]
-	    for {} {$ind >= 0} {incr ind -1} {
-		set item [lindex $data(selection) $ind]
-		if { $item <= $last } {
-		    set last $ind
-		    break
-		}
-	    }
-
-	    if { $first > $last } {
-		return
-	    }
-	    set data(selection) [lreplace $data(selection) $first $last]
-	    event generate $w <<ListboxSelect>>
-	    IconList_DrawSelection $w
-	}
-	"includes" {
-	    set index [lsearch -exact $data(selection) [lindex $args 0]]
-	    return [expr {$index != -1}]
-	}
-	"set" {
-	    if { [llength $args] == 2 } {
-		foreach {first last} $args {
-		    break
-		}
-	    } elseif { [llength $args] == 1 } {
-		set last [set first [lindex $args 0]]
-	    } else {
-		error "wrong # args: should be [lindex [info level 0] 0] path\
-			set first ?last?"
-	    }
-
-	    set first [IconList_Index $w $first]
-	    set last [IconList_Index $w $last]
-	    if { $first > $last } {
-		set tmp $first
-		set first $last
-		set last $tmp
-	    }
-	    for {set i $first} {$i <= $last} {incr i} {
-		lappend data(selection) $i
-	    }
-	    set data(selection) [lsort -integer -unique $data(selection)]
-	    event generate $w <<ListboxSelect>>
-	    IconList_DrawSelection $w
-	}
-    }
-}
-
-proc ::tk::IconList_CurSelection {w} {
-    upvar ::tk::$w data
-    return $data(selection)
-}
-
-proc ::tk::IconList_DrawSelection {w} {
-    upvar ::tk::$w data
-    upvar ::tk::$w:itemList itemList
-
-    $data(canvas) delete selection
-    $data(canvas) itemconfigure selectionText -fill black
-    $data(canvas) dtag selectionText
-    set cbg [ttk::style lookup TEntry -selectbackground focus]
-    set cfg [ttk::style lookup TEntry -selectforeground focus]
-    foreach item $data(selection) {
-	set rTag [lindex [lindex $data(list) $item] 2]
-	foreach {iTag tTag text serial} $itemList($rTag) {
-	    break
-	}
-
-	set bbox [$data(canvas) bbox $tTag]
-	$data(canvas) create rect $bbox -fill $cbg -outline $cbg \
-		-tags selection
-	$data(canvas) itemconfigure $tTag -fill $cfg -tags selectionText
-    }
-    $data(canvas) lower selection
-    return
-}
-
-proc ::tk::IconList_Get {w item} {
-    upvar ::tk::$w data
-    upvar ::tk::$w:itemList itemList
-    set rTag [lindex [lindex $data(list) $item] 2]
-    foreach {iTag tTag text serial} $itemList($rTag) {
-	break
-    }
-    return $text
-}
-
-# ::tk::IconList_Config --
-#
-#	Configure the widget variables of IconList, according to the command
-#	line arguments.
-#
-proc ::tk::IconList_Config {w argList} {
-
-    # 1: the configuration specs
-    #
-    set specs {
-	{-command "" "" ""}
-	{-multiple "" "" "0"}
-    }
-
-    # 2: parse the arguments
-    #
-    tclParseConfigSpec ::tk::$w $specs "" $argList
-}
-
-# ::tk::IconList_Create --
-#
-#	Creates an IconList widget by assembling a canvas widget and a
-#	scrollbar widget. Sets all the bindings necessary for the IconList's
-#	operations.
-#
-proc ::tk::IconList_Create {w} {
-    upvar ::tk::$w data
-
-    ttk::frame $w
-    ttk::entry $w.cHull -takefocus 0
-    set data(sbar)   [ttk::scrollbar $w.cHull.sbar -orient horizontal -takefocus 0]
-    catch {$data(sbar) configure -highlightthickness 0}
-    set data(canvas) [canvas $w.cHull.canvas -highlightthick 0 \
-	    -width 400 -height 120 -takefocus 1 -background white]
-    pack $data(sbar) -side bottom -fill x -padx 2 -in $w.cHull -pady {0 2}
-    pack $data(canvas) -expand yes -fill both -padx 2 -pady {2 0}
-    pack $w.cHull -expand yes -fill both -ipadx 2 -ipady 2
-
-    $data(sbar) configure -command [list $data(canvas) xview]
-    $data(canvas) configure -xscrollcommand [list $data(sbar) set]
-
-    # Initializes the max icon/text width and height and other variables
-    #
-    set data(maxIW) 1
-    set data(maxIH) 1
-    set data(maxTW) 1
-    set data(maxTH) 1
-    set data(numItems) 0
-    set data(noScroll) 1
-    set data(selection) {}
-    set data(index,anchor) ""
-    set fg [option get $data(canvas) foreground Foreground]
-    if {$fg eq ""} {
-	set data(fill) black
-    } else {
-	set data(fill) $fg
-    }
-
-    # Creates the event bindings.
-    #
-    bind $data(canvas) <Configure>	[list tk::IconList_Arrange $w]
-
-    bind $data(canvas) <1>		[list tk::IconList_Btn1 $w %x %y]
-    bind $data(canvas) <B1-Motion>	[list tk::IconList_Motion1 $w %x %y]
-    bind $data(canvas) <B1-Leave>	[list tk::IconList_Leave1 $w %x %y]
-    bind $data(canvas) <Control-1>	[list tk::IconList_CtrlBtn1 $w %x %y]
-    bind $data(canvas) <Shift-1>	[list tk::IconList_ShiftBtn1 $w %x %y]
-    bind $data(canvas) <B1-Enter>	[list tk::CancelRepeat]
-    bind $data(canvas) <ButtonRelease-1> [list tk::CancelRepeat]
-    bind $data(canvas) <Double-ButtonRelease-1> \
-	    [list tk::IconList_Double1 $w %x %y]
-
-    bind $data(canvas) <Control-B1-Motion> {;}
-    bind $data(canvas) <Shift-B1-Motion> \
-	    [list tk::IconList_ShiftMotion1 $w %x %y]
-
-    bind $data(canvas) <Up>		[list tk::IconList_UpDown $w -1]
-    bind $data(canvas) <Down>		[list tk::IconList_UpDown $w  1]
-    bind $data(canvas) <Left>		[list tk::IconList_LeftRight $w -1]
-    bind $data(canvas) <Right>		[list tk::IconList_LeftRight $w  1]
-    bind $data(canvas) <Return>		[list tk::IconList_ReturnKey $w]
-    bind $data(canvas) <KeyPress>	[list tk::IconList_KeyPress $w %A]
-    bind $data(canvas) <Control-KeyPress> ";"
-    bind $data(canvas) <Alt-KeyPress>	";"
-
-    bind $data(canvas) <FocusIn>	[list tk::IconList_FocusIn $w]
-    bind $data(canvas) <FocusOut>	[list tk::IconList_FocusOut $w]
-
-    return $w
-}
-
-# ::tk::IconList_AutoScan --
-#
-# This procedure is invoked when the mouse leaves an entry window
-# with button 1 down.  It scrolls the window up, down, left, or
-# right, depending on where the mouse left the window, and reschedules
-# itself as an "after" command so that the window continues to scroll until
-# the mouse moves back into the window or the mouse button is released.
-#
-# Arguments:
-# w -		The IconList window.
-#
-proc ::tk::IconList_AutoScan {w} {
-    upvar ::tk::$w data
-    variable ::tk::Priv
-
-    if {![winfo exists $w]} return
-    set x $Priv(x)
-    set y $Priv(y)
-
-    if {$data(noScroll)} {
-	return
-    }
-    if {$x >= [winfo width $data(canvas)]} {
-	$data(canvas) xview scroll 1 units
-    } elseif {$x < 0} {
-	$data(canvas) xview scroll -1 units
-    } elseif {$y >= [winfo height $data(canvas)]} {
-	# do nothing
-    } elseif {$y < 0} {
-	# do nothing
-    } else {
-	return
-    }
-
-    IconList_Motion1 $w $x $y
-    set Priv(afterId) [after 50 [list tk::IconList_AutoScan $w]]
-}
-
-# Deletes all the items inside the canvas subwidget and reset the IconList's
-# state.
-#
-proc ::tk::IconList_DeleteAll {w} {
-    upvar ::tk::$w data
-    upvar ::tk::$w:itemList itemList
-
-    $data(canvas) delete all
-    unset -nocomplain data(selected) data(rect) data(list) itemList
-    set data(maxIW) 1
-    set data(maxIH) 1
-    set data(maxTW) 1
-    set data(maxTH) 1
-    set data(numItems) 0
-    set data(noScroll) 1
-    set data(selection) {}
-    set data(index,anchor) ""
-    $data(sbar) set 0.0 1.0
-    $data(canvas) xview moveto 0
-}
-
-# Adds an icon into the IconList with the designated image and text
-#
-proc ::tk::IconList_Add {w image items} {
-    upvar ::tk::$w data
-    upvar ::tk::$w:itemList itemList
-    upvar ::tk::$w:textList textList
-
-    foreach text $items {
-	set iTag [$data(canvas) create image 0 0 -image $image -anchor nw \
-		-tags [list icon $data(numItems) item$data(numItems)]]
-	set tTag [$data(canvas) create text  0 0 -text  $text  -anchor nw \
-		-font $data(font) -fill $data(fill) \
-		-tags [list text $data(numItems) item$data(numItems)]]
-	set rTag [$data(canvas) create rect  0 0 0 0 -fill "" -outline "" \
-		-tags [list rect $data(numItems) item$data(numItems)]]
-
-	foreach {x1 y1 x2 y2} [$data(canvas) bbox $iTag] {
-	    break
-	}
-	set iW [expr {$x2 - $x1}]
-	set iH [expr {$y2 - $y1}]
-	if {$data(maxIW) < $iW} {
-	    set data(maxIW) $iW
-	}
-	if {$data(maxIH) < $iH} {
-	    set data(maxIH) $iH
-	}
-
-	foreach {x1 y1 x2 y2} [$data(canvas) bbox $tTag] {
-	    break
-	}
-	set tW [expr {$x2 - $x1}]
-	set tH [expr {$y2 - $y1}]
-	if {$data(maxTW) < $tW} {
-	    set data(maxTW) $tW
-	}
-	if {$data(maxTH) < $tH} {
-	    set data(maxTH) $tH
-	}
-
-	lappend data(list) [list $iTag $tTag $rTag $iW $iH $tW \
-		$tH $data(numItems)]
-	set itemList($rTag) [list $iTag $tTag $text $data(numItems)]
-	set textList($data(numItems)) [string tolower $text]
-	incr data(numItems)
-    }
-}
-
-# Places the icons in a column-major arrangement.
-#
-proc ::tk::IconList_Arrange {w} {
-    upvar ::tk::$w data
-
-    if {![info exists data(list)]} {
-	if {[info exists data(canvas)] && [winfo exists $data(canvas)]} {
-	    set data(noScroll) 1
-	    $data(sbar) configure -command ""
-	}
-	return
-    }
-
-    set W [winfo width  $data(canvas)]
-    set H [winfo height $data(canvas)]
-    set pad [expr {[$data(canvas) cget -highlightthickness] + \
-	    [$data(canvas) cget -bd]}]
-    if {$pad < 2} {
-	set pad 2
-    }
-
-    incr W -[expr {$pad*2}]
-    incr H -[expr {$pad*2}]
-
-    set dx [expr {$data(maxIW) + $data(maxTW) + 8}]
-    if {$data(maxTH) > $data(maxIH)} {
-	set dy $data(maxTH)
-    } else {
-	set dy $data(maxIH)
-    }
-    incr dy 2
-    set shift [expr {$data(maxIW) + 4}]
-
-    set x [expr {$pad * 2}]
-    set y [expr {$pad * 1}] ; # Why * 1 ?
-    set usedColumn 0
-    foreach sublist $data(list) {
-	set usedColumn 1
-	foreach {iTag tTag rTag iW iH tW tH} $sublist {
-	    break
-	}
-
-	set i_dy [expr {($dy - $iH)/2}]
-	set t_dy [expr {($dy - $tH)/2}]
-
-	$data(canvas) coords $iTag $x                    [expr {$y + $i_dy}]
-	$data(canvas) coords $tTag [expr {$x + $shift}]  [expr {$y + $t_dy}]
-	$data(canvas) coords $rTag $x $y [expr {$x+$dx}] [expr {$y+$dy}]
-
-	incr y $dy
-	if {($y + $dy) > $H} {
-	    set y [expr {$pad * 1}] ; # *1 ?
-	    incr x $dx
-	    set usedColumn 0
-	}
-    }
-
-    if {$usedColumn} {
-	set sW [expr {$x + $dx}]
-    } else {
-	set sW $x
-    }
-
-    if {$sW < $W} {
-	$data(canvas) configure -scrollregion [list $pad $pad $sW $H]
-	$data(sbar) configure -command ""
-	$data(canvas) xview moveto 0
-	set data(noScroll) 1
-    } else {
-	$data(canvas) configure -scrollregion [list $pad $pad $sW $H]
-	$data(sbar) configure -command [list $data(canvas) xview]
-	set data(noScroll) 0
-    }
-
-    set data(itemsPerColumn) [expr {($H-$pad)/$dy}]
-    if {$data(itemsPerColumn) < 1} {
-	set data(itemsPerColumn) 1
-    }
-
-    IconList_DrawSelection $w
-}
-
-# Gets called when the user invokes the IconList (usually by double-clicking
-# or pressing the Return key).
-#
-proc ::tk::IconList_Invoke {w} {
-    upvar ::tk::$w data
-
-    if {$data(-command) ne "" && [llength $data(selection)]} {
-	uplevel #0 $data(-command)
-    }
-}
-
-# ::tk::IconList_See --
-#
-#	If the item is not (completely) visible, scroll the canvas so that
-#	it becomes visible.
-proc ::tk::IconList_See {w rTag} {
-    upvar ::tk::$w data
-    upvar ::tk::$w:itemList itemList
-
-    if {$data(noScroll)} {
-	return
-    }
-    set sRegion [$data(canvas) cget -scrollregion]
-    if {$sRegion eq ""} {
-	return
-    }
-
-    if { $rTag < 0 || $rTag >= [llength $data(list)] } {
-	return
-    }
-
-    set bbox [$data(canvas) bbox item$rTag]
-    set pad [expr {[$data(canvas) cget -highlightthickness] + \
-	    [$data(canvas) cget -bd]}]
-
-    set x1 [lindex $bbox 0]
-    set x2 [lindex $bbox 2]
-    incr x1 -[expr {$pad * 2}]
-    incr x2 -[expr {$pad * 1}] ; # *1 ?
-
-    set cW [expr {[winfo width $data(canvas)] - $pad*2}]
-
-    set scrollW [expr {[lindex $sRegion 2]-[lindex $sRegion 0]+1}]
-    set dispX [expr {int([lindex [$data(canvas) xview] 0]*$scrollW)}]
-    set oldDispX $dispX
-
-    # check if out of the right edge
-    #
-    if {($x2 - $dispX) >= $cW} {
-	set dispX [expr {$x2 - $cW}]
-    }
-    # check if out of the left edge
-    #
-    if {($x1 - $dispX) < 0} {
-	set dispX $x1
-    }
-
-    if {$oldDispX ne $dispX} {
-	set fraction [expr {double($dispX)/double($scrollW)}]
-	$data(canvas) xview moveto $fraction
-    }
-}
-
-proc ::tk::IconList_Btn1 {w x y} {
-    upvar ::tk::$w data
-
-    focus $data(canvas)
-    set i [IconList_Index $w @$x,$y]
-    if {$i eq ""} {
-	return
-    }
-    IconList_Selection $w clear 0 end
-    IconList_Selection $w set $i
-    IconList_Selection $w anchor $i
-}
-
-proc ::tk::IconList_CtrlBtn1 {w x y} {
-    upvar ::tk::$w data
-
-    if { $data(-multiple) } {
-	focus $data(canvas)
-	set i [IconList_Index $w @$x,$y]
-	if {$i eq ""} {
-	    return
-	}
-	if { [IconList_Selection $w includes $i] } {
-	    IconList_Selection $w clear $i
-	} else {
-	    IconList_Selection $w set $i
-	    IconList_Selection $w anchor $i
-	}
-    }
-}
-
-proc ::tk::IconList_ShiftBtn1 {w x y} {
-    upvar ::tk::$w data
-
-    if { $data(-multiple) } {
-	focus $data(canvas)
-	set i [IconList_Index $w @$x,$y]
-	if {$i eq ""} {
-	    return
-	}
-	if {[IconList_Index $w anchor] eq ""} {
-		IconList_Selection $w anchor $i
-	}
-	IconList_Selection $w clear 0 end
-	IconList_Selection $w set anchor $i
-    }
-}
-
-# Gets called on button-1 motions
-#
-proc ::tk::IconList_Motion1 {w x y} {
-    variable ::tk::Priv
-    set Priv(x) $x
-    set Priv(y) $y
-    set i [IconList_Index $w @$x,$y]
-    if {$i eq ""} {
-	return
-    }
-    IconList_Selection $w clear 0 end
-    IconList_Selection $w set $i
-}
-
-proc ::tk::IconList_ShiftMotion1 {w x y} {
-    upvar ::tk::$w data
-    variable ::tk::Priv
-    set Priv(x) $x
-    set Priv(y) $y
-    set i [IconList_Index $w @$x,$y]
-    if {$i eq ""} {
-	return
-    }
-    IconList_Selection $w clear 0 end
-    IconList_Selection $w set anchor $i
-}
-
-proc ::tk::IconList_Double1 {w x y} {
-    upvar ::tk::$w data
-
-    if {[llength $data(selection)]} {
-	IconList_Invoke $w
-    }
-}
-
-proc ::tk::IconList_ReturnKey {w} {
-    IconList_Invoke $w
-}
-
-proc ::tk::IconList_Leave1 {w x y} {
-    variable ::tk::Priv
-
-    set Priv(x) $x
-    set Priv(y) $y
-    IconList_AutoScan $w
-}
-
-proc ::tk::IconList_FocusIn {w} {
-    upvar ::tk::$w data
-
-    $w.cHull state focus
-    if {![info exists data(list)]} {
-	return
-    }
-
-    if {[llength $data(selection)]} {
-	IconList_DrawSelection $w
-    }
-}
-
-proc ::tk::IconList_FocusOut {w} {
-    $w.cHull state !focus
-    IconList_Selection $w clear 0 end
-}
-
-# ::tk::IconList_UpDown --
-#
-# Moves the active element up or down by one element
-#
-# Arguments:
-# w -		The IconList widget.
-# amount -	+1 to move down one item, -1 to move back one item.
-#
-proc ::tk::IconList_UpDown {w amount} {
-    upvar ::tk::$w data
-
-    if {![info exists data(list)]} {
-	return
-    }
-
-    set curr [tk::IconList_CurSelection $w]
-    if { [llength $curr] == 0 } {
-	set i 0
-    } else {
-	set i [tk::IconList_Index $w anchor]
-	if {$i eq ""} {
-	    return
-	}
-	incr i $amount
-    }
-    IconList_Selection $w clear 0 end
-    IconList_Selection $w set $i
-    IconList_Selection $w anchor $i
-    IconList_See $w $i
-}
-
-# ::tk::IconList_LeftRight --
-#
-# Moves the active element left or right by one column
-#
-# Arguments:
-# w -		The IconList widget.
-# amount -	+1 to move right one column, -1 to move left one column.
-#
-proc ::tk::IconList_LeftRight {w amount} {
-    upvar ::tk::$w data
-
-    if {![info exists data(list)]} {
-	return
-    }
-
-    set curr [IconList_CurSelection $w]
-    if { [llength $curr] == 0 } {
-	set i 0
-    } else {
-	set i [IconList_Index $w anchor]
-	if {$i eq ""} {
-	    return
-	}
-	incr i [expr {$amount*$data(itemsPerColumn)}]
-    }
-    IconList_Selection $w clear 0 end
-    IconList_Selection $w set $i
-    IconList_Selection $w anchor $i
-    IconList_See $w $i
-}
-
-#----------------------------------------------------------------------
-#		Accelerator key bindings
-#----------------------------------------------------------------------
-
-# ::tk::IconList_KeyPress --
-#
-#	Gets called when user enters an arbitrary key in the listbox.
-#
-proc ::tk::IconList_KeyPress {w key} {
-    variable ::tk::Priv
-
-    append Priv(ILAccel,$w) $key
-    IconList_Goto $w $Priv(ILAccel,$w)
-    catch {
-	after cancel $Priv(ILAccel,$w,afterId)
-    }
-    set Priv(ILAccel,$w,afterId) [after 500 [list tk::IconList_Reset $w]]
-}
-
-proc ::tk::IconList_Goto {w text} {
-    upvar ::tk::$w data
-    upvar ::tk::$w:textList textList
-
-    if {![info exists data(list)]} {
-	return
-    }
-
-    if {$text eq "" || $data(numItems) == 0} {
-	return
-    }
-
-    if {[llength [IconList_CurSelection $w]]} {
-	set start [IconList_Index $w anchor]
-    } else {
-	set start 0
-    }
-
-    set theIndex -1
-    set less 0
-    set len [string length $text]
-    set len0 [expr {$len-1}]
-    set i $start
-
-    # Search forward until we find a filename whose prefix is a
-    # case-insensitive match with $text
-    while {1} {
-	if {[string equal -nocase -length $len0 $textList($i) $text]} {
-	    set theIndex $i
-	    break
-	}
-	incr i
-	if {$i == $data(numItems)} {
-	    set i 0
-	}
-	if {$i == $start} {
-	    break
-	}
-    }
-
-    if {$theIndex > -1} {
-	IconList_Selection $w clear 0 end
-	IconList_Selection $w set $theIndex
-	IconList_Selection $w anchor $theIndex
-	IconList_See $w $theIndex
-    }
-}
-
-proc ::tk::IconList_Reset {w} {
-    variable ::tk::Priv
-
-    unset -nocomplain Priv(ILAccel,$w)
-}
-
-#----------------------------------------------------------------------
-#
-#		      F I L E   D I A L O G
-#
-#----------------------------------------------------------------------
-
 namespace eval ::tk::dialog {}
 namespace eval ::tk::dialog::file {
     namespace import -force ::tk::msgcat::*
@@ -1233,8 +459,7 @@ proc ::tk::dialog::file::SetSelectMode {w multi} {
     }
     set iconListCommand [list ::tk::dialog::file::OkCmd $w]
     ::tk::SetAmpText $w.contents.f2.lab $fNameCaption
-    ::tk::IconList_Config $data(icons) \
-	    [list -multiple $multi -command $iconListCommand]
+    $data(icons) configure -multiple $multi -command $iconListCommand
     return
 }
 
@@ -1313,7 +538,7 @@ rSASvJTGhnhcV3EJlo3kh53ltF5nAhQAOw==}]
     $w         configure -cursor watch
     update idletasks
 
-    ::tk::IconList_DeleteAll $data(icons)
+    $data(icons) deleteall
 
     set showHidden $::tk::dialog::file::showHiddenVar
 
@@ -1329,7 +554,7 @@ rSASvJTGhnhcV3EJlo3kh53ltF5nAhQAOw==}]
 	}
 	lappend dirList $d
     }
-    ::tk::IconList_Add $data(icons) $folder $dirList
+    $data(icons) add $folder $dirList
 
     if {$class eq "TkFDialog"} {
 	# Make the file list if this is a File Dialog, selecting all
@@ -1346,11 +571,9 @@ rSASvJTGhnhcV3EJlo3kh53ltF5nAhQAOw==}]
 	    eval [list lappend cmd] $data(filter)
 	}
 	set fileList [lsort -dictionary -unique [eval $cmd]]
-	::tk::IconList_Add $data(icons) $file $fileList
+	$data(icons) add $file $fileList
     }
 
-    ::tk::IconList_Arrange $data(icons)
-
     # Update the Directory: option menu
     #
     set list ""
@@ -1417,7 +640,6 @@ proc ::tk::dialog::file::SetPath {w name1 name2 op} {
 #
 proc ::tk::dialog::file::SetFilter {w type} {
     upvar ::tk::dialog::file::[winfo name $w] data
-    upvar ::tk::$data(icons) icons
 
     set data(filterType) $type
     set data(filter) [lindex $type 1]
@@ -1446,7 +668,7 @@ proc ::tk::dialog::file::SetFilter {w type} {
 	}
     }
 
-    $icons(sbar) set 0.0 0.0
+    $data(icons) see 0
 
     UpdateWhenIdle $w
 }
@@ -1719,8 +941,8 @@ proc ::tk::dialog::file::OkCmd {w} {
     upvar ::tk::dialog::file::[winfo name $w] data
 
     set filenames {}
-    foreach item [::tk::IconList_CurSelection $data(icons)] {
-	lappend filenames [::tk::IconList_Get $data(icons) $item]
+    foreach item [$data(icons) selection get] {
+	lappend filenames [$data(icons) get $item]
     }
 
     if {([llength $filenames] && !$data(-multiple)) || \
@@ -1762,8 +984,8 @@ proc ::tk::dialog::file::ListBrowse {w} {
     upvar ::tk::dialog::file::[winfo name $w] data
 
     set text {}
-    foreach item [::tk::IconList_CurSelection $data(icons)] {
-	lappend text [::tk::IconList_Get $data(icons) $item]
+    foreach item [$data(icons) selection get] {
+	lappend text [$data(icons) get $item]
     }
     if {[llength $text] == 0} {
 	return