blob: 40a306bae4fbb2d4849cae0b2b18aed12a5af7eb (
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
package provide dialog_path 0.1
namespace eval ::dialog_path:: {
variable use_standard_extensions_button 1
variable verbose_button 0
namespace export pdtk_path_dialog
}
############ pdtk_path_dialog -- run a path dialog #########
# set up the panel with the info from pd
proc ::dialog_path::pdtk_path_dialog {mytoplevel extrapath verbose} {
global use_standard_extensions_button
global verbose_button
set use_standard_extensions_button $extrapath
set verbose_button $verbose
if {[winfo exists $mytoplevel]} {
wm deiconify $mytoplevel
raise $mytoplevel
} else {
create_dialog $mytoplevel
}
}
proc ::dialog_path::create_dialog {mytoplevel} {
scrollboxwindow::make $mytoplevel $::sys_searchpath \
dialog_path::add dialog_path::edit dialog_path::commit \
[_ "Pd search path for objects, help, fonts, and other files"] \
400 300
frame $mytoplevel.extraframe
pack $mytoplevel.extraframe -side bottom -pady 2m
checkbutton $mytoplevel.extraframe.extra -text [_ "Use standard extensions"] \
-variable use_standard_extensions_button -anchor w
checkbutton $mytoplevel.extraframe.verbose -text [_ "Verbose"] \
-variable verbose_button -anchor w
pack $mytoplevel.extraframe.extra $mytoplevel.extraframe.verbose \
-side left -expand 1
}
############ pdtk_path_dialog -- dialog window for search path #########
proc ::dialog_path::choosePath { currentpath title } {
if {$currentpath == ""} {
set currentpath "~"
}
return [tk_chooseDirectory -initialdir $currentpath -title $title]
}
proc ::dialog_path::add {} {
return [::dialog_path::choosePath "" {Add a new path}]
}
proc ::dialog_path::edit { currentpath } {
return [::dialog_path::choosePath $currentpath "Edit existing path \[$currentpath\]"]
}
proc ::dialog_path::commit { new_path } {
global use_standard_extensions_button
global verbose_button
set ::sys_searchpath $new_path
pdsend "pd path-dialog $use_standard_extensions_button $verbose_button $::sys_searchpath"
}
|
