Frey/Web/IFrame.pm

package Frey::Web::IFrame;
use Moose;

extends 'Frey';
with 'Frey::Web';
#with 'Frey::Storage';

has skeleton => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'skeleton',
);

sub as_markup {
        my ($self) = @_;

        $self->add_js( 'static/Frey/Web/IFrame.js' );

        $self->add_js(q/
                function ifr_close() {
                        var e = self.document.getElementById('frey_iframe') || null;
                        if (!e) return;
                        e.style.height = '0px';
                }
                function ifr_show() {
                        self.document.getElementById('ifr_close').style.display='';
                }
        /);

        my $html = qq|
                <a href="#" id="ifr_close" style="display:none;" onclick="ifr_close();this.style.display='none';return false;">close</a>
                <iframe id="frey_iframe" name="frey_iframe" width="100%" height="0" frameborder="0" border="0" onload="top.ifr_resize(this);">
                </iframe>
        |;

        $html .= $self->iframe_open('/Frey::Web::IFrame','introspect in iframe');

        return $html;
}

sub iframe_open {
        my ($self,$url,$text) = @_;

        qq|
                <a href="$url" target="frey_iframe" onclick="ifr_show(); return true;">$text</a>
        |
}

1;
1	package Frey::Web::IFrame;
2	use Moose;
3
4	extends 'Frey';
5	with 'Frey::Web';
6	#with 'Frey::Storage';
7
8	has skeleton => (
9	is => 'rw',
10	isa => 'Str',
11	required => 1,
12	default => 'skeleton',
13	);
14
15	sub as_markup {
16	my ($self) = @_;
17
18	$self->add_js( 'static/Frey/Web/IFrame.js' );
19
20	$self->add_js(q/
21	function ifr_close() {
22	var e = self.document.getElementById('frey_iframe') \|\| null;
23	if (!e) return;
24	e.style.height = '0px';
25	}
26	function ifr_show() {
27	self.document.getElementById('ifr_close').style.display='';
28	}
29	/);
30
31	my $html = qq\|
32	<a href="#" id="ifr_close" style="display:none;" onclick="ifr_close();this.style.display='none';return false;">close</a>
33	<iframe id="frey_iframe" name="frey_iframe" width="100%" height="0" frameborder="0" border="0" onload="top.ifr_resize(this);">
34	</iframe>
35	\|;
36
37	$html .= $self->iframe_open('/Frey::Web::IFrame','introspect in iframe');
38
39	return $html;
40	}
41
42	sub iframe_open {
43	my ($self,$url,$text) = @_;
44
45	qq\|
46	<a href="$url" target="frey_iframe" onclick="ifr_show(); return true;">$text</a>
47	\|
48	}
49
50	1;