class blink_text(parentObj) of TEXT(parentObj) custom

   with (this)
         onOpen = class::TEXT_ONOPEN
         onClose = class::TEXT_ONCLOSE
         height = 1.0
         left = 6.0
         top = 3.0
         width = 12.0
         text = "Blink text"
      endwith
      
      function TEXT_onClose()
         this.timer.enabled = false
         return

      function TEXT_onOpen()
         this.stop_blink = false
         this.timer = new Timer( ) 
         this.timer.parent = this 
         this.timer.onTimer = this.blink
         this.timer.interval = 0.5 
         this.timer.enabled = true 
         return
         
      function blink
         if this.parent.stop_blink = false
            this.parent.visible = not this.parent.visible
         endif         
         return  

endclass