obj epofoot.htm epoobj3.htm

richter Sun, 16 Jul 2000 10:50:35 -0700
richter     00/07/16 10:53:20

  Added:       test/cmp epoobj1.htm epoobj2.htm epoobj3.htm
               test/html/EmbperlObject/obj epofoot.htm epoobj3.htm
  Log:
  New files
  
  Revision  Changes    Path
  1.1                  embperl/test/cmp/epoobj1.htm
  
  Index: epoobj1.htm
  ===================================================================
  
  <html>
   <head>
   <title>Example using Objects: default</title>
   </head>
   <body>
   <h1>head from foo</h1>
  
   <font size=1>title = default<br>
  -----------------------------
   
  
   PAGE 1
  
   <hr> Footer <hr>
   
   
  
  </body>
   </html>
  
  
  
  
  1.1                  embperl/test/cmp/epoobj2.htm
  
  Index: epoobj2.htm
  ===================================================================
  
  <html>
   <head>
   <title>Example using Objects: epoobj2 -&gt; page2</title>
   </head>
   <body>
   <h1>head from foo</h1>
  
   <font size=1>title = epoobj2 -&gt; page2<br>
  -----------------------------
   
  
   PAGE 2
  
   <hr> Footer <hr>
   
   
  
  </body>
   </html>
  
  
  
  
  1.1                  embperl/test/cmp/epoobj3.htm
  
  Index: epoobj3.htm
  ===================================================================
  
  <html>
   <head>
   <title>Example using Objects: epoobj3 -&gt; page3</title>
   </head>
   <body>
   <h1>head from foo</h1>
  
   <font size=5>title = epoobj3 -&gt; page3<br>
  -----------------------------
   
  
   PAGE 3
   <hr> Footer <hr>
   
   Gerald Richter / ecos (c) 2000
  
  </body>
   </html>
  
  
  
  
  1.1                  embperl/test/html/EmbperlObject/obj/epofoot.htm
  
  Index: epofoot.htm
  ===================================================================
   <hr> Footer <hr>
   
   [+ $_[0] -> {copyright} +]
  
  
  
  1.1                  embperl/test/html/EmbperlObject/obj/epoobj3.htm
  
  Index: epoobj3.htm
  ===================================================================
   [! 
   
   sub new
        {
        my $self = shift ;
  
        $self -> {fontsize} = 5 ;
        $self -> {copyright} = 'Gerald Richter / ecos (c) 2000' ;
        }
   
   sub title 
        { 
        'epoobj3 -> page3'
        } 
   
   !]
  
   PAGE 3
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
cvs commit: embperl/test/html/EmbperlObject/obj epofoot.htm epoobj3.htm

Reply via email to
