Bwidget Source Code
Check-in [5cd9b4a28c]
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:When the selected item is changed, the selection is now set to the entire string.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 5cd9b4a28c543ddcefe1a38e0a4579e00f23fef4
User & Date: sven 1999-12-14 20:12:09
Context
1999-12-23
19:30
I added an "update idletask" to the scrollbar update. This prevents the loss of update events. It used to be that under certain circumstances in Author the set command did not get processed (changing the content of a text widget after doing a raise of the notebook). check-in: d8fdc9e35e user: sven tags: trunk
1999-12-14
20:12
When the selected item is changed, the selection is now set to the entire string. check-in: 5cd9b4a28c user: sven tags: trunk
00:43
* buttonbox.tcl: Added a getbuttonstate function, which retrieves the value of a tag used on a button in the buttonbox. check-in: fd83364dae user: ericm tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to combobox.tcl.

1
2
3
4
5
6
7
8
9
10
11
...
345
346
347
348
349
350
351


352
353
354
355
356
357
358
# ------------------------------------------------------------------------------
#  combobox.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: combobox.tcl,v 1.3 1999/12/08 15:51:07 ericm Exp $
# ------------------------------------------------------------------------------
#  Index of commands:
#     - ComboBox::create
#     - ComboBox::configure
#     - ComboBox::cget
#     - ComboBox::setvalue
#     - ComboBox::getvalue
................................................................................
    if { $index != -1 } {
        if { [setvalue $path @$index] } {
            if { [set cmd [Widget::getoption $path -modifycmd]] != "" } {
                uplevel \#0 $cmd
            }
        }
    }


    return -code break
}


# ------------------------------------------------------------------------------
#  Command ComboBox::_modify_value
# ------------------------------------------------------------------------------


|







 







>
>







1
2
3
4
5
6
7
8
9
10
11
...
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
# ------------------------------------------------------------------------------
#  combobox.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: combobox.tcl,v 1.4 1999/12/14 20:12:09 sven Exp $
# ------------------------------------------------------------------------------
#  Index of commands:
#     - ComboBox::create
#     - ComboBox::configure
#     - ComboBox::cget
#     - ComboBox::setvalue
#     - ComboBox::getvalue
................................................................................
    if { $index != -1 } {
        if { [setvalue $path @$index] } {
            if { [set cmd [Widget::getoption $path -modifycmd]] != "" } {
                uplevel \#0 $cmd
            }
        }
    }
    $path.e selection clear
    $path.e selection range 0 end
    return -code break
}


# ------------------------------------------------------------------------------
#  Command ComboBox::_modify_value
# ------------------------------------------------------------------------------