blob: d0c0c654bafad75a46b16fa8170636678d122800 (
plain)
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
46
47
48
49
50
51
52
53
|
package provide pdwindow 0.1
namespace eval ::pdwindow:: {
variable consolefont
variable printout_buffer ""
variable pdwindow_search_index
namespace export pdtk_post
}
proc ::pdwindow::pdtk_post {message} {
variable printout_buffer
# TODO this should be switchable between Pd window and stderr
if { ! [winfo exists .pdwindow.text]} {
set printout_buffer "$printout_buffer\n$message"
} else {
if {$printout_buffer ne ""} {
.pdwindow.text insert end "$printout_buffer\n"
set printout_buffer ""
}
.pdwindow.text insert end "$message\n"
.pdwindow.text yview end
}
puts stderr $message
}
proc ::pdwindow::create_window {} {
variable consolefont
toplevel .pdwindow -class PdWindow
wm title .pdwindow [_ "Pd window"]
wm geometry .pdwindow =500x450+20+50
.pdwindow configure -menu .menubar
::pd_menus::configure_for_pdwindow
::pd_bindings::pdwindow_bindings .pdwindow
frame .pdwindow.header
pack .pdwindow.header -side top -fill x -padx 30 -ipady 10
# label .pdwindow.header.label -text "The Pd window wants you to make it look nice!"
# pack .pdwindow.header.label -side left -fill y -anchor w
checkbutton .pdwindow.header.dsp -text [_ "DSP"] -variable ::dsp \
-command "pdsend \"pd dsp 0\""
pack .pdwindow.header.dsp -side right -fill y -anchor e
# TODO this should use the pd_font_$size created in pd-gui.tcl
text .pdwindow.text -relief raised -bd 2 -font {-size 10} \
-yscrollcommand ".pdwindow.scroll set" -width 60
scrollbar .pdwindow.scroll -command ".pdwindow.text yview"
pack .pdwindow.scroll -side right -fill y
pack .pdwindow.text -side bottom -fill both -expand 1
raise .pdwindow
}
|
