gitk: set minimum size on configuration dialog

gitk sets no size limit on its configuration dialog, allowing the user
to collapse the window so almost nothing is visible. The geometry
manager sets an initial size so all the widgets are visible, though
ignores the potentially very long text in the entry widgets in doing so.
Let's use this initial size as the minimum. The size information is
computed in Tk's idle processing queue, so a wait is required.

Signed-off-by: Mark Levedahl <mlevedahl@gmail.com>
main^2^2
Mark Levedahl 2025-10-04 09:57:18 -04:00
parent 8e65d38064
commit 6565ca8220
1 changed files with 4 additions and 0 deletions

4
gitk
View File

@ -11894,6 +11894,10 @@ proc doprefs {} {
grid $top.buts.ok $top.buts.can -padx 20
grid $top.buts -sticky w -pady 10
bind $top <Visibility> [list focus $top.buts.ok]

# let geometry manager determine run, set minimum size
update idletasks
wm minsize $top [winfo reqwidth $top] [winfo reqheight $top]
}

proc choose_extdiff {} {