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



Connect again

Your user name :

Your secret code

 Count of members 123 members

Connected :


 2020010 visitors

 14 visitors online


Download Download file

# uncomment this line to ring the system 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 ^