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