home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 1998 October
/
PCWorld_1998-10_cd.bin
/
software
/
prehled
/
komix
/
DATA.Z
/
p_fileprdb.tcl
< prev
next >
Wrap
Text File
|
1997-03-07
|
641b
|
20 lines
#---------------------------------------------------------------------------
#
# (c) Cayenne Software Inc. 1997
#
# File: @(#)p_fileprdb.tcl /main/titanic/4
# Author: voyager
# Description:
#---------------------------------------------------------------------------
# SccsId = @(#)p_fileprdb.tcl /main/titanic/4 7 Mar 1997 Copyright 1997 Cayenne Software Inc.
proc FilePRDbObj::docwriter_promoter {this} {
require_module_file filepropse.tcl docwriter
if {![$this isA FilepropSection] &&
[FilepropSection::validDocument $this]} {
FilepropSection promote $this
}
}