home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Westmount Technology 1994
- #
- # File: @(#)fm50doccon.tcl 1.2
- # Author: <generated>
- # Description:
- #---------------------------------------------------------------------------
- # SccsId = @(#)fm50doccon.tcl 1.2 09 Jan 1996 Copyright 1994 Westmount Technology
-
- # Start user added include file section
- # End user added include file section
-
- require "fmdocconge.tcl"
-
- Class Fm50DocConGen : {FmDocConGen} {
- constructor
- method destructor
- method genText
- }
-
- constructor Fm50DocConGen {class this name section} {
- set this [FmDocConGen::constructor $class $this $name $section]
- # Start constructor user section
- # End constructor user section
- return $this
- }
-
- method Fm50DocConGen::destructor {this} {
- # Start destructor user section
- # End destructor user section
- $this FmDocConGen::destructor
- }
-
- method Fm50DocConGen::genText {this section} {
-
- set pgfs [$this pgfs]
- set objFile "[$this framePath \
- [[$this section] escape [$section docLocation]]]"
- # Take next picture-nr
- global FmDocConGen::pictureNr
- incr FmDocConGen::pictureNr
-
- # Generate a paragraph for the text-title
- $pgfs append " <Para\n"
- $pgfs append " <PgfTag `TextTitle'>\n"
- $pgfs append " <PgfLIndent 10>\n"
- $pgfs append " <ParaLine\n"
- $pgfs append " <String `[[$this section] escapeText [$section docTitle]]'>\n"
- $pgfs append " >\n"
- $pgfs append " >\n"
-
- $pgfs append "<Para\n"
- $pgfs append " <PgfTag `Normal'>\n"
- $pgfs append " <ParaLine\n"
- $pgfs append " <TextInset\n"
- $pgfs append " <Unique ${FmDocConGen::pictureNr}>\n"
- $pgfs append " <TiSrcFile `$objFile'>\n"
- $pgfs append " <TiImportHint `0001FRAMTEXTUNIX '>\n"
- $pgfs append " <TiLastUpdate 0 0>\n"
- $pgfs append " <TiAutoUpdate Yes>\n"
- $pgfs append " <TiText \n"
- $pgfs append " <TiEOLisEOP Yes>\n"
- $pgfs append " > # end of TiText\n"
- $pgfs append " > # end of TextInset\n"
- $pgfs append " <TextInsetEnd>\n"
- $pgfs append " > # end of ParaLine\n"
- $pgfs append "> # end of Para\n"
- }
-
- # Do not delete this line -- regeneration end marker
-
-