e85d191b46
- merge v0.01 --> Añadido fileselector - Añadidas fuentes de Gem y Pure Data - pix2jpg incluído en Gem. Archivos de construcción de Gem modificados. - Añadido fichero ompiling.txt con instrucciones de compilación
70 lines
2.1 KiB
Tcl
70 lines
2.1 KiB
Tcl
|
|
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"
|
|
}
|
|
|