home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / fm50doccon.tcl < prev    next >
Text File  |  1996-05-29  |  2KB  |  73 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Westmount Technology    1994
  4. #
  5. #      File:           @(#)fm50doccon.tcl    1.2
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)fm50doccon.tcl    1.2   09 Jan 1996 Copyright 1994 Westmount Technology
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14. require "fmdocconge.tcl"
  15.  
  16. Class Fm50DocConGen : {FmDocConGen} {
  17.     constructor
  18.     method destructor
  19.     method genText
  20. }
  21.  
  22. constructor Fm50DocConGen {class this name section} {
  23.     set this [FmDocConGen::constructor $class $this $name $section]
  24.     # Start constructor user section
  25.     # End constructor user section
  26.     return $this
  27. }
  28.  
  29. method Fm50DocConGen::destructor {this} {
  30.     # Start destructor user section
  31.     # End destructor user section
  32.     $this FmDocConGen::destructor
  33. }
  34.  
  35. method Fm50DocConGen::genText {this section} {
  36.  
  37.     set pgfs [$this pgfs]
  38.     set objFile "[$this framePath \
  39.         [[$this section] escape [$section docLocation]]]"
  40.     # Take next picture-nr
  41.     global FmDocConGen::pictureNr
  42.     incr FmDocConGen::pictureNr
  43.  
  44.     # Generate a paragraph for the text-title
  45.     $pgfs append "  <Para\n"
  46.     $pgfs append "    <PgfTag `TextTitle'>\n"
  47.     $pgfs append "    <PgfLIndent 10>\n"
  48.     $pgfs append "    <ParaLine\n"
  49.     $pgfs append "     <String `[[$this section] escapeText [$section docTitle]]'>\n"
  50.     $pgfs append "    >\n"
  51.     $pgfs append "  >\n"
  52.  
  53.     $pgfs append "<Para\n"
  54.     $pgfs append "  <PgfTag `Normal'>\n"
  55.     $pgfs append "  <ParaLine\n"
  56.     $pgfs append "    <TextInset\n"
  57.     $pgfs append "      <Unique ${FmDocConGen::pictureNr}>\n"
  58.     $pgfs append "      <TiSrcFile `$objFile'>\n"
  59.     $pgfs append "      <TiImportHint `0001FRAMTEXTUNIX    '>\n"
  60.     $pgfs append "      <TiLastUpdate  0 0>\n"
  61.     $pgfs append "      <TiAutoUpdate Yes>\n"
  62.      $pgfs append "      <TiText \n"
  63.      $pgfs append "        <TiEOLisEOP Yes>\n"
  64.     $pgfs append "      > # end of TiText\n"
  65.      $pgfs append "    > # end of TextInset\n"
  66.     $pgfs append "    <TextInsetEnd>\n"
  67.      $pgfs append "  > # end of ParaLine\n"
  68.     $pgfs append "> # end of Para\n"
  69. }
  70.  
  71. # Do not delete this line -- regeneration end marker
  72.  
  73.