Learn how easy it is to sync an existing GitHub or Google Code repo to a SourceForge project! See Demo

Close

[47388e]: tcl / wheredoesthisgo.tcl Maximize Restore History

Download this file

wheredoesthisgo.tcl    95 lines (73 with data), 2.7 kB

 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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
package provide wheredoesthisgo 0.1
# a place to temporarily store things until they find a home or go away
proc post_tclinfo {} {
pdtk_post "Tcl library: [file normalize [info library]]"
pdtk_post "executable: [file normalize [info nameofexecutable]]"
pdtk_post "tclversion: [info tclversion]"
pdtk_post "patchlevel: [info patchlevel]"
pdtk_post "sharedlibextension: [info sharedlibextension]"
}
proc placeholder {args} {
# PLACEHOLDER
::pdwindow::pdtk_post "PLACEHOLDER $args"
}
proc open_file {filename} {
set directory [file dirname $filename]
set basename [file tail $filename]
if {[regexp -nocase -- "\.(pd|pat|mxt)$" $filename]} {
pdsend "pd open [enquote_path $basename] [enquote_path $directory]"
# remove duplicates first, then the duplicate added after to the top
set index [lsearch -exact $::recentfiles_list $filename]
set ::recentfiles_list [lreplace $::recentfiles_list $index $index]
set ::recentfiles_list \
"$filename [lrange $::recentfiles_list 0 $::total_recentfiles]"
::pd_menus::update_recentfiles_menu
}
}
proc lookup_windowname {mytoplevel} {
foreach window $::menu_windowlist {
if {[lindex $window 1] eq $mytoplevel} {
return [lindex $window 0]
}
}
}
# ------------------------------------------------------------------------------
# quoting functions
# TODO enquote a filename to send it to pd, " isn't handled properly tho...
proc enquote_path {message} {
string map {"," "\\," ";" "\\;" " " "\\ "} $message
}
#enquote a string to send it to Pd. Blow off semi and comma; alias spaces
#we also blow off "{", "}", "\" because they'll just cause bad trouble later.
proc unspace_text {x} {
set y [string map {" " "_" ";" "" "," "" "{" "" "}" "" "\\" ""} $x]
if {$y eq ""} {set y "empty"}
concat $y
}
# ------------------------------------------------------------------------------
# lost pdtk functions...
# set the checkbox on the "Compute Audio" menuitem and checkbox
proc pdtk_pd_dsp {value} {
# TODO canvas_startdsp/stopdsp should really send 1 or 0, not "ON" or "OFF"
if {$value eq "ON"} {
set ::dsp 1
} else {
set ::dsp 0
}
}
proc pdtk_pd_dio {red} {
# puts stderr [concat pdtk_pd_dio $red]
}
proc pdtk_watchdog {} {
pdsend "pd watchdog"
after 2000 {pdtk_watchdog}
}
proc pdtk_ping {} {
pdsend "pd ping"
}
# ------------------------------------------------------------------------------
# kludges to avoid changing C code
proc .mbar.find {command number} {
# this should be changed in g_canvas.c, around line 800
.menubar.find $command $number
}