UnknownSec Bypass
403
:
/
lib64
/
tcl8.5
/
tclx8.4
/ [
drwxr-xr-x
]
Menu
Upload
Mass depes
Mass delete
Terminal
Info server
About
name :
events.tcl
# # eventloop.tcl -- # # Eventloop procedure. #------------------------------------------------------------------------------ # Copyright 1992-1999 Karl Lehenbauer and Mark Diekhans. # # Permission to use, copy, modify, and distribute this software and its # documentation for any purpose and without fee is hereby granted, provided # that the above copyright notice appear in all copies. Karl Lehenbauer and # Mark Diekhans make no representations about the suitability of this # software for any purpose. It is provided "as is" without express or # implied warranty. #------------------------------------------------------------------------------ # $Id: events.tcl,v 1.1 2001/10/24 23:31:48 hobbs Exp $ #------------------------------------------------------------------------------ # #@package: TclX-events mainloop proc mainloop {} { global tcl_interactive if {[info exists tcl_interactive] && $tcl_interactive} { commandloop -async -interactive on -endcommand exit } set loopVar 0 catch {vwait loopVar} exit }
Copyright © 2024 - UnknownSec