Tkabber contrib

Check-in [255ae6d144]
Login

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

Overview
Comment:Use [chat::input_win] to get chat input widget.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 255ae6d144ddb280feef34794c292c14aa61207c
User & Date: sgolovan 2015-04-14 16:25:12.743
Context
2015-05-10
08:52
Adapted the Chattoolbar plugin to the Ttk based interface. Fixed spelling error. Converted line endings. check-in: 30b23bf2eb user: sgolovan tags: trunk
2015-05-01
08:00
Create new branch named "tkabber-1.1.1" check-in: 81072bf614 user: sgolovan tags: tkabber-1.1.1
2015-04-14
16:25
Use [chat::input_win] to get chat input widget. check-in: 255ae6d144 user: sgolovan tags: trunk
2015-04-12
19:00
Removed dropped variable tk_borderwidth. check-in: 564eb5731b user: sgolovan tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to bldjid/ChangeLog.










1
2
3
4
5
6
7










2015-03-30  Sergei Golovan  <xmpp:sgolovan@nes.ru> <mailto:sgolovan@nes.ru>

--- Version 0.9.11.13 of the plugin.

--- Files modified:
    bldjid.tcl, ChangeLog.

>
>
>
>
>
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2015-04-14  Sergei Golovan  <xmpp:sgolovan@nes.ru> <mailto:sgolovan@nes.ru>

--- Version 0.9.11.14 of the plugin.

--- Files modified:
    bldjid.tcl, ChangeLog.

--- Changes:
	Use [chat::input_win] procedure to get chat input widget.

2015-03-30  Sergei Golovan  <xmpp:sgolovan@nes.ru> <mailto:sgolovan@nes.ru>

--- Version 0.9.11.13 of the plugin.

--- Files modified:
    bldjid.tcl, ChangeLog.

Changes to bldjid/bldjid.tcl.
1
2
3
4
5
6
7
8
# "Bldjid" plugin for Tkabber. 2015-03-30 v. 0.9.11.13
# Written by Serge Yudin xmpp:bigote@jabber.ru
# See README or README.ru file for usage.

