From b123a008cd0f7dddb96ffd29d674269a01daf423 Mon Sep 17 00:00:00 2001
From: Nicolas Gabriel Bechstedt <bechstedt@tugraz.at>
Date: Sat, 31 May 2025 17:44:55 +0200
Subject: [PATCH] add right padding in Combobox to ensure the text does not get
 rendered on top of the arrow

---
 theme/dark.tcl  | 2 ++
 theme/light.tcl | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/theme/dark.tcl b/theme/dark.tcl
index 333e53d..31c29db 100644
--- a/theme/dark.tcl
+++ b/theme/dark.tcl
@@ -128,6 +128,8 @@ namespace eval ttk::theme::azure-dark {
             }
         }
 
+        ttk::style configure TCombobox -padding {0 0 15 0}
+
         ttk::style layout TSpinbox {
             Spinbox.field -sticky nsew -children {
                 Spinbox.padding -expand true -sticky nswe -children {
diff --git a/theme/light.tcl b/theme/light.tcl
index 29bdb03..301ef75 100644
--- a/theme/light.tcl
+++ b/theme/light.tcl
@@ -128,6 +128,8 @@ namespace eval ttk::theme::azure-light {
             }
         }
         
+        ttk::style configure TCombobox -padding {0 0 15 0}
+
         ttk::style layout TSpinbox {
             Spinbox.field -sticky nsew -children {
                 Spinbox.padding -expand true -sticky nswe -children {