/usr/lib/puredata/tcl/dialog_data.tcl is in puredata-gui 0.48.1-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 54 55 56 57 58 59 60 61 | package provide dialog_data 0.1
namespace eval ::dialog_data:: {
namespace export pdtk_data_dialog
}
############ pdtk_data_dialog -- run a data dialog #########
proc ::dialog_data::send {mytoplevel} {
for {set i 1} {[$mytoplevel.text compare [concat $i.0 + 3 chars] < end]} \
{incr i 1} {
pdsend "$mytoplevel data [$mytoplevel.text get $i.0 [expr $i + 1].0]"
}
pdsend "$mytoplevel end"
}
proc ::dialog_data::cancel {mytoplevel} {
pdsend "$mytoplevel cancel"
}
proc ::dialog_data::ok {mytoplevel} {
::dialog_data::send $mytoplevel
::dialog_data::cancel $mytoplevel
}
proc ::dialog_data::pdtk_data_dialog {mytoplevel stuff} {
variable modifier
set modkeyname "Ctrl"
if {$::windowingsystem eq "aqua"} {
set modkeyname "Cmd"
}
toplevel $mytoplevel -class DialogWindow
wm title $mytoplevel [_ "Data Properties"]
wm group $mytoplevel $::focused_window
wm transient $mytoplevel $::focused_window
$mytoplevel configure -menu $::dialog_menubar
$mytoplevel configure -padx 0 -pady 0
frame $mytoplevel.buttonframe
pack $mytoplevel.buttonframe -side bottom -pady 2m
button $mytoplevel.buttonframe.send -text [_ "Send ($modkeyname-S)"] \
-command "::dialog_data::send $mytoplevel"
button $mytoplevel.buttonframe.ok -text [_ "Done ($modkeyname-D)"] \
-command "::dialog_data::ok $mytoplevel"
pack $mytoplevel.buttonframe.send -side left -expand 1 -padx 15 -ipadx 10
pack $mytoplevel.buttonframe.ok -side left -expand 1 -padx 15 -ipadx 10
text $mytoplevel.text -relief raised -highlightthickness 0 -bd 2 -height 40 -width 60 \
-yscrollcommand "$mytoplevel.scroll set" -background white
scrollbar $mytoplevel.scroll -command "$mytoplevel.text yview"
pack $mytoplevel.scroll -side right -fill y
pack $mytoplevel.text -side left -fill both -expand 1
$mytoplevel.text insert end $stuff
bind $mytoplevel.text <$::modifier-Key-s> "::dialog_data::send $mytoplevel"
bind $mytoplevel.text <$::modifier-Key-d> "::dialog_data::ok $mytoplevel"
bind $mytoplevel.text <$::modifier-Key-w> "::dialog_data::cancel $mytoplevel"
focus $mytoplevel.text
position_over_window $mytoplevel $::focused_window
}
|