/[Frey]/trunk/lib/Frey/Introspect.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/Introspect.pm

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

revision 120 by dpavlin, Sun Jul 13 19:46:10 2008 UTC revision 121 by dpavlin, Mon Jul 14 21:22:43 2008 UTC
# Line 138  sub html { Line 138  sub html {
138    
139          while (1) {          while (1) {
140    
                 my $js = $self->head_javascript;  
                 $js .= << '__END_OF_JS__';  
 <script type="text/javascript">  
 joose.loadComponents("../lib")  
   
 function $(id) {  
         return document.getElementById(id)  
 }  
   
 </script>  
 __END_OF_JS__  
   
141                  my ( $class, $meta, $is_role ) = $self->load_package;                  my ( $class, $meta, $is_role ) = $self->load_package;
142    
143                  my $package = $self->package;                  my $package = $self->package;
# Line 179  __END_OF_JS__ Line 167  __END_OF_JS__
167    
168                  my $classes =                  my $classes =
169                          qq|<div class="classes">| .                          qq|<div class="classes">| .
170                          Frey::ClassBrowser->new->html_markup .                          Frey::ClassBrowser->new->markup .
171                          qq|</div>|;                          qq|</div>|;
172    
173                  my $html = dom2html(                  $self->add_css( 'static/introspect.css' );
174                          html => [  
175                                  head => [                  warn "## css = ",dump( $self->css );
176                                          link => { rel=>"stylesheet", href=>"/static/app.css", type=>"text/css", media=>"screen" },  
177                                          $js,                  my $html = $self->page(
178                                          title => [ 'Introspect ', $self->package ],                          title => "Introspect $package",
179                                  ],                          body => "<h1>$package</h1>\n$table\n$classes",
                                 body => [  
                                         h1 => [ $self->package ],  
                                         $table,  
                                         $classes,  
                                 ],  
                         ]  
180                  );                  );
181    
182                  $request->print($html);                  $request->print($html);
Legend:
Removed from v.120  
changed lines
  Added in v.121
  ViewVC Help
Powered by ViewVC 1.1.26