DESCRIPTION

	Tk::TM - User interface for database applications.
	Tk::TM - Tk Transaction Manager - screen transactions with user.

	This module is something like 'Transaction Manager' in JYACC JAM RAD.
	It releases user interface for database applications - 
	screen transactions with user.
	It contains data manipulation object (Tk::TM::DataObject),
	data widgets (tmTable, tmBlank),
	menu and action bar widgets (tmMenu, tmActionBar, 
	based on Tk::TM::DataObjSet).

	Tk::TM::wApp - Tk Transaction Manager Application Window.
	This is level above Tk::TM::Lib.

	Tk::TM::Try - Tk Transaction Manager Error processing functions.
	Implements error processing functions may be used (or not be used)
	in application.

SYNOPSIS

	use Tk::TM::Lib;
	Tk::TM::Common::DBILogin('dsn', 'user', '');
	my $mw =new Tk::MainWindow;
	my $mnu =$mw->tmMenu;
	my $tbl =$mw->tmTable(-rowcount=>3, -colspecs=>
			[['col1','Entry']
			,['col2','Entry']
			,['col3','Entry']
			])->form(-t=>$mnu);
	my $bln =$mw->tmBlank(-wgspecs=>
			[['col1','Entry']
			,['col2','Entry']
			,['col3','Entry',-width=>30]
			])->form(-t=>$tbl);
	my $sub =sub{ my $self =shift;
		if    ($_[0] eq 'dbRead') {$self->DBICmd('select * from table')}
		elsif ($_[0] eq 'dbIns')  {$self->DBICmd('insert...')}
		elsif ($_[0] eq 'dbUpd')  {$self->DBICmd('update...')}
		elsif ($_[0] eq 'dbDel')  {$self->DBICmd('delete from table...')}
		else                      {$self->doDefault(@_)}
		};
	new Tk::TM::DataObject(-cbcmd=>$sub, -wgtbl=>$tbl, -wgbln=>$bln);
	$mnu->Retrieve;
	Tk::MainLoop;


AUTHOR

	Andrew V Makarow <makarow@mail.com>, Denis E Medveduyk <demed@mail.com>
	
COPYRIGHT
	
	This program is free software; you can redistribute it and/or modify 
	it under the same terms as Perl itself.
	
PREREQUISITES

	Developed and tested with
		Active Perl 5.005 builds 508, 509, 522;
		Tk 800.012, 800.013, 800.019;
		DBI 1.02, 1.06, 1.13

HOW TO BUILD AND INSTALL

	Just type:
	
		perl Makefile.PL
		make
		make test	# you may run ./examples also
		make install
	Or:
		copy ./lib/Tk/TM/* into perl/site/lib/Tk/TM
