; ------------------------------------------------------------
; Met a jour le slider cree par RH_CW_TIME
; ------------------------------------------------------------

PRO RH_CW_TIME1,s, hd, hf, h

  stash = WIDGET_INFO(s, /CHILD)
  WIDGET_CONTROL, stash, GET_UVALUE = stat
  stat.bot = hd(0)*1.+hd(1)/60.
  stat.top = hf(0)*1.+hf(1)/60.
  IF stat.top LT stat.bot THEN BEGIN
     stat.top=stat.top+24.
     stat.tseuil=24
  ENDIF ELSE stat.tseuil=0
  stat.tbot = hd
  stat.ttop = hf
  WIDGET_CONTROL, stash, SET_UVALUE = stat
  widget_control, s, set_value = h

  RETURN
END