Changeset 51 for trunk/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_calendar.pro

Timestamp:

05/09/06 13:04:45 (18 years ago)

Author:

pinsard

Message:

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

File:

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

trunk/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_calendar.pro

@@ -197 +197 @@
    if n_elements(calendar) GT 1 then begin
       if total(daycal eq 15) EQ n_elements(calendar) then monthly = 1
-   if total(monthcal EQ 6) EQ n_elements(calendar) then BEGIN  & monthly = 1 & yearly = 1 & endif
+   if total(monthcal EQ 6) EQ n_elements(calendar) AND n_elements(uniq(daycal, sort(daycal))) EQ 1 then BEGIN  & monthly = 1 & yearly = 1 & endif
    if total(yearcal EQ 50) EQ n_elements(calendar) then BEGIN  & monthly = 1 & yearly = 1 & centuryly = 1 & ENDIF
    endif