A token to add the version number to the Lister Title

Help & Support
2

Edit Jan 12, 2020: Added notoggle: to fix problems with saved listers/layouts.

Save this somewhere, then drag it to Preferences / Toolbars / Scripts:

Titlebar_Version.vbs.txt (520 Bytes)

option explicit

Function OnInit(initData)
	initData.name = "Titlebar Version"
	initData.desc = "Puts the Opus version number into lister titlebars"
	initData.copyright = "(C) 2014 Leo Davidson"
	initData.version = "1.1"
	initData.default_enable = true
End Function

Function OnOpenLister(openListerData)
	Dim cmd
	set cmd = DOpus.NewCommand
	cmd.SetSourceTab openListerData.lister.activetab
	cmd.RunCommand "Set LISTERTITLE=""notoggle:%N - (Directory Opus " & DOpus.version.product & ")"""
End Function