MOM_first_tool
#=============================================================
proc MOM_first_tool { } {
#=============================================================
global mom_tool_change_type mom_manual_tool_change
global mom_sys_first_tool_handled
# First tool only gets handled once
if
{ [info exists mom_sys_first_tool_handled] }
{MOM_tool_change return }
set mom_sys_first_tool_handled 1
MOM_force Once G_mode G Text
MOM_do_template tool_change_4
PB_CMD_tool_information_2
MOM_force Once T M
MOM_do_template tool_change_1_1
MOM_do_template tool_change_2_1
MOM_do_template first_tool_5
}