Ticket #1186: changed.diff

File changed.diff, 555 bytes (added by azornik, 3 years ago)
  • PerlTidy.pm

     
    182182 
    183183    while (1) { 
    184184        my $dialog = Wx::FileDialog->new( 
    185             $main, Wx::gettext("Save file as..."), 
     185            $main, Wx::gettext("Save file as..."),\ 
     186#XXX 
     187            before_hooks; 
    186188            $default_dir, ( $current or $doc->get_title ) . '.html', 
    187189            "*.*", Wx::wxFD_SAVE, 
    188190        ); 
     
    340342    Class::Unload->unload('Perl::Tidy'); 
    341343    return; 
    342344} 
    343  
     345sub before_hooks { 
     346    tidy_document; 
     347}  
    3443481; 
    345349 
    346350=pod