Tkabber

Check-in [3f7d214d38]
Login

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

Overview
Comment:Adjusted priorities for the draw_message_hook hook procedures.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 3f7d214d384af800d2b69b827450585d0e34c9c5
User & Date: sgolovan 2016-01-02 13:33:40
Context
2016-01-03
17:13
Fixed simultaneous encrypting and signing. Moved drawing of GPG icons for outgoing messages from rewrite_outgoing_message_hook to draw_message_hook. Translate the 'This message is encrypted.' auxiliary message to the recipient language instead of our own. Moved the 'This message is encrypted.' message translation to the trans/ subdirectory. check-in: 0cc718bae7 user: sgolovan tags: trunk
2016-01-02
13:33
Adjusted priorities for the draw_message_hook hook procedures. check-in: 3f7d214d38 user: sgolovan tags: trunk
2016-01-01
09:52
Switched to he gpg package import command for missing GPG key importing from direct gpg binary call. Also, made this import asynchronous. check-in: 32cc76b904 user: sgolovan tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.







1
2
3
4
5
6
7






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

	* plugins/general/gpgme.tcl: Switched to he gpg package import command
	  for missing GPG key importing from direct gpg binary call. Also,
	  made this import asynchronous.

2015-12-31  Sergei Golovan  <sgolovan@nes.ru>
>
>
>
>
>
>







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

	* plugins/chat/empty_body.tcl, plugins/chat/open_window.tcl,
	  plugins/general/xaddress.tcl: Adjusted priorities for the
	  draw_message_hook hook procedures.

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

	* plugins/general/gpgme.tcl: Switched to he gpg package import command
	  for missing GPG key importing from direct gpg binary call. Also,
	  made this import asynchronous.

2015-12-31  Sergei Golovan  <sgolovan@nes.ru>

Changes to plugins/chat/empty_body.tcl.

15
16
17
18
19
20
21
22
23
24

proc check_draw_empty_body {chatid from type body x} {
    if {$body eq ""} {
        return stop
    }
}

hook::add draw_message_hook [namespace current]::check_draw_empty_body 4

# vim:ft=tcl:ts=8:sw=4:sts=4:et







|


15
16
17
18
19
20
21
22
23
24

proc check_draw_empty_body {chatid from type body x} {
    if {$body eq ""} {
        return stop
    }
}

hook::add draw_message_hook [namespace current]::check_draw_empty_body 2

# vim:ft=tcl:ts=8:sw=4:sts=4:et

Changes to plugins/chat/open_window.tcl.

10
11
12
13
14
15
16
17
18
19
        set type chat
    }
    chat::open_window $chatid $type -cleanroster 0
    set chatw [chat::chat_win $chatid]
    $chatw configure -state normal
}

hook::add draw_message_hook [namespace current]::chat_open_window 5

# vim:ft=tcl:ts=8:sw=4:sts=4:et







|


10
11
12
13
14
15
16
17
18
19
        set type chat
    }
    chat::open_window $chatid $type -cleanroster 0
    set chatw [chat::chat_win $chatid]
    $chatw configure -state normal
}

hook::add draw_message_hook [namespace current]::chat_open_window 3

# vim:ft=tcl:ts=8:sw=4:sts=4:et

Changes to plugins/general/xaddress.tcl.

189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
                   -bg [$chatw cget -background]]
        $chatw window create end -window $label

        break
    }
}

hook::add draw_message_hook ::xaddress::draw_xaddress 6

##########################################################
# Draw xaddress fields in the new message dialog

proc ::xaddress::process_x_data {rowvar bodyvar f x xlib from id type replyP} {
    upvar 2 $rowvar row
    upvar 2 $bodyvar body







|







189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
                   -bg [$chatw cget -background]]
        $chatw window create end -window $label

        break
    }
}

hook::add draw_message_hook ::xaddress::draw_xaddress 4

##########################################################
# Draw xaddress fields in the new message dialog

proc ::xaddress::process_x_data {rowvar bodyvar f x xlib from id type replyP} {
    upvar 2 $rowvar row
    upvar 2 $bodyvar body