Tkabber

Check-in [7fef16eb59]
Login

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

Overview
Comment:Fixed sending the text status selected in the corresponding combobox.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 7fef16eb594abc8bdb0d4616e72e3d4ecdc50a66
User & Date: sgolovan 2016-01-24 09:18:22
Context
2016-01-25
10:50
Fixed the attached users dialogs clash. check-in: 3b4cf2fc81 user: sgolovan tags: trunk
2016-01-24
09:18
Fixed sending the text status selected in the corresponding combobox. check-in: 7fef16eb59 user: sgolovan tags: trunk
2016-01-16
12:54
Don't clean-up the checkbuttons variable before constructing the dialog. This helps to set some checkbuttons in advance by default. Fixed disabling the ecryption in a groupchat after enabling it there. check-in: a401166e10 user: sgolovan tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.






1
2
3
4
5
6
7





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

	* utils.tcl: Don't clean-up the checkbuttons variable before
	  constructing the dialog. This helps to set some checkbuttons in
	  advance by default.

	* plugins/general/gpgme.tcl: Fixed disabling the ecryption in a
>
>
>
>
>







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

	* ifacetk/iface.tcl, tk/bwidget.tcl: Fixed sending the text status
	  selected in the corresponding combobox.

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

	* utils.tcl: Don't clean-up the checkbuttons variable before
	  constructing the dialog. This helps to set some checkbuttons in
	  advance by default.

	* plugins/general/gpgme.tcl: Fixed disabling the ecryption in a

Changes to ifacetk/iface.tcl.

785
786
787
788
789
790
791
792

793
794
795
796
797
798
799
800
                                -textvariable userstatusdesc \
                                -direction above \
                                -width $ww

    disallow_presence_change ""

    set w .presence.status
    Combobox $w -textvariable textstatus -values $status_history

    bind $w <Return> [double% {set userstatus $userstatus}]
    trace variable ::userstatus w \
        [list [namespace current]::save_availability_status $w]
    bind $w <<ContextMenu>> \
            [list [namespace current]::show_status_context_menu [double% $w]]
    catch { bind $w.e <<ContextMenu>> [bind $w <<ContextMenu>>] }
    if {$usetabbar} {
        pack .presence.button -side left







|
>
|







785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
                                -textvariable userstatusdesc \
                                -direction above \
                                -width $ww

    disallow_presence_change ""

    set w .presence.status
    Combobox $w -textvariable textstatus \
                -values $status_history \
                -command {set userstatus $userstatus}
    trace variable ::userstatus w \
        [list [namespace current]::save_availability_status $w]
    bind $w <<ContextMenu>> \
            [list [namespace current]::show_status_context_menu [double% $w]]
    catch { bind $w.e <<ContextMenu>> [bind $w <<ContextMenu>>] }
    if {$usetabbar} {
        pack .presence.button -side left

Changes to tk/bwidget.tcl.

308
309
310
311
312
313
314

315

316
317
318


319





320
321
322

323
324


325
326
327
328
329
330
331

rename ComboBox::create ComboBox::create_old

proc ComboBox::create {path args} {
    entry .fake_entry
    set hlthick [lindex [.fake_entry configure -highlightthickness] 4]
    destroy .fake_entry

    foreach {opt arg} $args {

        if {$opt eq "-highlightthickness"} {
            set hlthick $arg
        }


    }





    ComboBox::create_old $path {*}$args -highlightthickness 0
    $path:cmd configure -highlightthickness $hlthick


    proc ::$path {cmd args} "ComboBox::_proc $path \$cmd {*}\$args"



    return $path
}

proc ComboBox::_proc {path cmd args} {
    switch -- $cmd {
        set {
            return [_set $path [lindex $args 0]]







>

>
|
|
|
>
>
|
>
>
>
>
>
|


>
|
|
>
>







308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343

rename ComboBox::create ComboBox::create_old

proc ComboBox::create {path args} {
    entry .fake_entry
    set hlthick [lindex [.fake_entry configure -highlightthickness] 4]
    destroy .fake_entry
    set newargs {}
    foreach {opt arg} $args {
        switch -- $opt {
            -highlightthickness {
                set hlthick $arg
            }
            -command {
                set cmd $arg
            }
            default {
                lappend newargs $opt $arg
            }
        }
    }
    ComboBox::create_old $path {*}$newargs -highlightthickness 0
    $path:cmd configure -highlightthickness $hlthick

    if {[info exists cmd]} {
        ::bind $path.e <Return> [double% $cmd]
    }

    proc ::$path {cmd args} "ComboBox::_proc $path \$cmd {*}\$args"
    return $path
}

proc ComboBox::_proc {path cmd args} {
    switch -- $cmd {
        set {
            return [_set $path [lindex $args 0]]