Added focus element to Toolbutton style, as proposed by Emiliano Gavi…

…lan in ticket [0d48797195].
tcltk · Aug 2, 2024 · 5a9b955 · 5a9b955
1 parent f0d3c91
commit 5a9b955
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 4 deletions.
diff --git a/library/ttk/classicTheme.tcl b/library/ttk/classicTheme.tcl
@@ -111,7 +111,17 @@ namespace eval ttk::theme::classic {
 	#
 	# Toolbar buttons:
 	#
-	ttk::style configure Toolbutton -padding 2 -relief flat -shiftrelief 2
+	ttk::style layout Toolbutton {
+	    Toolbutton.focus -children {
+		Toolbutton.border -children {
+		    Toolbutton.padding -children {
+			Toolbutton.label
+		    }
+		}
+	    }
+	}
+	ttk::style configure Toolbutton -padding 2 -relief flat \
+	    -shiftrelief 2 -focussolid 1
 	ttk::style map Toolbutton -relief \
 	    {disabled flat selected sunken pressed sunken active raised}
 	ttk::style map Toolbutton -background \

diff --git a/library/ttk/defaults.tcl b/library/ttk/defaults.tcl
@@ -134,12 +134,13 @@ namespace eval ttk::theme::default {
 	#
 	ttk::style layout Toolbutton {
 	    Toolbutton.border -children {
-		Toolbutton.padding -children {
-		    Toolbutton.label
+		Toolbutton.focus -children {
+		    Toolbutton.padding -children {
+			Toolbutton.label
+		    }
 		}
 	    }
 	}
-
 	ttk::style configure Toolbutton \
 	    -padding 2 -relief flat
 	ttk::style map Toolbutton -relief \