From 24e63f0a10ccef73305534edcd6be26f2d455a27 Mon Sep 17 00:00:00 2001
From: Jan Michel <j.michel@gsi.de>
Date: Fri, 5 Jun 2020 11:19:01 +0200
Subject: [PATCH] Update CTS GUI with larger window size

---
 web/CtsPlugins/CtsMod20.pm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/web/CtsPlugins/CtsMod20.pm b/web/CtsPlugins/CtsMod20.pm
index 41bcc70..8cfe1d0 100755
--- a/web/CtsPlugins/CtsMod20.pm
+++ b/web/CtsPlugins/CtsMod20.pm
@@ -14,12 +14,17 @@ sub init {
    my $address = $_[1];
    
    my $trb  = $self->{'_cts'}{'_trb'};
-   
+
+   my $cprop = $self->{'_cts'}{'_properties'};
+
    my $regs = $self->{'_registers'};
    my $prop = $self->{'_properties'};
 
    my $header = $self->{'_cts'}{'_enum'}{0x20}->read();
    
+   my $windowsize = 4;
+   if ($cprop->{'trb_compiletime'} >= 0x5ed6332f) {$windowsize=6;}
+   
 # registers
    for(my $i = 0; $i < $header->{'len'}; $i++) {
       my $key = "trg_coin_config$i";
@@ -27,7 +32,7 @@ sub init {
       $regs->{$key} = new TrbRegister($address + 1 + $i, $trb, {
          'coin_mask'    => {'lower' =>  0, 'len' => 8, 'type' => 'mask'},
          'inhibit_mask' => {'lower' =>  8, 'len' => 8, 'type' => 'mask'},
-         'window'       => {'lower' => 16, 'len' => 4}
+         'window'       => {'lower' => 16, 'len' => $windowsize}
       }, {
          'accessmode' => "rw",
          'label' => "Coincidence Configuration $i",
@@ -45,4 +50,4 @@ sub init {
    $prop->{"trg_coin_itc_base"} = $header->{'itc_base'};
 }
 
-1;
\ No newline at end of file
+1;
-- 
2.43.0