home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / htmlcongen.tcl < prev    next >
Encoding:
Text File  |  1996-12-05  |  1.1 KB  |  48 lines
  1. #---------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software, Inc. 1996 
  4. #
  5. #      File:           htmlcongen.tcl
  6. #      Description:    see Document Generation Guide     
  7. #---------------------------------------------------------------------
  8.  
  9. Class HtmlConGen : {Object} {
  10.     method destructor
  11.     constructor
  12.     method openAsc
  13.     attribute ascPath
  14.     attribute templatePath
  15.     attribute section
  16. }
  17.  
  18. method HtmlConGen::destructor {this} {
  19.     # Start destructor user section
  20.     # End destructor user section
  21. }
  22.  
  23. constructor HtmlConGen {class this name section} {
  24.     set this [Object::constructor $class $this $name]
  25.  
  26.     $this section $section
  27.     $this ascPath [$section docLocation]
  28.     set type [string tolower [$section type]]
  29.     set user_dir "/user/papr/icase"
  30.     catch {$this templatePath $user_dir/html${type}.asc}]
  31.  
  32.     return $this
  33. }
  34.  
  35. method HtmlConGen::openAsc {this} {
  36.  
  37.     # Open the ASC-file
  38.     if {[catch {set asc [open [$this ascPath] w]} rsn]} {
  39.         wmtkerror "Error on opening '[$this ascPath]' for writing: $rsn"
  40.         return ""
  41.     }
  42.  
  43.     return $asc
  44. }
  45.  
  46. #
  47. # Do not delete this line -- regeneration end marker
  48.