[opendemo-cvs] CVS: opendemo/tools/odcut odcut.pl,1.49,1.50

[Uwe G. <gi...@us...>]

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

Modified Files:
	odcut.pl 
Log Message:
replaced GUI class odcutgui by OdGui
ay easily replaced back


Index: odcut.pl
===================================================================
RCS file: /cvsroot/opendemo/opendemo/tools/odcut/odcut.pl,v
retrieving revision 1.49
retrieving revision 1.50
diff -C2 -d -r1.49 -r1.50
*** odcut.pl	31 Oct 2004 22:32:03 -0000	1.49
--- odcut.pl	7 Feb 2005 21:13:39 -0000	1.50
***************
*** 173,181 ****
  
  if ($config->action_gui) {
! 	# Get the GUI library.
! 	use odcutgui;
  	# Create a GUI object.
! 	my $app = odcutgui->new();
! 	# Run it.
  	exit $app->MainLoop();
  }
--- 173,197 ----
  
  if ($config->action_gui) {
! 	my $app;
! 	my $classname;
! 
! 	if (0) {
! 		# Old and working.
! 		$classname = "odcutgui";
! 	}
! 	else {
! 		# New but still prototype level.
! 		$classname = "OdGui";
! 	}
! 
! 	# Get the GUI library. I would prefer use but it somehow does
! 	# not work.
! 	# use $classname;
! 	require $classname . ".pm";
! 
  	# Create a GUI object.
! 	$app = $classname->new();
! 
! 	# Run it and exit the program.
  	exit $app->MainLoop();
  }