|
#!/usr/bin/perl -w
import Qt::app;
$e = Editor->new;
$e ->resize(400, 400);
$e ->show();
for ( @ARGV ) {
$e = Editor->new;
$e ->resize(400, 400);
$e ->loadFile( $_ );
$e ->show();
}
$app -> connect ( $app , 'lastWindowClosed()' , 'quit()' );
exit $app -> exec ();
|