view release on metacpan or  search on metacpan

xisofs.pl  view on Meta::CPAN

entry($infoRightFrame, 'volumeset','Volume Set','help21',278,30,
	'Enter the volume set information (Max 278 characters)');

$dataField{'bootimage'} = '';
$dataField{'bootcatalog'} = '';
$dataField{'dircount'} = 0;
$dataField{'filecount'} = 0;

#------------
# The options
#------------

$mw->Label(
	-text => 'Options',
	-foreground => 'red4')->pack(
		-side => 'top');

$optFrame = $mw->Frame(
	-background => 'grey70',
	-relief => 'sunken',
	-borderwidth => 1)->pack(
		-side => 'top',
		-padx => 10,
		-fill => 'x');

$optLeftFrame = $optFrame->Frame(
	-relief => 'sunken',
	-background => 'grey70',
	-borderwidth => 1)->pack(
		-side => 'left',
		-pady => 10,
		-padx => 5,
		-ipady => 10,
		-fill => 'both');

$optRightFrame = $optFrame->Frame(
	-relief => 'sunken',
	-background => 'grey70',
	-borderwidth => 1)->pack(
		-pady => 10,
		-padx => 5,
		-side => 'right',
		-fill => 'both');

#----------------------
# Check Boxes
#----------------------

for ($i=0; $i<12; $i++)
{
	$dataField{"check$i"} = 0;
}

$dataField{'radio1'} = 0;

check(0,0,$optLeftFrame, 'Include All Files', 'help06',
	'Include all files regardless of filename');
check(0,1,$optLeftFrame, 'Omit Trailing Periods', 'help07',
	'Omit trailing period from files that do not have an extension');
check(0,2,$optLeftFrame, 'Do Not Use Deep Directory Relocation', 'help08',
	'Do not use deep directory relocation, just pack them as they are');
check(0,3,$optLeftFrame, 'Follow Symbolic Links', 'help09',
	'Follow symbolic links when creating filesystem');
check(0,4,$optLeftFrame, 'Allow Full 32 Character Filenames', 'help10',
	'Allow full 32 character filenames, instead of DOS 8.3');
check(0,5,$optLeftFrame, 'Allow Filenames To Begin With A Period', 'help11',
	'Do not replace leading dot with an underscore');
check(0,6,$optRightFrame, 'Omit Version Numbers', 'help12',
	'Omit file version numbers which are rarely used');
check(0,7,$optRightFrame, 'Use Rock Ridge Protocol', 'help13',
	'Use Rock Ridge protocol to further describe the files on the filesystem');
radio(1,8,$optRightFrame, 'Generate Full Rock Ridge Attributes', 'help14');
radio(1,9,$optRightFrame, 'Generate Adjusted Rock Ridge Attributes', 'help15');
check(0,10,$optRightFrame, 'Generate translation table', 'help16',
	'Generate a TRANS.TBL file in each directory');
check(0,11,$optRightFrame, 'Generate Records for Compressed Files ', 'help25',
	'Generate special SUSP records for transparently compressed files');

$mw->protocol(WM_SAVE_YOURSELF => sub{save_data()});
$mw->protocol(WM_DELETE_WINDOW => sub{do_quit()});

reset_data('defaults');

MainLoop;
exit 0;

#------------
# Entry Field
#------------

sub entry
{
	my ($parent,$dataid,$title,$helpfile,$max,$len,$desc) = @_;

	my $frame = $parent->Frame(
		-relief => 'flat',
		-borderwidth => 0,
		-background => 'grey70')->pack(
			-side => 'top',
			-fill => 'x');
	
	$frame->bind('<Enter>' =>
	sub {
			$statusText->configure(-text => $desc);
	});

	my $lab = $frame->Label(
		-text => $title,
		-background => 'grey70')->pack(
			-padx => 5,
			-side => 'left');

	$lab->bind('<Button-3>' =>
	sub {
			help::display($parent, $helpfile);
	});
	
	$lengthField{$dataid} = $max;
	$entryField{$dataid} = $item;
	$dataField{$dataid} = '';