ViewVC Help

View File | Revision Log | Show Annotations | Download File | Root Listing

root/Development/ray/src/util/getfile3.6.tcl

Comparing ray/src/util/getfile3.6.tcl (file contents):
Revision 2.1 by greg, Thu Oct 27 15:56:10 1994 UTC vs.
Revision 2.2 by greg, Fri Oct 28 10:43:36 1994 UTC

#	Line 55 | Line 55 | proc getfile args {            # get filename interactively
55		# Create widgets
56		catch {destroy $w}
57		if $topwin {
58	<	toplevel $w -geometry 500x410
58	>	toplevel $w -geometry 400x410
59		wm title $w "File Picker"
60		wm iconname $w "Files"
61	<	wm minsize $w 300 250
61	>	wm minsize $w 400 300
62		} else {
63	<	frame $w -geometry 500x410
63	>	frame $w -geometry 400x410
64		pack $w
65		}
66		label $w.dt -text Directory:

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)