::GetCurrentLRTab

This command gets the current “side” tab that is selected when the current panel is for a pair entity. This command only gets the current “Left” or “Right” values for the “side” tab if the panel is a Tcl/Tk panel. It returns “L” when the “Left” side is selected and “R” when it is the “Right” side. If the current panel is for a single entity, the last selected “side” tab is returned.

Syntax

::model::GetCurrentLRTab

Application

MotionView Tcl GUI

Description

This command gets the current “side” tab that is selected when the current panel is for a pair entity. This command only gets the current “Left” or “Right” values for the “side” tab if the panel is a Tcl/Tk panel. It returns “L” when the “Left” side is selected and “R” when it is the “Right” side. If the current panel is for a single entity, the last selected “side” tab is returned.

Example

To add a field pair to the model, change the side and see that the ::model::GetCurrentLRTab procedure returns the updated “side” value:
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
mo InterpretEntity fld FieldPair fld_0 "\"Field 0\"" "" "" ""
fld ReleaseHandle
mo ReleaseHandle

::model::SelectItems MODEL.fld_0.r
set side [::model::GetCurrentLRTab]
tk_messageBox -message "The current side is $side. Now, we will change the side ..."
::model::SelectItems MODEL.fld_0.l
set side [::model::GetCurrentLRTab]
tk_messageBox -message "The new current side is $side."

Errors

None.