/* CAM_MS (CAM) -- CAM Processor Mouse Action */
/* CAM_MS (CAM) -- CAM-Prozessor Mausaktion */
/* -- EXECUTED AFTER LEFT MOUSE BUTTON ACTIVATION IN WORK AREA -- */
/*
// Copyright (c) 2001-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 (091020) RELEASED FOR BAE V7.4.
//	rl (081014) RELEASED FOR BAE V7.2.
//	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 (010111) ORIGINAL CODING.
//
// DESCRIPTION
//
// The cam_ms User Language program is automatically activated
// when pressing the left mouse button in the work area while
// the program is idle. cam_ms lists a menu of useful functions.
*/

// Enforce CAM caller type
#pragma ULCALLERCAM

// Includes
#include "std.ulh"			// User Language standard include

// Messages
string UPRABORT		= M_UPRABORT();

// Menu names
string MI_OPEN	= M("&Laden","L&oad");
string MI_PARAM	= M("%&Einstellungen","%&Settings");
string MI_VARIANT = M("&Varianten","&Variants");

// INI file parameter name definitions
#define PAR_MOUSEREP	"MOUSEREP_STD"	// Mouse command repeat mode
int MOUSEREP = bae_iniintval(PAR_MOUSEREP,0)
					/* Mouse command repeat mode */;

// User Language program name definitions
#define UL_GEDVAR	"gedvar"

// Main program
void main()
{
	// Query action
	switch (bae_askmenu(4,MI_OPEN,MI_PARAM,
	 (bae_planddbclass()!=DDBCLLAY ? "," : "")+MI_VARIANT,UPRABORT)) {
		case 0 :
		if (MOUSEREP&0x02)
			bae_storecmdbuf(0,"#603",bae_plainmenutext(MI_OPEN));
		bae_callmenu(603);
		break;
		case 1 :
		bae_callmenu(5004);
		break;
		case 2 :
		if (MOUSEREP&0x02)
			bae_storecmdbuf(0,
			 UL_GEDVAR,bae_plainmenutext(MI_VARIANT));
		ulsystem(UL_GEDVAR,0);
		break;
		default :
		;
		}
}

// User Language program end