Anonymous - 2014-10-02

I think this can be done by adding the following at line 1823:
my $fsel = $frame1->Radiobutton(
-variable => \$::lglobal{brsel},
-selectcolor => $::lglobal{checkcolor},
-value => '^\/F|F\/',
-text => '/F F/',
)->grid( -row => 1, -column => 5, -pady => 5 );
my $lsel = $frame1->Radiobutton(
-variable => \$::lglobal{brsel},
-selectcolor => $::lglobal{checkcolor},
-value => '^\/L|L\/',
-text => '/L L/',
)->grid( -row => 1, -column => 6, -pady => 5 );
my $xsel = $frame1->Radiobutton(
-variable => \$::lglobal{brsel},
-selectcolor => $::lglobal{checkcolor},
-value => '^\/X|X\/',
-text => '/X X/',
)->grid( -row => 1, -column => 7, -pady => 5 );

followed by adding the following at the new line 2001/2002
|| ( ( $::lglobal{brbrackets}[0] =~ m{^\x7f/[f]}i )
&& ( $::lglobal{brbrackets}[1] =~ m{^\x7f
[f]/}i ) )
|| ( ( $::lglobal{brbrackets}[0] =~ m{^\x7f/[l]}i )
&& ( $::lglobal{brbrackets}[1] =~ m{^\x7f
[l]/}i ) )
|| ( ( $::lglobal{brbrackets}[0] =~ m{^\x7f/[x]}i )
&& ( $::lglobal{brbrackets}[1] =~ m{^\x7f
[x]/}i ) )

Nigel (windymilla)