Tryag File Manager
Home
||
Turbo Force
||
B-F Config_Cpanel
Current Path :
/
usr
/
lib64
/
tcl8.5
/
tclx8.4
/
Or
Select Your Path :
Upload File :
New :
File
Dir
//usr/lib64/tcl8.5/tclx8.4/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 }