# Choose directory dialog implementation for Unix/Mac.
# Copyright (c) 1998-2000 by Scriptics Corporation.
# RCS: @(#) $Id: choosedir.tcl,v 1.15.2.1 2005/04/12 20:33:35 hobbs Exp $
# Make sure the tk::dialog namespace, in which all dialogs should live, exists
namespace eval ::tk::dialog {}
namespace eval ::tk::dialog::file {}
# Make the chooseDir namespace inside the dialog namespace
namespace eval ::tk::dialog::file::chooseDir {
namespace import
-force ::tk::msgcat::*
# ::tk::dialog::file::chooseDir:: --
# Implements the TK directory selection dialog.
# args Options parsed by the procedure.
proc ::tk::dialog::file::chooseDir:: {args
} {
set dataName __tk_choosedir
upvar ::tk::dialog::file::$dataName data
::tk::dialog::file::chooseDir::Config $dataName $args
if {[string equal
$data(-parent) .
]} {
set w
$data(-parent).
$dataName
# (re)create the dialog box if necessary
if {![winfo exists
$w]} {
::tk::dialog::file::Create $w TkChooseDir
} elseif
{[string compare
[winfo class
$w] TkChooseDir
]} {
::tk::dialog::file::Create $w TkChooseDir
set data
(dirMenuBtn
) $w.f1.
menu
set data
(dirMenu
) $w.f1.
menu.
menu
set data
(cancelBtn
) $w.f2.cancel
set data
(hiddenBtn
) $w.f2.hidden
if {$::tk::dialog::file::showHiddenBtn} {
$data(hiddenBtn
) configure
-state normal
$data(hiddenBtn
) configure
-state disabled
grid remove
$data(hiddenBtn
)
# Dialog boxes should be transient with respect to their parent,
# so that they will always stay on top of their parent window. However,
# some window managers will create the window as withdrawn if the parent
# window is withdrawn or iconified. Combined with the grab we put on the
# window, this can hang the entire application. Therefore we only make
# the dialog transient if the parent is viewable.
if {[winfo viewable
[winfo toplevel $data(-parent)]] } {
wm transient
$w $data(-parent)
trace variable data
(selectPath
) w
[list ::tk::dialog::file::SetPath $w]
$data(dirMenuBtn
) configure
\
-textvariable ::tk::dialog::file::${dataName
}(selectPath
)
set data
(previousEntryText
) ""
::tk::dialog::file::UpdateWhenIdle $w
# Withdraw the window, then update all the geometry information
# so we know how big it wants to be, then center the window in the
# display and de-iconify it.
::tk::PlaceWindow $w widget
$data(-parent)
wm title
$w $data(-title)
# Set a grab and claim the focus too.
::tk::SetFocusGrab $w $data(ent
)
$data(ent
) insert
0 $data(selectPath
)
$data(ent
) selection range
0 end
# Wait for the user to respond, then restore the focus and
# return the index of the selected button. Restore the focus
# before deleting the window, since otherwise the window manager
# may take the focus away so we can't redirect it. Finally,
# restore any grab that was in effect.
vwait ::tk::Priv(selectFilePath
)
::tk::RestoreFocusGrab $w $data(ent
) withdraw
# Cleanup traces on selectPath variable
foreach trace [trace vinfo data
(selectPath
)] {
trace vdelete data
(selectPath
) [lindex $trace 0] [lindex $trace 1]
$data(dirMenuBtn
) configure
-textvariable {}
return $Priv(selectFilePath
)
# ::tk::dialog::file::chooseDir::Config --
# Configures the Tk choosedir dialog according to the argument list
proc ::tk::dialog::file::chooseDir::Config {dataName argList
} {
upvar ::tk::dialog::file::$dataName data
# 0: Delete all variable that were set on data(selectPath) the
# last time the file dialog is used. The traces may cause troubles
# if the dialog is now used with a different -parent option.
foreach trace [trace vinfo data
(selectPath
)] {
trace vdelete data
(selectPath
) [lindex $trace 0] [lindex $trace 1]
# 1: the configuration specs
# 2: default values depending on the type of the dialog
if {![info exists data
(selectPath
)]} {
# first time the dialog has been popped up
set data
(selectPath
) [pwd]
tclParseConfigSpec
::tk::dialog::file::$dataName $specs "" $argList
if {$data(-title) == ""} {
set data
(-title) "[mc "Choose Directory
"]"
# Stub out the -multiple value for the dialog; it doesn't make sense for
# choose directory dialogs, but we have to have something there because we
# share so much code with the file dialogs.
# 4: set the default directory and selection according to the -initial
if {$data(-initialdir) != ""} {
# Ensure that initialdir is an absolute path name.
if {[file isdirectory
$data(-initialdir)]} {
set data
(selectPath
) [pwd]
set data
(selectPath
) [pwd]
if {![winfo exists
$data(-parent)]} {
error "bad window path name \"$data(-parent)\""
# Gets called when user presses Return in the "Selection" entry or presses OK.
proc ::tk::dialog::file::chooseDir::OkCmd {w
} {
upvar ::tk::dialog::file::[winfo name
$w] data
# This is the brains behind selecting non-existant directories. Here's
# 1. If the icon list has a selection, join it with the current dir,
# 1a. If the icon list does not have a selection ...
# 2. If the entry is empty, do nothing.
# 3. If the entry contains an invalid directory, then...
# 3a. If the value is the same as last time through here, end dialog.
# 3b. If the value is different than last time, save it and return.
# 4. If entry contains a valid directory, then...
# 4a. If the value is the same as the current directory, end dialog.
# 4b. If the value is different from the current directory, change to
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]
::tk::dialog::file::chooseDir::Done $w $iconText
set text [$data(ent
) get
]
if { [string equal
$text ""] } {
set text [eval file join [file split [string trim
$text]]]
if { ![file exists
$text] ||
![file isdirectory
$text] } {
# Entry contains an invalid directory. If it's the same as the
# last time they came through here, reset the saved value and end
# the dialog. Otherwise, save the value (so we can do this test
if { [string equal
$text $data(previousEntryText
)] } {
set data
(previousEntryText
) ""
::tk::dialog::file::chooseDir::Done $w $text
set data
(previousEntryText
) $text
# Entry contains a valid directory. If it is the same as the
# current directory, end the dialog. Otherwise, change to that
if { [string equal
$text $data(selectPath
)] } {
::tk::dialog::file::chooseDir::Done $w $text
set data
(selectPath
) $text
proc ::tk::dialog::file::chooseDir::DblClick {w
} {
upvar ::tk::dialog::file::[winfo name
$w] data
set selection [tk::IconList_Curselection $data(icons
)]
if { [llength $selection] != 0 } {
[tk::IconList_Get $data(icons
) [lindex $selection 0]]
set file $data(selectPath
)
if {[file isdirectory
$file]} {
::tk::dialog::file::ListInvoke $w [list $filenameFragment]
# Gets called when user browses the IconList widget (dragging mouse, arrow
proc ::tk::dialog::file::chooseDir::ListBrowse {w
text} {
upvar ::tk::dialog::file::[winfo name
$w] data
if {[string equal
$text ""]} {
set file [::tk::dialog::file::JoinFile $data(selectPath
) $text]
$data(ent
) insert
0 $file
# ::tk::dialog::file::chooseDir::Done --
# Gets called when user has input a valid filename. Pops up a
# dialog box to confirm selection when necessary. Sets the
# Priv(selectFilePath) variable, which will break the "vwait"
# loop in tk_chooseDirectory and return the selected filename to the
# script that calls tk_getOpenFile or tk_getSaveFile
proc ::tk::dialog::file::chooseDir::Done {w
{selectFilePath
""}} {
upvar ::tk::dialog::file::[winfo name
$w] data
if {[string equal
$selectFilePath ""]} {
set selectFilePath
$data(selectPath
)
if { $data(-mustexist) } {
if { ![file exists
$selectFilePath] ||
\
![file isdir
$selectFilePath] } {
set Priv
(selectFilePath
) $selectFilePath