Monkeybread Xojo plugin - Example: /MacFrameworks/Cocoa Controls/WebView in ContainerControl

Platforms to show: All Mac Windows Linux Cross-Platform

/MacFrameworks/Cocoa Controls/WebView in ContainerControl
Function:
Required plugins for this example: MBS MacBase Plugin, MBS Main Plugin, MBS MacCocoa Plugin, MBS MacControls Plugin, MBS MacFrameworks Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacFrameworks/Cocoa Controls/WebView in ContainerControl
This example is the version from Sun, 17th Mar 2012.

Project "WebView in ContainerControl.xojo_binary_project"

Class App Inherits Application

Const kEditClear = "&Delete"

Const kFileQuit = "&Quit"

Const kFileQuitShortcut = ""

End Class

Class Window1 Inherits Window

Control MyContainer1 Inherits MyContainer

ControlInstance MyContainer1 Inherits MyContainer

End Control

End Class

MenuBar MenuBar1

MenuItem FileMenu = "&File"

MenuItem FileQuit = "#App.kFileQuit"

MenuItem EditMenu = "&Edit"

MenuItem EditUndo = "&Undo"

MenuItem UntitledMenu1 = "-"

MenuItem EditCut = "Cu&t"

MenuItem EditCopy = "&Copy"

MenuItem EditPaste = "&Paste"

MenuItem EditClear = "#App.kEditClear"

MenuItem UntitledMenu0 = "-"

MenuItem EditSelectAll = "Select &All"

End MenuBar

Class MyContainer Inherits ContainerControl

Control CocoaControlMBS1 Inherits CocoaControlMBS

ControlInstance CocoaControlMBS1 Inherits CocoaControlMBS

EventHandler Function GetView() As NSViewMBS #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 EventHandler

End Control

Control StaticText1 Inherits Label

ControlInstance StaticText1 Inherits Label

End Control

EventHandler Sub Open() if not CocoaControlMBS1.Available then MsgBox "This example requires Mac OS X 10.5." quit end if End EventHandler

End Class

End Project