[Amsn-commits] amsn-extras/plugins/pop3 pop3.tcl,1.10,1.11

[A S <lio...@us...>]

Update of /cvsroot/amsn/amsn-extras/plugins/pop3
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5982

Modified Files:
	pop3.tcl 
Log Message:
Add trigger for rechecking on the spot

Index: pop3.tcl
===================================================================
RCS file: /cvsroot/amsn/amsn-extras/plugins/pop3/pop3.tcl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** pop3.tcl	24 Oct 2004 14:02:03 -0000	1.10
--- pop3.tcl	27 Oct 2004 07:24:09 -0000	1.11
***************
*** 373,378 ****
  		set short_mailmsg [trunc $mailmsg $vars(text) $maxw splainf]
  
  		if { $::pop3::config(loadMailProg) } {
! 			clickableImage $vars(text) popmailpic mailbox "::pop3::loadDefaultEmail" 5 0
  
  			#Set up TAGS for mail notification
--- 373,385 ----
  		set short_mailmsg [trunc $mailmsg $vars(text) $maxw splainf]
  
+ 		clickableImage $vars(text) popmailpic mailbox {::pop3::stop 0 0; after 1 ::pop3::check} 5 0
+ 		#TODO needs translation
+ 		set balloon_message "Click here to check the number of messages now."
+ 		bind $vars(text).popmailpic <Enter> +[list balloon_enter %W %X %Y $balloon_message]
+ 		bind $vars(text).popmailpic <Leave> "+set ::Bulle(first) 0; kill_balloon;"
+ 		bind $vars(text).popmailpic <Motion> +[list balloon_motion %W %X %Y $balloon_message]
+ 
  		if { $::pop3::config(loadMailProg) } {
! 			#clickableImage $vars(text) popmailpic mailbox "::pop3::loadDefaultEmail" 5 0
  
  			#Set up TAGS for mail notification
***************
*** 385,389 ****
  			$vars(text) tag add dont_replace_smileys pop3mail.first pop3mail.last
  		} else {
! 			label $vars(text).popmailpic -image [::skin::loadPixmap mailbox] -background white
  			$vars(text) window create end -window $vars(text).popmailpic -padx 3 -pady 0 -align center -stretch true
  
--- 392,396 ----
  			$vars(text) tag add dont_replace_smileys pop3mail.first pop3mail.last
  		} else {
! 			#label $vars(text).popmailpic -image [::skin::loadPixmap mailbox] -background white
  			$vars(text) window create end -window $vars(text).popmailpic -padx 3 -pady 0 -align center -stretch true