Class AnimatedTextLabel < TkLabel

# File ext/tk/sample/demos-en/anilabel.rb, line 55
def initialize(*args)
  super(*args)
  @timer = TkTimer.new{ _animation_callback }
  @timer.loop_exec = -1
  # bind('Destroy'){ @timer.stop }
  @btag = TkBindTag.new('Destroy'){ @timer.stop }
  self.bindtags_unshift(@btag)
end

# File ext/tk/sample/demos-en/anilabel.rb, line 70
def start(interval)
  @timer.set_interval(interval)
  @timer.start
end

# File ext/tk/sample/demos-en/anilabel.rb, line 75
def stop
  @timer.stop
end