Please enter your comments by placing the cursor over the sunken regions,
and hitting Button 1. When you are finished, press the button at the
bottom. It will take about ten to fifteen seconds to mail your letter.
<![CDATA[
%%
set tkWWWBugReportWhoAmI [exec whoami]
label $this.frombox -text "From: $tkWWWBugReportWhoAmI"
$this append $this.frombox
%%
%%
frame $this.toframe -borderwidth 0
label $this.toframe.tolabel -text "To:"
entry $this.toframe.toentry -relief sunken -width 50
$this.toframe.toentry insert 0 joe@athena.mit.edu
pack append $this.toframe $this.toframe.tolabel {left} \
$this.toframe.toentry {right expand}
$this append $this.toframe
%%
%%
frame $this.frame -borderwidth 0
label $this.frame.subjectlabel -text "Subject:"
entry $this.frame.subjectentry -relief sunken -width 50
pack append $this.frame $this.frame.subjectlabel {left} \
$this.frame.subjectentry {right expand}
$this append $this.frame
%%
%%
label $this.messagelabel -text "Message:"
$this append $this.messagelabel
%%
%%
text $this.messagetext -relief sunken -borderwidth 2 -width 65 -height 12
$this append $this.messagetext
%%
%%
set command {}
append command {exec echo "" | mhmail }
append command "\[ $this.toframe.toentry get \] "
append command "-subject \[ $this.frame.subjectentry get \] "
append command "-body \[ $this.messagetext get 1.0 end \]"
button $this.exec -text "Press Here to Send Mail" \
-command $command
$this append $this.exec
%%
%%
button $this.backtrack -text "Press Here to go back" \
-command tkWWWNavigateBacktrack
$this append $this.backtrack
%%
]]></plaintext></body>