git-gui: update Japanese translation
[gitweb.git] / lib / about.tcl
index b19738ecff0fb42b6a2bd5ed6583c5442b0f5ce9..241ab892cd5b731f07571acf7a0ca3150a763f4f 100644 (file)
@@ -4,11 +4,13 @@
 proc do_about {} {
        global appvers copyright oguilib
        global tcl_patchLevel tk_patchLevel
+       global ui_comm_spell
 
        set w .about_dialog
        toplevel $w
        wm geometry $w "+[winfo rootx .]+[winfo rooty .]"
 
+       pack [git_logo $w.git_logo] -side left -fill y -padx 10 -pady 10
        label $w.header -text [mc "About %s" [appname]] \
                -font font_uibold
        pack $w.header -side top -fill x
@@ -39,6 +41,11 @@ proc do_about {} {
                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"