Fix for [7304daadc1]: Treeview item expanding only on double click when using custom Treeitem.indicator.

Author: csaba

library/ttk/treeview.tcl

@@ -826,7 +826,7 @@ proc ::ttk::treeview::DoubleClick {w x y} {
 	set element [$w identify element $x $y]
 	if {$item eq ""} return
 
-	if {$element eq "Treeitem.indicator"} {
+	if {[string match "*Treeitem.indicator" $element]} {
 	    ToggleOpenState $w $item
 	} elseif {[info procs ActivateItem] ne ""} {
 	    ActivateHandler $w $item $column
@@ -986,12 +986,12 @@ proc ::ttk::treeview::Press {w x y} {
 	heading { Heading.press $w $x $y }
 	separator { Resize.press $w $x $y }
 	tree {
-	    switch -- [$w identify element $x $y] {
-		Treeitem.indicator {
+	    switch -glob -- [$w identify element $x $y] {
+		*Treeitem.indicator {
 		    ToggleOpenState $w [$w identify item $x $y]
 		}
-		Checkbutton.button -
-		Checkbutton.indicator { ToggleSelected $w $x $y }
+		*Checkbutton.button -
+		*Checkbutton.indicator { ToggleSelected $w $x $y }
 		default { Select.press $w $x $y }
 	    }
 	}
@@ -1403,7 +1403,7 @@ proc ::ttk::treeview::CloseItem {w item} {
 #
 proc ::ttk::treeview::ToggleOpenState {w item} {
     # don't allow toggling on indicators that
-    # are not present in front of leaf items
+    # are present in front of leaf items
     if {![$w haschildren $item]} {
 	return
     }