It would work on Windows 2000/XP+, and probably with beryl on linux (we need a compositing wm CF.http://www.tcl.tk/man/tcl8.4/TkCmd/ wm.htm#M8), but I'm not sure about other wm's? The proc itself checks if the wm doesn't support alpha, and just destroys the window, so I guess if win/linux users want it, we can change the OnMac, to have tooltips fade for all platforms?
- Tom On 2 Jun 2007, at 09:46, Sander Hoentjen wrote: > doesn't this work on linux and/or win? > > On Fri, 2007-06-01 at 14:41 -0700, [EMAIL PROTECTED] > wrote: >> Revision: 8803 >> http://svn.sourceforge.net/amsn/?rev=8803&view=rev >> Author: tomhennigan >> Date: 2007-06-01 14:41:07 -0700 (Fri, 01 Jun 2007) >> >> Log Message: >> ----------- >> Cheers kkrt, I've modified I've changed the fade out behaviour to >> be default. Except when a popup is shown, the balloon is destroyed >> immediatly. >> >> Modified Paths: >> -------------- >> trunk/amsn/balloon.tcl >> trunk/amsn/gui.tcl >> trunk/amsn/guicontactlist.tcl >> >> Modified: trunk/amsn/balloon.tcl >> =================================================================== >> --- trunk/amsn/balloon.tcl 2007-06-01 20:31:48 UTC (rev 8802) >> +++ trunk/amsn/balloon.tcl 2007-06-01 21:41:07 UTC (rev 8803) >> @@ -68,12 +68,12 @@ >> set BullePic(${target}) ${pic} >> } >> >> -proc kill_balloon {{allow_fade 0}} { >> +proc kill_balloon { } { >> global Bulle >> catch { >> after cancel $Bulle(id) >> if {[winfo exists .balloon] == 1} { >> - if { [OnMac] && $allow_fade == 1 } { >> + if { [OnMac] } { >> fade_balloon .balloon >> } else { >> destroy .balloon >> @@ -83,7 +83,7 @@ >> } >> } >> >> -proc fade_balloon { w } { >> +proc fade_balloon {{w ".balloon"}} { >> if {![winfo exists $w]} { return; } >> >> set prev_alpha [wm attributes $w -alpha] >> @@ -92,7 +92,7 @@ >> >> # Non-compositing wm's will return the previous alpha if the >> window hasn't faded, so we check for that. >> # CF. http://www.tcl.tk/man/tcl8.4/TkCmd/wm.htm#M12 >> - if {$current_alpha != 0.0 && $current_alpha != $prev_alpha} { >> + if {$current_alpha > 0.0 && $current_alpha != $prev_alpha} { >> after 50 [list fade_balloon $w] >> } else { >> destroy $w >> >> Modified: trunk/amsn/gui.tcl >> =================================================================== >> --- trunk/amsn/gui.tcl 2007-06-01 20:31:48 UTC (rev 8802) >> +++ trunk/amsn/gui.tcl 2007-06-01 21:41:07 UTC (rev 8803) >> @@ -4899,7 +4899,7 @@ >> set fonts [list "sboldf" "sitalf" "splainf" "splainf"] >> >> bind $pgBuddyTop.bigstate <Enter> +[list balloon_enter %W %X %Y >> $balloon_message $pic_name $fonts complex] >> - bind $pgBuddyTop.bigstate <Leave> "+set Bulle(first) 0; >> kill_balloon 1;" >> + bind $pgBuddyTop.bigstate <Leave> "+set Bulle(first) 0; >> kill_balloon;" >> bind $pgBuddyTop.bigstate <Motion> +[list balloon_motion %W %X % >> Y $balloon_message $pic_name $fonts complex] >> >> set colorbar $pgBuddyTop.colorbar >> @@ -4968,7 +4968,7 @@ >> $pgBuddyTop.mail configure -font "{} -$mailheight" >> >> $pgBuddyTop.mail tag bind mail <Enter> +[list balloon_enter %W >> % >> X %Y $balloon_message] >> - $pgBuddyTop.mail tag bind mail <Leave> "+set ::Bulle(first) 0; >> kill_balloon 1;" >> + $pgBuddyTop.mail tag bind mail <Leave> "+set ::Bulle(first) 0; >> kill_balloon;" >> $pgBuddyTop.mail tag bind mail <Motion> +[list balloon_motion % >> W %X %Y $balloon_message] >> >> set evpar(text) pgBuddyTop.mail >> @@ -5080,7 +5080,7 @@ >> $pgBuddyTop.mystatus bind mystatus <Button1-ButtonRelease> >> "destroy .balloon; tk_popup .my_menu %X %Y" >> $pgBuddyTop.mystatus bind mystatus <Enter> \ >> +[list balloon_enter %W %X %Y $balloon_message $pic_name $fonts >> >> complex] >> - $pgBuddyTop.mystatus bind mystatus <Leave> "+set Bulle(first) 0; >> kill_balloon 1" >> + $pgBuddyTop.mystatus bind mystatus <Leave> "+set Bulle(first) 0; >> kill_balloon" >> $pgBuddyTop.mystatus bind mystatus <Motion> \ >> +[list balloon_motion %W %X %Y $balloon_message $pic_name >> $fonts complex] >> >> @@ -6430,7 +6430,10 @@ >> if {[expr {$y + 300}] > [winfo screenheight .]} { >> set y [expr {$y - 300}] >> } >> - tk_popup .user_menu $x $y >> + >> + destroy .balloon >> + >> + tk_popup .user_menu $x $y >> } >> >> >> #//////////////////////////////////////////////////////////////////// >> /// >> >> Modified: trunk/amsn/guicontactlist.tcl >> =================================================================== >> --- trunk/amsn/guicontactlist.tcl 2007-06-01 20:31:48 UTC (rev 8802) >> +++ trunk/amsn/guicontactlist.tcl 2007-06-01 21:41:07 UTC (rev 8803) >> @@ -1732,7 +1732,7 @@ >> if { [::config::getKey tooltips] == 1 } { >> $canvas bind $space_icon <Enter> + >> [list ::guiContactList::balloon_enter_CL %W %X %Y "View space >> items" ] >> $canvas bind $space_icon <Motion> + >> [list ::guiContactList::balloon_motion_CL %W %X %Y "View space >> items" ] >> - $canvas bind $space_icon <Leave> "+set ::Bulle(first) >> 0; >> kill_balloon 1" >> + $canvas bind $space_icon <Leave> "+set ::Bulle(first) >> 0; >> kill_balloon" >> } >> >> # Add binding for underline if the skinner use it >> @@ -1749,7 +1749,7 @@ >> set b_pic [::skin::getDisplayPicture $email] >> $canvas bind $main_part <Enter> + >> [list ::guiContactList::balloon_enter_CL %W %X %Y $b_content >> $b_pic $b_fonts complex] >> $canvas bind $main_part <Motion> + >> [list ::guiContactList::balloon_motion_CL %W %X %Y $b_content >> $b_pic $b_fonts complex] >> - $canvas bind $main_part <Leave> "+set ::Bulle(first) 0; >> >> kill_balloon 1" >> + $canvas bind $main_part <Leave> "+set ::Bulle(first) 0; >> >> kill_balloon" >> } >> >> >> >> >> This was sent by the SourceForge.net collaborative development >> platform, the world's largest Open Source development site. >> >> --------------------------------------------------------------------- >> ---- >> This SF.net email is sponsored by DB2 Express >> Download DB2 Express C - the FREE version of DB2 express and take >> control of your XML. No limits. Just data. Click to get it now. >> http://sourceforge.net/powerbar/db2/ >> _______________________________________________ >> Amsn-commits mailing list >> [EMAIL PROTECTED] >> https://lists.sourceforge.net/lists/listinfo/amsn-commits >> > ------------------------------------------------------------------------- This SF.net email is sponsored by DB2 Express Download DB2 Express C - the FREE version of DB2 express and take control of your XML. No limits. Just data. Click to get it now. http://sourceforge.net/powerbar/db2/ _______________________________________________ Amsn-devel mailing list Amsn-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/amsn-devel
