::GetEditBarFrame

This command gets the frame that contains edit bar for the wizard dialog.

Syntax

::model::mdlWizardDlg::GetEditBarFrame

Application

MotionView Tcl GUI

Description

This command gets the frame that contains edit bar for the wizard dialog.

Example

To identify the frame that contains the edit bar for the wizard dialog when the user clicks on the “Show” button:
namespace eval ::my_wizard {
    variable p_dlg ""
}

proc ::my_wizard::Run {} {
    set mangle [::model::GetMangle my_wizard_Run]
    variable p_dlg

    set p_dlg [::model::mdlWizardDlg wiz$mangle -width 400 -height 400 –show_eb \
        -title "My Wizard" -showExport false -callback "::my_wizard::OnClose"]
    
    set frm [::model::mdlWizardDlg::GetButtonFrame $p_dlg]
    ::model::mdlWizardDlg::AddButtonToActionFrame $frm btnShow 4 "Show" ::my_wizard::OnShowButton

    ::model::mdlWizardDlg::ShowDialog
}

proc ::my_wizard::OnShowButton {} {
    set frm [::model::mdlWizardDlg::GetEditBarFrame]
    if { [$frm cget -bg] == "red" } {
            $frm config -bg blue
      } else {
            $frm config -bg red
      }
}

proc ::my_wizard::OnClose { args } {
    variable p_dlg
    hwt::UnpostWindow $p_dlg
    return 1
}

::my_wizard::Run

Errors

None.