From 1984cb42d523879f6d9400705eb94b96627714cd Mon Sep 17 00:00:00 2001
From: das <das>
Date: Fri, 26 Oct 2007 08:04:15 +0000
Subject: use global for -typevariable

---
 library/demos/filebox.tcl | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/library/demos/filebox.tcl b/library/demos/filebox.tcl
index c64888e..209eb66 100644
--- a/library/demos/filebox.tcl
+++ b/library/demos/filebox.tcl
@@ -2,7 +2,7 @@
 #
 # This demonstration script prompts the user to select a file.
 #
-# RCS: @(#) $Id: filebox.tcl,v 1.7 2007/10/26 07:56:02 das Exp $
+# RCS: @(#) $Id: filebox.tcl,v 1.8 2007/10/26 08:04:15 das Exp $
 
 if {![info exists widgetDemo]} {
     error "This script should be run from the \"widget\" demo."
@@ -61,10 +61,13 @@ proc fileDialog {w ent operation} {
 	{"All files"		*}
     }
     if {$operation == "open"} {
-	set type "Tcl Scripts"
+	global selected_type
+	if {![info exists selected_type]} {
+	    set selected_type "Tcl Scripts"
+	}
 	set file [tk_getOpenFile -filetypes $types -parent $w \
-		-typevariable type]
-	puts "You selected filetype \"$type\""
+		-typevariable selected_type]
+	puts "You selected filetype \"$selected_type\""
     } else {
 	set file [tk_getSaveFile -filetypes $types -parent $w \
 		-initialfile Untitled -defaultextension .txt]
-- 
cgit v0.12