Thunderbird Extensions
Apple - mac
Donation
Make a donation to help WiPhA development

Search




Preferences

Connect again
---

Your user name :

Your secret code


 Count of members 123 members


Connected :

(nobody)
Visits

 2020010 visitors

 14 visitors online

Private
displayMail.tcl

Download Download file

#!/usr/bin/wishx
 
# uncomment this line to ring the system bell
#bell
 
# uncomment this line to play a sound
#system "/usr/bin/play /whatever/sound/you/want.wav &"
 
set file [lindex $argv 0]
 
set subjectData [lindex $argv 0]
set senderData [lindex $argv 1]
set recipientsData [lindex $argv 2]
set sizeData [lindex $argv 3]
set folderData [lindex $argv 4]
set accountTypeData [lindex $argv 5]
set accountNameData [lindex $argv 6]
set bodyData [lindex $argv 7]
 
wm title . "You've got new mail"
 
set font "-misc-fixed-medium-r-normal--18-100-100-100-c-70-iso8859-1"
 
label .subject -anchor w -font $font -text $subjectData -fg "red"
pack .subject -side left
label .sender -anchor w -font $font -text "  $senderData" -fg "darkblue"
pack .sender -side left
label .size -anchor w -font $font -text "  ($sizeData)"
pack .size -side left
 
button .quit -text Close -command {exit}
pack .quit -side right
 
 
# Size for a 1280x1024 display. You may adapt it as you want for your display
wm geometry . 1220x34+0+0
 
# Close after 5 seconds
after 5000 exit

Code highlighted using GeSHi
© Nigel McNie, 2004, released under the GNU GPL
^ Top ^