Patch: logo.wml

[Florian Kuehnert <nospam@thanx>]

Hello everybody,

I had to patch WML just a little bit so that I can put the WML logo using the
WML <logo> tag (1.6.6.) so that there is a "target" tag similar to the HTML
tag. I hope, what I did was right, but it actually works ;-)

-----------------------------------------------------------------
--- logo.alt.wml	Sat Jun 27 22:54:26 1998
+++ logo.wml	Sat Jun 27 23:39:06 1998
@@ -12,12 +12,14 @@
 <preserve name>
 <preserve base>
 <preserve file>
+<preserve target>
 <set-var %attributes>
 <ifeq "<get-var src>" "" <set-var src=wml>>
 <: 
     my $name = "<get-var name>";
     my $base = "<get-var base>";
     my $file = "<get-var file>";
+	 my $target = "<get-var target>";
 
     my $giffile  = "$WML_LOC_LIBDIR/aux/logos/logo-$name.gif";
     my $infofile = "$WML_LOC_LIBDIR/aux/logos/logo-$name.info";
@@ -59,8 +61,10 @@
     print "<a " .
           " href=\"$url\"" .
           " onMouseOver=\"self.status='$hint';return true\"" .
-          " onMouseOut=\"self.status='';return true\"" .
-          ">" .
+          " onMouseOut=\"self.status='';return true\"";
+
+   print " target=\"$target\" " if ($target);
+	print " >" .
           "<img" .
           " src=\"$file\"" .
           " alt=\"$alt\"" .
-----------------------------------------

  Florian

PS: Ralf -- Did you notice the WML article in the German Linux Magazin?
______________________________________________________________________
Website META Language (WML)                www.engelschall.com/sw/wml/
Official Support Mailing List                   sw-wml@engelschall.com
Automated List Manager                       majordomo@engelschall.com