OK, I wrote this plugin:
#############################################################################
# highlight_instance_plugin.tcl Copyright 2011 r0lZ
# PgcEdit plugin to highlight specific instances of PgcEdit.
#
# This plugin is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This plugin is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#############################################################################
# Usage: copy this file in the <PgcEdit's install dir>/plugins directory.
# An "Highlight Instance" menu will be added in the Plugins menu.
# You need PgcEdit 9.3 or more to use this plugin.
#############################################################################
# Version History:
#
# v 1.0 (October 19, 2011)
# - First public release
#############################################################################
namespace eval ::plugins {}
namespace eval ::plugins::highlight {}
# Add Plugins -> Highlight Instance menu
if {! [winfo exists .mainmenu.plugins.highlight]} {
.mainmenu.plugins add cascade -label "Highlight Instance" -menu .mainmenu.plugins.highlight
menu .mainmenu.plugins.highlight
.mainmenu.plugins.highlight add checkbutton -label "Highlight this instance?" -variable ::plugins::highlight::highlight_this -command {::plugins::highlight::highlight_this}
.mainmenu.plugins.highlight add checkbutton -label "Auto highlight read-only DVDs?" -variable ::plugins::highlight::auto_highlight -command {::plugins::highlight::auto_highlight}
.mainmenu.plugins.highlight add separator
.mainmenu.plugins.highlight add command -label "About" -command {
tk_messageBox -title "Highlight Instance plugin" -icon info \
-message "Highlight Instance plugin for PgcEdit 9.3 or more.\nVersion $::plugins::highlight::version\nAuthor: r0lZ\nFreeware!"
}
}
namespace eval ::plugins::highlight {
set version "1.0"
set highlight_this 0
set auto_highlight 0
proc highlight_this {} {
if {$::plugins::highlight::highlight_this} {
. configure -background $::plugins::highlight::highlight_color
} else {
. configure -background SystemButtonFace
}
}
proc auto_highlight {} {
if {$::plugins::highlight::auto_highlight} {
trace add variable ::dvddir write ::plugins::highlight::dvddir_changed
.mainmenu.plugins.highlight entryconfigure "Highlight this instance?" -state disabled
::plugins::highlight::dvddir_changed
} else {
trace remove variable ::dvddir write ::plugins::highlight::dvddir_changed
.mainmenu.plugins.highlight entryconfigure "Highlight this instance?" -state normal
::plugins::highlight::highlight_this
}
::plugins::highlight::save_config
}
proc dvddir_changed {{name ""} {index ""} {op ""}} {
if {[info exists ::dvddir] && ! [file writable [file join $::dvddir "VIDEO_TS.IFO"]]} {
. configure -background $::plugins::highlight::highlight_color
} else {
. configure -background SystemButtonFace
}
}
proc save_config {} {
set data "# colour of the highlight in #RRGGBB format:\n"
set data "${data}set ::plugins::highlight::highlight_color $::plugins::highlight::highlight_color\n"
set data "${data}# Change this setting only from the plugins menu:\n"
set data "${data}set ::plugins::highlight::auto_highlight $::plugins::highlight::auto_highlight"
saveFile [file join $::config(config_directory) highlight_instance_plugin.cfg] auto $data
}
} ;# end of namespace ::plugins::highlight
set ::plugins::highlight::auto_highlight 0
set ::plugins::highlight::highlight_color #FFFF00
if {[catch {source [file join $::config(config_directory) highlight_instance_plugin.cfg]}]} {
::plugins::highlight::save_config
}
if {$::plugins::highlight::auto_highlight} {
::plugins::highlight::dvddir_changed
}
Copy the whole script and paste it in your plugins directory as highlight_instance.tcl, and restart PgcEdit.
You can toggle the highlight manually, or set the option to highlight automatically the read-only DVDs with the Plugins -> Highlight Instance menu.
The first time the plugin is executed, it will create the new config file "%appdata%\PgcEdit\highlight_instance_plugin.cfg".
Note that you can change the highlight colour (by default yellow) by editing the config file.
For example, to draw a red border, change the second line to:
set ::plugins::highlight::highlight_color #FF0000
Note also that a DVD is considered read-only if VIDEO_TS.IFO is read-only. So, to highlight automatically a specific DVD, you can just change the read-only attribute of that file, although I recommend to change it for all files, as otherwise strange things can happen if you edit and save the DVD.