Hi All, In Mastering Perl/Tk, page 72, there is code for a simple font viewer. The authors say:
"This program is useful no matter what operating system you're on." The book errata info at O'Reilly does not mention any problems with this code. The section I'm having problems with is: my $family = 'Courier'; my $be = $f->BrowseEntry( -label => 'Family: ', -variable => \$family, -browsecmd => \&apply_font ) ->pack( -fill => 'x', -side => 'left' ); $be->insert( 'end', sort $mw->fontFamilies); On Win98, I get: Error: runtime exception. It works when I replace the $be line with: my @fonts = ( 'Arial', 'Courier', 'Courier New', 'Century Schoolbook', 'Comic Sans MS', 'Elephant', 'Forte', 'Garamond', 'Wet Paint' ); $be->insert( 'end', @fonts ); The fontFamilies method is the problem. The html docs do not mention any OS limitations. Nor does a google search or AS docs on Font. Also, I tried the fontNames method and got an empty array, but no generated error. Any thoughts on this? Jim __________________________________________________ Do You Yahoo!? Yahoo! Sports - live college hoops coverage http://sports.yahoo.com/ _______________________________________________ ActivePerl mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
