Monkeybread Xojo plugin - Example: /MacFrameworks/Cocoa Controls/NSProgressIndicator

Platforms to show: All Mac Windows Linux Cross-Platform

/MacFrameworks/Cocoa Controls/NSProgressIndicator

Required plugins for this example: MBS MacFrameworks Plugin, MBS MacBase Plugin, MBS MacControls Plugin, MBS Main Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacFrameworks/Cocoa Controls/NSProgressIndicator

This example is the version from Tue, 4th Nov 2013.

Project "NSProgressIndicator.xojo_binary_project"

Class App Inherits Application

Const kEditClear = "&Delete"

Const kFileQuit = "&Quit"

Const kFileQuitShortcut = ""

End Class

Class Window1 Inherits Window

Control ProgressWheel1 Inherits ProgressWheel

ControlInstance ProgressWheel1 Inherits ProgressWheel

End Control

Control CocoaControlMBS1 Inherits CocoaControlMBS

ControlInstance CocoaControlMBS1 Inherits CocoaControlMBS

EventHandler Function GetView() As NSViewMBS dim n as new NSProgressIndicatorMBS n.style=n.NSProgressIndicatorSpinningStyle 'n.usesThreadedAnimation = true n.startAnimation Return n End EventHandler

End Control

Control BevelButton1 Inherits BevelButton

ControlInstance BevelButton1 Inherits BevelButton

EventHandler Sub Action() dim t as integer = Ticks+600 // 10 seconds while t>ticks wend End EventHandler

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

End Project