uawdijnntqw1x1x1
IP : 18.116.43.172
Hostname : ns1.eurodns.top
Kernel : Linux ns1.eurodns.top 4.18.0-553.5.1.lve.1.el7h.x86_64 #1 SMP Fri Jun 14 14:24:52 UTC 2024 x86_64
Disable Function : mail,sendmail,exec,passthru,shell_exec,system,popen,curl_multi_exec,parse_ini_file,show_source,eval,open_base,symlink
OS : Linux
PATH:
/
home
/
sudancam
/
.
/
..
/
..
/
lib
/
..
/
lib64
/
tcl8.5
/
Tix8.4.3
/
..
/
Tix8.4.3
/
StatBar.tcl
/
/
# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: StatBar.tcl,v 1.2 2001/12/09 05:04:02 idiscovery Exp $ # # StatBar.tcl -- # # The StatusBar of an application. # # 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 tixStatusBar { -classname TixStatusBar -superclass tixPrimitive -method { } -flag { -fields } -static { -fields } -configspec { {-fields fields Fields ""} } } #-------------------------- # Create Widget #-------------------------- proc tixStatusBar:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget foreach field $data(-fields) { set name [lindex $field 0] set width [lindex $field 1] set data(w:width) [label $w.$name -width $width] } } #---------------------------------------------------------------------- # Public methods #---------------------------------------------------------------------- #---------------------------------------------------------------------- # Internal commands #----------------------------------------------------------------------
/home/sudancam/./../../lib/../lib64/tcl8.5/Tix8.4.3/../Tix8.4.3/StatBar.tcl