#!/usr/bin/wish -f
# ^^^^^^^^^^^^^
# Change the path to wish, if different on your system!
#
#
#
# Global
set file_ref_no 0
#
#
label .label0 -text "Mortgage Calculator" 
#
label .label1 -text "*Principal"
entry .entry1 -width 20 -relief sunken -bd 2 -textvariable principal
#
label .label2 -text "*Interest Rate"
entry .entry2 -width 20 -relief sunken -bd 2 -textvariable interest
#
label .label3 -text "*Loan Period (months)"
entry .entry3 -width 20 -relief sunken -bd 2 -textvariable months
#
label .label4 -text "Payments in First Year"
entry .entry4 -width 20 -relief sunken -bd 2 -textvariable firstyearlen
#
label .label5 -text "Name of Save file"
entry .entry5 -width 20 -relief sunken -bd 2 -textvariable savefilename
#
message .msg1 -width 7c -justify left -relief raised -bd 2 \
    -font -Adobe-Helvetica-Bold-R-Normal--*-80-* \
    -text "First three fields required, others optional."
#
message .msg2 -width 7c -justify left -relief raised -bd 2 \
    -font -Adobe-Helvetica-Medium-R-Normal--*-100-* \
    -text "\"Payments in First Year\" defaults to 12."
#
message .msg3 -width 7c -justify left -relief raised -bd 2 \
    -font -Adobe-Helvetica-Medium-R-Normal--*-100-* \
    -text "\"Name of Save File\" defaults to 'savefile'."
#
message .msg4 -width 7c -justify left -relief raised -bd 2 \
    -font -Adobe-Helvetica-Medium-R-Normal--*-140-* \
    -text "File written."
#
message .msgcpr -width 7c -justify left -relief raised -bd 2 \
    -font -Adobe-Helvetica-Medium-R-Normal--*-80-* \
    -text "(c) 1997 by Jeff Schmidt <pschmidt@gwis.com>
(c) 1998 by M. Leo Cooper <thegrendel@theriver.com>
Released under terms of the GPL, with no warranty."
#
#
pack .label0 -side top -padx 0m -pady 3m
pack .msgcpr -side top -pady 2m
pack .label1 .entry1 .label2 .entry2 .label3 .entry3 .label4 .entry4 -side top -padx 1m -pady 1m
pack .label5  -side top -padx 1m -pady 1m
pack .entry5 -side top -padx 1m -pady 2m
#
#
button .b -background #F04000 -foreground yellow \
-text "Calculate / Write File" -command {CreateFile $principal $interest $months $firstyearlen $savefilename}
button .c -background #F00090 -foreground black \
-text "Exit"  -command exit
pack .msg1 .msg2 .msg3 .b .c  -fill x
#
#
   proc CreateFile {principal interest months firstyearlen savefilename} {
     if {$savefilename == ""} {
        set savefilename savefile
        }
     exec mortgage_cl $principal $interest $months $firstyearlen $savefilename
     global file_ref_no
     incr file_ref_no 1
#    pack .msg4 -fill x
   button .d$file_ref_no  -background #00E020 -foreground black \
   -text "View File" -command {Loadfile $savefilename} 
     pack .d$file_ref_no -fill x
   }


text .txt -height 12 -width 80 -relief raised -bd 2 \
          -yscrollcommand ".scroll set"
scrollbar .scroll -command ".txt yview"
pack .scroll -side right -fill y
pack .txt -side left

proc Loadfile file {
     if {$file == ""} {
        set file savefile
        }
     .txt delete 1.0 end
     set fptr [open $file]
     while {![eof $fptr]} {
           .txt insert end [read $fptr 1000]
           }
           close $fptr
}

