#!/usr/bin/wish# tk_getOpenFile demo# tk_getSaveFile demolabel .o -text "File to open:"entry .oe -textvariable openset types {    {{Text Files}       {.txt}   }    {{TCL Scripts}      {.tcl}   }    {{C Source Files}   {.c}      TEXT}    {{GIF Files}        {.gif}        }    {{GIF Files}        {}        GIFF}    {{All Files}        *             }}button .ob -text "Open..." -command "set open \[tk_getOpenFile -filetypes \$types \]"label .s -text "File to save:"entry .se -textvariable savebutton .sb -text "Save..." -command "set save \[tk_getSaveFile\]"# Create a dismiss buttonbutton .b -text "Dismiss" -command "exit"# Manage the widgetsgrid .o -row 0 -column 0 -sticky e -padx 10grid .oe -row 0 -column 1 -padx 10grid .ob -row 0 -column 2 -padx 10grid .s -row 1 -column 0 -sticky e -padx 10grid .se -row 1 -column 1 -padx 10grid .sb -row 1 -column 2 -padx 10grid .b -row 2 -pady 10