=head1 NAME Wx::HexOrChar - a Wx Dialog/App for converting hex/text to text/hex =head1 SYNOPSIS perl -MWx::HexOrChar -e Wx::HexOrChar::App->new()->MainLoop() # or use Wx::HexOrChar; Wx::HexOrChar::App->new()->MainLoop(); # or even require Wx::HexOrChar; system $^X, $INC{'Wx/HexOrChar.pm'}; # or the oneliner version (quotes may vary ;) perl -mWx::HexOrChar -e"system $^X, $INC{q{Wx/HexOrChar.pm}};" # -m is equivalent to use Wx::HexOrChar(); in case you was wonderi +ng =head1 DESCRIPTION Run it as a standalone app, or embed it easily into any wxPerl application, cause you never know when it might come in handy to convert hex to text, and text to hex. You probably got Wx::HexOrChar from http://perlmonks.com/index.pl?node_id=192667 $Id: HexOrChar.pm,v 1.5 2002/08/25 13:00:26 _ Exp $ =cut package Wx::HexOrChar; use Wx qw( :everything ); use Wx::Event qw( EVT_BUTTON EVT_RIGHT_DOWN ); use base qw( Wx::Frame ); use vars qw( $VERSION ); use strict; $VERSION = 0.01; sub new { my $class = shift; my $SIZE = [400,400]; my $self = $class->SUPER::new( undef, -1, "Wx::HexOrChar - you know what it is ;)", [0,0], $SIZE, wxDEFAULT_FRAME_STYLE | wxCLIP_CHILDREN, # for easy commenting out ); $self->SetIcon( Wx::GetWxPerlIcon() ); my $p = Wx::Panel->new( $self, -1, [50,50], $SIZE, ); $self->GUI($p); ## and we construct the dialog EVT_BUTTON( $self, $self->ID('TO_HEX_BUTTON'), \&OnToHex ); EVT_BUTTON( $self, $self->ID('TO_TEXT_BUTTON'), \&OnToText ); EVT_RIGHT_DOWN( $self, \&OnAbout ); EVT_RIGHT_DOWN( $p, \&OnAbout ); my( $MainSizer ) = Wx::BoxSizer->new( Wx::wxHORIZONTAL ); $MainSizer->Add( $p, 1, wxGROW ); $self->SetSizer( $MainSizer ); $self->SetAutoLayout( 1 ); ## ;) $self->Layout(); ##force layout of the children anew $MainSizer->Fit( $self ); $MainSizer->SetSizeHints( $self ); return $self; } #### THE EVENT HANDLERS sub OnToText { my( $self, $event ) = @_; my $HexString = $self->FindWindow( $self->ID('HEX_STRING') )->GetV +alue(); $HexString = join '', map { pack "H*", $_ } split /\s/, $HexString +; $self->FindWindow( $self->ID('TEXT_STRING') )->SetValue( $HexStrin +g ); } sub OnToHex { my( $self, $event ) = @_; my $TextString = $self->FindWindow( $self->ID('TEXT_STRING') )->Ge +tValue(); $TextString = join' ', map { unpack "H*", $_ } split //, $TextStr +ing; $self->FindWindow( $self->ID('HEX_STRING') )->SetValue( $TextStrin +g ); } sub OnAbout { my( $self, $event ) = @_; # display a simple about box (i just keep copying and pasting this) Wx::MessageBox( qq[ ${\__PACKAGE__} $VERSION Created by podmaster of perlmonks.org fame running on wxPerl $Wx::VERSION ${\wxVERSION_STRING()} This program is released under the same terms as perl itsel +f (if you don't know what that means, visit http://perl.com ) To learn more about wxPerl visit http://wxperl.sf.net/ ], "About ${\__PACKAGE__} $VERSION", # TITLE wxOK | wxICON_INFORMATION, $self ); } ##### GGGUI GENERATORs sub BOXS { my( $self, $parent, $str, $orient ) = @_; return Wx::StaticBoxSizer->new( Wx::StaticBox->new( $parent, -1, $str, ,), $orient, ,); } sub ID { ## ALL KEYS ARE UPPERCASED my($self, $key, $dontCreate ) = @_; return $self->{"\0ID_"} if not defined $key; $self->{"\0I"} ||=6660; # the perpetual ID incrementor $key = uc($key); if(exists $self->{"\0ID_"}->{$key} ) { return $self->{"\0ID_"}->{$key}; } else { return 0 if $dontCreate; return $self->{"\0ID_"}->{$key} = ++$self->{"\0I"}; } } sub TEXS { my( $self, $parent, $id, $init, $poss, $size ) = @_; $poss ||= wxDefaultPosition; $size ||=[400,40]; return Wx::TextCtrl->new( $parent, $self->ID($id), $init, $poss, $size, wxTE_MULTILINE, ,); } sub GUI { my( $self, $parent ) = @_; my( $RootSizer ) = Wx::BoxSizer->new( wxVERTICAL ); my( $HexSizer ) = $self->BOXS($parent, "Hex String", wxHORIZONTAL) +; my( $HexString ) = $self->TEXS($parent, HEX_STRING => "4a 75 73 74 + 20 41 6e 6f 74 68 65 72 20 50 65 72 6c 20 77 48 61 63 6b 65 72",); $HexString->SetToolTip("Type in hex here (or watch it come out her +e)"); $HexSizer->AddWindow( $HexString, 1, wxGROW|wxALIGN_CENTRE, 5,); my( $TextSizer ) = $self->BOXS($parent, "Text String:", wxHORIZONT +AL); my( $TextString ) = $self->TEXS( $parent, TEXT_STRING => 'I am te +xt' ); Wx::ToolTip::Enable(1); Wx::ToolTip::SetDelay(50); # ms $TextString->SetToolTip( 'Type in text here (or watch it come out +here)' ); ## tool tips seem to suck for lables and text controls $TextSizer->Add( $TextString, 1, wxGROW|wxALIGN_CENTER_VERTICAL, 5 + ); my( $ButtonSizer ) = Wx::BoxSizer->new( wxVERTICAL ); my( $ToHexButton ) = Wx::Button->new( $parent, $self->ID('TO_HEX_BUTTON'), "VV", wxDefaultPosition, wxDefaultSize, wxNO_BORDER ); $ToHexButton->SetToolTip("Turn that TEXT above into HEX below"); my( $ToTextButton ) = Wx::Button->new( $parent, $self->ID('TO_TEXT_BUTTON'), "AA", wxDefaultPosition, wxDefaultSize, wxNO_BORDER ); $ToTextButton->SetToolTip("Turn that HEX below into TEXT above"); $ToTextButton->SetDefault(); $ButtonSizer->AddWindow( $ToTextButton, 1, wxALL|wxALIGN_CENTRE, 5 + ); $ButtonSizer->AddWindow( $ToHexButton, 1, wxALL|wxALIGN_CENTRE, 5 +); $RootSizer->Add( $TextSizer, 1, wxGROW | wxALIGN_CENTRE, 5 ); $RootSizer->Add( $ButtonSizer, 0, wxGROW | wxALIGN_CENTRE, 5 ); $RootSizer->Add( $HexSizer, 1, wxGROW | wxALIGN_CENTRE, 5 ); $ToTextButton->SetFocus(); # so if you hit enter, you get mah sig +;) $parent->SetAutoLayout( 1 ); $parent->SetSizer( $RootSizer ); $RootSizer->Fit( $parent ); $RootSizer->SetSizeHints( $parent ); return $RootSizer; } package Wx::HexOrChar::App; use strict; use Wx; use base qw(Wx::App); sub OnInit { my( $self ) = @_; my( $frame ) = new Wx::HexOrChar(); $frame->Show(1); $frame->Refresh(); 1; } package main; # if this file is invoked directly (not use'd), run the app unless( caller() ) { Wx::HexOrChar::App->new()->MainLoop(); } __END__ =head1 AUTHOR podmaster - http://perlmonks.org/index.pl?node=podmaster =head1 LICENSE Copyright D.H ( podmaster ) http://crazyinsomniac.perlmonk.org 2002, All rights reserved. This program is released under the same terms as perl itself (if you don't know what that means, visit http://perl.com ) =cut
____________________________________________________
** The Third rule of perl club is a statement of fact: pod is sexy.
In reply to ( Wx::HexOrChar ) Re: Perl/TK hex2char - char2hex convertor
by PodMaster
in thread Perl/TK hex2char - char2hex convertor
by semio
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |