summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2005-11-25 15:58:15 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2005-11-25 15:58:15 (GMT)
commitc0223b885cb724c64ed47ceefc90b7f883a6b4df (patch)
tree94e28f5e7c4bfec4e5fc385c63c76afcf8b4c39a
parent6eb066dce3cf16c8549b77e4ef664550bec72b33 (diff)
downloadtk-c0223b885cb724c64ed47ceefc90b7f883a6b4df.zip
tk-c0223b885cb724c64ed47ceefc90b7f883a6b4df.tar.gz
tk-c0223b885cb724c64ed47ceefc90b7f883a6b4df.tar.bz2
Fix bits that (should, and now do) refer to tk::IconList_CurSelection
-rw-r--r--library/choosedir.tcl6
-rw-r--r--library/tclIndex2
-rw-r--r--library/unsupported.tcl4
3 files changed, 6 insertions, 6 deletions
diff --git a/library/choosedir.tcl b/library/choosedir.tcl
index 1a054bd..8403d97 100644
--- a/library/choosedir.tcl
+++ b/library/choosedir.tcl
@@ -5,7 +5,7 @@
# Copyright (c) 1998-2000 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: choosedir.tcl,v 1.17 2005/07/25 09:06:01 dkf Exp $
+# RCS: @(#) $Id: choosedir.tcl,v 1.18 2005/11/25 15:58:15 dkf Exp $
# Make sure the tk::dialog namespace, in which all dialogs should live, exists
namespace eval ::tk::dialog {}
@@ -201,7 +201,7 @@ proc ::tk::dialog::file::chooseDir::OkCmd {w} {
# 4b. If the value is different from the current directory, change to
# that directory.
- set selection [tk::IconList_Curselection $data(icons)]
+ set selection [tk::IconList_CurSelection $data(icons)]
if {[llength $selection] != 0} {
set iconText [tk::IconList_Get $data(icons) [lindex $selection 0]]
set iconText [file join $data(selectPath) $iconText]
@@ -239,7 +239,7 @@ proc ::tk::dialog::file::chooseDir::OkCmd {w} {
proc ::tk::dialog::file::chooseDir::DblClick {w} {
upvar ::tk::dialog::file::[winfo name $w] data
- set selection [tk::IconList_Curselection $data(icons)]
+ set selection [tk::IconList_CurSelection $data(icons)]
if {[llength $selection] != 0} {
set filenameFragment \
[tk::IconList_Get $data(icons) [lindex $selection 0]]
diff --git a/library/tclIndex b/library/tclIndex
index 6b3547d..2550b4e 100644
--- a/library/tclIndex
+++ b/library/tclIndex
@@ -200,7 +200,7 @@ set auto_index(::tk::TabToWindow) [list source [file join $dir tk.tcl]]
set auto_index(::tk::IconList) [list source [file join $dir tkfbox.tcl]]
set auto_index(::tk::IconList_Index) [list source [file join $dir tkfbox.tcl]]
set auto_index(::tk::IconList_Selection) [list source [file join $dir tkfbox.tcl]]
-set auto_index(::tk::IconList_Curselection) [list source [file join $dir tkfbox.tcl]]
+set auto_index(::tk::IconList_CurSelection) [list source [file join $dir tkfbox.tcl]]
set auto_index(::tk::IconList_DrawSelection) [list source [file join $dir tkfbox.tcl]]
set auto_index(::tk::IconList_Get) [list source [file join $dir tkfbox.tcl]]
set auto_index(::tk::IconList_Config) [list source [file join $dir tkfbox.tcl]]
diff --git a/library/unsupported.tcl b/library/unsupported.tcl
index 72171c3..32e0a9e 100644
--- a/library/unsupported.tcl
+++ b/library/unsupported.tcl
@@ -3,7 +3,7 @@
# Commands provided by Tk without official support. Use them at your
# own risk. They may change or go away without notice.
#
-# RCS: @(#) $Id: unsupported.tcl,v 1.4 2002/07/17 16:51:53 rmax Exp $
+# RCS: @(#) $Id: unsupported.tcl,v 1.5 2005/11/25 15:58:15 dkf Exp $
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
@@ -95,7 +95,7 @@ namespace eval ::tk::unsupported {
tkIconList_Config ::tk::IconList_Config
tkIconList_Create ::tk::IconList_Create
tkIconList_CtrlBtn1 ::tk::IconList_CtrlBtn1
- tkIconList_Curselection ::tk::IconList_Curselection
+ tkIconList_Curselection ::tk::IconList_CurSelection
tkIconList_DeleteAll ::tk::IconList_DeleteAll
tkIconList_Double1 ::tk::IconList_Double1
tkIconList_DrawSelection ::tk::IconList_DrawSelection