option explicit

' Jobs Bar Always On
' (C) 2014 Leo Davidson
' 
' This is a script for Directory Opus.
' See http://www.gpsoft.com.au/DScripts/redirect.asp?page=scripts for development information.

' Called by Directory Opus to initialize the script
Function OnInit(initData)
	initData.name = "Jobs Bar Always On"
	initData.desc = "Turn on the jobs bar in every lister"
	initData.copyright = "(C) 2014 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
	OpusCmd.RunCommand "Set JOBSBAR=on"
End Function