PC World 1998 October/PCWorld_1998-10_cd.bin/software/prehled/komix/DATA.Z/wordmstrco.tcl

Text File | 1997-11-04 | 4KB | 152 lines

#---------------------------------------------------------------------------
#
#      (c)     Westmount Technology    1994
#
#      File:           @(#)wordmstrco.tcl    /main/titanic/4
#      Author:         <generated>
#      Description:
#---------------------------------------------------------------------------
# SccsId = @(#)wordmstrco.tcl    /main/titanic/4   4 Nov 1997 Copyright 1994 Westmount Technology

# Start user added include file section
# End user added include file section


Class WordMstrConGen : {Object} {
    constructor
    method destructor
    method generate
    method section
    attribute _section
}

constructor WordMstrConGen {class this name section} {
    set this [Object::constructor $class $this $name]
    $this _section $section
    $section _contentsGenerator $this
    # Start constructor user section
    # End constructor user section
    return $this
}

method WordMstrConGen::destructor {this} {
    set ref [$this _section]
    if {$ref != ""} {
        $ref _contentsGenerator ""
    }
    # Start destructor user section
    # End destructor user section
}

method WordMstrConGen::generate {this} {
    set sect [$this _section]
    set name [$sect uiName]
    set docu [$sect document]

    set word [[[docTool document] editor] wordObj]
    if [catch {
        set dest [[$this section] docLocation]
        $word FileOpen $dest
        if {[$word ViewMasterDocument] == 0} {
            error "document not in 'Master Document View'"
        }
        $word EditSelectAll
        $word EditClear

        $word FormatStyle "Title Cover"
        set title [$docu title]
        $word SetDocumentProperty Title 0 "$title" 0
        $word chkInsert $title
        $word EndOfDocument
        $word InsertPara

        $word FormatStyle "Subtitle Cover"
        $word TableInsertTable 0 2 2 = = = 167
        $word chkInsert "Project:"
        $word NextCell
        $word chkInsert [[$docu project] name]
        $word NextCell
        $word chkInsert "Documented System:"
        $word NextCell
        $word chkInsert [[[$docu documentedSystem] system] name]
        $word EndOfDocument

        $word FormatStyle "Title Attributes"
        $word TableInsertTable 0 2 8 1 = = 167
        $word chkInsert "Title:"
        $word NextCell
        $word chkInsert [$docu title]
        $word NextCell
        $word chkInsert "Subject:"
        $word NextCell
        $word chkInsert [$docu subject]
        $word NextCell
        $word chkInsert "Reference:"
        $word NextCell
        $word chkInsert [$docu reference]
        $word NextCell
        $word chkInsert "Keywords:"
        $word NextCell
        $word chkInsert [$docu keywords]
        $word NextCell
        $word chkInsert "Authors:"
        $word NextCell
        $word chkInsert [$docu authors]
        $word NextCell
        $word chkInsert "Status:"
        $word NextCell
        $word chkInsert [$docu docStatus]
        $word NextCell
        $word chkInsert "Date:"
        $word NextCell
        $word chkInsert [$docu date]
        $word EndOfDocument
        $word FormatStyle $OTStyles(OTNormal)

        $word InsertPageBreak
        $word FormatHeadingNumbering = 3

        $word FormatStyle $OTStyles(OTHdg1)
        $word chkInsert "Table of Contents"
        $word InsertPara
        $word EditBookmark tblcnts 1 1 0 0

        # insert sub documents here
        $word ViewMasterDocument
        foreach sect [[$this section] getTree] {
            if {[$sect indentation] > 1} {
                continue
            }
            $word InsertSubdocument [$sect docLocation]
            $word EndOfDocument
        }
        $word EndOfDocument
        $word FormatStyle $OTStyles(OTBodyText)

        $word EditBookmark tblcnts 0 0 0 1
        $word InsertTableOfContents

        $word FileSaveAs
    } msg] {
        wmtkerror "Word Automation Error: $msg"
    }
}

# Do not delete this line -- regeneration end marker

method WordMstrConGen::section {this args} {
    if {$args == ""} {
        return [$this _section]
    }
    set ref [$this _section]
    if {$ref != ""} {
        $ref _contentsGenerator ""
    }
    set obj [lindex $args 0]
    if {$obj != ""} {
        $obj _contentsGenerator $this
    }
    $this _section $obj
}