You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacCocoa/Window titleVisibility
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