# This is the first screen of the Sun mailtool # Frame .frame1 contains top-row buttons, label and entry# Frame .frame2 contains bottom-row buttonsframe .frame1 -relief flat -bd 2frame .frame1.frame11 -relief flat -bd 2frame .frame1.frame12 -relief flat -bd 2frame .frame2 -relief flat -bd 2frame .frame2.frame21 -relief flat -bd 2frame .frame2.frame22 -relief flat -bd 2#frame .dummy -width 18c pack .frame1 .frame2 -side top -fill xpack .frame2.frame21 -side left -fill xpack .frame2.frame22 -side left -fill xpack .frame1.frame11 -side left -fill xpack .frame1.frame12 -side left -fill x# Scrolltext frameframe .frame3 -relief sunken -bd 2frame .frame3.frame # File View Edit Compose buttons and associated menus # Build File buttonmenubutton .frame1.frame11.file -text {File} -relief raised -width 8 \    	        -menu {.frame1.frame11.file.menu} # Build File-menu menu .frame1.frame11.file.menu .frame1.frame11.file.menu add command \    -label {Load In-Box} \    -state {active}.frame1.frame11.file.menu add command \    -label {Print}.frame1.frame11.file.menu add command \    -label {Save Changes}.frame1.frame11.file.menu add command \    -label {Done}.frame1.frame11.file.menu add command \    -label {Mail Files...} # Build View buttonmenubutton .frame1.frame11.view -text {View} -relief raised -width 8 \        -menu {.frame1.frame11.view.menu} # Build View-menumenu .frame1.frame11.view.menu  .frame1.frame11.view.menu add command \    -label {Messages}.frame1.frame11.view.menu add command \    -label {Previous}.frame1.frame11.view.menu add command \    -label {Next} \    -state {active}.frame1.frame11.view.menu add command \    -label {Sort By}.frame1.frame11.view.menu add command \    -label {Find...} # Build Edit buttonmenubutton .frame1.frame11.edit -text {Edit} -relief raised -width 8 \        -menu {.frame1.frame11.edit.menu} # Build Edit-menu  menu .frame1.frame11.edit.menu   .frame1.frame11.edit.menu add command \    -label {Cut}  .frame1.frame11.edit.menu add command \    -label {Copy}  .frame1.frame11.edit.menu add command \    -label {Delete}  .frame1.frame11.edit.menu add command \    -label {Undelete}  .frame1.frame11.edit.menu add separator  .frame1.frame11.edit.menu add command \    -label {Properties....}  # Build Compose buttonmenubutton .frame1.frame11.compose -text {Compose} -relief raised -width 12 \        -menu {.frame1.frame11.compose.menu} # Build Compose-menu  menu .frame1.frame11.compose.menu   .frame1.frame11.compose.menu add command \    -label {New}  .frame1.frame11.compose.menu add command \    -label {Reply}  .frame1.frame11.compose.menu add command \    -label {Forward}  .frame1.frame11.compose.menu add separator  .frame1.frame11.compose.menu add command \    -label { Vacation} # Pack the buttons File, View, Edit, Composepack .frame1.frame11.file \    .frame1.frame11.view \    .frame1.frame11.edit \    .frame1.frame11.compose \     -side left  update # Build Done, Next, Delete, Reply buttons and associated menus# Build Done buttonmenubutton .frame2.frame21.done -text {Done} -relief raised  -width 8 \	-menu {.frame2.frame21.done.menu} # Build Done-menu (empty)menu .frame2.frame21.done.menu # Build Next buttonmenubutton .frame2.frame21.next -text {Next} -relief raised  -width 8 \         -menu {.frame2.frame21.next.menu} # Build Next-menu (empty)menu .frame2.frame21.next.menu # Build Delete buttonmenubutton .frame2.frame21.delete -text {Delete} -relief raised -width 8 \        -menu {.frame2.frame21.delete.menu} # Build Delete-menu (empty)menu .frame2.frame21.delete.menu # Build Reply buttonmenubutton .frame2.frame21.reply -text {Reply} -relief raised -width 12 \        -menu {.frame2.frame21.reply.menu} # Build Reply-menumenu .frame2.frame21.reply.menu   .frame2.frame21.reply.menu add command \    -label {To Sender}  .frame2.frame21.reply.menu add command \    -label {To All}  .frame2.frame21.reply.menu add command \    -label {To Sender, Include}  .frame2.frame21.reply.menu add command \    -label {To All, Include} # Pack buttons Done, Next, Delete, Replypack .frame2.frame21.done \    .frame2.frame21.next \    .frame2.frame21.delete \    .frame2.frame21.reply \     -side left  update # Build buttons Move, Copy, Load and associated menusmenubutton .frame2.frame22.move -text {Move} -relief raised -width 8 \        -menu {.frame2.frame22.move.menu}menu .frame2.frame22.move.menu .frame2.frame22.move.menu add command \    -label {Entry} menubutton .frame2.frame22.copy -text {Copy} -relief raised -width 8 \        -menu {.frame2.frame22.copy.menu}menu .frame2.frame22.copy.menu.frame2.frame22.copy.menu add command \    -label {Entry} menubutton .frame2.frame22.load -text {Load} -relief raised -width 8 \        -menu {.frame2.frame22.load.menu}menu .frame2.frame22.load.menu.frame2.frame22.load.menu add command \    -label {Entry} pack .frame2.frame22.move \    .frame2.frame22.copy \    .frame2.frame22.load \     -side left -fill x update # Build Mail-File label and Dir-Path entry widgets label .frame1.frame12.lab_mailfile -relief flat -text {Mail File:   }entry .frame1.frame12.entry_mailfile -width 30 -relief sunken -bd 2 pack .frame1.frame12.entry_mailfile -side right pack .frame1.frame12.lab_mailfile  -side left  update # Build scrolltext w/ scrollbarsscrollbar .frame3.frame.scrollbar1 \	-command {.frame3.frame.listbox1 xview} \	-orient {horizontal} \    	-relief {raised}scrollbar .frame3.frame.scrollbar2 \	-command {.frame3.frame.listbox1 yview} \	-relief {raised}text .frame3.frame.listbox1 \	-relief {raised} \	-xscrollcommand {.frame3.frame.scrollbar1 set} \    	-yscrollcommand {.frame3.frame.scrollbar2 set}.frame3.frame.listbox1 insert end {Some Text}pack .frame3.frame pack .frame3.frame.scrollbar2 -side left -fill y pack .frame3.frame.listbox1 -side top -expand 1 -fill bothpack .frame3.frame.scrollbar1 -side bottom -fill x # Pack frame3 to the rest of container framespack .frame3 .frame3.frame -side top -expand 1 -fill both update # Build label(???) at the bottomlabel .lab_msgnum -relief flatpack .lab_msgnum -side top -fill x # Now make everything visibleupdate # Enable keyboard traversal of a menu (Is this needed in inferno Tk?) #tk_menuBar .frame1.frame11 .frame1.frame11.file .frame1.frame11.view \        #.frame1.frame11.edit .frame1.frame11.compose#tk_menuBar .frame2.frame21 .frame2.frame21.done .frame2.frame21.next \        #.frame2.frame21.delete .frame2.frame21.reply \        #.frame2.frame22 .frame2.frame22.move .frame2.frame22.copy .frame2.frame22.loadfocus .frame1.frame11update