> For instance:
>
>
> sub launch_viewer {
> my $for_path = shift;
> $message_viewer = create_main_viewer_window();
> add_main_menu($message_viewer);
> add_header_list($message_viewer, $for_path);
> add_message_area($message_viewer);
> print get_viewer_option('Files|References'), "\n";
> MainLoop;
> }
>
> sub create_main_viewer_window {
> our $message_viewer = MainWindow->new(
> -title => get_viewer_option('source file'));
> $message_viewer->geometry('780x540+0+0');
> return $message_viewer;
> }
>
> sub add_main_menu {
> my $message_viewer = shift;
>
> our $menu_bar = $message_viewer->Menu(-type => 'menubar');
> $message_viewer->configure(-menu => $menu_bar);
> create_view_menu();
> create_find_menu();
> }
>
Nice Joseph,
If I'm looking at this right this is a GUI for viewing files?
What module(s) are you using before this code? Tk; ? Or??
Or is this simply an example and "Not to be tried at home"? :)
Thanks
> You notice something about the launch_viewer method? It
> does nothing technical at all, yet guides the entire process,
> and does so in plain language. Programming languages have
> eveolved to well support plain-language styles, and they help
> to minimize errors by minimize the distractions of detail.
> The details of each action specified can be fleshed out in
> the individual mthod definitions, without cluttering the main
> description of the process.
>
> It is a whole new world in programming.
>
> Joseph
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
