home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / bin / common / wickedtcl.tcl < prev   
Text File  |  2005-10-29  |  165b  |  9 lines
  1. proc ldelete { list value } {
  2.   set ix [lsearch -exact $list $value]
  3.   if {$ix >= 0} {
  4.     return [lreplace $list $ix $ix]
  5.   } else {
  6.     return $list
  7.   }
  8. }
  9.