> 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>