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 , Denis E Medveduyk 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