0e8243a355
* 'master' of https://github.com/j6t/git-gui: (26 commits)
git-gui: eliminate _search_exe
git-gui: remove procs gitexec and _git_cmd
git-gui: use dashless 'git cmd' form for read/write
git-gui: default to full copy for linked worktrees
git-gui: use git-clone
git-gui: remove non-ttk code
git-gui: remove ${NS} indirection for ttk
git-gui: always use themed widgets from ttk
git-gui: remove redundant check for Tk >= 8.5
git-gui: remove unreachable Tk 8.4 code
git-gui: remove unused git-version
git-gui: use git_init to create new repository dir
git-gui: git-remote is always available
git-gui: git merge understands --strategy=recursive
git-gui: git-diff knows submodules and textconv
git-gui: git-blame understands -w and textconv
git-gui: git rev-parse knows show_toplevel
git-gui: use git-branch --show-current
git-gui: git-diff-index always knows submodules
git-gui: git ls-files knows --exclude-standard
...
71 lines
1.9 KiB
Tcl
71 lines
1.9 KiB
Tcl
# git-gui about git-gui dialog
|
|
# Copyright (C) 2006, 2007 Shawn Pearce
|
|
|
|
proc do_about {} {
|
|
global appvers copyright oguilib
|
|
global tcl_patchLevel tk_patchLevel
|
|
global ui_comm_spell
|
|
|
|
set w .about_dialog
|
|
Dialog $w
|
|
wm geometry $w "+[winfo rootx .]+[winfo rooty .]"
|
|
|
|
pack [git_logo $w.git_logo] -side left -fill y -padx 10 -pady 10
|
|
ttk::label $w.header -text [mc "About %s" [appname]] \
|
|
-font font_uibold -anchor center
|
|
pack $w.header -side top -fill x
|
|
|
|
ttk::frame $w.buttons
|
|
ttk::button $w.buttons.close -text {Close} \
|
|
-default active \
|
|
-command [list destroy $w]
|
|
pack $w.buttons.close -side right
|
|
pack $w.buttons -side bottom -fill x -pady 10 -padx 10
|
|
|
|
paddedlabel $w.desc \
|
|
-text "[mc "git-gui - a graphical user interface for Git."]\n$copyright"
|
|
pack $w.desc -side top -fill x -padx 5 -pady 5
|
|
|
|
set v {}
|
|
append v "git-gui version $appvers\n"
|
|
append v "[git version]\n"
|
|
append v "\n"
|
|
if {$tcl_patchLevel eq $tk_patchLevel} {
|
|
append v "Tcl/Tk version $tcl_patchLevel"
|
|
} else {
|
|
append v "Tcl version $tcl_patchLevel"
|
|
append v ", Tk version $tk_patchLevel"
|
|
}
|
|
if {[info exists ui_comm_spell]
|
|
&& [$ui_comm_spell version] ne {}} {
|
|
append v "\n"
|
|
append v [$ui_comm_spell version]
|
|
}
|
|
|
|
set d {}
|
|
append d "git wrapper: $::_git\n"
|
|
append d "git exec dir: [git --exec-path]\n"
|
|
append d "git-gui lib: $oguilib"
|
|
|
|
paddedlabel $w.vers -text $v
|
|
pack $w.vers -side top -fill x -padx 5 -pady 5
|
|
|
|
paddedlabel $w.dirs -text $d
|
|
pack $w.dirs -side top -fill x -padx 5 -pady 5
|
|
|
|
menu $w.ctxm -tearoff 0
|
|
$w.ctxm add command \
|
|
-label {Copy} \
|
|
-command "
|
|
clipboard clear
|
|
clipboard append -format STRING -type STRING -- \[$w.vers cget -text\]
|
|
"
|
|
|
|
bind $w <Visibility> "grab $w; focus $w.buttons.close"
|
|
bind $w <Key-Escape> "destroy $w"
|
|
bind $w <Key-Return> "destroy $w"
|
|
bind_button3 $w.vers "tk_popup $w.ctxm %X %Y; grab $w; focus $w"
|
|
wm title $w "About [appname]"
|
|
tkwait window $w
|
|
}
|