diff options
Diffstat (limited to 'library/tkfbox.tcl')
| -rw-r--r-- | library/tkfbox.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/tkfbox.tcl b/library/tkfbox.tcl index 990a860..ef17c61 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.12 1999/12/16 21:57:53 hobbs Exp $ +# RCS: @(#) $Id: tkfbox.tcl,v 1.13 2000/01/06 02:22:25 hobbs Exp $ # # Copyright (c) 1994-1998 Sun Microsystems, Inc. # @@ -150,7 +150,7 @@ proc tkIconList_AutoScan {w} { } tkIconList_Motion1 $w $x $y - set tkPriv(afterId) [after 50 tkIconList_AutoScan $w] + set tkPriv(afterId) [after 50 [list tkIconList_AutoScan $w]] } # Deletes all the items inside the canvas subwidget and reset the IconList's @@ -555,7 +555,7 @@ proc tkIconList_KeyPress {w key} { catch { after cancel $tkPriv(ILAccel,$w,afterId) } - set tkPriv(ILAccel,$w,afterId) [after 500 tkIconList_Reset $w] + set tkPriv(ILAccel,$w,afterId) [after 500 [list tkIconList_Reset $w]] } proc tkIconList_Goto {w text} { @@ -933,7 +933,7 @@ proc tkFDialog_UpdateWhenIdle {w} { if {[info exists data(updateId)]} { return } else { - set data(updateId) [after idle tkFDialog_Update $w] + set data(updateId) [after idle [list tkFDialog_Update $w]] } } |