mirror of
https://github.com/git/git.git
synced 2026-01-21 08:00:54 +00:00
13fa626e24
"Question?" is maybe not the most informative thing to ask. In the absence of better information, it is the best we can do, of course. However, Git for Windows' auto updater just learned the trick to use git-gui--askyesno to ask the user whether to update now or not. And in this scripted scenario, we can easily pass a command-line option to change the window title. So let's support that with the new `--title <title>` option. Signed-off-by: Johannes Schindelin <johannes.schindelin@gmx.de>
57 lines
1.2 KiB
Tcl
Executable File
57 lines
1.2 KiB
Tcl
Executable File
#!/bin/sh
|
|
# Tcl ignores the next line -*- tcl -*- \
|
|
exec wish "$0" -- "$@"
|
|
|
|
# This is an implementation of a simple yes no dialog
|
|
# which is injected into the git commandline by git gui
|
|
# in case a yesno question needs to be answered.
|
|
|
|
set NS {}
|
|
set use_ttk [package vsatisfies [package provide Tk] 8.5]
|
|
if {$use_ttk} {
|
|
set NS ttk
|
|
}
|
|
|
|
set title "Question?"
|
|
if {$argc < 1} {
|
|
puts stderr "Usage: $argv0 <question>"
|
|
exit 1
|
|
} else {
|
|
if {$argc > 2 && [lindex $argv 0] == "--title"} {
|
|
set title [lindex $argv 1]
|
|
set argv [lreplace $argv 0 1]
|
|
}
|
|
set prompt [join $argv " "]
|
|
}
|
|
|
|
${NS}::frame .t
|
|
${NS}::label .t.m -text $prompt -justify center -width 400px
|
|
.t.m configure -wraplength 400px
|
|
pack .t.m -side top -fill x -padx 20 -pady 20 -expand 1
|
|
pack .t -side top -fill x -ipadx 20 -ipady 20 -expand 1
|
|
|
|
${NS}::frame .b
|
|
${NS}::frame .b.left -width 200
|
|
${NS}::button .b.yes -text Yes -command yes
|
|
${NS}::button .b.no -text No -command no
|
|
|
|
|
|
pack .b.left -side left -expand 1 -fill x
|
|
pack .b.yes -side left -expand 1
|
|
pack .b.no -side right -expand 1 -ipadx 5
|
|
pack .b -side bottom -fill x -ipadx 20 -ipady 15
|
|
|
|
bind . <Key-Return> {exit 0}
|
|
bind . <Key-Escape> {exit 1}
|
|
|
|
proc no {} {
|
|
exit 1
|
|
}
|
|
|
|
proc yes {} {
|
|
exit 0
|
|
}
|
|
|
|
wm title . $title
|
|
tk::PlaceWindow .
|