Learn how easy it is to sync an existing GitHub or Google Code repo to a SourceForge project! See Demo

Close

Diff of /tkviewtest [bb4993] .. [46c4a0] Maximize Restore

  Switch to unified view

a/tkviewtest b/tkviewtest
...
...
39
         #print "y = $pointerY\n";
39
         #print "y = $pointerY\n";
40
         if( ($pointerY >= $BBox[1] ) && ($pointerY <= $BBox[3]) &&   # Popup balloon if withing bounding box
40
         if( ($pointerY >= $BBox[1] ) && ($pointerY <= $BBox[3]) &&   # Popup balloon if withing bounding box
41
            $mouseItem =~ /$;_Dset(.+)$/ ){               # and a dataset item
41
            $mouseItem =~ /$;_Dset(.+)$/ ){               # and a dataset item
42
             my $datasetName = $1;
42
             my $datasetName = $1;
43
             my $text = $tree->entrycget($mouseItem,'-text');
43
             my $text = $tree->entrycget($mouseItem,'-text');
44
           $text =~ /\: Dims (.+)$/;
45
           my @dims = split(',',$1);
46
             my $elements = 1;
44
             my $elements = 1;
45
           if(  $text =~ /\: Dims (.+)$/ ){
46
               my @dims = split(',',$1);
47
             my $message;
47
              my $message;
48
             foreach (@dims){
48
              foreach (@dims){
49
                 $elements *= $_;
49
                  $elements *= $_;
50
             }
50
              }
51
          }
51
            if( $elements > $maxElements){
52
            if( $elements > $maxElements){
52
                $message = "$elements Elements: Too Big To Display";
53
                $message = "$elements Elements: Too Big To Display";
53
            }
54
            }
54
            else{
55
            else{
55
                my $group = $tree->entrycget($mouseItem,'-data');
56
                my $group = $tree->entrycget($mouseItem,'-data');