Execute Tcl Online

# Set Main display
# wm minsize . 40 10
# wm title . "Email System Interface, v0"

frame .menubar
menubutton .menubar.file -text File -menu .menubar.file.f
menubutton .menubar.help -text Help -menu .menubar.help.h

pack .menubar -fill x
pack .menubar.file .menubar.help -side left


set f [menu .menubar.file.f]

#Create menu
$f add cascade -label Open 
# -menu $f.sub0
$f add cascade -label Save 
# -menu $f.sub1
$f add cascade -label Quit -command exit

set h [menu .menubar.help.h]
$h add cascade -label Search  
$h add cascade -label Support 

frame .body
label .body.to_label   -text "To:"
entry .body.to
label .body.from_label -text "From:"
entry .body.from 
label .body.sj_label   -text "Subject:"
entry .body.sj 
text  .body.t          -yscrollcommand {.body.s set}
scrollbar .body.s      -command {.body.t yview}

grid  .body.to_label   -row 0 -column 0 -sticky e
grid  .body.to	       -row 0 -column 1 -sticky ew
grid  .body.from_label -row 1 -column 0 -sticky e
grid  .body.from       -row 1 -column 1 -sticky ew
grid  .body.sj_label -row 2 -column 0 -sticky e
grid  .body.sj       -row 2 -column 1 -sticky ew
grid  .body.t .body.s  -row 3 -column 1 -sticky nsew
grid  columnconfigure  .body 0  -weight 1
grid  rowconfigure     .body 0  -weight 1


pack  .menubar .body -side top

frame   .end
button  .end.attach -text "Attach"
button  .end.cancel -text "Cancel"
button  .end.send -text "Send"

pack .end -fill x
pack .end.attach .end.cancel .end.send -side right -padx 2m -pady 1m -ipadx 2m -ipady 1m