Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Don't panic if the register window is already destroyed when registration answer is received. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
83d485a207742a74d6766c0047bb025a |
User & Date: | sgolovan 2016-02-01 15:50:06.601 |
Context
2016-02-04
| ||
05:37 | Renamed user_avatar_notification_hook to user_avatar_pep_notification_hook to prevent clashing with the avatarcache plugin in contrib. check-in: f14959bebf user: sgolovan tags: trunk | |
2016-02-01
| ||
15:50 | Don't panic if the register window is already destroyed when registration answer is received. check-in: 83d485a207 user: sgolovan tags: trunk | |
13:01 | Don't draw the signed/encrypted message icon for outgoing messages in groupchats because only drawing incoming messages makes sense there. check-in: 538a14498e user: sgolovan tags: trunk | |
Changes
Changes to ChangeLog.
1 2 3 4 5 6 7 8 9 10 11 12 | 2016-02-01 Sergei Golovan <sgolovan@nes.ru> * plugins/general/gpgme.tcl: Don't draw the signed/encrypted message icon for outgoing messages in groupchats because only drawing incoming messages makes sense there. 2016-01-26 Sergei Golovan <sgolovan@nes.ru> * chats.tcl: Fixed tab titles for chats with groupchat occupants. They were broken when search for conference roster items was fixed. 2016-01-25 Sergei Golovan <sgolovan@nes.ru> | > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | 2016-02-01 Sergei Golovan <sgolovan@nes.ru> * plugins/general/gpgme.tcl: Don't draw the signed/encrypted message icon for outgoing messages in groupchats because only drawing incoming messages makes sense there. * register.tcl: Don't panic if the register window is already destroyed when registration answer is received. 2016-01-26 Sergei Golovan <sgolovan@nes.ru> * chats.tcl: Fixed tab titles for chats with groupchat occupants. They were broken when search for conference roster items was fixed. 2016-01-25 Sergei Golovan <sgolovan@nes.ru> |
︙ | ︙ |
Changes to register.tcl.
︙ | ︙ | |||
80 81 82 83 84 85 86 87 88 89 90 91 92 93 | if {[llength $commands] > 0} { uplevel #0 [lindex $commands 0] [list abort {}] } } proc register::RecvFields {w f xlib jid commands status fields args} { debugmsg register "$status $fields" switch -- $status { error { destroy $w MessageDlg ${w}_err -aspect 50000 -icon error \ -message [::msgcat::mc "Registration: %s" \ [error_to_string $fields]] \ | > > > > > | 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 | if {[llength $commands] > 0} { uplevel #0 [lindex $commands 0] [list abort {}] } } proc register::RecvFields {w f xlib jid commands status fields args} { debugmsg register "$status $fields" if {![winfo exists $w]} { # User may have already destroyed this window return } switch -- $status { error { destroy $w MessageDlg ${w}_err -aspect 50000 -icon error \ -message [::msgcat::mc "Registration: %s" \ [error_to_string $fields]] \ |
︙ | ︙ | |||
225 226 227 228 229 230 231 232 233 234 235 236 237 238 | wm withdraw $w RecvFields $w $f $xlib "" {} ok $fields } proc register::Password {w f xlib} { variable data destroy $w.error.msg $w.bbox itemconfigure 0 -state disabled set username [connection_user $xlib] set password "" foreach {var values} [data::get_fields $f] { | > > > > > | 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 | wm withdraw $w RecvFields $w $f $xlib "" {} ok $fields } proc register::Password {w f xlib} { variable data if {![winfo exists $w]} { # User may have already destroyed this window return } destroy $w.error.msg $w.bbox itemconfigure 0 -state disabled set username [connection_user $xlib] set password "" foreach {var values} [data::get_fields $f] { |
︙ | ︙ | |||
250 251 252 253 254 255 256 257 258 259 260 261 262 263 | -command [namespace code [list RecvResult $w $xlib "" {}]] } proc register::RecvResult {w xlib jid commands status xml} { variable data debugmsg register "$status $xml" switch -- $status { ok { set result [::msgcat::mc "Registration is successful!"] Label $w.result -text $result pack $w.result -expand yes -fill both -after $w.sw -anchor nw \ -padx 1c -pady 1c | > > > > > | 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 | -command [namespace code [list RecvResult $w $xlib "" {}]] } proc register::RecvResult {w xlib jid commands status xml} { variable data debugmsg register "$status $xml" if {![winfo exists $w]} { # User may have already destroyed this window return } switch -- $status { ok { set result [::msgcat::mc "Registration is successful!"] Label $w.result -text $result pack $w.result -expand yes -fill both -after $w.sw -anchor nw \ -padx 1c -pady 1c |
︙ | ︙ |