namespace eval bldjid {
	::msgcat::mcload [file join [file dirname [info script]] msgs]
    if {![::plugins::is_registered bldjid]} {
        ::plugins::register bldjid \
|







1
2
3
4
5
6
7
8
# "Bldjid" plugin for Tkabber. 2015-03-30 v. 0.9.11.14
# Written by Serge Yudin xmpp:bigote@jabber.ru
# See README or README.ru file for usage.

namespace eval bldjid {
	::msgcat::mcload [file join [file dirname [info script]] msgs]
    if {![::plugins::is_registered bldjid]} {
        ::plugins::register bldjid \
1488
1489
1490
1491
1492
1493
1494

1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
proc bldjid::is_any_integer {a} {
	regexp \\d+ [string trim $a]
}

# These two next procs are taken from snoopstatus.tcl and modified a bit.
proc bldjid::create_monitor_window {chatid} {
	set ccw [::chat::winid $chatid]

	set wmon $ccw.mon
	frame $wmon
	pack $wmon -side top -fill x
	text $wmon.text -state disabled -wrap word \
		-yscrollcommand [list $ccw.vsb set]
	scrollbar $ccw.vsb -command [list $wmon.text yview]

	grid $wmon.text $ccw.vsb -sticky ns
	grid $wmon.text -sticky news
	grid rowconfigure $wmon 0 -weight 1
	grid columnconfigure $wmon 0 -weight 1

	regsub -all %W [bind Text <Prior>] $wmon.text prior_binding
	regsub -all %W [bind Text <Next>] $wmon.text next_binding
	bind $ccw.input <Shift-Meta-Prior> $prior_binding
	bind $ccw.input <Shift-Meta-Next> $next_binding
	bind $ccw.input <Shift-Alt-Prior> $prior_binding
	bind $ccw.input <Shift-Alt-Next> $next_binding
	bind $ccw.input <Shift-Meta-Prior> +break
	bind $ccw.input <Shift-Meta-Next> +break
	bind $ccw.input <Shift-Alt-Prior> +break
	bind $ccw.input <Shift-Alt-Next> +break
}

proc bldjid::add_message_to_monitor {chatid body} {
	set ccw [::chat::winid $chatid]
	set t $ccw.mon.text
	if {![winfo exists $t]} return








>














|
|
|
|
|
|
|
|







1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
proc bldjid::is_any_integer {a} {
	regexp \\d+ [string trim $a]
}

# These two next procs are taken from snoopstatus.tcl and modified a bit.
proc bldjid::create_monitor_window {chatid} {
	set ccw [::chat::winid $chatid]
	set iw [chat::input_win $chatid]
	set wmon $ccw.mon
	frame $wmon
	pack $wmon -side top -fill x
	text $wmon.text -state disabled -wrap word \
		-yscrollcommand [list $ccw.vsb set]
	scrollbar $ccw.vsb -command [list $wmon.text yview]

	grid $wmon.text $ccw.vsb -sticky ns
	grid $wmon.text -sticky news
	grid rowconfigure $wmon 0 -weight 1
	grid columnconfigure $wmon 0 -weight 1

	regsub -all %W [bind Text <Prior>] $wmon.text prior_binding
	regsub -all %W [bind Text <Next>] $wmon.text next_binding
	bind $iw <Shift-Meta-Prior> $prior_binding
	bind $iw <Shift-Meta-Next> $next_binding
	bind $iw <Shift-Alt-Prior> $prior_binding
	bind $iw <Shift-Alt-Next> $next_binding
	bind $iw <Shift-Meta-Prior> +break
	bind $iw <Shift-Meta-Next> +break
	bind $iw <Shift-Alt-Prior> +break
	bind $iw <Shift-Alt-Next> +break
}

proc bldjid::add_message_to_monitor {chatid body} {
	set ccw [::chat::winid $chatid]
	set t $ccw.mon.text
	if {![winfo exists $t]} return

Changes to bldjid2/Changelog.











1
2
3
4
5
6
7











2015-03-30  Sergei Golovan  <xmpp:sgolovan@nes.ru> <mailto:sgolovan@nes.ru>

--- Version 0.1.0.2 of the plugin.

--- Files modified:
	bldjid2.tcl, ChangeLog.

>
>
>
>
>
>
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
2015-04-14  Sergei Golovan  <xmpp:sgolovan@nes.ru> <mailto:sgolovan@nes.ru>

--- Version 0.1.0.3 of the plugin.

--- Files modified:
	bldjid2.tcl, ChangeLog.

--- Description:
	bldjid2.tcl:
	Use [chat::input_win] procedure to get chat input widget.

2015-03-30  Sergei Golovan  <xmpp:sgolovan@nes.ru> <mailto:sgolovan@nes.ru>

--- Version 0.1.0.2 of the plugin.

--- Files modified:
	bldjid2.tcl, ChangeLog.

Changes to bldjid2/bldjid2.tcl.
1
2
3
4
5
6
7
8
# "Bldjid2" plugin for Tkabber. 2015-03-30 v. 0.1.0.2
# Written by Serge Yudin xmpp:bigote@jabber.ru
# See README or README.ru file for usage.

namespace eval bldjid2 {
    ::msgcat::mcload [file join [file dirname [info script]] msgs]
    if {![::plugins::is_registered bldjid2]} {
	::plugins::register bldjid2 \
|







1
2
3
4
5
6
7
8
# "Bldjid2" plugin for Tkabber. 2015-03-30 v. 0.1.0.3
# Written by Serge Yudin xmpp:bigote@jabber.ru
# See README or README.ru file for usage.

namespace eval bldjid2 {
    ::msgcat::mcload [file join [file dirname [info script]] msgs]
    if {![::plugins::is_registered bldjid2]} {
	::plugins::register bldjid2 \
1161
1162
1163
1164
1165
1166
1167

1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
proc bldjid2::is_any_integer {a} {
    regexp \\d+ [string trim $a]
}

# These two next procs are taken from snoopstatus.tcl and modified a bit.
proc bldjid2::create_monitor_window {chatid} {
    set ccw [::chat::winid $chatid]

    set wmon $ccw.mon
    frame $wmon
    pack $wmon -side top -fill x
    text $wmon.text -state disabled -wrap word \
	-yscrollcommand [list $ccw.vsb set]
    scrollbar $ccw.vsb -command [list $wmon.text yview]

    grid $wmon.text $ccw.vsb -sticky ns
    grid $wmon.text -sticky news
    grid rowconfigure $wmon 0 -weight 1
    grid columnconfigure $wmon 0 -weight 1

    regsub -all %W [bind Text <Prior>] $wmon.text prior_binding
    regsub -all %W [bind Text <Next>] $wmon.text next_binding
    bind $ccw.input <Shift-Meta-Prior> $prior_binding
    bind $ccw.input <Shift-Meta-Next> $next_binding
    bind $ccw.input <Shift-Alt-Prior> $prior_binding
    bind $ccw.input <Shift-Alt-Next> $next_binding
    bind $ccw.input <Shift-Meta-Prior> +break
    bind $ccw.input <Shift-Meta-Next> +break
    bind $ccw.input <Shift-Alt-Prior> +break
    bind $ccw.input <Shift-Alt-Next> +break
}

proc bldjid2::add_message_to_monitor {chatid body} {
    set ccw [::chat::winid $chatid]
    set t $ccw.mon.text
    if {![winfo exists $t]} return








>














|
|
|
|
|
|
|
|







1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
proc bldjid2::is_any_integer {a} {
    regexp \\d+ [string trim $a]
}

# These two next procs are taken from snoopstatus.tcl and modified a bit.
proc bldjid2::create_monitor_window {chatid} {
    set ccw [::chat::winid $chatid]
    set iw [::chat::input_win $chatid]
    set wmon $ccw.mon
    frame $wmon
    pack $wmon -side top -fill x
    text $wmon.text -state disabled -wrap word \
	-yscrollcommand [list $ccw.vsb set]
    scrollbar $ccw.vsb -command [list $wmon.text yview]

    grid $wmon.text $ccw.vsb -sticky ns
    grid $wmon.text -sticky news
    grid rowconfigure $wmon 0 -weight 1
    grid columnconfigure $wmon 0 -weight 1

    regsub -all %W [bind Text <Prior>] $wmon.text prior_binding
    regsub -all %W [bind Text <Next>] $wmon.text next_binding
    bind $iw <Shift-Meta-Prior> $prior_binding
    bind $iw <Shift-Meta-Next> $next_binding
    bind $iw <Shift-Alt-Prior> $prior_binding
    bind $iw <Shift-Alt-Next> $next_binding
    bind $iw <Shift-Meta-Prior> +break
    bind $iw <Shift-Meta-Next> +break
    bind $iw <Shift-Alt-Prior> +break
    bind $iw <Shift-Alt-Next> +break
}

proc bldjid2::add_message_to_monitor {chatid body} {
    set ccw [::chat::winid $chatid]
    set t $ccw.mon.text
    if {![winfo exists $t]} return