Tkabber plugins

Check-in [4a1a1d1713]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment: * debug/debug.tcl: Do not rename and replace various debug commands if they don't exist in the first place.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 4a1a1d17135899c35b0c9473c726df3181d35c7f
User & Date: sgolovan 2016-01-11 14:55:19
Context
2016-02-01
19:33
Fixed typo. check-in: 8510fede9c user: sgolovan tags: trunk
2016-01-11
14:55
* debug/debug.tcl: Do not rename and replace various debug commands if they don't exist in the first place. check-in: 4a1a1d1713 user: sgolovan tags: trunk
2016-01-04
09:18
Reset the keys counter after the AKE completion in case when the correspondent's keys have been changed. check-in: 8db11eebd1 user: sgolovan tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.






1
2
3
4
5
6
7





2016-01-02  Sergei Golovan  <sgolovan@nes.ru>

	* receipts/receipts.tcl: Adjusted priority for the icon drawing
	  procedure.

	* otr/otr.tcl: Use own procedures to store, discard and resend messages
	  after refreshing broken OTR conversation. Moved drawing OTR message
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
2016-01-11  Sergei Golovan  <sgolovan@nes.ru>

	* debug/debug.tcl: Do not rename and replace various debug commands if
	  they don't exist in the first place.

2016-01-02  Sergei Golovan  <sgolovan@nes.ru>

	* receipts/receipts.tcl: Adjusted priority for the icon drawing
	  procedure.

	* otr/otr.tcl: Use own procedures to store, discard and resend messages
	  after refreshing broken OTR conversation. Moved drawing OTR message

Changes to debug/debug.tcl.

113
114
115
116
117
118
119
120

121
122
123
124
125
126
127
128

129
130
131
132
133
134
135

136
137
138
139
140
141
142
143
144
145
    foreach ns {otr
                pconnect::https
                pconnect::socks4
                pconnect::socks5
                xmpp
                xmpp::transport::bosh
                xmpp::transport::poll} {
        if {[llength [info procs ::${ns}::Debug:debug]] == 0} {

            rename ::${ns}::Debug ::${ns}::Debug:debug
            proc ::${ns}::Debug {xlib level str} \
                 "[namespace current]::debugmsg $ns \"\$xlib \$str\""
        }
    }

    foreach ns {gpg} {
        if {[llength [info procs ::${ns}::Debug:debug]] == 0} {

            rename ::${ns}::Debug ::${ns}::Debug:debug
            proc ::${ns}::Debug {level str} \
                 "[namespace current]::debugmsg $ns \"\$str\""
        }
    }

    if {[llength [info procs ::otr::smp::Debug:debug]] == 0} {

            rename ::otr::smp::Debug ::otr::smp::Debug:debug
            proc ::otr::smp::Debug {level str} \
                 "[namespace current]::debugmsg otr \$str"
    }

    hook::add finload_hook [namespace current]::setup_menu

    if {![catch {.mainframe getmenu debug}]} {
        setup_menu
    }







|
>







|
>






|
>
|
|
|







113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
    foreach ns {otr
                pconnect::https
                pconnect::socks4
                pconnect::socks5
                xmpp
                xmpp::transport::bosh
                xmpp::transport::poll} {
        if {[llength [info procs ::${ns}::Debug]] > 0 && \
                [llength [info procs ::${ns}::Debug:debug]] == 0} {
            rename ::${ns}::Debug ::${ns}::Debug:debug
            proc ::${ns}::Debug {xlib level str} \
                 "[namespace current]::debugmsg $ns \"\$xlib \$str\""
        }
    }

    foreach ns {gpg} {
        if {[llength [info procs ::${ns}::Debug]] > 0 && \
                [llength [info procs ::${ns}::Debug:debug]] == 0} {
            rename ::${ns}::Debug ::${ns}::Debug:debug
            proc ::${ns}::Debug {level str} \
                 "[namespace current]::debugmsg $ns \"\$str\""
        }
    }

    if {[llength [info procs ::otr::smp::Debug]] > 0 && \
            [llength [info procs ::otr::smp::Debug:debug]] == 0} {
        rename ::otr::smp::Debug ::otr::smp::Debug:debug
        proc ::otr::smp::Debug {level str} \
             "[namespace current]::debugmsg otr \$str"
    }

    hook::add finload_hook [namespace current]::setup_menu

    if {![catch {.mainframe getmenu debug}]} {
        setup_menu
    }