home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Cayenne Software Inc. 1996
- #
- # File: @(#)childnode.tcl /main/hindenburg/2
- # Author: <generated>
- # Description:
- #---------------------------------------------------------------------------
- # SccsId = @(#)childnode.tcl /main/hindenburg/2 24 Oct 1996 Copyright 1996 Cayenne Software Inc.
-
- # Start user added include file section
- # End user added include file section
-
- require "menupartno.tcl"
-
- Class ChildNode : {MenuPartNode} {
- constructor
- method destructor
- method open
- attribute inToolBar
- attribute inPopUpMenu
- }
-
- constructor ChildNode {class this name specification} {
- set this [MenuPartNode::constructor $class $this $name $specification]
- # Start constructor user section
-
- # check if set in MenuPartNode contructor
- if {[$this inToolBar] == ""} {
- $this inToolBar 0
- }
- if {[$this inPopUpMenu] == ""} {
- $this inPopUpMenu 0
- }
-
- $this parentType { MenuBarNode CascadeNode }
-
- # End constructor user section
- return $this
- }
-
- method ChildNode::destructor {this} {
- # Start destructor user section
- # End destructor user section
- $this MenuPartNode::destructor
- }
-
- method ChildNode::open {this definer} {
-
- if {![$this editable]} {
- return
- }
-
- .main busy TRUE
-
- set defineDialog [[.main editorArea] $definer]
-
- if {[catch {$defineDialog load $this}]} {
- require menuentryd.tcl
- set defineDialog [MenuEntryDialog new .main.$definer]
- [.main editorArea] $definer $defineDialog
- $defineDialog load $this
- }
- .main busy FALSE
- }
-
- # Do not delete this line -- regeneration end marker
-
-