home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Cadre Technologies Inc. 1996
- #
- # File: @(#)propcontif.tcl 1.10
- # Author: <generated>
- # Description:
- #---------------------------------------------------------------------------
- # SccsId = @(#)propcontif.tcl 1.10 13 Mar 1996 Copyright 1996 Cadre Technologies Inc.
-
- # Start user added include file section
-
- require propifpage.tcl
- require propif2col.tcl
- require ripolatass.tcl
- require propifcomb.tcl
- require rwaccessro.tcl
- require stextitrpr.tcl
-
- # End user added include file section
-
-
- Class PropContIf : {NoteBook} {
- method destructor
- constructor
- method getProperties
- method setProperties
- method addPage
- method removePage
- attribute index
- attribute pageSet
- }
-
- global PropContIf::interfaces
- set PropContIf::interfaces [Dictionary new]
-
- global PropContIf::count
- set PropContIf::count 0
-
-
- method PropContIf::destructor {this} {
- # Start destructor user section
- # End destructor user section
- }
-
- proc PropContIf::createInterface {guiParent cnt} {
- global PropContIf::interfaces
- set cntKey [$cnt propertyKey]
- set if [${PropContIf::interfaces} set $cntKey]
- if {$if == ""} {
- set if [PropContIf new $guiParent $cnt]
- ${PropContIf::interfaces} set $cntKey $if
- }
- $cnt propInterface $if
- return $if
- }
-
- constructor PropContIf {class this guiParent cnt} {
- global PropContIf::count
- incr PropContIf::count
- set this [NoteBook::constructor $class $this \
- $guiParent.PropContIf:${PropContIf::count}]
- $this config -pageSet [List new] -index ${PropContIf::count}
-
- set miscList ""
- set pageList ""
- [$cnt propDefinitionSet] foreach propDef {
- set class [$propDef ifClass]
- case $class in {
- {PropIfPage RIPolAtAss} {
- lappend pageList $propDef
- }
- {default} {
- lappend miscList $propDef
- }
- }
- }
- if {$miscList != ""} {
- set propDef [PropDefinition new -name misc -longName Misc \
- -ifClass PropIfPage \
- -memberSet $miscList]
- $this addPage [PropIfPage new $this $propDef]
- }
- foreach page $pageList {
- $this addPage [[$page ifClass] new $this $page]
- }
- return $this
- }
-
- method PropContIf::getProperties {this cnt} {
- [$this pageSet] foreach page {
- $page getProperties $cnt
- }
- }
-
- method PropContIf::setProperties {this cnt} {
- [$this pageSet] foreach page {
- $page setProperties $cnt
- }
- }
-
- proc PropContIf::clearInterfaces {} {
- global PropContIf::interfaces
- set PropContIf::interfaces [Dictionary new]
- global PropContIf::count
- set PropContIf::count 0
- }
-
- # Do not delete this line -- regeneration end marker
-
- method PropContIf::addPage {this newPage} {
- [$this pageSet] append $newPage
-
- }
-
- method PropContIf::removePage {this oldPage} {
- [$this pageSet] removeValue $oldPage
- }
-
-