From: <sc...@us...> - 2007-05-31 16:48:35
|
Revision: 8785 http://svn.sourceforge.net/amsn/?rev=8785&view=rev Author: scapor Date: 2007-05-31 09:48:36 -0700 (Thu, 31 May 2007) Log Message: ----------- disable wm iconphoto for windows as it the image is corrupted and for tk < 8.4.8 where it's not supported. if this feature is not liked I will remove it Modified Paths: -------------- trunk/amsn/chatwindow.tcl Modified: trunk/amsn/chatwindow.tcl =================================================================== --- trunk/amsn/chatwindow.tcl 2007-05-31 16:05:17 UTC (rev 8784) +++ trunk/amsn/chatwindow.tcl 2007-05-31 16:48:36 UTC (rev 8785) @@ -810,7 +810,8 @@ # Creates a new chat window and returns its name (.msg_n - Where n is winid) proc Open { {container ""} } { - if { [UseContainer] == 0 || $container == "" } { + #calling procs check for [UseContainer] as they have to give the container's path] + if { $container == "" } { set w [CreateTopLevelWindow] set mainmenu [CreateMainMenu $w] @@ -883,7 +884,7 @@ set evPar(win) "$w" ::plugins::PostEvent new_chatwindow evPar - if { !([UseContainer] == 0 || $container == "" )} { + if { $container != "" } { AddWindowToContainer $container $w } else { searchdialog $w.search @@ -1128,7 +1129,7 @@ wm state $w iconic } - wm title $w "[trans chat]" +# wm title $w "[trans chat]" wm group $w . # If the platform is NOT windows, set the windows' icon to our xbm @@ -3559,8 +3560,11 @@ #$usersinchat is "" if user is offline #if more than one user in chat, keep amsn's icon, otherwise use user's DP if { [llength $usersinchat] <= 1 } { - #as there are a lot of issues, it's in a catch - catch { wm iconphoto $container -default displaypicture_std_$chatid } + #the image is corrupted on windows and this method doesn't exist on older Tk's + if { ![OnWin] && [version_vcompare [info patchlevel] 8.4.8] >= 0 } { + #as there are a lot of issues, it's in a catch + catch { wm iconphoto $container -default displaypicture_std_$chatid } + } } #append all nicknames in the chat first to the title This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |