:@ wrong address again.. resending
---------- Forwarded message ----------
PSM inside the chatwindow (on the title, next to the email address)
I also thought of adding it under the nickname/email, but it would look
uglier on conversations with many people.
*** chatwindow.tcl 2005-12-29 15:43:28.000000000 +0200
--- chatwindow-patched.tcl 2005-12-29 15:44:19.000000000 +0200
***************
*** 2174,2180 ****
set user_name [string map {"\n" " "}
[::abook::getDisplayNick $user_login]]
set state_code [::abook::getVolatileData $user_login
state]
!
if { $state_code == "" } {
set user_state ""
set state_code FLN
--- 2174,2185 ----
set user_name [string map {"\n" " "}
[::abook::getDisplayNick $user_login]]
set state_code [::abook::getVolatileData $user_login
state]
! set psm [::abook::getVolatileData $user_login PSM]
!
! if { $psm != "" } {
! set psm "$psm "
! }
!
if { $state_code == "" } {
set user_state ""
set state_code FLN
***************
*** 2202,2214 ****
incr maxw [expr 0-[font measure sboldf
-displayof $top " <${user_login}>"]]
!
!
! set nicktxt "[trunc ${user_name} ${win_name}
$maxw sboldf] <${user_login}>"
} else {
! set nicktxt "${user_name} <${user_login}>"
}
--- 2207,2222 ----
incr maxw [expr 0-[font measure sboldf
-displayof $top " <${user_login}>"]]
! if { [font measure sboldf -displayof $top
"${user_name}"] > $maxw } {
! set nicktxt "[trunc ${user_name}
${win_name} $maxw sboldf] <${user_login}>"
! } else {
! incr maxw [expr 0-[font measure sboldf
-displayof $top " ${user_name}"]]
! set nicktxt "${user_name}
<${user_login}> [trunc ${psm} ${win_name} $maxw sboldf]"
! }
} else {
! set nicktxt "${user_name} <${user_login}> $psm"
}
