voici mon code...
Code :
- listbox .list -yscroll ".scroll set" \
- -width 20 -height 20
- pack .list -side left
- scrollbar .scroll -command \
- ".list yview"
- pack .scroll -side right -fill y
- wm title . "File Browser"
- if {$argc > 0} {
- set dir [lindex $argv 0]
- } else {
- set dir .
- }
- foreach i [lsort [glob * .*]] {
- .list insert end $i
- }
- bind .list <Double-ButtonPress-1> {
- browse $dir [selection get]
- }
- bind all <Control-c> {destroy .}
- proc browse {dir file} {
- if {$dir != "."} {
- set file $dir/$file
- }
- if [file isdirectory $file] {
- exec browse $file &
- } else {
- if [file isfile $file] {
- exec emacs $file &
- } else {
- error "can't browse $file"
- }
- }
- }
|
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.
