1 files changed, 0 insertions, 70 deletions
diff --git a/tcl/library/demos/filebox.tcl b/tcl/library/demos/filebox.tcl
deleted file mode 100644
index a0c32a585b7..00000000000
--- a/tcl/library/demos/filebox.tcl
+++ /dev/null
@@ -1,70 +0,0 @@
-# filebox.tcl --
-#
-# This demonstration script prompts the user to select a file.
-#
-# RCS: @(#) $Id$
-
-if {![info exists widgetDemo]} {
-    error "This script should be run from the \"widget\" demo."
-}
-
-set w .filebox
-catch {destroy $w}
-toplevel $w
-wm title $w "File Selection Dialogs"
-wm iconname $w "filebox"
-positionWindow $w
-
-label $w.msg -font $font -wraplength 4i -justify left -text "Enter a file name in the entry box or click on the \"Browse\" buttons to select a file name using the file selection dialog."
-pack $w.msg -side top
-
-frame $w.buttons
-pack $w.buttons -side bottom -fill x -pady 2m
-button $w.buttons.dismiss -text Dismiss -command "destroy $w"
-button $w.buttons.code -text "See Code" -command "showCode $w"
-pack $w.buttons.dismiss $w.buttons.code -side left -expand 1
-
-foreach i {open save} {
-    set f [frame $w.$i]
-    label $f.lab -text "Select a file to $i: " -anchor e
-    entry $f.ent -width 20
-    button $f.but -text "Browse ..." -command "fileDialog $w $f.ent $i"
-    pack $f.lab -side left
-    pack $f.ent -side left -expand yes -fill x
-    pack $f.but -side left
-    pack $f -fill x -padx 1c -pady 3
-}
-
-if {![string compare $tcl_platform(platform) unix]} {
-    checkbutton $w.strict -text "Use Motif Style Dialog" \
-	-variable tk_strictMotif -onvalue 1 -offvalue 0
-    pack $w.strict -anchor c
-}
-
-proc fileDialog {w ent operation} {
-    #   Type names		Extension(s)	Mac File Type(s)
-    #
-    #---------------------------------------------------------
-    set types {
-	{"Text files"		{.txt .doc}	}
-	{"Text files"		{}		TEXT}
-	{"Tcl Scripts"		{.tcl}		TEXT}
-	{"C Source Files"	{.c .h}		}
-	{"All Source Files"	{.tcl .c .h}	}
-	{"Image Files"		{.gif}		}
-	{"Image Files"		{.jpeg .jpg}	}
-	{"Image Files"		""		{GIFF JPEG}}
-	{"All files"		*}
-    }
-    if {$operation == "open"} {
-	set file [tk_getOpenFile -filetypes $types -parent $w]
-    } else {
-	set file [tk_getSaveFile -filetypes $types -parent $w \
-	    -initialfile Untitled -defaultextension .txt]
-    }
-    if {[string compare $file ""]} {
-	$ent delete 0 end
-	$ent insert 0 $file
-	$ent xview end
-    }
-}