Sweden-Number/tools/wineconf.libs/dirbrowser.tcl

681 lines
21 KiB
Tcl

# Copyright 1999 Jean-Louis Thirot
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License as published by the Free Software Foundation; either
# version 2.1 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with this library; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
proc TkW:dirbrowse {pattern patternF mode} {
# input arg: initial pattern mode (File or Folder
# returns selected folders as a global SelectFolder
# or selected file as a global: SelectFile
# variable: SelectFolder
# You can use WAITbrowse in the calling app to wait
# for dirbrowse to exit (set to 0 on exit, or -1 on CANCEL)
global WAITbrowse
global SelectFolder
global SelectFile
if {![info exists SelectFile]} {set SelectFile ""}
if {![info exists SelectFolder]} {set SelectFolder [pwd]}
global ndirs nfiles;set ndirs 0;set nfiles 0
global ModeBrowse Restore;set Restore $SelectFolder
global FTPcd
if {$mode == "local"} {set FTPcd 1} {set FTPcd 0}
set ModeBrowse $mode
global DIRBROWSE WinBrowse
###################
# CREATING WIDGETS
###################
if {$mode != "local" } {
toplevel .dirbrowse -class Toplevel \
-background #feffff
wm focusmodel .dirbrowse passive
wm geometry .dirbrowse 464x296
wm maxsize .dirbrowse 1265 994
wm minsize .dirbrowse 1 1
wm overrideredirect .dirbrowse 0
wm resizable .dirbrowse 1 1
wm deiconify .dirbrowse
wm title .dirbrowse "TkWine: $DIRBROWSE"
set WinBrowse dirbrowse
} else {
set WinBrowse ftp.browsers.local
#frame .$WinBrowse -background #feffff -height 300 -width 464
}
# Lang globals:
global FolderSelection OK CANCEL FILTERFOLD FILTERFILES
global RESCAN VIEW HELP
# Other globals:
global BrowsePattern;set BrowsePattern $pattern
global BrowsePatternF;set BrowsePatternF $patternF
global dirscroll MouseY
# label and entrybox for selection:
label .$WinBrowse.foldselLab \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-relief groove -text $FolderSelection
entry .$WinBrowse.foldsel \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-textvariable SelectFolder
if {$ModeBrowse == "File"} {
.$WinBrowse.foldsel configure -textvar SelectFile
}
# frame for display of currently available folders:
frame .$WinBrowse.dirframe \
-borderwidth 1 -height 30 -relief sunken -width 30 \
-background #dddddd
scrollbar .$WinBrowse.dirframe_scr -width 10
frame .$WinBrowse.fileframe \
-borderwidth 1 -height 30 -relief sunken -width 30
scrollbar .$WinBrowse.fileframe_scr -width 10
# label/entry for pattern
label .$WinBrowse.patternLab \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-relief groove -text $FILTERFOLD
entry .$WinBrowse.patternF \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-textvariable BrowsePatternF
label .$WinBrowse.patternLabF \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-relief groove -text $FILTERFILES
entry .$WinBrowse.pattern \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-textvariable BrowsePattern
frame .$WinBrowse.fra25 \
-borderwidth 1 -height 30 -relief sunken -width 30
menubutton .$WinBrowse.fra25.men26 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-menu .$WinBrowse.fra25.men26.m -padx 4 -pady 3 -relief ridge -text $VIEW
menu .$WinBrowse.fra25.men26.m \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*
button .$WinBrowse.fra25.but28 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
-pady 3 -relief ridge -text $HELP
button .$WinBrowse.butOK \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
-pady 3 -text $OK \
-command {destroy .$WinBrowse
set WAITbrowse 0
return "$SelectFolder $SelectFile"
}
button .$WinBrowse.butCANCEL \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
-pady 3 -text $CANCEL \
-command {destroy .$WinBrowse
set WAITbrowse -1
return "$SelectFolder $SelectFile"
}
button .$WinBrowse.butRESCAN \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
-pady 3 -text $RESCAN -command {TkW:DisplayCurrentDir $BrowsePattern}
###################
# SETTING GEOMETRY
###################
global YHeight;set YHeight 170
if {$mode !="local" && $mode != "remote"} {
place .$WinBrowse.foldselLab \
-x 47 -y 270 -width 78 -height 20 -anchor nw -bordermode ignore
place .$WinBrowse.foldsel \
-x 148 -y 268 -width 290 -height 24 -anchor nw -bordermode ignore
place .$WinBrowse.dirframe \
-x 5 -y 90 -width 145 -height $YHeight -anchor nw -bordermode ignore
place .$WinBrowse.dirframe_scr -x 150 -y 90 -width 17 -height $YHeight
place .$WinBrowse.fileframe \
-x 180 -y 90 -width 175 -height 170 -anchor nw -bordermode ignore
place .$WinBrowse.fileframe_scr -x 355 -y 90 -width 17 -height $YHeight
place .$WinBrowse.patternLab \
-x 27 -y 60 -width 143 -height 20 -anchor nw -bordermode ignore
place .$WinBrowse.pattern \
-x 190 -y 58 -width 150 -height 24 -anchor nw -bordermode ignore
place .$WinBrowse.patternLabF \
-x 27 -y 35 -width 143 -height 20 -anchor nw -bordermode ignore
place .$WinBrowse.patternF \
-x 190 -y 32 -width 150 -height 24 -anchor nw -bordermode ignore
place .$WinBrowse.fra25 \
-x 0 -y 1 -width 455 -height 25 -anchor nw -bordermode ignore
place .$WinBrowse.fra25.men26 \
-x -1 -y 0 -width 67 -height 24 -anchor nw -bordermode ignore
place .$WinBrowse.fra25.but28 \
-x 397 -y -3 -width 60 -height 28 -anchor nw -bordermode ignore
place .$WinBrowse.butOK \
-x 380 -y 115 -width 77 -height 28 -anchor nw -bordermode ignore
place .$WinBrowse.butCANCEL \
-x 380 -y 155 -width 77 -height 28 -anchor nw -bordermode ignore
place .$WinBrowse.butRESCAN \
-x 380 -y 195 -width 77 -height 28 -anchor nw -bordermode ignore
} else {
# case of ftp filebrowser ....
bind .$WinBrowse.pattern <Return> {.$WinBrowse.butRESCAN invoke}
bind .$WinBrowse.patternF <Return> {.$WinBrowse.butRESCAN invoke}
place .$WinBrowse.pattern -x 0 -y 3 -width 145 -height 25
place .$WinBrowse.patternF -x 163 -y 3 -width 145 -height 25
place .$WinBrowse.dirframe -x 0 -y 28 -width 145 -height $YHeight
place .$WinBrowse.dirframe_scr -x 145 -y 28 -width 17 -height $YHeight
place .$WinBrowse.fileframe -x 163 -y 28 -width 145 -height $YHeight
place .$WinBrowse.fileframe_scr -x 308 -y 28 -width 17 -height $YHeight
}
# binding the scrollbar:
bind .$WinBrowse.dirframe_scr <ButtonPress> { TkW:ScrollDirs %x %y }
bind .$WinBrowse.dirframe_scr <ButtonRelease> { set dirscroll no; grab release .$WinBrowse.dirframe_scr }
bind .$WinBrowse.dirframe_scr <Motion> { set MouseY %y }
bind .$WinBrowse.fileframe_scr <ButtonPress> { TkW:ScrollFiles %x %y }
bind .$WinBrowse.fileframe_scr <ButtonRelease> { set filescroll no; grab release .$WinBrowse.fileframe_scr }
bind .$WinBrowse.fileframe_scr <Motion> { set MouseY %y }
global TKW
image create photo "fold" -file \
$TKW/shared/icons/smalls/small_folder_yellow.gif
image create photo "unknown" -file \
$TKW/shared/icons/smalls/unknown.gif
image create photo "execfile" -file \
$TKW/shared/icons/smalls/exec.gif
image create photo "imgfile" -file \
$TKW/shared/icons/smalls/xpaint.gif
image create photo "htmlfile" -file \
$TKW/shared/icons/smalls/html.gif
#image create photo "up" -file $TKW/shared/icons/up.gif
TkW:DisplayCurrentDir $BrowsePattern
}
proc TkW:DisplayCurrentDir {BrowsePattern} {
global ndirs nfiles Ybase dirlist filelist FYbase specialwhere
global FYbase BrowsePatternF ModeBrowse
DestroyDirs
set ndirs 0
set dirlist ""
set filelist ""
# First we get the directory list:
if {$ModeBrowse != "remote"} {
set fileList ""
set fileList [glob -nocomplain [pwd]/$BrowsePattern]
set fileList "$fileList [glob -nocomplain [pwd]/.$BrowsePattern]"
set UpLevel 0
foreach i $fileList {
if {[file tail $i] == ".."} {set UpLevel 1}
if { [file isdir $i] } { set dirlist "$dirlist \"$i\"" }
}
set fileList ""
set fileList [glob -nocomplain [pwd]/$BrowsePatternF]
set fileList "$fileList [glob -nocomplain [pwd]/.$BrowsePatternF]"
foreach i $fileList {
if { ![file isdir $i] } { set filelist "$filelist \"$i\"" }
}
if {$UpLevel == 0} {set dirlist ".. $dirlist"}
set dirlist [lsort $dirlist]
set filelist [lsort $filelist]
} else {set filelist ""; set dirlist ".."}
set Ybase 5
set FYbase 5
TkW:ShowDirs
TkW:ShowFiles
}
proc TkW:ShowDirs {} {
global dirlist ndirs
DestroyDirs
set ndirs 0
set showedIn 0
set showedbelow 0
set showedabove 0
foreach i $dirlist {
set inout [TkW:showdir $i]
if {$inout == 0} {set showedIn [expr $showedIn + 1]}
if {$inout == -1} {set showedabove [expr $showedabove + 1]}
if {$inout == 1} {set showedbelow [expr $showedbelow + 1]}
}
# Scrollbars management:
TkW:DirBrowseScroll [expr (100.*$showedabove/$ndirs)/100.] \
[expr 1. - (100.*$showedbelow/$ndirs)/100.]
update
}
proc TkW:DirBrowseScroll { y1 y2} {
global SliderY1 SliderY2 WinBrowse
set SliderY1 $y1
set SliderY2 $y2
.$WinBrowse.dirframe_scr set $y1 $y2
}
proc TkW:FileBrowseScroll { y1 y2} {
global FSliderY1 FSliderY2 WinBrowse
set FSliderY1 $y1
set FSliderY2 $y2
.$WinBrowse.fileframe_scr set $y1 $y2
}
proc TkW:hilightFold {y} {
global YDIRS ndirs DIRS SelectNum WinBrowse
global SelectFolder BrowsePattern FTPcd
if { $y > $YDIRS($ndirs)} {set num $ndirs} else {
set i 1
set ok 0
while {$ok == 0} {
if {
$YDIRS($i) < $y &&\
$y <= $YDIRS([expr $i + 1])} {
set num $i
set ok 1
} else { set i [expr $i + 1] }
}
}
if {$SelectFolder == $DIRS($num)} {
cd $SelectFolder
if {$FTPcd == 1} {FTP_Lcd $SelectFolder}
set SelectFolder [pwd]
TkW:DisplayCurrentDir $BrowsePattern
unset SelectNum
} else {
.$WinBrowse.dirframe.label$num configure -background #ffffff
set SelectFolder $DIRS($num)
if {[info exists SelectNum]} {
.$WinBrowse.dirframe.label$SelectNum configure \
-background #dddddd
}
set SelectNum $num
}
update
}
proc TkW:showdir {fulldirname} {
global TKW ndirs Ybase YHeight YDIRS DIRS Ydecal ModeBrowse WinBrowse
set Ydecal 20
set dirname [file tail $fulldirname]
if {$dirname == "."} return
set Y [expr $Ybase + $ndirs * $Ydecal]
set In 0
if {$Y < 0 } {set In -1}
if {$Y > [expr $YHeight - $Ydecal]} { set In 1 }
set ndirs [expr $ndirs + 1]
set YDIRS($ndirs) $Y
set DIRS($ndirs) $fulldirname
label .$WinBrowse.dirframe.icon$ndirs -image fold
label .$WinBrowse.dirframe.label$ndirs -text $dirname\
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*
if {$In == 0} {
place .$WinBrowse.dirframe.icon$ndirs -x 5 -y $Y
place .$WinBrowse.dirframe.label$ndirs -x 30 -y $Y
}
#dirframe bindings
bind .$WinBrowse.dirframe.icon$ndirs <Button-1> {
set Y [expr %Y - [winfo rooty .$WinBrowse.dirframe] -$Ybase]
TkW:hilightFold $Y
}
#dirframe bindings
bind .$WinBrowse.dirframe.label$ndirs <ButtonPress-1> {
set Y [expr %Y - [winfo rooty .$WinBrowse.dirframe] -$Ybase]
TkW:hilightFold $Y
}
return $In
}
proc TkW:ScrollDirs {X Y} {
global Ybase Ydecal ndirs dirscroll global nextLoop MouseY WinBrowse
global SliderY1 SliderY2 YHeight Nabove Nbelow
set MinBase [expr -$Ydecal * ($ndirs - [expr $YHeight/$Ydecal])]
set Slider1 $SliderY1
set Slider2 $SliderY2
set MaxSlide1 [expr 1-($SliderY2-$SliderY1)]
set MinSlide2 [expr $SliderY2-$SliderY1]
switch [.$WinBrowse.dirframe_scr identify $X $Y] {
{arrow1} { set dirscroll UP; set modeUP 1}
{arrow2} { set dirscroll DOWN;set modeDOWN 1}
{slider} {set dirscroll SLIDER}
{trough1} {set dirscroll UP; set modeUP page}
{trough2} {set dirscroll DOWN;set modeDOWN page}
}
while {$dirscroll == "UP"} {
if {$modeUP == "1"} {set XUP 1} {
set XUP [expr ($YHeight/$Ydecal ) -1]
}
set Ybase [expr $Ybase + $XUP * $Ydecal]
if {$Ybase > $Ydecal} {
set Ybase 5
set dirscroll no
set Slider1 0
set Slider2 $MinSlide2
}
TkW:ReShowDirs
TkW:DirBrowseScroll [expr (100.*$Nabove/$ndirs)/100.] \
[expr 1. - (100.*$Nbelow/$ndirs)/100.]
set nextLoop 0
after 30 {set nextLoop 1}
while {$nextLoop == 0} {update}
set Slider1 $SliderY1
set Slider2 $SliderY2
}
while {$dirscroll == "DOWN"} {
if {$modeDOWN == "1"} {set XDOWN 1} {
set XDOWN [expr ($YHeight/$Ydecal ) -1]
}
set Ybase [expr $Ybase - $XDOWN * $Ydecal]
if {$Ybase < $MinBase} {
set Ybase $MinBase
set dirscroll no
set Slider2 1
set Slider1 $MaxSlide1
}
TkW:ReShowDirs
TkW:DirBrowseScroll [expr (100.*$Nabove/$ndirs)/100.] \
[expr 1. - (100.*$Nbelow/$ndirs)/100.]
set nextLoop 0
after 30 {set nextLoop 1}
while {$nextLoop == 0} {update}
set Slider1 $SliderY1
set Slider2 $SliderY2
}
while {$dirscroll == "SLIDER"} {
set nextLoop 0
after 20 {set nextLoop 1}
while {$nextLoop == 0} {
set Delta [expr (100.*($MouseY - $Y)/$YHeight)/100. ]
set Slider1 [expr $SliderY1 +$Delta]
set Slider2 [expr $SliderY2 +$Delta]
if {$Slider2 > 1} {
set Slider2 1
set Slider1 $MaxSlide1
}
if {$Slider1 < 0} {
set Slider1 0
set Slider2 $MinSlide2
}
.$WinBrowse.dirframe_scr set $Slider1 $Slider2
set Ybase [expr 5 - $Slider1 * $ndirs *$Ydecal]
TkW:ReShowDirs
update
}
}
set SliderY1 $Slider1
set SliderY2 $Slider2
}
proc TkW:ScrollFiles {X Y} {
global FYbase Ydecal nfiles filescroll nextLoop MouseY WinBrowse
global FSliderY1 FSliderY2 YHeight NFabove NFbelow
set MinBase [expr -$Ydecal * ($nfiles - [expr $YHeight/$Ydecal])]
set FSlider1 $FSliderY1
set FSlider2 $FSliderY2
set MaxSlide1 [expr 1-($FSliderY2-$FSliderY1)]
set MinSlide2 [expr $FSliderY2-$FSliderY1]
switch [.$WinBrowse.fileframe_scr identify $X $Y] {
{arrow1} { set filescroll UP; set modeUP 1}
{arrow2} { set filescroll DOWN;set modeDOWN 1}
{slider} {set filescroll SLIDER}
{trough1} {set filescroll UP; set modeUP page}
{trough2} {set filescroll DOWN;set modeDOWN page}
}
while {$filescroll == "UP"} {
if {$modeUP == "1"} {set XUP 1} {
set XUP [expr ($YHeight/$Ydecal ) -1]
}
set FYbase [expr $FYbase + $XUP * $Ydecal]
if {$FYbase > $Ydecal} {
set FYbase 5
set filescroll no
set FSlider1 0
set FSlider2 $MinSlide2
}
TkW:ReShowFiles
if {$nfiles != 0} {
TkW:FileBrowseScroll [expr (100.*$NFabove/$nfiles)/100.] \
[expr 1. - (100.*$NFbelow/$nfiles)/100.]
} else {
TkW:FileBrowseScroll 0 1
}
set nextLoop 0
after 30 {set nextLoop 1}
while {$nextLoop == 0} {update}
set FSlider1 $FSliderY1
set FSlider2 $FSliderY2
}
while {$filescroll == "DOWN"} {
if {$modeDOWN == "1"} {set XDOWN 1} {
set XDOWN [expr ($YHeight/$Ydecal ) -1]
}
set FYbase [expr $FYbase - $XDOWN * $Ydecal]
if {$FYbase < $MinBase} {
set FYbase $MinBase
set filescroll no
set FSlider2 1
set FSlider1 $MaxSlide1
}
TkW:ReShowFiles
if {$nfiles != 0} {
TkW:FileBrowseScroll [expr (100.*$NFabove/$nfiles)/100.] \
[expr 1. - (100.*$NFbelow/$nfiles)/100.]
} else {
TkW:FileBrowseScroll 0 1
}
set nextLoop 0
after 30 {set nextLoop 1}
while {$nextLoop == 0} {update}
set FSlider1 $FSliderY1
set FSlider2 $FSliderY2
}
while {$filescroll == "SLIDER"} {
set nextLoop 0
after 20 {set nextLoop 1}
while {$nextLoop == 0} {
set Delta [expr (100.*($MouseY - $Y)/$YHeight)/100. ]
set FSlider1 [expr $FSliderY1 +$Delta]
set FSlider2 [expr $FSliderY2 +$Delta]
if {$FSlider2 > 1} {
set FSlider2 1
set FSlider1 $MaxSlide1
}
if {$FSlider1 < 0} {
set FSlider1 0
set FSlider2 $MinSlide2
}
.$WinBrowse.fileframe_scr set $FSlider1 $FSlider2
set FYbase [expr 5 - $FSlider1 * $nfiles *$Ydecal]
TkW:ReShowFiles
update
}
}
set FSliderY1 $FSlider1
set FSliderY2 $FSlider2
}
proc TkW:ReShowDirs {} {
global dirlist Ybase Ydecal ndirs YHeight WinBrowse
global Nabove Nbelow
set n 0
set Nabove 0
set Nbelow 0
foreach i $dirlist {
set dirname [file tail $i]
if {$dirname != "."} {
set Y0 [expr $Ybase + $n * $Ydecal]
if {$Y0 < -5} {set Nabove [expr $Nabove + 1]}
if {$Y0 > [expr $YHeight - $Ydecal]} { set Nbelow [expr $Nbelow + 1]}
set n [expr $n + 1]
place .$WinBrowse.dirframe.icon$n -x 5 -y $Y0
place .$WinBrowse.dirframe.label$n -x 30 -y $Y0
}
}
}
proc TkW:ReShowFiles {} {
global filelist FYbase Ydecal nfiles YHeight WinBrowse
global NFabove NFbelow
set n 0
set NFabove 0
set NFbelow 0
foreach i $filelist {
set filename [file tail $i]
if {$filename != "."} {
set Y0 [expr $FYbase + $n * $Ydecal]
if {$Y0 < -5} {set NFabove [expr $NFabove + 1]}
if {$Y0 > [expr $YHeight - $Ydecal]} { set NFbelow [expr $NFbelow + 1]}
set n [expr $n + 1]
place .$WinBrowse.fileframe.icon$n -x 5 -y $Y0
place .$WinBrowse.fileframe.label$n -x 30 -y $Y0
}
}
}
proc TkW:ShowFiles {} {
global filelist nfiles
DestroyFiles
set nfiles 0
set FshowedIn 0
set NFbelow 0
set NFabove 0
foreach i $filelist {
set inout [TkW:showfile $i]
if {$inout == 0} {set FshowedIn [expr $FshowedIn + 1]}
if {$inout == -1} {set NFabove [expr $NFabove + 1]}
if {$inout == 1} {set NFbelow [expr $NFbelow + 1]}
}
# Scrollbar management:
if {$nfiles != 0} {
TkW:FileBrowseScroll [expr (100.*$NFabove/$nfiles)/100.] \
[expr 1. - (100.*$NFbelow/$nfiles)/100.]
} else {
TkW:FileBrowseScroll 0 1
}
}
proc TkW:showfile {fullfilename} {
global TKW nfiles FYbase YHeight YFILES Ydecal FILES
set Y [expr $FYbase + $nfiles * $Ydecal]
set In 0
if {$Y < 0 } {set In -1}
if {$Y > [expr $YHeight - $Ydecal]} { set In 1 }
set nfiles [expr $nfiles + 1]
set YFILES($nfiles) $Y
set FILES($nfiles) $fullfilename
createPlaceFileIcon $nfiles $Y
return $In
}
proc createPlaceFileIcon {n Y} {
global FILES ModeBrowse WinBrowse
set fullfilename $FILES($n)
set icon unknown
if {[file executable $fullfilename]} {set icon execfile}
if {[file extension $fullfilename] == ".html"} {set icon htmlfile}
if {[file extension $fullfilename] == ".htm"} {set icon htmlfile}
if {[file extension $fullfilename] == ".gif"} {set icon imgfile}
if {[file extension $fullfilename] == ".jpg"} {set icon imgfile}
set filename [file tail $fullfilename]
label .$WinBrowse.fileframe.icon$n -image $icon
label .$WinBrowse.fileframe.label$n -text $filename\
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*\
-background #dddddd
place .$WinBrowse.fileframe.icon$n -x 5 -y $Y
place .$WinBrowse.fileframe.label$n -x 30 -y $Y
if {$ModeBrowse == "File"} {
#fileframe bindings
bind .$WinBrowse.fileframe.icon$n <Button-1> {
set Y [expr %Y - [winfo rooty .$WinBrowse.fileframe] -$FYbase]
TkW:hilightFile $Y
}
bind .$WinBrowse.fileframe.icon$n <Double-Button-1> {
destroy .$WinBrowse
set WAITbrowse 0
return "$SelectFolder $SelectFile"
}
#fileframe bindings
bind .$WinBrowse.fileframe.label$n <ButtonPress-1> {
set Y [expr %Y - [winfo rooty .$WinBrowse.fileframe] -$FYbase]
TkW:hilightFile $Y
}
bind .$WinBrowse.fileframe.label$n <Double-Button-1> {
destroy .$WinBrowse
set WAITbrowse 0
return "$SelectFolder $SelectFile"
}
}
}
proc DestroyDirs {} {
global ndirs WinBrowse
for {set i 1} {$i <= $ndirs} {set i [expr $i + 1 ]} {
if {[winfo exists .$WinBrowse.dirframe.icon$i]} {
destroy .$WinBrowse.dirframe.icon$i
destroy .$WinBrowse.dirframe.label$i
}
}
}
proc DestroyFiles {} {
global nfiles WinBrowse
for {set i 1} {$i <= $nfiles} {set i [expr $i + 1 ]} {
if {[winfo exists .$WinBrowse.fileframe.icon$i]} {
destroy .$WinBrowse.fileframe.icon$i
destroy .$WinBrowse.fileframe.label$i
}
}
}
proc TkW:hilightFile {y} {
global YFILES nfiles FILES SelectNumF WinBrowse
global SelectFile BrowsePattern
if { $y > $YFILES($nfiles)} {set num $nfiles} else {
set i 1
set ok 0
while {$ok == 0} {
if {
$YFILES($i) < $y &&\
$y <= $YFILES([expr $i + 1])} {
set num $i
set ok 1
} else { set i [expr $i + 1] }
}
}
if {$SelectFile == $FILES($num)} {
return
} else {
.$WinBrowse.fileframe.label$num configure -background #ffffff
set SelectFile $FILES($num)
if {[info exists SelectNumF]} {
.$WinBrowse.fileframe.label$SelectNumF configure -background #dddddd
}
set SelectNumF $num
}
update
}