Skip to content
Browse files

non-plugin callbacks working as a proof-of-principle

  • Loading branch information...
1 parent 248601a commit c7f71609064ed6abcac71185fa0bae0bcfbb1617 @lstein lstein committed Nov 7, 2011
Showing with 5 additions and 4 deletions.
  1. +5 −4 lib/Bio/Graphics/Browser2/RenderPanels.pm
View
9 lib/Bio/Graphics/Browser2/RenderPanels.pm
@@ -1170,14 +1170,15 @@ sub make_scale_feature {
sub make_map {
my $self = shift;
- my ($boxes,$panel,$map_name,$trackmap,$first_box_is_scale) = @_;
- my @map = ($map_name);
+ my ($boxes,$panel,$label,$trackmap,$first_box_is_scale) = @_;
+ my @map = ($label);
my $source = $self->source;
my $flip = $panel->flip;
my $tips = $source->global_setting('balloon tips') && $self->settings->{'show_tooltips'};
my $use_titles_for_balloons = $source->global_setting('titles are balloons');
+ my ($track_dbid) = $source->db_settings($label,$self->segment->length);
my $did_map;
@@ -1191,11 +1192,11 @@ sub make_map {
my $feature = $box->[0];
next unless $feature->can('primary_tag');
my $id = eval {CGI::escape($feature->primary_id)} or next;
- my $dbid = eval {CGI::escape($feature->gbrowse_dbid)};
+ my $dbid = eval {CGI::escape($feature->gbrowse_dbid)} || $track_dbid;
my %attributes = (
# onmouseover => "Controller.callback(this,'$id')",
onmousedown => "Controller.callback(this,'$dbid','$id')",
- style => 'cursor:pointer'
+ href => 'javascript:void(0)',
);
my $fname = eval {$feature->display_name} || eval{$box->[0]->name} || 'unnamed';
my $ftype = $feature->primary_tag || 'feature';

0 comments on commit c7f7160

Please sign in to comment.
Something went wrong with that request. Please try again.