::SetNextCollector
This command sets the next mdlCollectorwidget in the auto-advance sequence. Once the current mdlCollector widget has finished picking, the next collector widget will automatically be made active.
Syntax
::model::mdlCollector::SetNextCollector path path2
Application
MotionView Tcl GUI
Description
This command sets the next mdlCollectorwidget in the auto-advance sequence. Once the current mdlCollector widget has finished picking, the next collector widget will automatically be made active.
If the SetNextCollector procedure is not called for a collector, then the active status will not advance after a pick is completed. The current collector will remain active.
Inputs
- path
- The full path to the mdlCollector widget of interest. This argument is the return value of the ::model::mdlCollector procedure used to create an mdlCollector.
- path2
- The full path to the next mdlCollector to be made active after the current pick is complete. This argument is the return value of the ::model::mdlCollector procedure used to create an mdlCollector.
Example
::model::GetClientHandle clnt
clnt GetModelHandle mdl
clnt ReleaseHandle
mdl InterpretEntity mrk Marker m_0 "\"Marker 0\"" "" ""
mdl ReleaseHandle
set dlg [toplevel .dlg]
set frm [frame $dlg.frm -padx 10 -pady 10]
grid $frm -row 0 -column 0 -sticky nesw
set coll [::model::mdlCollector .dlg.frm.coll mrk "origin" "Point" -reference ]
set coll2 [::model::mdlCollector .dlg.frm.coll2 mrk "body" "Body" -reference ]
grid $coll -row 0 -column 0
grid $coll2 -row 1 -column 0
::model::mdlCollector::SetNextCollector $coll $coll2
::model::mdlCollector::SetNextCollector $coll2 $coll
mrk ReleaseHandle
Errors
None.