home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / doceditor.tcl < prev    next >
Text File  |  1997-09-25  |  3KB  |  106 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cadre Technologies Inc.    1996
  4. #
  5. #      File:           @(#)doceditor.tcl    /main/titanic/3
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)doceditor.tcl    /main/titanic/3   25 Sep 1997 Copyright 1996 Cadre Technologies Inc.
  10.  
  11. # Start user added include file section
  12. require_module_file "c++section.tcl" docwriter
  13. require_module_file "doctextsec.tcl" docwriter
  14. require_module_file "datasectio.tcl" docwriter
  15. require_module_file "epsfsectio.tcl" docwriter
  16. require_module_file "epsisectio.tcl" docwriter
  17. require_module_file "epssection.tcl" docwriter
  18. require_module_file "esqlc++sec.tcl" docwriter
  19. require_module_file "h++section.tcl" docwriter
  20. require_module_file "lex++secti.tcl" docwriter
  21. require_module_file "makefilese.tcl" docwriter
  22. require_module_file "maketempla.tcl" docwriter
  23. require_module_file "pssection.tcl" docwriter
  24. require_module_file "tclsection.tcl" docwriter
  25. require_module_file "ximagesect.tcl" docwriter
  26. require_module_file "yacc++sect.tcl" docwriter
  27. require_module_file "sql_script.tcl" docwriter
  28. require_module_file "itempropse.tcl" docwriter
  29. require_module_file "filepropse.tcl" docwriter
  30. # End user added include file section
  31.  
  32.  
  33. Class DocEditor : {Object} {
  34.     constructor
  35.     method destructor
  36.     method configDirectory
  37.     method edit
  38.     method show
  39.     method print
  40.     method preview
  41.     method connect
  42.     method disconnect
  43.     attribute name
  44.     attribute version
  45.     attribute printsIncluded
  46.     attribute localSectionTypes
  47.     attribute dirExtension
  48. }
  49.  
  50. constructor DocEditor {class this name_1} {
  51.     set this [Object::constructor $class $this $name_1]
  52.     # Start constructor user section
  53.     $this localSectionTypes {Doctext Ps Eps Epsf Epsi Data Ximage}
  54.     # End constructor user section
  55.     return $this
  56. }
  57.  
  58. method DocEditor::destructor {this} {
  59.     # Start destructor user section
  60.     # End destructor user section
  61. }
  62.  
  63. method DocEditor::configDirectory {this directory} {
  64.     # check if directory exists
  65.     set error ""
  66.     if {![catch {set ret [BasicFS::makeDirAll $directory]} error]} {
  67.         set error ""
  68.     }
  69.     return $error
  70. }
  71.  
  72. method DocEditor::edit {this docSection} {
  73.  
  74.     # default no edit possible
  75.     wmtkerror "No edit possible with this editor"
  76. }
  77.  
  78. method DocEditor::show {this docSection} {
  79.  
  80.     # default no show possible
  81.     wmtkerror "No show possible with this editor"
  82. }
  83.  
  84. method DocEditor::print {this docSection} {
  85.  
  86.     # default no print possible
  87.     wmtkerror "No print possible with this editor"
  88. }
  89.  
  90. method DocEditor::preview {this docSection} {
  91.  
  92.     # default no preview possible
  93.     wmtkerror "No preview possible with this editor"
  94. }
  95.  
  96. method DocEditor::connect {this} {
  97.     # empty
  98. }
  99.  
  100. method DocEditor::disconnect {this} {
  101.     # empty
  102. }
  103.  
  104. # Do not delete this line -- regeneration end marker
  105.  
  106.