/* TBATTACH (STD) -- Attach Toolbar */
/* TBATTACH (STD) -- Toolbar ausrichten */
/*
// Copyright (c) 1997-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 (090122) ENHANCEMENT:
//		Introduced menu tree view options.
//	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 (000509) RELEASED FOR BAE V4.6.
//	rl (990803) RELEASED FOR BAE V4.4.
//	rl (980910) RELEASED FOR BAE V4.2.
//	mb (980710) IMPROVEMENT:
//		Delimiter line and short-cut keys introduced to menu.
//	mb (980710) ENHANCEMENT:
//		Dynamic multi-language support introduced.
//	rl (970929) RELEASED FOR BAE V4.0.
//	mb (970703) ORIGINAL CODING:
//
// DESCRIPTION
//
// The tbattach User Language program attaches the toolbar
// build by the toolbar User Language program to either of
// the four edges of the workspace.
*/

// Includes
#include "popdraw.ulh"			// User Language popup draw. util.

// Disable undo state request
#pragma ULCALLERNOUNDO

// Messages
string UPRABORT	= M_UPRABORT();
string UPRTOP	= M("Toolbar &oben"	  ,"Toolbar at &Top"    );
string UPRLFT	= M("Toolbar &links"	  ,"Toolbar at &Left"   );
string UPRRGT	= M("Toolbar &rechts"	  ,"Toolbar at &Right"  );
string UPRBOT	= M("Toolbar &unten"	  ,"Toolbar at &Bottom" );
string UPRFADE	= M("%Toolbar aus&blenden","%Fade-&Out Toolbar" );
string UPRMTREE	= M("%&Menubaum"	  ,"%Tree &View Menu" );
string UPRMT1	= M("&Kein Menubaum"	  ,"No &Tree View Menu" );
string UPRMT2	= M("Menubaum &links"	  ,"Tree View Menu &Left" );
string UPRMT3	= M("Menubaum &rechts"	  ,"Tree View Menu &Right" );
string UPRMT4	= M("Menubaum &Fenster"	  ,"Tree View Menu &Window" );

// User Language program names
#define UL_TOOLBAR	"toolbar"	// ULP: Toolbar


// Main program
void main()
{
	int newtbattach			/* New toolbar attachment mode */;
	int oldtbattach			/* Old toolbar attachment mode */;
	int tvattach			/* Tree view attachment mode */;
	// Swallow right mouse button activation notification
	if (bae_peekiact() && bae_getactmenu()<0)
		askstr("",1024);
	// Check the old toolbar mode, set default menu selection
	if (varget(GV_TB_ATTACH,oldtbattach))
		bae_defmenusel(4);
	else switch (oldtbattach) {
		case TB_ATTACH_TOP :
		bae_defmenusel(0);
		break;
		case TB_ATTACH_LFT :
		bae_defmenusel(1);
		break;
		case TB_ATTACH_RGT :
		bae_defmenusel(2);
		break;
		case TB_ATTACH_BOT :
		bae_defmenusel(3);
		break;
		default :
		bae_defmenusel(4);
		}
	// Check if windows pulldown menu
	if (bae_swconfig(3)==BAE_WinPulldwn) {
		// Select the toolbar position
		switch (bae_askmenu(7,
		 UPRTOP,UPRLFT,UPRRGT,UPRBOT,UPRFADE,UPRMTREE,UPRABORT)) {
			case 0 : newtbattach=TB_ATTACH_TOP; break;
			case 1 : newtbattach=TB_ATTACH_LFT; break;
			case 2 : newtbattach=TB_ATTACH_RGT; break;
			case 3 : newtbattach=TB_ATTACH_BOT; break;
			case 4 : newtbattach=TB_ATTACH_INV; break;
			// Menu tree view mode
			case 5 :
			bae_getintpar(28,tvattach);
			bae_defmenusel(tvattach);
			if ((tvattach=bae_askmenu(5,UPRMT1,UPRMT2,UPRMT3,
			 UPRMT4,UPRABORT))<0 || tvattach>3)
				error_abort();
			bae_setintpar(28,tvattach);
			exit(0);
			default :
			error_abort();
			}
		}
	else {
		// Select the toolbar position
		switch (bae_askmenu(6,
		 UPRTOP,UPRLFT,UPRRGT,UPRBOT,UPRFADE,UPRABORT)) {
			case 0 : newtbattach=TB_ATTACH_TOP; break;
			case 1 : newtbattach=TB_ATTACH_LFT; break;
			case 2 : newtbattach=TB_ATTACH_RGT; break;
			case 3 : newtbattach=TB_ATTACH_BOT; break;
			case 4 : newtbattach=TB_ATTACH_INV; break;
			default :
			error_abort();
			}
		}
	// Store the new toolbar attachment mode to global variable
	varset(GV_TB_ATTACH,newtbattach);
	// Activate the toolbar
	runulprog(UL_TOOLBAR);
}

// User Language program end