Changeset 52 for trunk/ToBeReviewed/WIDGET/slec.pro

Timestamp:

05/09/06 13:11:55 (18 years ago)

Author:

pinsard

Message:

upgrade of WIDGET according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/

File:

• trunk/ToBeReviewed/WIDGET/slec.pro (copied) (copied from trunk/WIDGET/slec.pro) (1 diff)

trunk/ToBeReviewed/WIDGET/slec.pro

@@ -1 @@
-FUNCTION slec,name,debut,fin, nomexp, PARENT = parent, BOITE=boite, _EXTRA = ex
-@common
+FUNCTION slec,name,debut,fin, nomexp, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex
+;---------------------------------------------------------
+; include common
+@cm_4data
+  IF NOT keyword_set(key_forgetold) THEN BEGIN
+@updatenew
+@updatekwd
+  ENDIF
 ;------------------------------------------------------------ 
    case n_params() of
-      1:tab = nlec(name, PARENT = parent, BOITE=boite, _EXTRA = ex)
-      2:tab = nlec(name,debut, PARENT = parent, BOITE=boite, _EXTRA = ex)
-      3:tab = nlec(name,debut,fin, PARENT = parent, BOITE=boite, _EXTRA = ex)
-      4:tab = nlec(name,debut,fin, nomexp, PARENT = parent, BOITE=boite, _EXTRA = ex)
+      1:tab = nlec(name, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex)
+      2:tab = nlec(name,debut, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex)
+      3:tab = nlec(name,debut,fin, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex)
+      4:tab = nlec(name,debut,fin, nomexp, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex)
    endcase
 ;