You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Win/HTMLViewer Windows/WebKit - Chromium/WebPlugins
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
EventHandler Sub Open()
End EventHandler
EventHandler Function UnhandledException(error As RuntimeException) As Boolean
MsgBox Introspection.GetType(error).fullname+EndOfLine+error.Message+_
EndOfLine+EndOfLine+Join(error.Stack, EndOfLine)
Return true
End EventHandler
End Class
Class MainWindow Inherits Window
Control HTMLViewer1 Inherits HTMLViewer
ControlInstance HTMLViewer1 Inherits HTMLViewer
End Control
Control ShowButton Inherits PushButton
ControlInstance ShowButton Inherits PushButton
EventHandler Sub Action()
#if TargetWin32 then
PluginsWindow.show
#else
MsgBox "This is for Windows only. Please build windows app to test."
#endif
End EventHandler
End Control
EventHandler Sub Open()
HTMLViewer1.LoadURL "http://www.mbsplugins.de"
End EventHandler
End Class
MenuBar MainMenuBar
MenuItem FileMenu = "&File"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem EditSeparator1 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "#App.kEditClear"
MenuItem EditSeparator2 = "-"
MenuItem EditSelectAll = "Select &All"
End MenuBar
Class PluginsWindow Inherits Window
Control List Inherits Listbox
ControlInstance List Inherits Listbox
End Control
EventHandler Sub Open()
dim plugins() as ChromiumWebPluginInfoMBS = ChromiumWebPluginInfoMBS.Plugins
for each p as ChromiumWebPluginInfoMBS in plugins
list.AddRow p.Name, p.Path, p.Version, p.Description
next
End EventHandler
End Class