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