/* SPOPCOL (SCM) -- SCM Color Setup */
/* SPOPCOL (SCM) -- SCM-Farbauswahl */
/*
// Copyright (c) 1994-2012 Oliver Bartels F+E, Muenchen
// Author: Manfred Baumeister
// Changes History:
//	rl (120427) RELEASED FOR BAE V7.8.
//	rl (101019) RELEASED FOR BAE V7.6.
//	rl (091021) RELEASED FOR BAE V7.4.
//	rl (081014) RELEASED FOR BAE V7.2.
//	rl (080828) CHANGE:
//		Add plot disabled element color.
//	rl (071029) RELEASED FOR BAE V7.0.
//	rl (060829) RELEASED FOR BAE V6.8.
//	rl (050906) RELEASED FOR BAE V6.6.
//	rl (040811) RELEASED FOR BAE V6.4.
//	rl (030904) RELEASED FOR BAE V6.2.
//	rl (021209) RELEASED FOR BAE V6.0.
//	rl (020618) RELEASED FOR BAE V5.4.
//	rl (010625) RELEASED FOR BAE V5.0.
//	rl (000509) RELEASED FOR BAE V4.6.
//	rl (990625) RELEASED FOR BAE V4.4.
//	rl (980910) RELEASED FOR BAE V4.2.
//	mb (980713) ENHANCEMENT:
//		Dynamic multi-language support introduced.
//	rl (970929) RELEASED FOR BAE V4.0.
//	ob  (970705) CHANGE:
//		Added new tag and link color selections.
//	mb (960919) RELEASED FOR BAE V3.4.
//	mb (951108) CHANGE:
//		Use popcolorsetup() function from MNU for color setup.
//	mb (95) RELEASED FOR BAE V3.2.
//	mb (941215) ORIGINAL CODING.
//
// DESCRIPTION
//
// The spopcol User Language program activates a popup
// menu for displaying and changing the current Schematic
// Editor color setup.
*/

// Enforce SCM caller type
#pragma ULCALLERSCM

// Disable undo state request
#pragma ULCALLERNOUNDO

// Includes
#include "mnu.ulh"			// User Language menu utilities

// Messages
string ITMSCMDOC	= M("Dokumentation"	,"Documentation");
string ITMSCMCON	= M("Verbindungen"	,"Connections");
string ITMSCMSYM	= M("Symbole"		,"Symbols");
string ITMSCMMARK	= M("Marker"		,"Markers");
string ITMSCMBRD	= M("Symbolgrenzen"	,"Symbol Borders");
string ITMSCMCAREA	= M("Anschlussflaeche"	,"Connect Area");
string ITMSCMCOM	= M("Kommentartext"	,"Commentary Text");
string ITMDSPWAREA	= M("Arbeitsbereich"	,"Work Area");
string ITMDSPORIGIN	= M("Nullpunkt"		,"Origin");
string ITMDSPHLGHT	= M("Highlight"		,"Highlight");
string ITMDSPTAG	= M("Tag Symbol"	,"Tag Symbol");
string ITMDSPLINK	= M("Tag Link"		,"Tag Link");
string ITMDSPVATT	= M("Variantenattribute","Variant Attributes");
string ITMDSPPDIS	= M("Plotunsichtbar"	,"Plot Disabled");
#define ITMDUMMYSTR	"                                               "

// Globals
type CIL cil		= {		// Color item list
	{ITMSCMDOC   ,bae_getcolor( 0),bae_getcolor( 0)},
	{ITMSCMCON   ,bae_getcolor( 1),bae_getcolor( 1)},
	{ITMSCMSYM   ,bae_getcolor( 2),bae_getcolor( 2)},
	{ITMSCMMARK  ,bae_getcolor( 3),bae_getcolor( 3)},
	{ITMSCMBRD   ,bae_getcolor( 4),bae_getcolor( 4)},
	{ITMSCMCAREA ,bae_getcolor( 7),bae_getcolor( 7)},
	{ITMSCMCOM   ,bae_getcolor(11),bae_getcolor(11)},
	{ITMDSPWAREA ,bae_getcolor( 8),bae_getcolor( 8)},
	{ITMDSPORIGIN,bae_getcolor( 9),bae_getcolor( 9)},
	{ITMDSPHLGHT ,bae_getcolor(10),bae_getcolor(10)},
	{ITMDSPTAG   ,bae_getcolor(12),bae_getcolor(12)},
	{ITMDSPLINK  ,bae_getcolor(13),bae_getcolor(13)},
	{ITMDSPVATT  ,bae_getcolor(14),bae_getcolor(14)},
	{ITMDSPPDIS  ,bae_getcolor(15),bae_getcolor(15)}
	};
int dil[]		= {		// Display item code list
	 0,
	 1,
	 2,
	 3,
	 4,
	 7,
	11,
	 8,
	 9,
	10,
	12,
	13,
	14,
	15
	};
int itemn		= arylength(dil)
					/* Color/display item count */;

// Main program
void main()
{
	int firstchange	= 1		/* First change flag */;
	int i				/* Loop control variable */;
	// Run the color setup menu
	popcolorsetup(0,-1,-1,-1,-1,cil);
	// Set the colors
	for (i=0;i<itemn;i++) {
		// Avoid color setting if no color change
		if (cil[i].curcol==bae_getcolor(dil[i]))
			continue;
		// Init the text screen if first color change
		if (firstchange) {
			bae_inittextscreen();
			firstchange=0;
			}
		// Set the new color
		bae_setcolor(dil[i],cil[i].curcol);
		}
	bae_callmenu(MNU_BAEREDISPL);
}

// User Language program end