/[Frey]/trunk/lib/Frey/Web/IFrame.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Web/IFrame.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 906 by dpavlin, Fri Dec 26 01:01:37 2008 UTC revision 907 by dpavlin, Fri Dec 26 01:32:09 2008 UTC
# Line 1  Line 1 
1  package Frey::Web::IFrame;  package Frey::Web::IFrame;
2  use Moose;  use Moose::Role;
3    
4  extends 'Frey';  sub iframe_html {
 with 'Frey::Web';  
 #with 'Frey::Storage';  
   
 has skeleton => (  
         is => 'rw',  
         isa => 'Str',  
         required => 1,  
         default => 'skeleton',  
 );  
   
 sub as_markup {  
5          my ($self) = @_;          my ($self) = @_;
6    
7          $self->add_js(q`          $self->add_js(q`
# Line 36  sub as_markup { Line 25  sub as_markup {
25                  }                  }
26          `);          `);
27    
28          my $html = qq|          return qq|
29          <div>          <div>
30                  <a href="#" id="ifr_close" style="display:none;" onclick="ifr_close();return false;">close</a><span id="ifr_loading" style="display: none; background: #ff8;">Loading...</span>                  <a href="#" id="ifr_close" style="display:none;" onclick="ifr_close();return false;">close</a><span id="ifr_loading" style="display: none; background: #ff8;">Loading...</span>
31                  <!-- we really need src="#" here to avoid onload when page loads -->                  <!-- we really need src="#" here to avoid onload when page loads -->
32                  <iframe src="#" name="transport_iframe" id="transport_iframe" style="display: none;" frameborder=0 border=0 onload="ifr_transfer(this);"></iframe>                  <iframe src="#" name="transport_iframe" id="transport_iframe" style="display: none;" frameborder=0 border=0 onload="ifr_transfer(this);"></iframe>
33                  <div id="ifr_target" style="display: none"></div>                  <div id="ifr_target" style="display: none"></div>
34          </div>          </div>
35          |;          |
36            ;
         $html .= $self->iframe_open('/Frey::Web::IFrame','introspect in iframe');  
   
         return $html;  
37  }  }
38    
39  sub iframe_open {  sub iframe_open {
Legend:
Removed from v.906  
changed lines
  Added in v.907
  ViewVC Help
Powered by ViewVC 1.1.26