;+
; 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