home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Westmount Technology 1994
- #
- # File: @(#)cbnmtpfilt.tcl 1.2
- # Author: <generated>
- # Description:
- #---------------------------------------------------------------------------
- # SccsId = @(#)cbnmtpfilt.tcl 1.2 10 Oct 1995 Copyright 1994 Westmount Technology
-
- # Start user added include file section
- # End user added include file section
-
- require "cbfilterel.tcl"
-
- Class CBNmTpFilterElement : {CBFilterElement} {
- constructor
- method destructor
- method letsPass
- attribute valueScript
- }
-
- constructor CBNmTpFilterElement {class this name propDefinition valueScript} {
- set this [CBFilterElement::constructor $class $this $name $propDefinition]
- $this valueScript $valueScript
- # Start constructor user section
- # End constructor user section
- return $this
- }
-
- method CBNmTpFilterElement::destructor {this} {
- # Start destructor user section
- # End destructor user section
- $this CBFilterElement::destructor
- }
-
- method CBNmTpFilterElement::letsPass {this feature} {
- if {![$this enabled]} {
- return 1
- }
-
- return [$this match [eval [$this valueScript]]]
- }
-
- # Do not delete this line -- regeneration end marker
-
-