#!/usr/bin/tclsh

#
# pui-makenew: Make new databases for each standard database type.
#              The DBInfo data is from my pilot. Your mileage may vary.
#
# THIS IS SAMPLE CODE ONLY
#
# Copyright (c) 1996, Scotter <scotter@iname.com>
#
# This is free software, licensed under the GNU Public License V2.
#

load tclpui.so

puiClose [puiNew AddressDB.pui AddressDB]

puiClose [puiNew MemoDB.pui MemoDB]

puiClose [puiNew ToDoDB.pui ToDoDB]

puiClose [puiNew DatebookDB.pui DatebookDB]

exit 0

