/*
 * window_decor ThemesAddon class
 */

#include <BeBuild.h>
#ifdef B_HAIKU_VERSION_1

#include <Alert.h>
#include <Application.h>
#include <Directory.h>
#include <Entry.h>
#include <InterfaceDefs.h>
#include <MediaFiles.h>
#include <Message.h>
#include <Messenger.h>
#include <Path.h>
#include <Roster.h>
#include <String.h>
#include <Debug.h>

#include <stdio.h>
#include <string.h>

#include "ThemesAddon.h"
#include "UITheme.h"

#ifdef SINGLE_BINARY
#define instantiate_themes_addon instantiate_themes_addon_window_decor
#endif

#define DERR(e) { PRINT(("%s: err: %s\n", __FUNCTION__, strerror(e))); }

namespace BPrivate {
int32 count_decorators(void);
int32 get_decorator(void);
status_t get_decorator_name(const int32 &index, BString &name);
status_t get_decorator_preview(const int32 &index, BBitmap *bitmap);
status_t set_decorator(const int32 &index);
} 

using namespace BPrivate;


status_t
set_decorator(const char *name)
{
	BString n;
	status_t err;
	int i = count_decorators() - 1;
	for (; i > -1; i--) {
		err = get_decorator_name(i, n);
		DERR(err);
		if (err < B_OK)
			continue;
		if (n == name) {
			err = set_decorator(i);
			DERR(err);
			return err;
		}
	}
	return ENOENT;
}


#define A_NAME "Window Decor"
#define A_MSGNAME Z_THEME_WINDOW_DECORATIONS
#define A_DESCRIPTION "Window decorations and scrollbars"


class DecorThemesAddon : public ThemesAddon {
public:
	DecorThemesAddon();
	~DecorThemesAddon();
	
const char *Description();

status_t	RunPreferencesPanel();

status_t	AddNames(BMessage &names);

status_t	ApplyTheme(BMessage &theme, uint32 flags=0L);
status_t	MakeTheme(BMessage &theme, uint32 flags=0L);

status_t	ApplyDefaultTheme(uint32 flags=0L);
};


DecorThemesAddon::DecorThemesAddon()
	: ThemesAddon(A_NAME, A_MSGNAME)
{
}


DecorThemesAddon::~DecorThemesAddon()
{
}


const char *
DecorThemesAddon::Description()
{
	return A_DESCRIPTION;
}


status_t
DecorThemesAddon::RunPreferencesPanel()
{
	status_t err;
	entry_ref ref;
	BEntry ent;
	err = ent.SetTo("/boot/beos/references/Appearance");
	if (!err) {
		err = ent.GetRef(&ref);
		if (!err) {
			err = be_roster->Launch(&ref);
		}
	}
	return err;
}


status_t
DecorThemesAddon::AddNames(BMessage &names)
{
	names.AddString(Z_THEME_WINDOW_DECORATIONS, "Window decorations and scrollbars");
	names.AddString("window:decor", "Window decor");
	names.AddString("window:decor_globals", "Window decor parameters");
	return B_OK;
}


status_t
DecorThemesAddon::ApplyTheme(BMessage &theme, uint32 flags)
{
	BMessage window_decor;
	BMessage globals;
	BString decorName;
	int32 decorId;
	bool decorDone = false;
	status_t err;

	if (!(flags & UI_THEME_SETTINGS_SET_ALL) || !(AddonFlags() & Z_THEME_ADDON_DO_SET_ALL))
		return B_OK;
	
	err = MyMessage(theme, window_decor);
	DERR(err);
	if (err)
		return err;

	// try each name until one works
	for (int i = 0; window_decor.FindString("window:decor", i, &decorName) == B_OK; i++) {
		if (set_decorator(decorName.String()) == B_OK) {
			decorDone = true;
			break;
		}
	}
	// none... maybe R5 number ?
	if (!decorDone && 
		window_decor.FindInt32("window:R5:decor", &decorId) == B_OK) {
		int32 defaultDecor = 0; // XXX ?
		switch (decorId) {
			case R5_DECOR_BEOS:
			default:
				set_decorator(defaultDecor);
				break;
			case R5_DECOR_WIN95:
				set_decorator("WinDecorator");
				break;
			case R5_DECOR_AMIGA:
				set_decorator("AmigaDecorator");
				break;
			case R5_DECOR_MAC:
				set_decorator("MacDecorator");
				break;
		}
	}
#if 0
#ifdef B_BEOS_VERSION_DANO
	if (window_decor.FindString("window:decor", &decorName) == B_OK)
		set_window_decor(decorName.String(), 
			(window_decor.FindMessage("window:decor_globals", &globals) == B_OK)?&globals:NULL);
#else
extern void __set_window_decor(int32 theme);
	int32 decorNr = 0;
	if (window_decor.FindInt32("window:R5:decor", &decorNr) == B_OK)
		__set_window_decor(decorNr);
#endif
#endif
	// XXX: add colors à la WindowShade ?
	
	return B_OK;
}


status_t
DecorThemesAddon::MakeTheme(BMessage &theme, uint32 flags)
{
	BMessage window_decor;
	BMessage globals;
	BString decorName;
	status_t err;
	
	(void)flags;
	err = MyMessage(theme, window_decor);
	DERR(err);
	if (err)
		window_decor.MakeEmpty();

	err = get_decorator_name(get_decorator(), decorName);
	DERR(err);
	if (err == B_OK) {
		window_decor.AddString("window:decor", decorName.String());
		window_decor.AddMessage("window:decor_globals", &globals);
	}
#if 0
#ifdef B_BEOS_VERSION_DANO
	err = get_window_decor(&decorName, &globals);
	DERR(err);
	if (err == B_OK) {
		window_decor.AddString("window:decor", decorName.String());
		window_decor.AddMessage("window:decor_globals", &globals);
	}
#else
	window_decor.AddInt32("window:R5:decor", 0);
#endif
#endif
	
	err = SetMyMessage(theme, window_decor);
	DERR(err);
	return err;
}


status_t
DecorThemesAddon::ApplyDefaultTheme(uint32 flags)
{
	BMessage theme;
	BMessage window_decor;
	window_decor.AddString("window:decor", "R5");
	window_decor.AddInt32("window:R5:decor", 0L);
	theme.AddMessage(A_MSGNAME, &window_decor);
	return ApplyTheme(theme, flags);
}


ThemesAddon *
instantiate_themes_addon()
{
	return (ThemesAddon *) new DecorThemesAddon;
}


#endif /* B_BEOS_VERSION_DANO */