home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Cayenne Software Inc. 1997
- #
- # File: @(#)revengvbdl.tcl /main/titanic/2
- # Author: <generated>
- # Description:
- #---------------------------------------------------------------------------
- # SccsId = @(#)revengvbdl.tcl /main/titanic/2 16 Jun 1997 Copyright 1997 Cayenne Software Inc.
-
- # Start user added include file section
- # End user added include file section
-
- require "revengdlg.tcl"
-
- Class RevEngVbDlg : {RevEngDlg} {
- method destructor
- constructor
- method getOptions
- }
-
- method RevEngVbDlg::destructor {this} {
- # Start destructor user section
- # End destructor user section
- $this RevEngDlg::destructor
- }
-
- constructor RevEngVbDlg {class this name} {
- set this [RevEngDlg::constructor $class $this $name "Visual Basic" "reveng_vb"]
- interface CheckButton $this.top.association {
- label "Reverse engineer associations"
- state 1
- }
- return $this
- }
-
- method RevEngVbDlg::getOptions {this} {
- set script [$this RevEngDlg::getOptions]
-
- if [$this.top.association state] {
- append script " -a rev_assoc.tcl"
- }
-
- return $script
- }
-
- # Do not delete this line -- regeneration end marker
-
-