Bwidget Source Code
Check-in [a1671d7ee7]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:* combobox.tcl (ComboBox::_select) Do not export selection if -exportselection 0 [Patch 981545] by Jeffrey Hobbs
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: a1671d7ee7f03de08ce62ee6b49ee0ee9afa12dc
User & Date: oehhar 2009-07-07 17:28:14
Context
2009-07-14
15:24
* dynhelp.tcl (DynamicHelp::_leave_info et al) issues: - menu help sometimes not cleared when clicking off-window (unix) - "-helpcmd" available also when dynamichelp is included in another widget. - given "-helpcmd" always called at global scope. - Protect against multiple calls of <Leave> event. [Patch 2820851] by Koen Danckaert check-in: c991d05924 user: oehhar tags: trunk
2009-07-07
17:28
* combobox.tcl (ComboBox::_select) Do not export selection if -exportselection 0 [Patch 981545] by Jeffrey Hobbs check-in: a1671d7ee7 user: oehhar tags: trunk
2009-07-02
16:22
* widget.tcl (Widget::configure) Bug: ProgressDlg option -geometry not setable. The former patch was improved. Koen Danckaert and myself argued, that we modify symptoms without basic understandings. Anyway, better now than before. check-in: 3764a95a26 user: oehhar tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.






1
2
3
4
5
6
7




2009-07-02 Harald Oehlmann  <[email protected]>

	* widget.tcl (Widget::configure) Bug: ProgressDlg option -geometry
	not setable. The former patch was improved.
	Koen Danckaert and myself argued, that we modify symptoms without
	basic understandings. Anyway, better now than before.

>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
2009-07-07 Harald Oehlmann  <[email protected]>

	* combobox.tcl (ComboBox::_select) Do not export selection if
	-exportselection 0 [Patch 981545] by Jeffrey Hobbs

2009-07-02 Harald Oehlmann  <[email protected]>

	* widget.tcl (Widget::configure) Bug: ProgressDlg option -geometry
	not setable. The former patch was improved.
	Koen Danckaert and myself argued, that we modify symptoms without
	basic understandings. Anyway, better now than before.

Changes to combobox.tcl.

1
2
3
4
5
6
7
8
9
10
11
...
673
674
675
676
677
678
679
680
681
682
683

684
685
686
687
688
689
690
# ----------------------------------------------------------------------------
#  combobox.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: combobox.tcl,v 1.41 2009/07/01 14:41:30 oehhar Exp $
# ----------------------------------------------------------------------------
#  Index of commands:
#     - ComboBox::create
#     - ComboBox::configure
#     - ComboBox::cget
#     - ComboBox::setvalue
#     - ComboBox::getvalue
................................................................................
	    set cmd [Widget::getMegawidgetOption $path -modifycmd]
            if {[llength $cmd]} {
                uplevel \#0 $cmd
            }
        }
    }
    $path.e selection clear
    # Changes proposed in tcllib patch 981545 - not activated - works for me
    #if {[$path.e cget -exportselection]} {
        $path.e selection range 0 end
    #}

}


# ----------------------------------------------------------------------------
#  Command ComboBox::_modify_value
# ----------------------------------------------------------------------------
proc ComboBox::_modify_value { path direction } {


|







 







<
|

<
>







1
2
3
4
5
6
7
8
9
10
11
...
673
674
675
676
677
678
679

680
681

682
683
684
685
686
687
688
689
# ----------------------------------------------------------------------------
#  combobox.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: combobox.tcl,v 1.42 2009/07/07 17:28:14 oehhar Exp $
# ----------------------------------------------------------------------------
#  Index of commands:
#     - ComboBox::create
#     - ComboBox::configure
#     - ComboBox::cget
#     - ComboBox::setvalue
#     - ComboBox::getvalue
................................................................................
	    set cmd [Widget::getMegawidgetOption $path -modifycmd]
            if {[llength $cmd]} {
                uplevel \#0 $cmd
            }
        }
    }
    $path.e selection clear

    if {[$path.e cget -exportselection]} {
        $path.e selection range 0 end

    }
}


# ----------------------------------------------------------------------------
#  Command ComboBox::_modify_value
# ----------------------------------------------------------------------------
proc ComboBox::_modify_value { path direction } {