add Text option

rdbende · Oct 15, 2023 · cffa8ae · cffa8ae
1 parent ea91020
commit cffa8ae
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 9 deletions.
diff --git a/sv_ttk/theme/dark.tcl b/sv_ttk/theme/dark.tcl
@@ -24,7 +24,6 @@ namespace eval ttk::theme::sv_dark {
   load_images [file join [file dirname [info script]] spritesheet_dark.png]
 
   ttk::style theme create sun-valley-dark -parent clam -settings {
-
     # Button
     ttk::style layout TButton {
       Button.button -children {
@@ -58,7 +57,7 @@ namespace eval ttk::theme::sv_dark {
     }
 
     ttk::style configure Toolbutton -padding {8 2 8 3} -anchor center
-    
+
     ttk::style element create Toolbutton.button image \
       [list $I(empty) \
         disabled $I(button-dis) \
@@ -278,7 +277,7 @@ namespace eval ttk::theme::sv_dark {
         }
       }
     }
-        
+
     ttk::style configure TCombobox -foreground $colors(-fg) -padding {6 1 0 2}
     ttk::style configure ComboboxPopdownFrame -borderwidth 1 -relief solid
     ttk::style map TCombobox -foreground [list disabled "#757575" pressed "#cfcfcf"]
@@ -305,7 +304,7 @@ namespace eval ttk::theme::sv_dark {
         {focus !invalid} $I(textbox-focus) \
         hover $I(textbox-hover) \
       ] -border 5
-        
+
     ttk::style element create Combobox.arrow image $I(down) -width 34 -sticky {}
 
     # Spinbox
@@ -431,6 +430,9 @@ namespace eval ttk::theme::sv_dark {
         active $I(tab-hover) \
       ] -border 13 -padding {16 14 16 6} -height 32
 
+    # Text
+    option add *Text.highlightThickness 0
+
     # Treeview
     ttk::style configure Heading -font SunValleyCaptionFont
     ttk::style configure Treeview \
@@ -453,7 +455,6 @@ namespace eval ttk::theme::sv_dark {
         user2 $I(empty) \
         user1 $I(down) \
       ] -width 26 -sticky {}
-
     # Panedwindow
     ttk::style configure Sash \
       -lightcolor "#9e9e9e" \
@@ -462,4 +463,4 @@ namespace eval ttk::theme::sv_dark {
       -sashthickness 4 \
       -gripcount 20
   }
-}
+}
diff --git a/sv_ttk/theme/light.tcl b/sv_ttk/theme/light.tcl
@@ -24,7 +24,6 @@ namespace eval ttk::theme::sv_light {
   load_images [file join [file dirname [info script]] spritesheet_light.png]
 
   ttk::style theme create sun-valley-light -parent clam -settings {
-
     # Button
     ttk::style layout TButton {
       Button.button -children {
@@ -58,7 +57,7 @@ namespace eval ttk::theme::sv_light {
     }
 
     ttk::style configure Toolbutton -padding {8 2 8 3} -anchor center
-    
+
     ttk::style element create Toolbutton.button image \
       [list $I(empty) \
         disabled $I(button-dis) \
@@ -283,7 +282,7 @@ namespace eval ttk::theme::sv_light {
     ttk::style configure TCombobox -foreground $colors(-fg) -padding {6 1 0 2}
     ttk::style configure ComboboxPopdownFrame -borderwidth 1 -relief solid
     ttk::style map TCombobox -foreground [list disabled $colors(-disfg) pressed "#636363" active "#626262"]
-    
+
     ttk::style map TCombobox -selectbackground [list \
       {readonly hover} $colors(-selbg) \
       {readonly focus} $colors(-selbg) \
@@ -436,6 +435,9 @@ namespace eval ttk::theme::sv_light {
         active $I(tab-hover) \
       ] -border 13 -padding {16 14 16 6} -height 32
 
+    # Text
+    option add *Text.highlightThickness 0
+
     # Treeview
     ttk::style configure Heading -font SunValleyCaptionFont
     ttk::style configure Treeview \