[tcl tk] Explorateur que veut pas explorer

Explorateur que veut pas explorer [tcl tk] - Divers - Programmation

Marsh Posté le 04-05-2005 à 00:38:12    

voici mon code...
 

Code :
  1. listbox .list -yscroll ".scroll set" \
  2.     -width 20 -height 20
  3. pack .list -side left
  4. scrollbar .scroll -command \
  5.     ".list yview"
  6. pack .scroll -side right -fill y
  7. wm title . "File Browser"
  9. if {$argc > 0} {
  10.     set dir [lindex $argv 0]
  11. } else {
  12.     set dir .
  13. }
  14. foreach i [lsort [glob * .*]] {
  15.     .list insert end $i
  16. }
  19. bind .list <Double-ButtonPress-1> {
  20.     browse $dir [selection get]
  21. }
  22. bind all <Control-c> {destroy .}
  24. proc browse {dir file} {
  25.     if {$dir != "."} {
  26.         set file $dir/$file
  27.     }
  28.     if [file isdirectory $file] {
  29.         exec browse $file &
  30.     } else {
  31.         if [file isfile $file] {
  32.             exec emacs $file &
  33.         } else {
  34.             error "can't browse $file"
  35.         }
  36.     }
  37. }


 
Mais jarrive pas a me balader dans mes fichiers...
Si quelqu un peu y jeter un coup d'oeil et me dire ce qui manque , je l'en remerci davance.
 
 :jap:  :jap:  

Reply

Marsh Posté le 04-05-2005 à 00:38:12   

Reply

Marsh Posté le 06-05-2005 à 19:41:43    

Personne?

Reply

Marsh Posté le 09-05-2005 à 09:49:09    

il n'y a pas de commentaires !!!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed