/Cocoa/NSTimer Test
Feedback.

Function:
You find this example project in your Plugins Download as a Realbasic project file within the examples folder: /Cocoa/NSTimer Test
This example is the version from Sat, 18th Dec 2009.
Notes: Last modified: Sat, 18th Dec 2009

Class App
Inherits Application
  // Constants
  Const kFileQuitShortcut = Ctrl+Q
  Const kFileQuit = E&xit
  Const kEditClear = &Delete
End Class

Class Window1
Inherits Window
  // Controls
  ControlInstance
    Sub Action() Handles Event
      t = new MyTimer(1.0, true)
      
      
    End Sub
  End ControlInstance
  ControlInstance
    Sub Action() Handles Event
      t = nil
      
    End Sub
  End ControlInstance
  ControlInstance
  End ControlInstance
  
  // Properties
  Dim count As Integer
  Dim t As MyTimer
End Class

Class MyTimer
Inherits Object
  // Event implementations
  Sub Action()
    window1.count = window1.count +1
    window1.StaticText1.text = str(window1.count)
    
  End Sub
End Class