#!/usr/bin
set pothome /mnt/dd3/ebook/tech/opengl/pot
source /mnt/dd3/ebook/tech/opengl/pot/tkheader.h
tk_bisque
wm geometry . 500x500+450+300
wm title . "About P.O.T." 

frame .f1 
frame .f2 -relief flat

pack .f2 -side bottom -expand y 
pack  .f1 -side bottom -expand y -fill both 
button .f2.exit -text "Ok " -relief raised
pack  .f2.exit -side left -padx 1m -pady 2m -expand 1

bind .f2.exit <1> { catch {exec kill $exec_id }
                    exit
                  }
bind .f2.exit <2> {catch {exec kill $exec_id }
		   exit
}

text   .f1.text -font $Cfont -relief sunken -bd 2 -yscrollcommand ".f1.scroll set"
scrollbar  .f1.scroll -command ".f1.text yview"
pack .f1.scroll -side right -fill y
pack .f1.text -side left -pady 2 -expand y -fill both
set ftemp [eval open "About.txt" r]

set a [eval read $ftemp]
 close $ftemp

.f1.text insert 1.0 "$a"

.f1.text config -state disabled