Ticket #1482: open.osx.terminal.app.patch

File open.osx.terminal.app.patch, 726 bytes (added by akoya, 15 months ago)
  • .pm

    old new  
    20992099                    system qq(xterm -sb -e "$cmd; sleep 1000" &); 
    21002100                } 
    21012101            } 
    2102         } elsif (Padre::Constant::UNIX) { 
    2103  
     2102        } elsif (Padre::Constant::MAC) { 
    21042103            # tome 
     2104             
     2105            my $pwd = $self->current->document->project_dir();           
     2106            my $tmp = File::Temp->new(TEMPLATE => 'PF_XXXXXXXX', SUFFIX => '.command', DIR => '/tmp', UNLINK => 0); 
     2107            binmode( $tmp, ":utf8" ); 
     2108            print $tmp "#!/bin/sh\ncd \"". $pwd ."\"; clear; $cmd;\n"; 
     2109            close $tmp; 
     2110            system qq(/bin/chmod 755 $tmp); 
     2111            system qq(/usr/bin/open $tmp); 
     2112            ( -f $tmp ) && unlink $tmp; 
     2113 
    21052114        } else { 
    21062115            system qq(xterm -sb -e "$cmd; sleep 1000" &); 
    21072116        }