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 MacBase Plugin, MBS Main Plugin, MBS MacCocoa Plugin, MBS MacFrameworks Plugin, MBS MacControls Plugin

Last modified Tue, 4th Nov 2013.

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

Download this example: NSProgressIndicator.zip

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