select all file and put all of them or one to anther frame

[stewang]

Hello all:
Do anyone known how to pop up a dialog box for the user to select all and 
one file and put all the name of the items to listbox or frame or label.

At the movement, my coding just can pop up a dialog box for the user to select one file from folder.

menu .mbar

. configure -menu .mbar

menu .mbar.file -tearoff 0

.mbar add cascade -label "File" -underline 0    -menu .mbar.file

.mbar.file add command -label "Open" -underline 0    -command openFile

proc openFile {} {
 set filename [tk_getOpenFile]     
	set thefile [open $filename r]       
	set filecontent [read $thefile]       
	close $thefile       
}

 

[Bong]

use the "multiple" option:
set filelist [tk_getOpenFile -multiple 1]

Bob Rashkin
rrashkin@csc.com

 

[stewang]

Hi Bong:
Thanks for your reply.
After I add the option in my code, It doesn't change anything.
I run my code in Linux, Do you known any command for my question which it can use for a linux?

rgds
stewang

menu .mbar

. configure -menu .mbar

menu .mbar.file -tearoff 0

.mbar add cascade -label "File" -underline 0    -menu .mbar.file

.mbar.file add command -label "Open" -underline 0    -command openFile

proc openFile {} {
 set filename [tk_getOpenFile]     
    set thefile [open $filename r -multiple 1]       
    set filecontent [read $thefile]       
    close $thefile       
}