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