::GetCurrentSelection

To create a dialog that will contain an mdlOption widget and a button that will get the current displayed value of that mdlOption widget:

hwi GetSessionHandle sess1
sess1 GetProjectHandle pro1
sess1 ReleaseHandle
pro1 GetPageHandle pa1 [pro1 GetActivePage]
pro1 ReleaseHandle
pa1 GetWindowHandle win1 [pa1 GetActiveWindow]
pa1 ReleaseHandle
win1 GetClientHandle mcl
win1 ReleaseHandle
mcl GetRootObjectHandle mo
mcl ReleaseHandle

set tl [toplevel .top]
wm geometry $tl 500x100
wm title $tl "::model::mdlOption::GetCurrentSelection Example"
grid rowconfigure $tl 1 -weight 1
grid columnconfigure $tl 1 -weight 1

set opt [::model::mdlOption $tl.opt mo Op_Compliant]
grid $opt -row 0 -column 0 -sticky new

mo ReleaseHandle

set frm [frame $tl.frm]
grid rowconfigure $frm 0 -weight 1
grid columnconfigure $frm 1 -weight 1
grid $frm -row 1 -column 0 -sticky nesw -pady 5 -columnspan 2

set btn [button $frm.btn -text "Get Selection" -command ::getSelection]
grid $btn -row 0 -column 0

set lbl [label $frm.lbl -relief sunken]
grid $lbl -row 0 -column 1 -sticky nesw -padx 5

proc ::getSelection {} {
  .top.frm.lbl config -text [::model::mdlOption::GetCurrentSelection .top.opt]
}