139.59.127.108:8080

!C99Shell v. 2.5 [PHP 8 Update] [24.05.2025]!
Software: Apache/2.4.41 (Ubuntu). PHP/8.0.30 uname -a: Linux apirnd 5.4.0-204-generic #224-Ubuntu SMP Thu Dec 5 13:38:28 UTC 2024 x86_64 uid=33(www-data) gid=33(www-data) groups=33(www-data) Safe-mode: OFF (not secure) /usr/share/git-gui/lib/ drwxr-xr-x Free 13.12 GB of 57.97 GB (22.64%) Encoder Tools Proc. FTP brute Sec. SQL PHP-code Update Self remove Logout


# 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 NS use_ttk

    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
    ${NS}::label $w.header -text [mc "About %s" [appname]] \
        -font font_uibold -anchor center
    pack $w.header -side top -fill x

    ${NS}::frame $w.buttons
    ${NS}::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: [gitexec]\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
}

:: Command execute ::
Enter:	Select: