Permalink
Browse files

oops... removed debugging output that I missed yesterday

svn path=/bioperl-gui/trunk/; revision=713
  • Loading branch information...
1 parent fa37ca4 commit 2ddf73e1c367b090e820c82e15b63a11efd74c35 mwilkinson committed May 16, 2001
Showing with 2 additions and 2 deletions.
  1. +2 −2 Bio/Tk/bioTk_Map.pm
View
@@ -411,7 +411,7 @@ sub MapObject {
##### Skipping options at the moment
##### Working out boundaries perpendicular to axis #####
- print "axis loc: $axis_loc virtual $virt_axis_loc canvas_min $canvas_min canvas_max $canvas_max ataxis $ataxis \n";
+ # print "axis loc: $axis_loc virtual $virt_axis_loc canvas_min $canvas_min canvas_max $canvas_max ataxis $ataxis \n";
if (defined($at)) {
if (!(ref($at))) { $canvas_min = $canvas_max = $at; }
elsif (ref($at) eq 'ARRAY') {
@@ -440,7 +440,7 @@ sub MapObject {
$canvas_max = $canvas_min;
}
}
- #print "canvas min now $canvas_min\n";
+ # print "canvas min now $canvas_min\n";
# else no -at or -ataxis options, so $canvas_min and $canvas_max
# stay as set in $self->{canvas_min} and $self->{canvas_max}
if ($canvas_min < $canvas_max) {

0 comments on commit 2ddf73e

Please sign in to comment.