ref: d0ab3a0dd8f6355b3603d0fb04043a9ae867639b
dir: /libtk/mail.tk/
# This is the first screen of the Sun mailtool # Frame .frame1 contains top-row buttons, label and entry # Frame .frame2 contains bottom-row buttons frame .frame1 -relief flat -bd 2 frame .frame1.frame11 -relief flat -bd 2 frame .frame1.frame12 -relief flat -bd 2 frame .frame2 -relief flat -bd 2 frame .frame2.frame21 -relief flat -bd 2 frame .frame2.frame22 -relief flat -bd 2 #frame .dummy -width 18c pack .frame1 .frame2 -side top -fill x pack .frame2.frame21 -side left -fill x pack .frame2.frame22 -side left -fill x pack .frame1.frame11 -side left -fill x pack .frame1.frame12 -side left -fill x # Scrolltext frame frame .frame3 -relief sunken -bd 2 frame .frame3.frame # File View Edit Compose buttons and associated menus # Build File button menubutton .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 button menubutton .frame1.frame11.view -text {View} -relief raised -width 8 \ -menu {.frame1.frame11.view.menu} # Build View-menu menu .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 button menubutton .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 button menubutton .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, Compose pack .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 button menubutton .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 button menubutton .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 button menubutton .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 button menubutton .frame2.frame21.reply -text {Reply} -relief raised -width 12 \ -menu {.frame2.frame21.reply.menu} # Build Reply-menu menu .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, Reply pack .frame2.frame21.done \ .frame2.frame21.next \ .frame2.frame21.delete \ .frame2.frame21.reply \ -side left update # Build buttons Move, Copy, Load and associated menus menubutton .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/ scrollbars scrollbar .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 both pack .frame3.frame.scrollbar1 -side bottom -fill x # Pack frame3 to the rest of container frames pack .frame3 .frame3.frame -side top -expand 1 -fill both update # Build label(???) at the bottom label .lab_msgnum -relief flat pack .lab_msgnum -side top -fill x # Now make everything visible update # 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.load focus .frame1.frame11 update