home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / interface / common / iq.tcl next >
Text File  |  2005-11-03  |  224b  |  11 lines
  1. proc iq'showdesc {obj {args ""}} { 
  2.     oz'event {
  3.         itf'desc::show $::itf::desc $obj $args
  4.         oz'mouse::hook [subst {
  5.             CloseAllInterface
  6.         }]
  7.         # MUST NOT CALL CALLBACK!
  8.     }
  9. }
  10.  
  11.