home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / doceditor.tcl < prev    next >
Encoding:
Text File  |  1996-10-10  |  2.5 KB  |  109 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cadre Technologies Inc.    1996
  4. #
  5. #      File:           @(#)doceditor.tcl    /main/hindenburg/1
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)doceditor.tcl    /main/hindenburg/1   10 Oct 1996 Copyright 1996 Cadre Technologies Inc.
  10.  
  11. # Start user added include file section
  12. require "c++section.tcl"
  13. require "doctextsec.tcl"
  14. require "datasectio.tcl"
  15. require "epsfsectio.tcl"
  16. require "epsisectio.tcl"
  17. require "epssection.tcl"
  18. require "esqlc++sec.tcl"
  19. require "h++section.tcl"
  20. require "lex++secti.tcl"
  21. require "makefilese.tcl"
  22. require "maketempla.tcl"
  23. require "pssection.tcl"
  24. require "tclsection.tcl"
  25. require "ximagesect.tcl"
  26. require "yacc++sect.tcl"
  27. require "sql_script.tcl"
  28. require "itempropse.tcl"
  29. require "filepropse.tcl"
  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.     set crntPath [pwd]
  67.     if [catch {cd $directory}] {
  68.         catch {mkdir -path [list $directory]} error
  69.     } else {
  70.         cd $crntPath
  71.     }
  72.     return $error
  73. }
  74.  
  75. method DocEditor::edit {this docSection} {
  76.  
  77.     # default no edit possible
  78.     wmtkerror "No edit possible with this editor"
  79. }
  80.  
  81. method DocEditor::show {this docSection} {
  82.  
  83.     # default no show possible
  84.     wmtkerror "No show possible with this editor"
  85. }
  86.  
  87. method DocEditor::print {this docSection} {
  88.  
  89.     # default no print possible
  90.     wmtkerror "No print possible with this editor"
  91. }
  92.  
  93. method DocEditor::preview {this docSection} {
  94.  
  95.     # default no preview possible
  96.     wmtkerror "No preview possible with this editor"
  97. }
  98.  
  99. method DocEditor::connect {this} {
  100.     # empty
  101. }
  102.  
  103. method DocEditor::disconnect {this} {
  104.     # empty
  105. }
  106.  
  107. # Do not delete this line -- regeneration end marker
  108.  
  109.