Platforms to show: All Mac Windows Linux Cross-Platform
/MacCocoa/Window titleVisibility
Required plugins for this example: MBS MacBase Plugin, MBS Main Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacCocoa/Window titleVisibility
This example is the version from Fri, 4th Sep 2014.
Project "Window titleVisibility.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
Control RadioMode Inherits RadioButton
ControlInstance RadioMode(0) Inherits RadioButton
ControlInstance RadioMode(1) Inherits RadioButton
ControlInstance RadioMode(2) Inherits RadioButton
EventHandler Sub Action(index as Integer)
dim w as NSWindowMBS = self.NSWindowMBS
w.titleVisibility = index
Exception n as NSExceptionMBS
if instr(n.message, "unrecognized selector") >0 then
MsgBox "please run on Mac OS X 10.10 only!"
else
MsgBox n.message
end if
End EventHandler
End Control
Control Label1 Inherits Label
ControlInstance Label1 Inherits Label
End Control
Control Label2 Inherits Label
ControlInstance Label2 Inherits Label
End Control
Control Label3 Inherits Label
ControlInstance Label3 Inherits Label
End Control
Control Toolbar11 Inherits Toolbar1
ControlInstance Toolbar11 Inherits Toolbar1
End Control
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 Toolbar1 Inherits Toolbar
ToolbarItem ToolItem1
End Class
End Project
See also:
The items on this page are in the following plugins: MBS MacCocoa Plugin.