home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / libplugin / lremove.tcl < prev    next >
Text File  |  2000-11-02  |  151b  |  7 lines
  1.  
  2. proc lremove { list element } {
  3.    upvar $list mylist
  4.    set idx [lsearch -exact $mylist $element]
  5.    set mylist [lreplace $mylist $idx $idx]
  6. }
  7.