[Bio] / FigWebServices / WebApplicationComponents / Tabulator.pm Repository:
ViewVC logotype

View of /FigWebServices/WebApplicationComponents/Tabulator.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Tue Feb 14 19:19:11 2006 UTC (14 years ago) by olson
Branch: MAIN
CVS Tags: mgrast_dev_08112011, rast_rel_2009_05_18, mgrast_dev_08022011, rast_rel_2014_0912, rast_rel_2008_06_18, myrast_rel40, rast_rel_2008_06_16, mgrast_dev_05262011, rast_rel_2008_12_18, mgrast_dev_04082011, rast_rel_2008_07_21, rast_rel_2010_0928, rast_2008_0924, mgrast_version_3_2, mgrast_dev_12152011, rast_rel_2008_04_23, mgrast_dev_06072011, rast_rel_2008_09_30, rast_rel_2009_0925, rast_rel_2010_0526, rast_rel_2014_0729, mgrast_dev_02212011, rast_rel_2010_1206, mgrast_release_3_0, mgrast_dev_03252011, rast_rel_2010_0118, mgrast_rel_2008_0924, mgrast_rel_2008_1110_v2, rast_rel_2009_02_05, rast_rel_2011_0119, mgrast_rel_2008_0625, mgrast_release_3_0_4, mgrast_release_3_0_2, mgrast_release_3_0_3, mgrast_release_3_0_1, mgrast_dev_03312011, mgrast_release_3_1_2, mgrast_release_3_1_1, mgrast_release_3_1_0, mgrast_dev_04132011, rast_rel_2008_10_09, mgrast_dev_04012011, rast_release_2008_09_29, mgrast_rel_2008_0806, mgrast_rel_2008_0923, mgrast_rel_2008_0919, rast_rel_2009_07_09, rast_rel_2010_0827, mgrast_rel_2008_1110, myrast_33, rast_rel_2011_0928, rast_rel_2008_09_29, mgrast_rel_2008_0917, rast_rel_2008_10_29, mgrast_dev_04052011, mgrast_dev_02222011, rast_rel_2009_03_26, mgrast_dev_10262011, rast_rel_2008_11_24, rast_rel_2008_08_07, HEAD
more toby stuff

package Tabulator;

use strict;
use warnings;

1;

sub new {
  my ($classname, $params) = @_;

  # get params
  my $id = $params->{id} || "tabulator";
  my $tabs = $params->{tabs};
  my $initially_active_tab = $params->{initially_active_tab} || 0;
  my $tabwidth = $params->{tabwidth} || 80;
  my $tabheight = $params->{tabheight} || 18;
  my $width = $params->{width} || undef;
  my $height = $params->{height} || 500;
  my $numtabs = scalar(@$tabs);

  # initialize html-string
  my $tabulator = qq~<div style="height: ~ . $height . qq~px; overflow: hidden;"><table class="tabulator_table" style="height: ~ . $tabheight . qq~px;"><tr>~;

  # initialize content string
  my $content = "";

  # draw tab-headers
  my $tabnum = 0;
  unless (defined($width)) {
    $width = "";
  }
  foreach my $tab (@$tabs) {
    my $class_header = "tabulator_select_back";
    my $z_index = 1;
    if ($tabnum == $initially_active_tab) {
      $class_header = "tabulator_select_front";
      $z_index = 2;
    }
    $tabulator .= qq~<td name="tabulator_~ . $id . qq~_select" class="~ . $class_header . qq~" onclick="activate_tab('~ . $id . qq~', '~ . $tabnum . qq~');" style="width: ~ . $tabwidth . qq~px;">~ . $tab->[0] . qq~</td>~;

    $content .= qq~<div class="tabulator_content" name="tabulator_~ . $id . qq~_body" style="z-index: ~ . $z_index . qq~; top: ~ . ($tabnum * -1 * ($height + 1)) . qq~px;~ . $width . qq~ height: ~ . $height . qq~px; position: relative;">~ . $tab->[1] . qq~</div>~;

    $tabnum++;
  }

  # draw tab-header buffer
  $tabulator .= qq~<td class="tabulator_spacer"></td>~;

  # close header table
  $tabulator .= qq~</tr></table>~;

  # draw tab-bodies
  $tabulator .= $content;

  # end surrounding div
  $tabulator .= "</div>";

  return $tabulator;
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3