Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-10-26 03:35:33 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

use a OO calling sequence to call our implementations of HTMLPopUp. This

Browse Source 
is needed to allow easier testing of the full set of HTMLPopUp libraries.
This commit is contained in:
kestes%walrus.com 2002-05-01 02:03:03 +00:00
parent 53c8d6abea
commit 7e4a62bf0e
1 changed files with 40 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
webtools/tinderbox2/src/lib/HTMLPopUp.pm
View File

@ -12,8 +12,8 @@
# the completed string before it is returned.
# $Revision: 1.16 $
# $Date: 2002/04/27 03:22:57 $
# $Revision: 1.17 $
# $Date: 2002/05/01 02:03:03 $
# $Author: kestes%walrus.com $
# $Source: /home/hwine/cvs_conversion/cvsroot/mozilla/webtools/tinderbox2/src/lib/HTMLPopUp.pm,v $
# $Name: $
@ -71,6 +71,9 @@ $IMPLS = ( ($TinderConfig::PopUpImpl) ||
main::require_modules($IMPLS);
@ISA=($IMPLS);
$POPUP = HTMLPopUp->new();
# The code at these sites look interesting. Perhaps I will add them as
# an alternative implementation someday.
@ -114,12 +117,24 @@ $DEFAULT_POPUP_TITLE = '';
$DEFAULT_POPUP_HEIGHT = 225;
$DEFAULT_POPUP_WIDTH = 425;
if (defined($TinderConfig::ADD_TEXT_BROWSER_STRINGS)) {
$ADD_TEXT_BROWSER_STRINGS = $TinderConfig::ADD_TEXT_BROWSER_STRINGS;
} else {
$ADD_TEXT_BROWSER_STRINGS = 1;
}
#-----------------------------------------------------------
# You should not need to configure anything below this line
#-----------------------------------------------------------
sub new {
my $type = shift;
my %params = @_;
my $self = {};
bless $self, $type;
}
# People who use the text browser 'links'
@ -133,6 +148,10 @@ $DEFAULT_POPUP_WIDTH = 425;
sub text_browser_color_string {
my ($cell_color, $char) = @_;
if (!($ADD_TEXT_BROWSER_STRINGS)) {
return "";
}
my $cell_options;
if ( $cell_color ) {
$cell_options = "color=$cell_color";
@ -351,7 +370,6 @@ sub parse_params {
}
}
1;
# call like this
@ -392,3 +410,21 @@ sub parse_params {
# define_structures()
# call the implemenation defined functions, OO notionation looks
# peculiar for this package so we do this instead.
sub page_header {
return $POPUP->SUPER::page_header(@_);
}
sub Link {
return $POPUP->SUPER::Link(@_);
}
sub define_structures {
return $POPUP->SUPER::define_structures(@_);
}
1;