Xojo Conferences
XDCMay2019MiamiUSA

Platforms to show: All Mac Windows Linux Cross-Platform

/MacFrameworks/FSEvents/FSEvents for trash
Function:
Required plugins for this example: MBS MacFrameworks Plugin, MBS MacOSX Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacFrameworks/FSEvents/FSEvents for trash
This example is the version from Fri, 12th Nov 2015.
Project "FSEvents for trash.rbp"
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
Control ListBox1 Inherits ListBox
ControlInstance ListBox1 Inherits ListBox
End Control
EventHandler Sub Close() for each f as FSEventsMBS in events f.stop next End EventHandler
EventHandler Sub Open() dim trashes(-1) as string for x as integer = 1 to VolumeCount dim volume as FolderItem = volume(x-1) dim Trash as FolderItem = volume.TrashFolder if Trash<>nil then dim TrashPath as String = Trash.UnixpathMBS if trashes.IndexOf(TrashPath)<0 then trashes.Append TrashPath Register TrashPath end if end if next dim Trash as FolderItem = SpecialFolder.Trash dim TrashPath as String = Trash.UnixpathMBS if trashes.IndexOf(TrashPath)<0 then trashes.Append TrashPath Register TrashPath end if End EventHandler
Sub Register(path as string) dim eventid as UInt64 = FSEventsMBS.GetCurrentEventId dim flags as integer = FSEventsMBS.kFSEventStreamCreateFlagNone dim latency as Double = 2.0 dim f as new FSEvents(path, eventid, latency, flags) f.mypath = path 'f.Show if not f.Start then MsgBox "Failed to start." end if events.Append f End Sub
Property events() As fsevents
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
Class FSEvents Inherits FSEventsMBS
EventHandler Sub Callback(index as integer, count as integer, path as string, flags as integer, eventID as UInt64) dim l as listbox l=window1.ListBox1 l.AddRow path l.Cell(l.LastIndex,1)=hex(flags) l.Cell(l.LastIndex,2)=hex(eventID) End EventHandler
Property mypath As string
End Class
End Project

See also:

Feedback, Comments & Corrections

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




Links
MBS Xojo Plugins