Monkeybread Xojo plugin - Example: /Win/HTMLViewer Windows/DebugBar

Platforms to show: All Mac Windows Linux Cross-Platform

Required plugins for this example: MBS Win Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Win/HTMLViewer Windows/DebugBar

This example is the version from Fri, 2nd Jul 2020.

Project "DebugBar.xojo_binary_project"

Class App Inherits Application

Const kEditClear = "&Delete"

Const kFileQuit = "&Quit"

Const kFileQuitShortcut = ""

End Class

Class Window1 Inherits Window

Control HTMLViewer1 Inherits HTMLViewer

ControlInstance HTMLViewer1 Inherits HTMLViewer

End Control

Control ShowButton Inherits PushButton

ControlInstance ShowButton Inherits PushButton

EventHandler Sub Action() dim w as IEWebBrowserMBS = HTMLViewer1.IEWebBrowserMBS dim b as Boolean = w.ShowDebugBar if not b then msgbox "Failed to show DebugBar. It's installed?" end if End EventHandler

End Control

Control VisitButton Inherits PushButton

ControlInstance VisitButton Inherits PushButton

EventHandler Sub Action() ShowURL "https://www.debugbar.com" End EventHandler

End Control

EventHandler Sub Open() HTMLViewer1.LoadURL "https://www.mbs-plugins.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

End Project