[PD-cvs] pd/src desire.tk,1.1.2.196,1.1.2.197

[chunlee]

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 {}]
  	    }
+ 
  	  }
  	}