[opendemo-cvs] CVS: opendemo/tools/odcut OdGui.pm,1.5,1.6

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

Update of /cvsroot/opendemo/opendemo/tools/odcut
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9795

Modified Files:
	OdGui.pm 
Log Message:
implement help window
eliminate double help
help window start takes much too long


Index: OdGui.pm
===================================================================
RCS file: /cvsroot/opendemo/opendemo/tools/odcut/OdGui.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** OdGui.pm	9 Feb 2005 18:12:11 -0000	1.5
--- OdGui.pm	9 Feb 2005 19:44:45 -0000	1.6
***************
*** 12,15 ****
--- 12,16 ----
  use Cwd qw(getcwd);
  use File::Basename qw(fileparse);
+ use IO::File;
  
  sub new
***************
*** 38,41 ****
--- 39,43 ----
  	EVT_MENU($self,5,\&OnExit);
  	EVT_MENU($self,21,\&OnAboutStart);
+ 	EVT_MENU($self,22,\&OnHelp);
  
  	EVT_CLOSE($self,\&OnClose);
***************
*** 365,368 ****
--- 367,371 ----
  }
  
+ 
  sub OnAboutStart($)
  {
***************
*** 373,376 ****
--- 376,426 ----
  }
  
+ 
+ sub OnHelp($)
+ {
+ 	my $self = shift;
+ 	if (!exists $self->{helpFrame}) {
+ 
+ 		# $self->{helpFrame} = OdGuiHelpFrame->new($self);
+ 		$self->{helpFrame} = Wx::Frame->new($self, -1, "Help - OpenDemo Cutter");
+ 
+ 		# EVT_BUTTON($self->{helpFrame},$self->{helpFrame}->{helpClose},\&OnHelpClose);
+ 		EVT_CLOSE($self->{helpFrame},\&OnHelpClose);
+ 
+ 		# my $html_window = Wx::HtmlWindow->new($self->{helpFrame}->{helpPanel}, -1);
+ 		my $html_window = Wx::HtmlWindow->new($self->{helpFrame}, -1);
+ 
+ 		# TODO It would be more portable, if Pod::Html would be used directly.
+ 		# The current solution involves pipe redirecting and forking some
+ 		# external program, which may not be available on all system.
+ 		#       my $parser = new Pod::Html();
+ 		#       $parser->parse_from_file($0);
+ 		my $command = "pod2html $0";
+ 		my $fh = IO::File->new("$command|");
+ 		if ($fh) {
+ 			while (<$fh>) {
+ 				$html_window->AppendToPage($_);
+ 			}
+ 			$fh->close();
+ 		}
+ 		else {
+ 			$html_window->SetPage("<html><body>Could not call $command:<br>$!.</body></html>");
+ 		}
+ 	}
+ 
+ 	$self->{helpFrame}->Show(1);
+ 	
+ }
+ 
+ 
+ sub OnHelpClose($)
+ {
+ 	my $help = shift;
+ 	$help->Show(0);
+ 	delete $help->GetParent()->{helpFrame};
+ 	$help->Destroy();
+ }
+ 
+ 
  sub OnClose
  {