/* STEPDOWN (STD) -- Step One Layer Down */
/* STEPDOWN (STD) -- Um eine Lage runterwechseln */
/* -- INTENDED FOR KEY-CALL/MOUSEWHEEL USE (<)>:Step Down) -- */
/*
// Copyright (c) 2005-2012 Oliver Bartels F+E, Muenchen
// Author: Roman Ludwig
// Changes History:
//	rl (120427) RELEASED FOR BAE V7.8.
//	rl (110110) ENHANCEMENT:
//		Added history step functionality.
//	rl (101019) RELEASED FOR BAE V7.6.
//	rl (091021) 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 (050818) ORIGINAL CODING.
//
// DESCRIPTION
//
// The stepdown User Language program designates the currently
// active BAE menu function, and performs a submenu interaction
// for switching to the previous layer for the current object (if an object is
// picked and if layer change is permitted). This program must be configured
// for implicit hotkey program call (e.g. <(> for Ctrl-Mousewheel down).
*/

// Includes
#include "baeparam.ulh"			// User Language BAE param. access

// Enforce editor caller type
#pragma ULCALLEREDT

// Disable undo state request
#pragma ULCALLERNOUNDO

// User Language program name definitions
#define UL_SMALLER	"smaller"

// Main program
void main()
{
	// Check if standalone history step call
	if (ulproginfo("",0,0)<=1 && bae_getactmenu()<0)
		ulsystem("history:'m'",0);
	else
		// Test the interpreter type
		switch (uliptype()) {
			/* SCM */ case ULIPSCM : stepdown_scm(); break;
			/* GED */ case ULIPGED : stepdown_ged(); break;
			/* CED */ case ULIPCED : stepdown_ced(); break;
			// Ignore on default
			default :
			}
	// Done
}

void stepdown_scm()
/*
// Step down currently picked SCM object
*/
{
	// Done
}

void stepdown_ged()
/*
// Step down currently picked GED object
*/
{
	// Get the currently active menu
	switch (bae_getactmenu()) {
		// Trace edit functions
		case MNU_GEDADDTRC :
		case MNU_GEDADDFTRC :
		case MNU_GEDTRCINSC :
		case MNU_GEDTRCMDC :
		// Trace segment edit functions
		case 403 :
		case 404 :
		// Check if shift activated
		if ((kbstate()&0x0F)==1) {
			ulsystem(UL_SMALLER,0);
			break;
			}
		bae_storemouseiact(1,0.0,0.0,1,RMB);
		bae_storemenuiact(1,lay_menulaylinecnt()+3,LMB);
		bae_storetextiact(1,"-");
		break;
		// Ignore on default
		default :
		}
	// Done
}

void stepdown_ced()
/*
// Step down currently picked CED object
*/
{
	// Done
}

// User Language program end