#!/usr/bin/perl -w package WxBrowser::GUI; use strict; use Wx qw/:everything/; use Wx::Html; use base qw(Wx::Frame); use Wx::Event qw( EVT_BUTTON EVT_MENU); use vars qw/ %ID_ $I/; %ID_ = map { $_ => 1000 + int(rand 30) + $I++ } qw/ GOTEXT GOBUTTON HTML ABOUT QUIT GOTEXT/; sub new { my( $class ) = shift; my( $this ) = $class->SUPER::new( undef, -1, "WxBrowser - a wxPerl HTML Browser ", [0,0], [300,300], wxDEFAULT_FRAME_STYLE| wxCLIP_CHILDREN, ); $this->CreateStatusBar( 2 ); $this->SetStatusText( "Welcome to WxBrowser!", 1); $this->GOOEY(); $this->SetMenuBar( MENUU($this) ); EVT_BUTTON( $this, $ID_{GOBUTTON}, \&GONOW ); EVT_MENU( $this, $ID_{ABOUT}, \&OnAbout ); EVT_MENU( $this, $ID_{QUIT}, \&OnQuit ); return $this; } sub OnAbout { my( $this, $event ) = @_; Wx::MessageBox( "Welcome to WxBrowser 1.0 WxBrowser is a crude browser created as a demo of wxPerl Has basic support for html (probably html 1.0 or 2.0) That means, no cookies, no images, no forms, bad tables ;) (C)opyright CrazyInsomniac of PerlMonks.org. This program is released under the same terms as perl itself (if you don't know what that means, visit perl.com ) ", "About WxBrowser", wxOK|wxICON_INFORMATION, $this ); } sub OnQuit { my( $this, $event ) = @_; $this->Close(1); } sub MENUU { my( $bar ) = Wx::MenuBar->new(); my( $filemenu ) = Wx::Menu->new(); $filemenu->Append( $ID_{ABOUT}, "About", "Find Out Who Created WxBrowser" ); $filemenu->Append( $ID_{QUIT}, "Quit", "Exit this application" ); $bar->Append( $filemenu, "File" ); return $bar; } sub GONOW { my ($this, $event) = @_; my $html = $this->FindWindow($ID_{HTML}); my $text = $this->FindWindow($ID_{GOTEXT}); $html->LoadPage($text->GetValue()); return(); } sub GOOEY{ my $parent = shift; my( $sizer1 ) = Wx::BoxSizer->new( wxVERTICAL ); my( $sizer2 ) = Wx::BoxSizer->new( wxVERTICAL ); my( $htmlsizer ) = Wx::BoxSizer->new( wxVERTICAL ); ### my( $html ) = Wx::HtmlWindow->new( ### $parent, $ID_{HTML}, wxDefaultPosition, wxDefaultSize, ); $html->SetRelatedFrame($parent, "WxBrowser: %s"); $html->SetRelatedStatusBar(0); $html->SetPage('
let that freak
flag fly!