Getopt-EvaP
view release on metacpan or search on metacpan
$uht = $uhf->Text(qw(-relief raised -bd 1 -setgrid true -height 36
-wrap word),
);
$uhs = $uhf->Scrollbar(qw(-relief flat), -command => [$uht => 'yview']);
$uht->configure(-yscrollcommand => [$uhs => 'set']);
$uht->pack(qw(-side left -expand yes -fill both));
$uhs->pack(qw(-side right -fill y));
$uhm = $USAGE->Frame(qw/-borderwidth 2 -relief raised/);
$uhm->pack(qw(-side top -fill x -expand yes));
$uhmf = $uhm->Menubutton(qw(-text File -underline 0 -relief raised));
$uhmf->pack(qw(-side left));
$uhmf->command(
-label => 'Close',
-command => [$USAGE => 'withdraw'],
-underline => 0,
);
$uhf->pack(qw(-side left -expand yes -fill both));
$uhl = $USAGE->Frame(-borderwidth => 5);
$uhl->pack(qw( -side right -fill y));
$uhll->insert('end', ' File');
$uhll->insert('end', ' Key');
$uhll->insert('end', ' Boolean');
$uhll->insert('end', ' Switch');
$uhll->insert('end', ' Name');
$uhll->insert('end', ' Application');
$uhll->insert('end', 'Lists');
$uhll->insert('end', 'The `Do It\' Button');
$uhll->insert('end', 'Windows');
$uhll->insert('end', ' Main Window');
$uhll->insert('end', ' Main File Menu');
$uhll->insert('end', ' Main Edit Menu');
$uhll->insert('end', ' Main Help Menu');
$uhll->insert('end', ' Output Window');
$uhll->insert('end', ' Output File Menu');
$uhll->insert('end', ' Help Window');
$uhll->insert('end', ' Help File Menu');
$uhll->insert('end', 'Revision History');
$uhll->insert('end', 'Credits');
$uht->tag('configure', qw(bold -font -Adobe-Courier-Bold-O-Normal-*-120-*));
$uht->tag('configure', qw(big -font -Adobe-Courier-Bold-R-Normal-*-140-*));
$uht->tag('configure', qw(verybig -font -Adobe-Helvetica-Bold-R-Normal-*-240-*));
if ($USAGE->depth > 1) {
$uht->tag('configure', qw(color2 -foreground blue));
} else {
$uht->tag('configure', qw(color2 -background black -foreground white));
$start = $uht->index('end') - 4;
$uht->mark('set', 'mark_usage_help___Main_Window', "$start.0");
$uht->insert('end', 'The Main window is the one you use most often. It contains the main controls for this X11 application which allow you to enter or change command parameter values, view help information, execute the Unix command and exit this...
$uht->insert('end', 'Do It', 'bold');
$uht->insert('end', ' button. The menus are described below.');
####### New section #######
$uht->insert('end', '
Main File Menu
', 'big');
$start = $uht->index('end') - 4;
$uht->mark('set', 'mark_usage_help_____Main_File_Menu', "$start.0");
$uht->insert('end', 'The Main window ');
$uht->insert('end', 'File', 'bold');
$uht->insert('end', ' menu contains these selections:
');
$uht->insert('end', ' Open ...
', 'bold');
$uht->tag('configure', qw(lmargin -lmargin1 90 -lmargin2 90));
$uht->tag('configure', qw(rmargin -rmargin 90));
', [qw(lmargin rmargin)]);
$uht->insert('end', ' Quit
', 'bold');
$uht->insert('end', 'Make this selection to quit the X11 application.
', [qw(lmargin rmargin)]);
####### New section #######
$uht->insert('end', '
Main Edit Menu
', 'big');
$start = $uht->index('end') - 4;
$uht->mark('set', 'mark_usage_help_____Main_Edit_Menu', "$start.0");
$uht->insert('end', 'The Main window ');
$uht->insert('end', 'Edit', 'bold');
$uht->insert('end', ' menu contains this selection:
');
$uht->insert('end', 'Undo All
', 'bold');
$uht->insert('end', 'Make this selection to reset all parameter values to their default values.', [qw(lmargin rmargin)]);
####### New section #######
$uht->insert('end', '
Main Help Menu
', 'big');
$start = $uht->index('end') - 4;
$uht->mark('set', 'mark_usage_help_____Main_Help_Menu', "$start.0");
$uht->insert('end', 'The Main window ');
$uht->insert('end', 'Help', 'bold');
$uht->insert('end', ' menu contains these selections:
');
$uht->insert('end', ' About
', 'bold');
$uht->insert('end', 'This selection tells you a little bit about the Unix program, and gives me some credit! (-:
', [qw(lmargin rmargin)]);
$uht->insert('end', '
$uht->mark('set', 'mark_usage_help___Output_Window', "$start.0");
$uht->insert('end', 'The Output window holds standard output and standard error resulting from the execution of the Unix command. After clicking on the ');
$uht->insert('end', 'Do It', 'bold');
$uht->insert('end', ' button this window appears.
');
####### New section #######
$uht->insert('end', '
Output File Menu
', 'big');
$start = $uht->index('end') - 4;
$uht->mark('set', 'mark_usage_help_____Output_File_Menu', "$start.0");
$uht->insert('end', 'The Output window ');
$uht->insert('end', 'File', 'bold');
$uht->insert('end', ' menu contains these selections:
');
$uht->insert('end', '
Save As ...
', 'bold');
$uht->insert('end', 'Use this selection to save the contents of the Output window to a file.
', [qw(lmargin rmargin)]);
$uht->insert('end', '
$uht->insert('end', 'The Help window is in use at this very momment. Hopefully all the information that you need to run this X11 application and execute the Unix command can be found here. If not, or you have further suggestions or comments, pl...
');
$uht->insert('end', '
Stephen.O.Lidie@Lehigh.EDU
', 'color2');
####### New section #######
$uht->insert('end', '
Help File Menu
', 'big');
$start = $uht->index('end') - 4;
$uht->mark('set', 'mark_usage_help_____Help_File_Menu', "$start.0");
$uht->insert('end', 'The Help window ');
$uht->insert('end', 'File', 'bold');
$uht->insert('end', ' menu contains this selection:
');
$uht->insert('end', '
Close
', 'bold');
$uht->insert('end', 'Make this selection to close the Help window.
', [qw(lmargin rmargin)]);
GUI/withevap.ptk view on Meta::CPAN
$tf = $e->Frame;
$t = $tf->Text(qw(-relief raised -bd 2 -setgrid true -font fixed));
$genPerlTk_text = $t;
$t->pack(qw(-expand yes -fill both));
$tf->AddScrollbars($t);
$tf->configure(-scrollbars => 'se');
my $m = $e->Frame(qw(-bd 1 -relief raised));
$m->pack(qw(-side top -fill x -expand yes));
my $mf = $m->Menubutton(qw(-text File -underline 0 -relief raised));
$mf->pack(-side => 'left');
my $fs = $genPerlTk_mw->FileSelect;
$mf->command(
-label => 'Save as ...',
-command => [sub {save_window @_}, $fs, $t],
);
$mf->command(
-label => 'Pipe to ...',
-command => [sub {pipe_window @_}, $t],
);
GUI/withevap.ptk view on Meta::CPAN
$genPerlTk_mw->title('xwithevap');
$genPerlTk_mw->iconname('xwithevap');
$genPerlTk_mw->geometry('+400+50');
# File, Edit and Help menubuttons, with the Do It button stuffed in between.
my $mb = $genPerlTk_mw->Frame(-borderwidth => 1, -relief => 'raised');
$mb->pack(qw(-side top -fill both -expand yes));
my $mbf = $mb->Menubutton(qw(-text File -underline 0 -relief raised));
my $fs = $genPerlTk_mw->FileSelect;
$mbf->command(
-label => 'Open ...',
-underline => 0,
-state => 'normal',
-command => [sub {
my($fs) = @_;
$trailing_file_list = $fs->Show;
update_command;
}, $fs],
GUI/withevap.ptk view on Meta::CPAN
-command => [$genPerlTk_mw => 'iconify'],
);
$mbf->separator;
$mbf->command(
-label => 'Quit',
-underline => 0,
-command => sub {exit},
);
$mbf->pack(-side => 'left');
my $mbe = $mb->Menubutton(qw(-text Edit -underline 0 -relief raised));
$mbe->command(
-label => $genPerlTk_undo_all,
-underline => 0,
);
$mbe->pack(-side => 'left');
my $doit = $mb->Button;
$doit->pack(-side => 'left', -expand => 'yes');
my $doit_bg = ($doit->configure(-background))[4];
reset_doit_button($doit, $doit_bg);
my $filler = $mb->Menubutton(-text => ' ', -state => 'disabled');
$filler->pack(-side => 'left');
my $mbh = $mb->Menubutton(qw(-text Help -underline 0 -relief raised));
$mbh->pack(-side => 'left');
my $about = $genPerlTk_mw->Dialog(
-title => 'About',
-text => "This Perl/Tk X11 GUI wrapper for program `withevap' created by version 2.3.5 of generate_PerlTk_program.\n\nWed Jul 29 20:28:23 EDT 1998\n\nStephen.O.Lidie\@Lehigh.EDU",
# -bitmap => "\@${genPerlTk_aux_files}/SOL.xbm",
-wraplength => '4i',
);
$mbh->command(
-label => 'About',
GUI/woevap.ptk view on Meta::CPAN
$tf = $e->Frame;
$t = $tf->Text(qw(-relief raised -bd 2 -setgrid true -font fixed));
$genPerlTk_text = $t;
$t->pack(qw(-expand yes -fill both));
$tf->AddScrollbars($t);
$tf->configure(-scrollbars => 'se');
my $m = $e->Frame(qw(-bd 1 -relief raised));
$m->pack(qw(-side top -fill x -expand yes));
my $mf = $m->Menubutton(qw(-text File -underline 0 -relief raised));
$mf->pack(-side => 'left');
my $fs = $genPerlTk_mw->FileSelect;
$mf->command(
-label => 'Save as ...',
-command => [sub {save_window @_}, $fs, $t],
);
$mf->command(
-label => 'Pipe to ...',
-command => [sub {pipe_window @_}, $t],
);
GUI/woevap.ptk view on Meta::CPAN
$genPerlTk_mw->title('xwoevap');
$genPerlTk_mw->iconname('xwoevap');
$genPerlTk_mw->geometry('+400+50');
# File, Edit and Help menubuttons, with the Do It button stuffed in between.
my $mb = $genPerlTk_mw->Frame(-borderwidth => 1, -relief => 'raised');
$mb->pack(qw(-side top -fill both -expand yes));
my $mbf = $mb->Menubutton(qw(-text File -underline 0 -relief raised));
my $fs = $genPerlTk_mw->FileSelect;
$mbf->command(
-label => 'Open ...',
-underline => 0,
-state => 'normal',
-command => [sub {
my($fs) = @_;
$trailing_file_list = $fs->Show;
update_command;
}, $fs],
GUI/woevap.ptk view on Meta::CPAN
-command => [$genPerlTk_mw => 'iconify'],
);
$mbf->separator;
$mbf->command(
-label => 'Quit',
-underline => 0,
-command => sub {exit},
);
$mbf->pack(-side => 'left');
my $mbe = $mb->Menubutton(qw(-text Edit -underline 0 -relief raised));
$mbe->command(
-label => $genPerlTk_undo_all,
-underline => 0,
);
$mbe->pack(-side => 'left');
my $doit = $mb->Button;
$doit->pack(-side => 'left', -expand => 'yes');
my $doit_bg = ($doit->configure(-background))[4];
reset_doit_button($doit, $doit_bg);
my $filler = $mb->Menubutton(-text => ' ', -state => 'disabled');
$filler->pack(-side => 'left');
my $mbh = $mb->Menubutton(qw(-text Help -underline 0 -relief raised));
$mbh->pack(-side => 'left');
my $about = $genPerlTk_mw->Dialog(
-title => 'About',
-text => "This Perl/Tk X11 GUI wrapper for program `woevap' created by version 2.3.5 of generate_PerlTk_program.\n\nWed Jul 29 20:28:35 EDT 1998\n\nStephen.O.Lidie\@Lehigh.EDU",
# -bitmap => "\@${genPerlTk_aux_files}/SOL.xbm",
-wraplength => '4i',
);
$mbh->command(
-label => 'About',
$tf = $e->Frame;
$t = $tf->Text(qw(-relief raised -bd 2 -setgrid true -font fixed));
$genPerlTk_text = $t;
$t->pack(qw(-expand yes -fill both));
$tf->AddScrollbars($t);
$tf->configure(-scrollbars => 'se');
my $m = $e->Frame(qw(-bd 1 -relief raised));
$m->pack(qw(-side top -fill x -expand yes));
my $mf = $m->Menubutton(qw(-text File -underline 0 -relief raised));
$mf->pack(-side => 'left');
my $fs = $genPerlTk_mw->FileSelect;
$mf->command(
-label => 'Save as ...',
-command => [sub {save_window @_}, $fs, $t],
);
$mf->command(
-label => 'Pipe to ...',
-command => [sub {pipe_window @_}, $t],
);
\$genPerlTk_mw->iconname('$my_xcommand');
end_of_template
print OUT <<'end_of_template';
$genPerlTk_mw->geometry('+400+50');
# File, Edit and Help menubuttons, with the Do It button stuffed in between.
my $mb = $genPerlTk_mw->Frame(-borderwidth => 1, -relief => 'raised');
$mb->pack(qw(-side top -fill both -expand yes));
my $mbf = $mb->Menubutton(qw(-text File -underline 0 -relief raised));
my $fs = $genPerlTk_mw->FileSelect;
$mbf->command(
-label => 'Open ...',
-underline => 0,
end_of_template
my $state = $enable_file_menu ? 'normal' : 'disabled';
print OUT " -state => '$state',\n";
print OUT <<'end_of_template';
-command => [sub {
my($fs) = @_;
-command => [$genPerlTk_mw => 'iconify'],
);
$mbf->separator;
$mbf->command(
-label => 'Quit',
-underline => 0,
-command => sub {exit},
);
$mbf->pack(-side => 'left');
my $mbe = $mb->Menubutton(qw(-text Edit -underline 0 -relief raised));
$mbe->command(
-label => $genPerlTk_undo_all,
-underline => 0,
);
$mbe->pack(-side => 'left');
my $doit = $mb->Button;
$doit->pack(-side => 'left', -expand => 'yes');
my $doit_bg = ($doit->configure(-background))[4];
reset_doit_button($doit, $doit_bg);
my $filler = $mb->Menubutton(-text => ' ', -state => 'disabled');
$filler->pack(-side => 'left');
my $mbh = $mb->Menubutton(qw(-text Help -underline 0 -relief raised));
$mbh->pack(-side => 'left');
my $about = $genPerlTk_mw->Dialog(
-title => 'About',
end_of_template
print OUT " -text => \"This Perl/Tk X11 GUI wrapper for program `$my_command' created by version $genPerlTk_version of generate_PerlTk_program.\\n\\n$genPerlTk_date\\n\\nStephen.O.Lidie\\\@Lehigh.EDU\",\n";
print OUT <<'end_of_template';
# -bitmap => "\@${genPerlTk_aux_files}/SOL.xbm",
-wraplength => '4i',
);
( run in 0.592 second using v1.01-cache-2.11-cpan-49f99fa48dc )