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) /usr/lib64/tcl8.6/Tix8.4.3/ drwxr-xr-x Free 293.74 GB of 429.69 GB (68.36%) 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: IconView.tcl,v 1.2 2001/12/09 05:04:02 idiscovery Exp $
#
# IconView.tcl --
#
#    This file implements the Icon View widget: the "icon" view mode of
#    the MultiView widget. It implements:
#
#    (1) Creation of the icons in the canvas subwidget.
#    (2) Automatic arrangement of the objects
#
# 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.
#

tixWidgetClass tixIconView {
    -classname TixIconView
    -superclass tixCObjView
    -method {
    add arrange
    }
    -flag {
    -autoarrange
    }
    -static {
    }
    -configspec {
    {-autoarrange autoArrange AutoArrange 0 tixVerifyBoolean}
    }
    -default {
    {.scrollbar            auto}
    {*borderWidth            1}
    {*canvas.background        #c3c3c3}
    {*canvas.highlightBackground    #d9d9d9}
    {*canvas.relief            sunken}
    {*canvas.takeFocus        1}
    {*Scrollbar.takeFocus        0}
    }
    -forcecall {
    }
}

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

    tixChainMethod $w ConstructWidget
}

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

    tixChainMethod $w SetBindings

    set c $data(w:canvas)

    bind $c <1>         "tixIconView:StartDrag $w %x %y"
    bind $c <B1-Motion> "tixIconView:Drag $w %x %y"
    bind $c <ButtonRelease-1> "tixIconView:EndDrag $w"
}

proc tixIconView:StartDrag {w x y} {
    upvar #0 $w data
    global lastX lastY

    set c $data(w:canvas)
    $c raise current

    set lastX [$c canvasx $x]
    set lastY [$c canvasy $y]
}


proc tixIconView:Drag {w x y} {
    upvar #0 $w data
    global lastX lastY

    set c $data(w:canvas)
    set x [$c canvasx $x]
    set y [$c canvasy $y]
    $c move current [expr $x-$lastX] [expr $y-$lastY]
    set lastX $x
    set lastY $y
}

proc tixIconView:EndDrag {w} {
    upvar #0 $w data

    tixCallMethod $w adjustscrollregion
}

#----------------------------------------------------------------------
#
#        option configs
#----------------------------------------------------------------------
proc tixIconView:add {w tag image text} {
    upvar #0 $w data

    set cmp [image create compound -window $data(w:canvas)]

    $cmp add image -image $image
    $cmp add line
    $cmp add text -text $text

    set id [$data(w:canvas) create image 0 0 -image $cmp -anchor nw]
    $data(w:canvas) addtag $tag withtag $id

    if {$data(-autoarrange)} {
    tixWidgetDoWhenIdle tixIconView:Arrange $w 1
    }
}

# Do it in an idle handler, so that Arrange is not called before the window
# is properly mapped.
#
proc tixIconView:arrange {w} {
    tixWidgetDoWhenIdle tixIconView:Arrange $w 1
}


proc tixIconView:PackOneRow {w row y maxH bd padX padY} {
    upvar #0 $w data

    set iX [expr $bd+$padX]
    foreach i $row {
    set box [$data(w:canvas) bbox $i]
    set W [expr [lindex $box 2]-[lindex $box 0]+1]
    set H [expr [lindex $box 3]-[lindex $box 1]+1]

    set iY [expr $y + $maxH - $H]
    $data(w:canvas) coords $i $iX $iY
    incr iX [expr $W+$padX]
    }
}

# virtual method
#
proc tixIconView:PlaceWindow {w} {
    upvar #0 $w data

    if {$data(-autoarrange)} {
    tixWidgetDoWhenIdle tixIconView:Arrange $w 0
    }

    tixChainMethod $w PlaceWindow
}

proc tixIconView:Arrange {w adjust} {
    upvar #0 $w data

    set padX 2
    set padY 2

    tixIconView:ArrangeGrid $w $padX $padY
    if {$adjust} {
    tixCallMethod $w adjustscrollregion
    }
}

# the items are not packed
#
proc tixIconView:ArrangeGrid {w padX padY} {
    upvar #0 $w data

    set maxW 0
    set maxH 0
    foreach item [$data(w:canvas) find all] {
    set box [$data(w:canvas) bbox $item]
    set itemW [expr [lindex $box 2]-[lindex $box 0]+1]
    set itemH [expr [lindex $box 3]-[lindex $box 1]+1]
    if {$maxW < $itemW} {
        set maxW $itemW
    }
    if {$maxH < $itemH} {
        set maxH $itemH
    }
    }
    if {$maxW == 0 || $maxH == 0} {
    return
    }

    set winW [tixWinWidth $data(w:canvas)]
    set bd [expr [$data(w:canvas) cget -bd]+\
    [$data(w:canvas) cget -highlightthickness]]
    set cols [expr $winW / ($maxW+$padX)]
    if {$cols < 1} {
    set cols 1
    }
    set y $bd

    set c 0
    set x $bd
    foreach item [$data(w:canvas) find all] {
    set box [$data(w:canvas) bbox $item]
    set itemW [expr [lindex $box 2]-[lindex $box 0]+1]
    set itemH [expr [lindex $box 3]-[lindex $box 1]+1]

    set iX [expr $x + $padX + ($maxW-$itemW)/2]
    set iY [expr $y + $padY + ($maxH-$itemH)  ]

    $data(w:canvas) coords $item $iX $iY
    incr c
    incr x [expr $maxW + $padY]
    if {$c == $cols} {
        set c 0
        incr y [expr $maxH + $padY]
        set x $bd
    }
    }
}

# the items are packed
#
proc tixIconView:ArrangePack {w padX padY} {
    upvar #0 $w data

    set winW [tixWinWidth $data(w:canvas)]
    set bd [expr [$data(w:canvas) cget -bd]+\
    [$data(w:canvas) cget -highlightthickness]]
    set y [expr $bd + $padY]

    set maxH 0
    set usedW $padX
    set row ""
    foreach item [$data(w:canvas) find all] {
    set box [$data(w:canvas) bbox $item]
    set itemW [expr [lindex $box 2]-[lindex $box 0]+1]
    set itemH [expr [lindex $box 3]-[lindex $box 1]+1]

    if {[expr $usedW + $itemW] > $winW} {
        if {$row == ""} {
        # only one item in this row
        #
        $data(w:canvas) coords $item [expr $bd + $padX] $y
        incr y [expr $itemH+$padY]
        continue
        } else {
        # this item is not in this row. Arrange the previous items
        # first
        #
        tixIconView:PackOneRow $w $row $y $maxH $bd $padX $padY

        incr y $maxH
        set row ""
        set maxH 0
        set usedW $padX
        }
    }
    lappend row $item
    if {$maxH < $itemH} {
        set maxH $itemH
    }
    incr usedW [expr $padX+$itemW]
    }
    if {$row != ""} {
    tixIconView:PackOneRow $w $row $y $maxH $bd $padX $padY
    }
}

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

#----------------------------------------------------------------------
#
#        Private Methods
#----------------------------------------------------------------------
:: Command execute ::
Enter:	Select: