1b702 problem with entry widget - The Tcl programming language
Training, Open Source computer languages
PerlPHPPythonMySQLApache / TomcatTclRubyJavaC and C++LinuxCSS 
Search for:
Home Accessibility Courses Diary The Mouth Forum Resources Site Map About Us Contact
problem with entry widget

Posted by dee00zee (dee00zee), 10 June 2005
I want to create a simple gui which has buttons and entry.
I want the entry to return the path of the file that I 've choosen during browse.
My code is as follows, but the entry does not return the path of the file that I've choosen.

#!/usr/local/bin/wish

wm title . gui

proc Browse3 {} {
global types command
set file [tk_getOpenFile -filetypes $types -parent .]
#if {$file != ""} {set scriptFile $file}

}

frame .top -borderwidth 10
pack .top -side top -fill x

entry .top.ent -width 20 -relief sunken -textvariable command
button .top.quit -text Quit -command exit
button .top.browse -text "Browse.." -command Browse3
     
pack .top.quit .top.browse -side right

#create label entry for the command
label .top.l -text File: -padx 0
#entry .top.ent -width 20 -relief sunken
pack .top.l -side left
pack .top.ent -side left -fill x -expand true

set types {
     {"ALL files"      *}
     }

Could you suggest what should I do to make it work?
Thank you


Posted by Custard (Custard), 10 June 2005
You'll kick yourself!

I changed

Code:
#if {$file != ""} {set scriptFile $file}


to

Code:
if {$file != ""} {set command $file}


and it looks good to me. See what you think..

hth

B



This page is a thread posted to the opentalk forum at www.opentalk.org.uk and archived here for reference. To jump to the archive index please follow this link.

You can Add a comment or ranking to this page

© WELL HOUSE CONSULTANTS LTD., 2013: Well House Manor • 48 Spa Road • Melksham, Wiltshire • United Kingdom • SN12 7NY
PH: 01144 1225 708225 • FAX: 01144 1225 899360 • EMAIL: info@wellho.net • WEB: http://www.wellho.net • SKYPE: wellho
0