source: trunk/ToBeReviewed/WIDGET/slec.pro @ 52

Last change on this file since 52 was 52, checked in by pinsard, 18 years ago

upgrade of WIDGET according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 755 bytes
Line 
1FUNCTION slec,name,debut,fin, nomexp, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex
2;---------------------------------------------------------
3; include common
4@cm_4data
5  IF NOT keyword_set(key_forgetold) THEN BEGIN
6@updatenew
7@updatekwd
8  ENDIF
9;------------------------------------------------------------
10   case n_params() of
11      1:tab = nlec(name, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex)
12      2:tab = nlec(name,debut, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex)
13      3:tab = nlec(name,debut,fin, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex)
14      4:tab = nlec(name,debut,fin, nomexp, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex)
15   endcase
16;
17   return, {tab:tab, grille:vargrid, unite:varunit, experience:varexp, nom:varname}
18end
Note: See TracBrowser for help on using the repository browser.