123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224 |
- # 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
|