home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1995 August / NEBULA.bin / SourceCode / Palettes / ConnectDemo / ExtList.m < prev    next >
Encoding:
Text File  |  1993-01-15  |  410 b   |  25 lines
  1.  
  2. #import "ExtList.h"
  3. #import <stdlib.h>
  4.  
  5. @implementation ExtList
  6.  
  7. - sortUsingFunc:(SortFunc *)func
  8. {
  9.     qsort(dataPtr,[self count],sizeof(id),func);
  10.     return self;
  11. }
  12.  
  13. - (int)insertOrdered:object usingFunc:(SortFunc *)func
  14. {
  15.     int        count = [self count];
  16.     int        ind;
  17.     id        ob2;
  18.  
  19.     for (ind=0; ind<count && (ob2=[self objectAt:ind]) &&
  20.         func(&object,&ob2)>0; ind++);
  21.     [self insertObject:object at:ind];
  22.  
  23.     return ind;
  24. }
  25.