Don
Faire un don pour aider au developpement de WiPhA

Recherche




Préférences

Se reconnecter
---

Votre nom (ou pseudo) :

Votre code secret


 Nombre de membres 123 membres


Connectés :

( personne )
Visites

 2219078 visiteurs

 16 visiteurs en ligne

displayMail.tcl

Download Télécharger le fichier

#!/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 coloré par GeSHi
© Nigel McNie, 2004, livré sous GNU GPL
^ Haut ^