#! /bin/sh -f
# The next line is executed by /bin/sh, but not Tcl \
exec guiwish -f $0 ${1+"$@"}

set sourcename browse.tcl
source $env(GUI_BUILDER)/common.tcl
wm withdraw .
global stretchX stretchY moveX moveY Menu_string
catch "destroy .top0"
#------------------------------------------
toplevel .top0  
wm title .top0 {top0}
wm geometry .top0 292x400+15+40
set stretchX(.top0) 1
wm minsize .top0 10 10
#------------------------------------------
listbox .top0.lb0
.top0.lb0 configure  -relief sunken -yscrollcommand {.top0.sb7 set}
set stretchX(.top0.lb0) 1
set stretchY(.top0.lb0) 1
set moveX(.top0.lb0) 1
set moveY(.top0.lb0) 1
place .top0.lb0 -relwidth 0.80137 -relheight 0.76 -relx 0.0410959 -rely 0.08
#------------------------------------------
entry .top0.e1
.top0.e1 configure  -relief sunken
set stretchX(.top0.e1) 1
set stretchY(.top0.e1) 1
set moveX(.top0.e1) 1
set moveY(.top0.e1) 1
place .top0.e1 -relwidth 0.5 -relheight 0.0475 -relx 0.339041 -rely 0.02
#------------------------------------------
entry .top0.e2
.top0.e2 configure  -relief sunken
set stretchX(.top0.e2) 1
set stretchY(.top0.e2) 1
set moveX(.top0.e2) 1
set moveY(.top0.e2) 1
place .top0.e2 -relwidth 0.510274 -relheight 0.05 -relx 0.339041 -rely 0.86
#------------------------------------------
label .top0.l4
.top0.l4 configure  -text Filename:
set stretchX(.top0.l4) 1
set stretchY(.top0.l4) 1
set moveX(.top0.l4) 1
set moveY(.top0.l4) 1
place .top0.l4 -relwidth 0.208904 -relheight 0.04 -relx 0.0513699 -rely 0.87
#------------------------------------------
button .top0.b5
.top0.b5 configure  -command exit -text Cancel -width 8
set stretchX(.top0.b5) 1
set stretchY(.top0.b5) 1
set moveX(.top0.b5) 1
set moveY(.top0.b5) 1
place .top0.b5 -relwidth 0.19863 -relheight 0.05 -relx 0.0410959 -rely 0.93
#------------------------------------------
button .top0.b6
.top0.b6 configure  -command done_cb -text Done -width 8
set stretchX(.top0.b6) 1
set stretchY(.top0.b6) 1
set moveX(.top0.b6) 1
set moveY(.top0.b6) 1
place .top0.b6 -relwidth 0.208904 -relheight 0.05 -relx 0.630137 -rely 0.93
#------------------------------------------
scrollbar .top0.sb7
.top0.sb7 configure  -command {.top0.lb0 yview} 
set stretchX(.top0.sb7) 1
set stretchY(.top0.sb7) 1
set moveX(.top0.sb7) 1
set moveY(.top0.sb7) 1
place .top0.sb7 -relwidth 0.0513699 -relheight 0.75 -relx 0.866438 -rely 0.09
#------------------------------------------
button .top0.b8
.top0.b8 configure  -command {filter .} -text Filter: -width 8
set stretchX(.top0.b8) 1
set stretchY(.top0.b8) 1
set moveX(.top0.b8) 1
set moveY(.top0.b8) 1
place .top0.b8 -relwidth 0.19863 -relheight 0.05 -relx 0.0410959 -rely 0.02
source $env(GUI_BUILDER)/browse.tcl
