option explicit

' Called by Directory Opus to initialize the script
Function OnInit(initData)
   initData.name = "Hide Sync in New Listers"
   initData.desc = "Override layouts to always turn off the Sync panel in new listers"
   initData.copyright = "(C) 2016 Leo Davidson"
   initData.version = "1.0"
   initData.default_enable = true
End Function

' Called when a new Lister is opened
Function OnOpenLister(openListerData)
   Dim OpusCmd
   Set OpusCmd = DOpus.NewCommand
   OpusCmd.SetSourceTab openListerData.lister.activetab
   If OpusCmd.IsSet("UTILITY=Sync,Toggle") Then
      OpusCmd.RunCommand "Set UTILITY=Sync,Toggle"
   End If
End Function