;+ ; Describes the displaylist object. It allows to display ; the list of the existing directories. ; ; :Author: ; Gaƫlle Boisnard ; ; :History: ; 2004/07/23: Created ; ; 2004/07/23: Last Edit ;- ; ;---------------------------------------------------- FUNCTION displaylist::init, list ;---------------------------------------------------- self.dirlist=ptr_new(list) self.nameslist=list->getdirnames() if (ptr_valid(self.nameslist)) then begin length=(size(*self.nameslist))[1] ind_dir=intarr(length) for i=0, length-1 do begin ind_dir[i]=i endfor self.ind_dirlist=ptr_new(ind_dir) endif else begin self.ind_dirlist=ptr_new() endelse return, 1 end ;---------------------------------------------------- PRO displaylist::cleanup ;---------------------------------------------------- ptr_free, self.dirlist ptr_free, self.nameslist ptr_free, self.ind_dirlist end ;---------------------------------------------------- FUNCTION displaylist::getnameslist ;---------------------------------------------------- return, self.nameslist end ;+ ; displaylist__define is a procedure that <behavior desc here> ;- PRO displaylist__define define={DISPLAYLIST, $ dirlist:ptr_new(), $ nameslist:ptr_new(), $ ind_dirlist:ptr_new()} end