git-gui/git-gui--askyesno

   1 #!/bin/sh
   2 # Tcl ignores the next line -*- tcl -*- \
   3 exec wish "$0" -- "$@"
   4
   5 # This is an implementation of a simple yes no dialog
   6 # which is injected into the git commandline by git gui
   7 # in case a yesno question needs to be answered.
   8
   9 set NS {}
  10 set use_ttk [package vsatisfies [package provide Tk] 8.5]
  11 if {$use_ttk} {
  12         set NS ttk
  13 }
  14
  15 if {$argc < 1} {
  16         puts stderr "Usage: $argv0 <question>"
  17         exit 1
  18 } else {
  19         set prompt [join $argv " "]
  20 }
  21
  22 ${NS}::frame .t
  23 ${NS}::label .t.m -text $prompt -justify center -width 40
  24 .t.m configure -wraplength 400
  25 pack .t.m -side top -fill x -padx 20 -pady 20 -expand 1
  26 pack .t -side top -fill x -ipadx 20 -ipady 20 -expand 1
  27
  28 ${NS}::frame .b
  29 ${NS}::frame .b.left -width 200
  30 ${NS}::button .b.yes -text Yes -command yes
  31 ${NS}::button .b.no  -text No  -command no
  32
  33
  34 pack .b.left -side left -expand 1 -fill x
  35 pack .b.yes -side left -expand 1
  36 pack .b.no -side right -expand 1 -ipadx 5
  37 pack .b -side bottom -fill x -ipadx 20 -ipady 15
  38
  39 bind . <Key-Return> {exit 0}
  40 bind . <Key-Escape> {exit 1}
  41
  42 proc no {} {
  43         exit 1
  44 }
  45
  46 proc yes {} {
  47         exit 0
  48 }
  49
  50 wm title . "Question?"
  51 tk::PlaceWindow .