::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

To set the next collector for an mdlCollector widget:

::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.