[Gmod-gbrowse-cmts] Generic-Genome-Browser/libnew/Bio/Graphics/Browser Render.pm, 1.31, 1.32

[Lincoln S. <ls...@us...>]

Update of /cvsroot/gmod/Generic-Genome-Browser/libnew/Bio/Graphics/Browser
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv17349/libnew/Bio/Graphics/Browser

Modified Files:
	Render.pm 
Log Message:
broken implementation of track updating

Index: Render.pm
===================================================================
RCS file: /cvsroot/gmod/Generic-Genome-Browser/libnew/Bio/Graphics/Browser/Render.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -C2 -d -r1.31 -r1.32
*** Render.pm	11 Jun 2008 21:01:29 -0000	1.31
--- Render.pm	11 Jun 2008 23:08:20 -0000	1.32
***************
*** 210,214 ****
          $self->init_plugins();
          $self->init_remote_sources();
!         my $features = $self->get_features;
          my $seg = $self->features2segments($features)->[0];    # likely wrong
  
--- 210,214 ----
          $self->init_plugins();
          $self->init_remote_sources();
!         my $features = $self->region->features;
          my $seg = $self->features2segments($features)->[0];    # likely wrong
  
***************
*** 810,813 ****
--- 810,825 ----
  	return "$description: $region";
      }
+     elsif ($element eq 'landmark_search_field') {
+ 	return $self->state->{name};
+     }
+     elsif ($element eq 'overview_panels') {
+ 	return "<b>some day this will be the overview showing ".$self->state->{name}."</b>";
+     }
+     elsif ($element eq 'detail_panels') {
+         $self->init_database();
+         $self->init_plugins();
+         $self->init_remote_sources();
+ 	return $self->render_detailview($self->region->seg);
+     }
  
      return 'Unknown element';
***************
*** 829,832 ****
--- 841,848 ----
  	$position_updated++;
      }
+     if ($action =~ /set span/) {
+ 	$self->zoom_to_span($state,$action);
+ 	$position_updated++;
+     }
      if ($position_updated) { # clip and update param
  	if (defined $state->{seg_min} && $state->{start} < $state->{seg_min}) {
***************
*** 853,861 ****
    my ($state,$new_span) = @_;
  
    my $current_span = $state->{stop} - $state->{start} + 1;
    my $center	    = int(($current_span / 2)) + $state->{start};
!   my $range	    = int(($new_span)/2);
    $state->{start}   = $center - $range;
!   $state->{stop }   = $state->{start} + $new_span - 1;
  }
  
--- 869,879 ----
    my ($state,$new_span) = @_;
  
+   my ($span) = $new_span =~ /([\d+.-]+)/;
+ 
    my $current_span = $state->{stop} - $state->{start} + 1;
    my $center	    = int(($current_span / 2)) + $state->{start};
!   my $range	    = int(($span)/2);
    $state->{start}   = $center - $range;
!   $state->{stop }   = $state->{start} + $span - 1;
  }
  
***************
*** 1242,1245 ****
--- 1260,1264 ----
    my $self = shift;
    my $seg = shift;
+   return '';
  }