We already had an option for this, it was moved and then I think moved
again. Im not sure where it is now. But we do have the option already.

  ::config::setKey use_dock 1    ;#enable/disable docking


and also if you set this to 0 it should also work (that was the original
way):

  ::config::setKey dock 1    ;#Docking type


If you look back in 'late November-early October' there is a thread about it
([Amsn-devel] Systray Option), I think the option was removed (although I
think we should have it). But even if you readd it, don't add new variables
and lang keys we already have them.

Lio.


----- Original Message ----- 
From: "Vivia Nikolaidou" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, January 18, 2006 10:42 AM
Subject: [Amsn-commits] msn config.tcl,1.310,1.311 trayicon.tcl,1.76,1.77


> Update of /cvsroot/amsn/msn
> In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18084
>
> Modified Files:
> config.tcl trayicon.tcl
> Log Message:
> Added option to show icon on taskbar when new emails arrive
>
> Index: trayicon.tcl
> ===================================================================
> RCS file: /cvsroot/amsn/msn/trayicon.tcl,v
> retrieving revision 1.76
> retrieving revision 1.77
> diff -C2 -d -r1.76 -r1.77
> *** trayicon.tcl 18 Dec 2005 21:13:14 -0000 1.76
> --- trayicon.tcl 17 Jan 2006 23:42:14 -0000 1.77
> ***************
> *** 374,377 ****
> --- 374,382 ----
>   global systemtray_exist mailicon statusicon password winmailicon
tcl_platform mailtrayicon defaultbackground
>   # Workaround for bug in the traydock-plugin - statusicon added - END
> +
> + if { [::config::getKey showmailicon] == 0 } {
> + return
> + }
> +
>   set icon .mi
>   if {$systemtray_exist == 1 && $mailicon == 0 && ([UnixDock] ||
[WinDock])  && $num >0} {
>
> Index: config.tcl
> ===================================================================
> RCS file: /cvsroot/amsn/msn/config.tcl,v
> retrieving revision 1.310
> retrieving revision 1.311
> diff -C2 -d -r1.310 -r1.311
> *** config.tcl 13 Jan 2006 14:44:18 -0000 1.310
> --- config.tcl 17 Jan 2006 23:42:14 -0000 1.311
> ***************
> *** 42,45 ****
> --- 42,47 ----
>   ;#Changed later for windows to 4
>
> + ::config::setKey showmailicon 1
> +
>   #Some Autodetected options
>   if {$tcl_platform(os) == "Darwin"} {
> ***************
> *** 204,207 ****
> --- 206,210 ----
>   [list local tabtitlenick bool tabtitlenick] \
>   [list local showpicnotify bool showpicnotify] \
> + [list local showmailicon bool showmailicon] \
>   [list title notifyoffset] \
>   [list local notifyXoffset int xoffset] \
>
>
>
> -------------------------------------------------------
> This SF.net email is sponsored by: Splunk Inc. Do you grep through log
files
> for problems?  Stop!  Download the new AJAX search engine that makes
> searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
> http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&dat=121642
> _______________________________________________
> Amsn-commits mailing list
> [EMAIL PROTECTED]
> https://lists.sourceforge.net/lists/listinfo/amsn-commits
>



-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems?  Stop!  Download the new AJAX search engine that makes
searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&dat=121642
_______________________________________________
Amsn-devel mailing list
Amsn-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/amsn-devel

Reply via email to