option explicit

' Called by Directory Opus to initialize the script
Function OnInit(initData)
   initData.name = "Turn off Sync before updating the Default Lister"
   initData.desc = "Closes the Sync panel and dual file display as listers close"
   initData.copyright = "(C) 2016 Leo Davidson"
   initData.version = "1.1"
   initData.default_enable = true
End Function

' Called when a new Lister is opened
Function OnCloseLister(closeListerData)
   Dim OpusCmd
   Set OpusCmd = DOpus.NewCommand
   OpusCmd.SetSourceTab closeListerData.lister.activetab
   If OpusCmd.IsSet("UTILITY=Sync,Toggle") Then
      If closeListerData.lister.dual <> 0 Then
         If closeListerData.lister.tabsright.count = 1 Then
            OpusCmd.RunCommand "Set DUAL=Right,Off"
         End If
      End If
      OpusCmd.RunCommand "Set UTILITY=Off"
   End If
End Function