Xojo Conferences
XDCMay2019MiamiUSA

Platforms to show: All Mac Windows Linux Cross-Platform

/MacCF/My details MacOSX
Function:
Required plugins for this example: MBS MacCF Plugin, MBS MacOSX Plugin, MBS Main Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacCF/My details MacOSX
This example is the version from Mon, 16th Mar 2014.
Project "My details MacOSX.rbp"
Class MainWindow Inherits Window
Control StaticText1 Inherits Label
ControlInstance StaticText1 Inherits Label
End Control
Control StaticText2 Inherits Label
ControlInstance StaticText2 Inherits Label
End Control
Control StaticText3 Inherits Label
ControlInstance StaticText3 Inherits Label
End Control
Control StaticText4 Inherits Label
ControlInstance StaticText4 Inherits Label
End Control
Control StaticText5 Inherits Label
ControlInstance StaticText5 Inherits Label
End Control
Control StaticText7 Inherits Label
ControlInstance StaticText7 Inherits Label
End Control
Control name Inherits Label
ControlInstance name Inherits Label
End Control
Control uid Inherits Label
ControlInstance uid Inherits Label
End Control
Control gid Inherits Label
ControlInstance gid Inherits Label
End Control
Control home Inherits Label
ControlInstance home Inherits Label
End Control
Control terminal Inherits Label
ControlInstance terminal Inherits Label
End Control
Control longname Inherits Label
ControlInstance longname Inherits Label
End Control
Control StaticText6 Inherits Label
ControlInstance StaticText6 Inherits Label
End Control
EventHandler Sub Open() dim i as DarwinUserMBS dim f as FolderItem dim p as PermissionsMBS // we look what user the current desktop belongs f = SpecialFolder.Desktop p = f.PermissionsMBS(true) i=new DarwinUserMBS i.LoadUserByID(p.UserID) if i.Ready then name.text=i.Name uid.text=str(i.UserID) gid.text=str(i.GroupID) home.text=i.HomePath terminal.text=i.Shell longname.text=i.LongName else MsgBox "Failed to get information." end if Exception MsgBox "We have a problem."+chr(13)+"This demo works only on Mac OS X!" End EventHandler
End Class
MenuBar Menu
MenuItem UntitledMenu3 = ""
MenuItem UntitledMenu2 = "File"
MenuItem FileQuit = "Quit"
MenuItem UntitledMenu0 = "Edit"
MenuItem EditUndo = "Undo"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "Cut"
MenuItem EditCopy = "Copy"
MenuItem EditPaste = "Paste"
MenuItem EditClear = "Clear"
End MenuBar
Class App Inherits Application
EventHandler Sub Open() if TargetMachO then // ok else MsgBox "This needs a Mach-O target running on Mac OS X." end if End EventHandler
End Class
End Project

Feedback, Comments & Corrections

The items on this page are in the following plugins: MBS MacCF Plugin.




Links
MBS FileMaker blog