home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / extra / sample.tcl < prev    next >
Encoding:
Text File  |  2000-11-02  |  688 b   |  29 lines
  1. #!/bin/sh
  2. # the next line restarts using wish \
  3. exec wish "$0" "$@"
  4. #########################################################
  5. # TkGetDir Sample Program
  6. #
  7. # Daniel Roche, <daniel.roche@bigfoot.com>
  8. #########################################################
  9.  
  10. source tkgetdir.tcl
  11. namespace import tkgetdir::*
  12.  
  13. option add *highlightThickness 0
  14.  
  15. wm geometry . 300x150
  16.  
  17. entry .e0
  18. button .b0 -text "Select Directory" -command {
  19.     .e0 delete 0 end
  20.     .e0 insert 0 [tk_getDirectory -initialdir /tmp -title sample]
  21. }
  22.  
  23. button .b1 -text "Quit" -command exit
  24.  
  25. pack .e0 -fill x -padx 10 -pady 10
  26. pack .b0 -fill x -padx 10 -pady 10
  27. pack .b1 -side bottom -padx 10 -pady 10
  28.  
  29.