Monkeybread Realbasic plugin - Example: /Leopard/Cocoa Controls/WebView in ContainerControl

Platforms to show: All Mac Windows Linux Cross-Platform

/Leopard/Cocoa Controls/WebView in ContainerControl
Feedback.

Function:
You find this example project in your Plugins Download as a Realbasic project file within the examples folder: /Leopard/Cocoa Controls/WebView in ContainerControl
This example is the version from Fri, 31th Dec 2009.
Notes: Last modified: Fri, 31th 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
  End ControlInstance
End Class

Class MyContainer
Inherits Window
  // Controls
  ControlInstance
    Function GetView() As NSViewMBS Handles Event
      #pragma DisableBackgroundTasks
      
      static x as WebViewMBS
      // RB crashes if property is attached to container class!?
      
      x=new WebViewMBS(0,0,100,100)
      x.LoadURL "http://www.apple.com"
      
      Return x
      
    End Function
  End ControlInstance
  ControlInstance
  End ControlInstance
  
  // Event implementations
  Sub Open()
    
    if not CocoaControlMBS1.Available then
      MsgBox "This example requires Mac OS X 10.5."
      quit
    end if
    
  End Sub
End Class