git-gui/lib/about.tcl

   1 # git-gui about git-gui dialog
   2 # Copyright (C) 2006, 2007 Shawn Pearce
   3
   4 proc do_about {} {
   5         global appvers copyright oguilib
   6         global tcl_patchLevel tk_patchLevel
   7
   8         set w .about_dialog
   9         toplevel $w
  10         wm geometry $w "+[winfo rootx .]+[winfo rooty .]"
  11
  12         pack [git_logo $w.git_logo] -side left -fill y -padx 10 -pady 10
  13         label $w.header -text [mc "About %s" [appname]] \
  14                 -font font_uibold
  15         pack $w.header -side top -fill x
  16
  17         frame $w.buttons
  18         button $w.buttons.close -text {Close} \
  19                 -default active \
  20                 -command [list destroy $w]
  21         pack $w.buttons.close -side right
  22         pack $w.buttons -side bottom -fill x -pady 10 -padx 10
  23
  24         label $w.desc \
  25                 -text "[mc "git-gui - a graphical user interface for Git."]\n$copyright" \
  26                 -padx 5 -pady 5 \
  27                 -justify left \
  28                 -anchor w \
  29                 -borderwidth 1 \
  30                 -relief solid
  31         pack $w.desc -side top -fill x -padx 5 -pady 5
  32
  33         set v {}
  34         append v "git-gui version $appvers\n"
  35         append v "[git version]\n"
  36         append v "\n"
  37         if {$tcl_patchLevel eq $tk_patchLevel} {
  38                 append v "Tcl/Tk version $tcl_patchLevel"
  39         } else {
  40                 append v "Tcl version $tcl_patchLevel"
  41                 append v ", Tk version $tk_patchLevel"
  42         }
  43
  44         set d {}
  45         append d "git wrapper: $::_git\n"
  46         append d "git exec dir: [gitexec]\n"
  47         append d "git-gui lib: $oguilib"
  48
  49         label $w.vers \
  50                 -text $v \
  51                 -padx 5 -pady 5 \
  52                 -justify left \
  53                 -anchor w \
  54                 -borderwidth 1 \
  55                 -relief solid
  56         pack $w.vers -side top -fill x -padx 5 -pady 5
  57
  58         label $w.dirs \
  59                 -text $d \
  60                 -padx 5 -pady 5 \
  61                 -justify left \
  62                 -anchor w \
  63                 -borderwidth 1 \
  64                 -relief solid
  65         pack $w.dirs -side top -fill x -padx 5 -pady 5
  66
  67         menu $w.ctxm -tearoff 0
  68         $w.ctxm add command \
  69                 -label {Copy} \
  70                 -command "
  71                 clipboard clear
  72                 clipboard append -format STRING -type STRING -- \[$w.vers cget -text\]
  73         "
  74
  75         bind $w <Visibility> "grab $w; focus $w.buttons.close"
  76         bind $w <Key-Escape> "destroy $w"
  77         bind $w <Key-Return> "destroy $w"
  78         bind_button3 $w.vers "tk_popup $w.ctxm %X %Y; grab $w; focus $w"
  79         wm title $w "About [appname]"
  80         tkwait window $w
  81 }