source: trunk/SRC/ToBeReviewed/WIDGET/slec.pro @ 114

Last change on this file since 114 was 114, checked in by smasson, 18 years ago

new compilation options (compile_opt idl2, strictarrsubs) in each routine
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 793 bytes
Line 
1FUNCTION slec,name,debut,fin, nomexp, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex
2;---------------------------------------------------------
3; include common
4;
5  compile_opt idl2, strictarrsubs
6;
7@cm_4data
8  IF NOT keyword_set(key_forgetold) THEN BEGIN
9@updatenew
10@updatekwd
11  ENDIF
12;------------------------------------------------------------
13   case n_params() of
14      1:tab = nlec(name, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex)
15      2:tab = nlec(name,debut, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex)
16      3:tab = nlec(name,debut,fin, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex)
17      4:tab = nlec(name,debut,fin, nomexp, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex)
18   endcase
19;
20   return, {tab:tab, grille:vargrid, unite:varunit, experience:varexp, nom:varname}
21end
Note: See TracBrowser for help on using the repository browser.