home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / cbutils.tcl < prev    next >
Text File  |  1996-05-29  |  1KB  |  44 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Westmount Technology    1995
  4. #
  5. #      File:           @(#)cbutils.tcl    1.1
  6. #      Author:         
  7. #      Description;    Some helpfull functions used by class browser.
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)cbutils.tcl    1.1   19 Oct 1995 Copyright 1995 Westmount Technology
  10.  
  11. # Returns a new list consisting of all elements of lst. Elements that occur
  12. # more than once in lst, occur only once in the returned list.
  13. # 
  14. proc lrmdoubles {lst} { 
  15.     set newlist ""
  16.     while {[llength $lst]} { 
  17.         set elem [lindex $lst 0]
  18.         lappend newlist $elem
  19.         set lst [lreplace $lst 0 0]
  20.         set idx [lsearch -exact $lst $elem]
  21.         while {$idx != -1} {
  22.             set lst [lreplace $lst $idx $idx]
  23.             set idx [lsearch -exact $lst $elem]
  24.         }
  25.     }
  26.     return $newlist
  27. }
  28.  
  29. # Returns Item <itemNr> in CompLabel <labelType> in Component <component>
  30. #
  31. proc Component::getItem {component labelType} {
  32.     foreach label [$component labels] {
  33.         if {[$label type] == $labelType} {
  34.             if {[llength [$label itemRefs]] == 0} {
  35.                 return [ORB::nil]
  36.             }
  37.             set itemRef [lindex [$label itemRefs] 0]
  38.             return [$itemRef item]
  39.         }
  40.     }
  41.     return [ORB::nil]
  42. }
  43.  
  44.