home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / ilsection.tcl < prev    next >
Encoding:
Text File  |  1996-05-29  |  2.3 KB  |  96 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Westmount Technology    1994
  4. #
  5. #      File:           @(#)ilsection.tcl    1.9
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)ilsection.tcl    1.9   12 Feb 1996 Copyright 1994 Westmount Technology
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14. require "localsecti.tcl"
  15.  
  16. Class IlSection : {LocalSection} {
  17.     constructor
  18.     method destructor
  19.     method promoter
  20.     method edit
  21.     method show
  22.     method print
  23.     method preview
  24.     method escapeClass
  25.     method escapeText
  26. }
  27.  
  28. constructor IlSection {class this name document} {
  29.     set this [LocalSection::constructor $class $this $name $document]
  30.     # Start constructor user section
  31.     # End constructor user section
  32.     return $this
  33. }
  34.  
  35. method IlSection::destructor {this} {
  36.     # Start destructor user section
  37.     # End destructor user section
  38.     $this LocalSection::destructor
  39. }
  40.  
  41. method IlSection::promoter {this document} {
  42.     $this DocSection::promoter $document
  43.  
  44.     $this operationClass manipulate
  45. }
  46.  
  47. method IlSection::edit {this} {
  48.     
  49.     # edit with the document editor command
  50.     [[$this document] editor] edit $this
  51. }
  52.  
  53. method IlSection::show {this} {
  54.  
  55.     # preview with the document editor command
  56.     [[$this document] editor] show $this
  57. }
  58.  
  59. method IlSection::print {this} {
  60.     
  61.     # preview with the document editor command
  62.     [[$this document] editor] print $this
  63. }
  64.  
  65. method IlSection::preview {this} {
  66.     
  67.     # preview with the document editor command
  68.     [[$this document] editor] preview $this
  69. }
  70.  
  71. method IlSection::escapeClass {this class} {
  72.  
  73.     set sn $class
  74.     if {[regsub -all {\\} $sn {\\\\} snn]} {set sn $snn}
  75.     if {[regsub -all { }  $sn {\\ }  snn]} {set sn $snn}
  76.     if {[regsub -all {<}  $sn {\\<}  snn]} {set sn $snn}
  77.     if {[regsub -all {>}  $sn {\\>}  snn]} {set sn $snn}
  78.     if {[regsub -all {\(}  $sn {\\(}  snn]} {set sn $snn}
  79.     if {[regsub -all {\)}  $sn {\\)}  snn]} {set sn $snn}
  80.     return $sn
  81. }
  82.  
  83. method IlSection::escapeText {this text} {
  84.     
  85.     set sn $text
  86.     if {[regsub -all {<}  $sn {<<}  snn]} {set sn $snn}
  87.     return $sn
  88. }
  89.  
  90. proc IlSection::isAscii {} {
  91.     return 0
  92. }
  93.  
  94. # Do not delete this line -- regeneration end marker
  95.  
  96.