Failed to save the file to the "xx" directory.
Failed to save the file to the "ll" directory.
Failed to save the file to the "mm" directory.
Failed to save the file to the "wp" directory.
Server IP : 66.29.132.124 / Your IP : 3.17.77.97 Web Server : LiteSpeed System : Linux business141.web-hosting.com 4.18.0-553.lve.el8.x86_64 #1 SMP Mon May 27 15:27:34 UTC 2024 x86_64 User : wavevlvu ( 1524) PHP Version : 7.4.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : OFF Directory : /usr/lib64/tcl8.6/Tix8.4.3/ |
Upload File : |
# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: StdShell.tcl,v 1.2 2001/12/09 05:04:02 idiscovery Exp $ # # StdShell.tcl -- # # Standard Dialog Shell. # # 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 tixStdDialogShell { -classname TixStdDialogShell -superclass tixDialogShell -method {} -flag { -cached } -configspec { {-cached cached Cached ""} } } proc tixStdDialogShell:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget set data(w:btns) [tixStdButtonBox $w.btns] set data(w_tframe) [frame $w.tframe] pack $data(w_tframe) -side top -expand yes -fill both pack $data(w:btns) -side bottom -fill both tixCallMethod $w ConstructTopFrame $data(w_tframe) } # Subclasses of StdDialogShell should override this method instead of # ConstructWidget. # # Override : always # chain : before proc tixStdDialogShell:ConstructTopFrame {w frame} { # Do nothing }