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: |
255ae6d144ddb280feef34794c292c14 |
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
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.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 | 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 | > | | | | | | | | | 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.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 | 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 | > | | | | | | | | | 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 |
︙ | ︙ |