Linux程序源码

				#!/usr/bin/wish				# tk_getOpenFile demo				# tk_getSaveFile demo								label .o -text "File to open:"				entry .oe -textvariable open				set 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 save				button .sb -text "Save..." -command "set save \[tk_getSaveFile\]"								# Create a dismiss button								button .b -text "Dismiss" -command "exit"								# Manage the widgets								grid .o -row 0 -column 0 -sticky e -padx 10				grid .oe -row 0 -column 1 -padx 10				grid .ob -row 0 -column 2 -padx 10				grid .s -row 1 -column 0 -sticky e -padx 10				grid .se -row 1 -column 1 -padx 10				grid .sb -row 1 -column 2 -padx 10				grid .b -row 2 -pady 10