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 | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
83d485a207742a74d6766c0047bb025a |
| User & Date: | sgolovan 2016-02-01 15:50:06 |
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
|
| ︙ | ︙ |