gitk: Legacy widgets doesn't have combobox
Use "proc makedroplist" function to support combobox on legacy widgets mode. "proc makedroplist" uses "ttk::combobox" for themed mode, and uses "tk_optionMenu" for legacy mode to get rid of the problem. Signed-off-by: YOKOTA Hiroshi <yokota.hgml@gmail.com> Signed-off-by: Johannes Sixt <j6t@kdbg.org>
YOKOTA Hiroshi committed
May 5, 2025 at 02:57 UTC
daa364cfb7a1cda324ec5c5cdaf92bcad429cfbd
1 file changed
+2
-4
gitk
+2
-4
@@ -11736,13 +11736,11 @@ proc prefspage_general {notebook} {
11736
grid x $page.tabstopl $page.tabstop -sticky w
11737
11738
${NS}::label $page.wrapcommentl -text [mc "Wrap comment text"]
11739
- ${NS}::combobox $page.wrapcomment -values {none char word} -state readonly \
11740
- -textvariable wrapcomment
11739
+ makedroplist $page.wrapcomment wrapcomment none char word
11740
grid x $page.wrapcommentl $page.wrapcomment -sticky w
11741
11742
${NS}::label $page.wrapdefaultl -text [mc "Wrap other text"]
11744
- ${NS}::combobox $page.wrapdefault -values {none char word} -state readonly \
11745
- -textvariable wrapdefault
11743
+ makedroplist $page.wrapdefault wrapdefault none char word
11744
grid x $page.wrapdefaultl $page.wrapdefault -sticky w
11745
11746
${NS}::checkbutton $page.ntag -text [mc "Display nearby tags/heads"] \