#!/usr/bin/perl

$file = $0;
$file =~ s#/MacOS/foxbox##;
$path = "/Applications/TenFourFox.app";

exec("\"$path/Contents/MacOS/firefox\" -app \"$file/Resources/foxbox/application.ini\"");
&dialogue("Failed to execute: $!\n");
sub dialogue {
	open(O, "|/usr/bin/osascript") || (print "Can't open osascript; $!\n", exit);
	print O <<"EOG";
tell application "Dock"
	activate
	display dialog "@_" buttons ("OK") default button "OK"
	set answername to button returned of the result
end tell
EOG
	close(O);
	exit;
}

