[Amsn-devel] (no subject)

[Tom Hennigan]

The info balloon seems to have 2 spaces after the "Groups:" label. Here's a diff that fixes that! I hope I've generated the diff right! (The command I used was diff -rup ./Scripts/gui.tcl ./Scripts-New/gui.tcl) --- ./Scripts/gui.tcl 2006-05-23 18:20:07.000000000 +0100 +++ ./Scripts-New/gui.tcl 2006-05-23 18:20:07.000000000 +0100 @@ -5851,7 +5851,7 @@ proc ShowUser {user_login state_code col set gname "$gname [::groups::GetName $i]" } - set balloon_message [list "[string map {"%" "%%"} [::abook::getNick $user_login]]" "[string map {"%" "%%"} [::abook::getpsmmedia $user_login]]" "$user_login" "[trans status]: [trans [::MSN::stateToDescription $state_code]]" "[trans group]: $gname"] + set balloon_message [list "[string map {"%" "%%"} [::abook::getNick $user_login]]" "[string map {"%" "%%"} [::abook::getpsmmedia $user_login]]" "$user_login" "[trans status]: [trans [::MSN::stateToDescription $state_code]]" "[trans group]:$gname"] set fonts [list "sboldf" "sitalf" "splainf" "splainf" "splainf"] $pgBuddy.text tag bind $user_unique_name <Enter> +[list balloon_enter %W %X %Y $balloon_message "--command--::skin::getDisplayPicture $user_login" "$fonts" complex] ------------------------------------ Tom Hennigan [EMAIL PROTECTED] http://www.justclimbit.co.uk/