#! ../mofe --f
set cursorDir .
XmLabel m topLevel \
    labelString "time Goes by ..." \
    width 300 height 300
realize

# simulate some progress in the program by timeOuts
addTimeOut  5000 {
  sV m labelString "becoming busy ..."
  setCursor topLevel $cursorDir/hg1.xbm
}
addTimeOut  7000 {
  setCursor topLevel $cursorDir/hg2.xbm
}
addTimeOut  9000 {
  sV m labelString "half done ..."
  setCursor topLevel $cursorDir/hg3.xbm
}
addTimeOut 11000 {
  setCursor topLevel $cursorDir/hg4.xbm
}
addTimeOut 13000 {
  setCursor topLevel $cursorDir/hg5.xbm
}
addTimeOut 15000 {
  sV m labelString "That was it, folks."
  setCursor topLevel ""
}

