Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10815
Modified Files: Tag: devel_0_39 desire.tk Log Message: added tk_chooseDirectory for selecting directory in pdrc editor
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.196 retrieving revision 1.1.2.197 diff -C2 -d -r1.1.2.196 -r1.1.2.197 *** desire.tk 3 May 2006 11:48:47 -0000 1.1.2.196 --- desire.tk 3 May 2006 14:01:15 -0000 1.1.2.197 *************** *** 3493,3496 **** --- 3493,3503 ---- bind $f.entry <Button-5> "change_entry $f.entry -1" } + folders { + frame $f.b -borderwidth 0 + button $f.b.3 -command "$self dir_select $f.entry" -text "open" + balloon $f.b.3 "click to select directory" + pack $f.b.3 -side top + pack $f.b -side left + } entry {} default { *************** *** 3625,3635 **** }
! #def PagedDialog add_subsection {subsection text} { ! # set f .$self.1 ! # puts "sub :: $subsection" ! # frame $subsection ! # pack [button $subsection.butt -text $text \ ! # -command bell] -side left -pady {4 4} ! #}
class_new SubPagedDialog {Dialog} --- 3632,3640 ---- }
! def PagedDialog dir_select {entry} { ! set dir [tk_chooseDirectory -initialdir ~ -title "Choose a directory"] ! $entry delete 0 end ! $entry insert 0 $dir ! }
class_new SubPagedDialog {Dialog} *************** *** 3695,3699 **** string -guicmd integer -console ! folder -look void -statusbar integer -font --- 3700,3704 ---- string -guicmd integer -console ! folders -look void -statusbar integer -font *************** *** 3799,3802 **** --- 3804,3808 ---- [list $name [say $name] $type {}] } + } }