summaryrefslogtreecommitdiff
path: root/audio/vat/files/patch-an
blob: 108d0e8ac47575691d3e9e3ae5b3964f5d56a1ed (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
--- old/ui-main.tcl	Fri May  3 13:27:22 1996
+++ ui-main.tcl	Sat Feb 21 06:02:59 1998
@@ -373,9 +373,9 @@
 	}
 	mk.obuttons $w.frame.buttons
 	frame $w.frame.ssthresh
-	# mk.ssthresh $w.frame.ssthresh
-	#pack $w.frame.radios $w.frame.buttons $w.frame.ssthresh \
-	#	-anchor c -pady 4
+	mk.ssthresh $w.frame.ssthresh
+	pack $w.frame.radios $w.frame.buttons $w.frame.ssthresh \
+		-anchor c -pady 4
 	pack $w.frame.radios $w.frame.buttons \
 		-anchor c -pady 4
 	pack $w.label $w.frame -expand 1 -fill x
@@ -515,6 +515,12 @@
 	return 0
 }
 
+proc update_filename { w s } {
+	set s [string trim $s]
+	audio filename $s
+	return 0
+}
+
 proc mk.entries { w } {
 	global sessionKey confName
 	set sessionKey [option get . sessionKey Vat]
@@ -913,6 +919,16 @@
 	set a .m.right
 	frame $a.ab
 	mk.ab $a.ab
+
+### XXX
+	set f [ctrlfont]
+	frame .m.file
+	label .m.file.label -text "AU File: " -font $f
+	mk.entry .m.file update_filename ""
+	.m.file.entry configure -width 30
+	pack .m.file.label -side left
+	pack .m.file.entry -side left -expand 1 -fill x -pady 2
+	pack .m.file -fill x
 
 	bind . c purge_sources
 	bind . C purge_sources