Monkeybread Realbasic plugin - Example: /MacOSX/DNS Query/DNS Types

Platforms to show: All Mac Windows Linux Cross-Platform

/MacOSX/DNS Query/DNS Types
Feedback.

Function:
You find this example project in your Plugins Download as a Realbasic project file within the examples folder: /MacOSX/DNS Query/DNS Types
This example is the version from Sun, 12th Sep 2009.
Notes: Last modified: Sun, 12th Sep 2009

Class Window1
Inherits Window
  // Controls
  ControlInstance
  End ControlInstance
  
  // Event implementations
  Sub Open()
    dim d as DNSQueryMBS
    dim i,c as integer
    
    d=new DNSQueryMBS
    
    List.DeleteAllRows
    c=d.TypesCount-1
    for i=0 to c
      List.AddRow str(i)
      List.cell(List.LastIndex,1)=d.TypesName(i)
      List.cell(List.LastIndex,2)=str(d.TypesValue(i))
    next
  End Sub
End Class

Class App
Inherits Application
End Class