added class CurrentDocument with the corresponding changes in the design pattern
Authored by: keidel 2004-10-29
Parent: [r2673]
Child: [r2675]