summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--library/ttk/combobox.tcl7
1 files changed, 5 insertions, 2 deletions
diff --git a/library/ttk/combobox.tcl b/library/ttk/combobox.tcl
index eab3e1a..03821a2 100644
--- a/library/ttk/combobox.tcl
+++ b/library/ttk/combobox.tcl
@@ -112,9 +112,12 @@ switch -- [tk windowingsystem] {
#
proc ttk::combobox::Press {mode w x y} {
variable State
+
+ $w instate disabled { return }
+
set State(entryPress) [expr {
- [$w instate {!readonly !disabled}]
- && [string match *textarea [$w identify $x $y]]
+ [$w instate !readonly]
+ && [string match *textarea [$w identify element $x $y]]
}]
focus $w