Puppet::VcsTools::History - TK GUI for VcsTools::History
require VcsTools::DataSpec::HpTnd ; # for instance # could be VcsTools::DataSpec::Rcs my $ds = new VcsTools::DataSpec::HpTnd ; # ditto my $hist = new Puppet::VcsTools::History ( dbHash => \%dbhash, # for permanent data storage keyRoot => 'history root', # key for permanent data storage 'topTk' => $mw, name => 'Foo history', dataScanner => $ds # log analyser );
This class provides a GUI to the VcsTools::History class.
It contains a GraphWidget to draw the history tree and some key bindings to read the log informations from the tree drawing .
The display of the history object is made of :
Each rectangle in the tree represent a revision (aka a node). The text in the rectangle is bound to some keys :
The node popup menu features :
Each arrow is bound to some keys :
The arrow popup menu features :
The graph widget features a global menu invoked on the title of the graph widget. It features :
The VcsTools::File(3) object have also some bindings (See "WIDGET USAGE" in VcsTools::File)
Will create a new history object.
All "Methods" in VcsTools::History plus these ones:
The call will be delegated to "addNewVersion(...)" in VcsTools::History, then the drawing will be updated with it.
Will launch a widget for this object.
Delegated to the "closeDisplay" in Puppet::Body method.
Returns the Tk::TreeGraph ref embedded in History display or undef if the display was not opened.
Returns the Tk::ROText ref embedded in History display or undef if the display was not opened.
Trigger a history update if the database time stamp is younger than the time of the last history analysis
Dominique Dumont, Dominique_Dumont@grenoble.hp.com
Copyright (c) 1998-1999 Dominique Dumont. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.