home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Westmount Technology 1994
- #
- # File: @(#)fmsection.tcl 1.8
- # Author: <generated>
- # Description:
- #---------------------------------------------------------------------------
- # SccsId = @(#)fmsection.tcl 1.8 12 Feb 1996 Copyright 1994 Westmount Technology
-
- # Start user added include file section
- # End user added include file section
-
- require "localsecti.tcl"
-
- Class FmSection : {LocalSection} {
- constructor
- method destructor
- method promoter
- method edit
- method show
- method preview
- method print
- method escapeText
- }
-
- constructor FmSection {class this name document} {
- set this [LocalSection::constructor $class $this $name $document]
- # Start constructor user section
- # End constructor user section
- return $this
- }
-
- method FmSection::destructor {this} {
- # Start destructor user section
- # End destructor user section
- $this LocalSection::destructor
- }
-
- method FmSection::promoter {this document} {
- $this DocSection::promoter $document
-
- $this operationClass manipulate
- }
-
- proc FmSection::isAscii {} {
- return 0
- }
-
- method FmSection::edit {this} {
-
- # edit with the document editor command
- [[$this document] editor] edit $this
- }
-
- method FmSection::show {this} {
-
- # show with the document editor command
- [[$this document] editor] show $this
- }
-
- method FmSection::preview {this} {
-
- # preview with the document editor command
- [[$this document] editor] preview $this
- }
-
- method FmSection::print {this} {
-
- # print with the document editor command
- [[$this document] editor] print $this
- }
-
- method FmSection::escapeText {this text} {
-
- set sn $text
- if {[regsub -all {\\} $sn {\\\\} snn]} {set sn $snn}
- if {[regsub -all {'} $sn {\\'} snn]} {set sn $snn}
- if {[regsub -all {<} $sn {\\<} snn]} {set sn $snn}
- if {[regsub -all {>} $sn {\\>} snn]} {set sn $snn}
- return $sn
- }
-
- # Do not delete this line -- regeneration end marker
-
-