/* GED_PLC (GED) -- GED Part Placement Action */
/* GED_PLC (GED) -- GED Bauteilplatzierungsaktion */
/* -- EXECUTED AFTER SYMBOL PLACEMENT -- */
/*
// Copyright (c) 2010-2013 Bartels System GmbH, Muenchen
// Author: Roman Ludwig
// Changes History:
//	rl (131029) RELEASED FOR BAE V8.0.
//	rl (120427) RELEASED FOR BAE V7.8.
//	rl (101019) RELEASED FOR BAE V7.6.
//	rl (100401) ORIGINAL CODING.
//
// DESCRIPTION
//
// The ged_plc User Language program is automatically activated after
// a part is placed to update the netlist assistent or other part relevant
// permanent dialog boxes.
*/

// Includes
#include "pop.ulh"			// User Language popup utilities

// Main program
void main()
{
	string varname			/* Variable name */;
	string actseq			/* Action sequence */;
	int boxidx			/* Dialog box index */;
	int boxmode			/* Dialog box mode */;
	// Check if any layout specific dialog boxes should be dismissed
	for (boxidx=1;boxidx<DIALBOXMAX;boxidx++) {
		sprintf(varname,VAR_PDBOXMODE,boxidx);
		if (varget(varname,boxmode) || (boxmode&(PDBOXPLCUPD))==0)
			continue;
		sprintf(varname,VAR_PDBOXSEQ,boxidx);
		if (varget(varname,actseq))
			continue;
		// Perform dismiss action sequence
		varset(VAR_PDBOXIDX,boxidx);
		varset(VAR_PDBOXACT,2);
		varset(VAR_PDBOXREAS,0);
		varset(VAR_PDBOXIVAL,0);
		varset(VAR_PDBOXNAME,"");
		ulsystem(actseq,0);
		if (boxmode&PDBOXPLCUPD)
			mousegrab(0);
		}
}

// User Language program end