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