home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 1998 October
/
PCWorld_1998-10_cd.bin
/
software
/
prehled
/
komix
/
DATA.Z
/
wd97ucdsec.tcl
< prev
next >
Wrap
Text File
|
1997-07-18
|
1KB
|
42 lines
#---------------------------------------------------------------------------
#
# (c) Cayenne Software Inc. 1997
#
# File: @(#)wd97ucdsec.tcl /main/titanic/1
# Author: <generated>
# Description:
#---------------------------------------------------------------------------
# SccsId = @(#)wd97ucdsec.tcl /main/titanic/1 18 Jul 1997 Copyright 1997 Cayenne Software Inc.
# Start user added include file section
# End user added include file section
require_module_file "wd97diagra.tcl" word97
Class Wd97UcdSection : {Wd97DiagramSection} {
constructor
method destructor
method promoter
}
constructor Wd97UcdSection {class this name document} {
set this [Wd97DiagramSection::constructor $class $this $name $document]
# Start constructor user section
# End constructor user section
return $this
}
method Wd97UcdSection::destructor {this} {
# Start destructor user section
# End destructor user section
$this Wd97DiagramSection::destructor
}
method Wd97UcdSection::promoter {this} {
$this Wd97DiagramSection::promoter
$this uiType UCD
}
# Do not delete this line -- regeneration end marker