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
|
