Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2025-01-23 21:17:52 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

add features to allow text browsers to view status tables.

Browse Source
This commit is contained in:
kestes%walrus.com 2001-12-03 19:55:12 +00:00
parent 572164fdd0
commit 15567e3914
1 changed files with 39 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
webtools/tinderbox2/src/lib/TinderDB/VC_Bonsai.pm
View File

@ -93,7 +93,7 @@ use TreeData;
use VCDisplay;
$VERSION = ( qw $Revision: 1.9 $ )[1];
$VERSION = ( qw $Revision: 1.10 $ )[1];
@ISA = qw(TinderDB::BasicTxtDB);
@ -283,10 +283,23 @@ sub status_table_legend {
"$VC_NAME Cell Colors".
"</td></tr></thead>\n");
foreach $state (TreeData::get_all_tree_states()) {
my ($color) = TreeData::TreeState2color($state);
$out .= ("\t\t<tr bgcolor=\"$color\">".
"<td>Tree State: $state</td></tr>\n");
foreach $state (TreeData::get_all_sorted_tree_states()) {
my ($cell_color) = TreeData::TreeState2color($state);
my ($char) = TreeData::TreeState2char($state);
my $description = "Tree State: $state";
my $text_browser_color_string =
HTMLPopUp::text_browser_color_string($cell_color, $char);
$description = (
$text_browser_color_string.
$description.
$text_browser_color_string.
"");
$out .= ("\t\t<tr bgcolor=\"$cell_color\">".
"<td>$description</td></tr>\n");
}
$out .= "\t</table>\n";
@ -380,12 +393,21 @@ sub status_table_row {
# apply_db_updates(). It is possible that there are no treestates at
# all this should not prevent the VC column from being rendered.
my ($color) = TreeData::TreeState2color($LAST_TREESTATE);
my ($cell_color) = TreeData::TreeState2color($LAST_TREESTATE);
my ($char) = TreeData::TreeState2char($LAST_TREESTATE);
my $cell_options;
my $text_browser_color_string;
if ( ($LAST_TREESTATE) && ($cell_color) ) {
$cell_options = "bgcolor=$cell_color ";
$text_browser_color_string =
HTMLPopUp::text_browser_color_string($cell_color, $char);
}
($LAST_TREESTATE) && ($color) &&
($color = "bgcolor=$color");
my $query_links = '';
$query_links.= "\t\t".$text_browser_color_string."\n";
if ( scalar(%authors) ) {
# find the times which bound the cell so that we can set up a
@ -475,6 +497,7 @@ sub status_table_row {
# link
my ($query_link) = "";
if (
($TinderConfig::VCDisplayImpl) &&
($TinderConfig::VCDisplayImpl =~ 'None')
@ -502,7 +525,6 @@ sub status_table_row {
# put each link on its own line and add good comments so we
# can debug the HTML.
$query_link = "\t\t".$query_link."\n";
my ($date_str) = localtime($mindate)."-".localtime($maxdate);
$query_links .= (
@ -513,11 +535,14 @@ sub status_table_row {
" -->\n".
"");
$query_links .= $query_link;
$query_links .= "\t\t".$query_link."\n";
}
$query_links.= "\t\t".$text_browser_color_string."\n";
@outrow = (
"\t<td align=center $color>\n".
"\t<td align=center $cell_options>\n".
$query_links.
"\t</td>\n".
"");
@ -525,7 +550,7 @@ sub status_table_row {
} else {
@outrow = ("\t<!-- skipping: VC: tree: $tree -->".
"<td align=center $color>$HTMLPopUp::EMPTY_TABLE_CELL</td>\n");
"<td align=center $cell_options>$text_browser_color_string</td>\n");
}