diff options
| author | Mark Levedahl <mlevedahl@gmail.com> | 2024-02-16 18:24:06 -0500 |
|---|---|---|
| committer | Mark Levedahl <mlevedahl@gmail.com> | 2025-07-18 23:48:34 -0400 |
| commit | 4e3369f0f6125ad58986170b92530e9eff9fbc97 (patch) | |
| tree | e15fd821e8d436038e1968ee05b6ef49a7ed1ffd /lib/sshkey.tcl | |
| parent | ed73388f538d681e1da5c9be9d02b7f17a5e4e57 (diff) | |
| download | git-4e3369f0f6125ad58986170b92530e9eff9fbc97.tar.xz | |
git-gui: remove unreachable Tk 8.4 code
git-gui has remnant code to allow some drawing with Tk 8.4 predating the
addition of themed widgets. As git-gui requires Tk >= 8.6, this code can
never trigger. Remove it.
Signed-off-by: Mark Levedahl <mlevedahl@gmail.com>
Diffstat (limited to 'lib/sshkey.tcl')
| -rw-r--r-- | lib/sshkey.tcl | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lib/sshkey.tcl b/lib/sshkey.tcl index c3e681b899..507e1f797e 100644 --- a/lib/sshkey.tcl +++ b/lib/sshkey.tcl @@ -18,7 +18,7 @@ proc find_ssh_key {} { } proc do_ssh_key {} { - global sshkey_title have_tk85 sshkey_fd use_ttk NS + global sshkey_title sshkey_fd use_ttk NS set w .sshkey_dialog if {[winfo exists $w]} { @@ -48,11 +48,9 @@ proc do_ssh_key {} { text $w.contents -width 60 -height 10 -wrap char -relief sunken pack $w.contents -fill both -expand 1 - if {$have_tk85} { - set clr darkblue - if {$use_ttk} { set clr [ttk::style lookup . -selectbackground] } - $w.contents configure -inactiveselectbackground $clr - } + set clr darkblue + if {$use_ttk} { set clr [ttk::style lookup . -selectbackground] } + $w.contents configure -inactiveselectbackground $clr ${NS}::frame $w.buttons ${NS}::button $w.buttons.close -text [mc Close] \ |