#!/usr/bin/expectk -f
#
set FBB_READER "7.03"
set ReadFile    "/usr/doc/xfbb-7.03/MANUAL.TXT"

# Configuration popups.
#
proc centerWindow {w} {
    wm withdraw $w
    update idletasks
    set x [expr {[winfo screenwidth $w]/2 - [winfo reqwidth $w]/2 \
	    - [winfo vrootx [winfo parent $w]]}]
    set y [expr {[winfo screenheight $w]/2 - [winfo reqheight $w]/2 \
	    - [winfo vrooty [winfo parent $w]]}]
    wm geom $w +$x+$y
    wm deiconify $w
}

# Reader display
#
proc Reader {} {
    global ReadFile FBB_READER

    if {! [file exists $ReadFile]} {
	tk_messageBox -message "Can't open $ReadFile !" -type ok
	return
    }

    toplevel .reader
    wm title .reader " Xfbb Reader for the xfbb version $FBB_READER By Jose R. Marte A. HI8GN <hi8gn@amsat.org>"
    wm   geometry .reader "640x400"

    frame .reader.top -relief raised -bd 1
    text .reader.top.text -yscrollcommand ".reader.top.scroll set" -font 7x14 -background DeepSkyBlue2
    scrollbar .reader.top.scroll -command ".reader.top.text yview"
    pack .reader.top.scroll -side right -fill y
    pack .reader.top.text -side left -expand yes -fill both
    pack .reader.top -side top -expand yes -fill both

    frame .reader.bot -relief raised -bd 1
    button .reader.bot.close -text "Close" -command {destroy .reader}
    pack .reader.bot.close -side top -padx 3m -pady 2m
    pack .reader.bot -side top -fill both

    centerWindow .reader

    .reader.top.text delete 1.0 end
    set file [open $ReadFile]
    while {[eof $file] == 0} {
	.reader.top.text insert end [read $file 1000]
    }
    close $file
    .reader.top.text configure -state disabled

}

button .reader1 -text "\nXfbb Reader v1.0\n\nby HI8GN\nJose R. Marte A.\n" -command {
    puts stdout "exit"; destroy .
}
pack .reader1
Reader
