source: trunk/WIDGET/slec.pro @ 2

Last change on this file since 2 was 2, checked in by opalod, 22 years ago

Initial revision
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 580 bytes
Line 
1FUNCTION slec,name,debut,fin, nomexp, PARENT = parent, BOITE=boite, _EXTRA = ex
2@common
3;------------------------------------------------------------
4   case n_params() of
5      1:tab = nlec(name, PARENT = parent, BOITE=boite, _EXTRA = ex)
6      2:tab = nlec(name,debut, PARENT = parent, BOITE=boite, _EXTRA = ex)
7      3:tab = nlec(name,debut,fin, PARENT = parent, BOITE=boite, _EXTRA = ex)
8      4:tab = nlec(name,debut,fin, nomexp, PARENT = parent, BOITE=boite, _EXTRA = ex)
9   endcase
10;
11   return, {tab:tab, grille:vargrid, unite:varunit, experience:varexp, nom:varname}
12end
Note: See TracBrowser for help on using the repository browser.