Jobs Bar Always On


This script will turn on the Jobs Bar in each lister as soon as it opens, so that the bar is a fixed element of the lister instead of something which (optionally) appears only when file operations are in progress.


From Opus 12.3.4 on, you can use Preferences / File Operations / Progress Indicators / Always display the jobs bar to do the same thing.

Unless you are using an older version, that makes the script obsolete except as an example of how to run a simple command when a lister opens.


Open Preferences / Toolbars / Scripts, then download this and drag it to the list:

Jobs Bar Always On.vbs.txt (738 Bytes)

You will probably also want to turn off [b]Preferences / File Operations / Progress Indicators / Resize Lister to display the jobs bar (if possible).

The script itself:

If you just want to use the script, the download above is probably easier. (And this whole thing is obsolete anyway! See the note that the top.)

The script code is reproduced here so that people looking for scripting techniques on the forum can browse the script code without having to download anything.

option explicit

' Jobs Bar Always On
' (C) 2014 Leo Davidson
' This is a script for Directory Opus.
' See for development information.

' Called by Directory Opus to initialize the script
Function OnInit(initData) = "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