#include "EditRadio.h"

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

#include "WimpLib:Desktop.h"
#include "WimpLib:Display.h"
#include "WimpLib:Exception.h"
#include "WimpLib:Hourglass.h"
#include "WimpLib:mem.h"
#include "WimpLib:Menu.h"
#include "WimpLib:Message.h"
#include "WimpLib:Slider.h"
#include "WimpLib:Task.h"
#include "WimpLib:Template.h"
#include "WimpLib:Utils.h"
#include "WimpLib:Window.h"
#include "WimpLib:WStringList.h"

#include "DigitalCD.h"
#include "Options.h"
#include "PListRadio.h"
#include "DocEvents.h"
#include "UserEvents.h"

#define Prop_Url         0x001
#define Prop_Station     0x002
#define Prop_Broadcaster 0x004
#define Prop_MimeType    0x008
#define Prop_Info        0x010
#define Prop_Rate        0x020
#define Prop_Clue        0x040
#define Prop_Points      0x080
#define Prop_Volume      0x100
#define Prop_AllProps    0x1ff
#define Prop_SingleObject    0x80000000
#define Prop_RefreshContents 0x40000000
#define Prop_RefreshState    0x20000000

typedef unsigned int Props;

#define EIcon_ColorMask   0xf0000000
#define EIcon_ColorNormal 0x00000000
#define EIcon_ColorDiffer 0x20000000

#define EditFlags_Create   0x01
#define EditFlags_Updating 0x02 // We are fiddling with the tracks, ignore DocEvents

typedef struct
{
	HWind             m_wnd;
	List*             m_pTracks;
	const FLTrack*    m_pRefTrack;
	void*             m_pView;
	Props             m_AllowedProps;
	Props             m_DifferingProps;
	Props             m_ModifiedProps;
	unsigned int      m_flags;
	struct
	{
		const char*   url;
		const char*   station;
		const char*   broadcaster;
		const char*   mimetype;
		unsigned int  rate;
		const CSpriteHdr* pclue;
		int           points;
		unsigned int  volume;
		const char*   info;
	} m_ref;
	struct
	{
		unsigned int  rate;
		const CSpriteHdr* pclue;
		int           points;
		unsigned int  volume;
	} m_new;
	WStringList*      m_pWBroadcasterList;
	WStringList*      m_pWMimeTypeList;
} EditRadio;

static EditRadio TheEditRadio = {HWind_None};

#define Icon_Set          0
#define Icon_Cancel       1
#define Icon_Url          2
#define Icon_Station      4
#define Icon_Broadcaster  6
#define Icon_MimeType     8
#define Icon_Rate        10
#define Icon_Clue        13
#define Icon_ClueMenu    14
#define Icon_Points      16
#define Icon_Stars       17
#define Icon_VolumeStart 23
#define Icon_VolumeEnd   29
#define Icon_Volume      24
#define Icon_Volume2     25
#define Icon_100         27
#define Icon_500         29
#define Icon_Info        31

/**
 * Sets the reference track to use for building the properties.
 * If the reference track is not contained in the list of edited tracks
 * the first one from the list is used as reference.
 *
 * @param  pRef  Pointer to the reference track to use.
 */
static void EditRadio_SetRefTrack(EditRadio* This, const FLTrack* pRef)
{
	This->m_pRefTrack = NULL;

	if (pRef)
	{
		if (List_Find(This->m_pTracks, 0, pRef) != -1)
			This->m_pRefTrack = pRef;
	}

	if (!This->m_pRefTrack && (List_Count(This->m_pTracks) > 0))
		This->m_pRefTrack = List_Get(This->m_pTracks, 0);
}

/**
 * Refreshes the state of buttons
 */
static void EditRadio_RefreshButtons(EditRadio* This)
{
	bool b;

	b = !This->m_ModifiedProps;
	if (This->m_flags & EditFlags_Create) b = false;

	Icon_SetDimmed(This->m_wnd, Icon_Set, b);
}

/**
 * Refreshes the window contents for given properties
 *
 * @param  props  bitlist of properties to refresh
 *                + Prop_RefreshContents is the properties values are to be updated
 *                + Prop_RefreshState is the properties common/allowed status are to be updated.
 */
static void EditRadio_Refresh(EditRadio* This, Props props)
{
	bool b;

	if (props & Prop_Url)
	{
		b = (This->m_AllowedProps & Prop_Url) == 0;

		if (props & Prop_RefreshContents)
			Icon_SetData(This->m_wnd, Icon_Url, This->m_ref.url);

		if (props & Prop_RefreshState)
		{
			Icon_SetDimmed(This->m_wnd, Icon_Url, b);
			Icon_SetState(This->m_wnd, Icon_Url
			             , (This->m_DifferingProps & Prop_Url)
			             ? EIcon_ColorDiffer : EIcon_ColorNormal, EIcon_ColorMask);
		}
	}

	if (props & Prop_Station)
	{
		b = (This->m_AllowedProps & Prop_Station) == 0;

		if (props & Prop_RefreshContents)
			Icon_SetData(This->m_wnd, Icon_Station, This->m_ref.station);

		if (props & Prop_RefreshState)
		{
			Icon_SetDimmed(This->m_wnd, Icon_Station - 1, b);
			Icon_SetDimmed(This->m_wnd, Icon_Station, b);
			Icon_SetState(This->m_wnd, Icon_Station
			             , (This->m_DifferingProps & Prop_Station)
			             ? EIcon_ColorDiffer: EIcon_ColorNormal, EIcon_ColorMask);
		}
	}

	if (props & Prop_Broadcaster)
	{
		b = (This->m_AllowedProps & Prop_Broadcaster) == 0;

		if (props & Prop_RefreshContents)
			WStringList_SetIconData(This->m_pWBroadcasterList, This->m_ref.broadcaster);

		if (props & Prop_RefreshState)
		{
			Icon_SetDimmed(This->m_wnd, Icon_Broadcaster - 1, b);
			Icon_SetDimmed(This->m_wnd, Icon_Broadcaster, b);
			Icon_SetState(This->m_wnd, Icon_Broadcaster
			             , (This->m_DifferingProps & Prop_Broadcaster)
			             ? EIcon_ColorDiffer: EIcon_ColorNormal, EIcon_ColorMask);
		}
	}

	if (props & Prop_MimeType)
	{
		b = (This->m_AllowedProps & Prop_MimeType) == 0;

		if (props & Prop_RefreshContents)
			WStringList_SetIconData(This->m_pWMimeTypeList, This->m_ref.mimetype);

		if (props & Prop_RefreshState)
		{
			Icon_SetDimmed(This->m_wnd, Icon_MimeType - 1, b);
			Icon_SetDimmed(This->m_wnd, Icon_MimeType, b);
			Icon_SetState(This->m_wnd, Icon_MimeType
			             , (This->m_DifferingProps & Prop_MimeType)
			             ? EIcon_ColorDiffer: EIcon_ColorNormal, EIcon_ColorMask);
		}
	}

	if (props & Prop_Info)
	{
		b = (This->m_AllowedProps & Prop_Info) == 0;

		if (props & Prop_RefreshContents)
			Icon_SetData(This->m_wnd, Icon_Info, This->m_ref.info);

		if (props & Prop_RefreshState)
		{
			Icon_SetDimmed(This->m_wnd,Icon_Info - 1, b);
			Icon_SetDimmed(This->m_wnd,Icon_Info, b);
			Icon_SetState(This->m_wnd, Icon_Info
			             , (This->m_DifferingProps & Prop_Info)
			             ? EIcon_ColorDiffer: EIcon_ColorNormal, EIcon_ColorMask);
		}
	}

	if (props & Prop_Rate)
	{
		b = (This->m_AllowedProps & Prop_Rate) == 0;

		if (props & Prop_RefreshContents)
		{
			if (b)
				Icon_SetData(This->m_wnd, Icon_Rate, NULL);
			else
				Icon_Printf(This->m_wnd, Icon_Rate, "%d", This->m_new.rate);
		}

		if (props & Prop_RefreshState)
		{
			Icon_SetDimmed(This->m_wnd, Icon_Rate - 1, b);
			Icon_SetDimmed(This->m_wnd, Icon_Rate, b);
			Icon_SetDimmed(This->m_wnd, Icon_Rate + 1, b);
			Icon_SetState(This->m_wnd, Icon_Rate
			             , (This->m_DifferingProps & Prop_Rate)
			             ? EIcon_ColorDiffer: EIcon_ColorNormal, EIcon_ColorMask);
		}
	}

	if (props & Prop_Clue)
	{
		Icon_Redraw(This->m_wnd, Icon_Clue);
	}

	if (props & Prop_Points)
	{
		b = (This->m_AllowedProps & Prop_Points) == 0;

		if (props & Prop_RefreshContents)
		{
			int points = This->m_new.points;

			if (points != -1)
			{
				Icon_Printf(This->m_wnd, Icon_Points, "%d", points);
			}
			else
				Icon_SetData(This->m_wnd, Icon_Points, NULL);

			for (int i = 0; i < 5; i++)
			{
				if (points < (((i<<1) + 1) * Options()->PlayLists.MaxPoints / 10))
					Icon_SetData(This->m_wnd, Icon_Stars + i, "rate_0");
				else if (points < (((i<<1) + 2) * Options()->PlayLists.MaxPoints / 10))
					Icon_SetData(This->m_wnd, Icon_Stars + i, "rate_5");
				else
					Icon_SetData(This->m_wnd, Icon_Stars + i, "rate_10");
			}
		}

		if (props & Prop_RefreshState)
		{
			for (int i = Icon_Points - 1; i <= Icon_Stars + 4; i++)
				Icon_SetDimmed(This->m_wnd, i, b);
			Icon_SetState(This->m_wnd, Icon_Points
			             , (This->m_DifferingProps & Prop_Points)
			             ? EIcon_ColorDiffer: EIcon_ColorNormal, EIcon_ColorMask);
		}
	}

	if (props & Prop_Volume)
	{
		b = (This->m_AllowedProps & Prop_Volume) == 0;

		if (props & Prop_RefreshContents)
			Slider_Set(This->m_wnd, Icon_Volume, Icon_Volume2, 0, (float)This->m_new.volume/500);

		if (props & Prop_RefreshState)
		{
			for (int i = Icon_VolumeStart; i <= Icon_VolumeEnd; i++)
				Icon_SetDimmed(This->m_wnd, i, b);
			Icon_SetState(This->m_wnd, Icon_Volume
			             , (This->m_DifferingProps & Prop_Volume)
			             ? EIcon_ColorDiffer: EIcon_ColorNormal, EIcon_ColorMask);
		}
	}
}

/**
 * Builds the properties initial values and allowed status.
 */

static const char* EditRadio_GetMetaText(const FLTrack* pTrack, EMetaId id)
{
	const MetaData* pmeta = MetaList_Find(FLTrack_GetMeta(pTrack), id);

	if (pmeta && pmeta->data)
		return pmeta->data;

	return &nil;
}

static void EditRadio_BuildProperties(EditRadio* This)
{
	const FLTrack* pTrack;
	bool b;

	This->m_AllowedProps = Prop_AllProps;
	This->m_ModifiedProps = 0;

	if (List_Count(This->m_pTracks) > 1)
	{
		This->m_AllowedProps &= ~(Prop_Url | Prop_Volume);
	}
	else This->m_AllowedProps |= Prop_SingleObject;

	pTrack = This->m_pRefTrack;

	b = (This->m_AllowedProps & Prop_Url) == 0;
	throw_mem_setstring(&This->m_ref.url, b ? NULL : FLTrack_GetFilename(pTrack));

	b = (This->m_AllowedProps & Prop_Station) == 0;
	throw_mem_setstring(&This->m_ref.station, b ? NULL : EditRadio_GetMetaText(pTrack, EMetaId_StreamStation));

	b = (This->m_AllowedProps & Prop_Broadcaster) == 0;
	throw_mem_setstring(&This->m_ref.broadcaster, b ? NULL : EditRadio_GetMetaText(pTrack, EMetaId_StreamBroadcaster));

	b = (This->m_AllowedProps & Prop_MimeType) == 0;
	throw_mem_setstring(&This->m_ref.mimetype, b ? NULL : EditRadio_GetMetaText(pTrack, EMetaId_StreamMimeType));

	b = (This->m_AllowedProps & Prop_Info) == 0;
	throw_mem_setstring(&This->m_ref.info, b ? NULL : FLTrack_GetInfo(pTrack));

	b = (This->m_AllowedProps & Prop_Rate) == 0;
	This->m_new.rate = This->m_ref.rate = b ? 0 : FLTrack_GetRate(pTrack);

	b = (This->m_AllowedProps & Prop_Clue) == 0;
	This->m_new.pclue = This->m_ref.pclue = b ? NULL : FLTrack_GetClue(pTrack);

	b = (This->m_AllowedProps & Prop_Points) == 0;
	This->m_new.points = This->m_ref.points = b ? -1 : FLTrack_GetPoints(pTrack);

	b = (This->m_AllowedProps & Prop_Volume) == 0;
	This->m_new.volume = This->m_ref.volume = b ? 100 : FLTrack_GetVolume(pTrack);

	EditRadio_Refresh(This, Prop_RefreshContents | Prop_AllProps);

	EditRadio_RefreshButtons(This);
}

/**
 * Takes note of the properties for which the values are not identical in all tracks.
 */

static void EditRadio_BuildCommonStatus(EditRadio* This)
{
	if (This->m_AllowedProps & Prop_SingleObject)
	{
		This->m_DifferingProps = 0;
	}
	else
	{
		ListNode* pNode;
		const FLTrack* pTrack;
		Props commons = This->m_AllowedProps;


		// Check all allowed/non-modified properties to see
		// if their values correspond to the initial values.
		pNode = NULL;

		while (commons && ((pNode = List_GetSuccessor(This->m_pTracks, pNode)) != NULL))
		{
			pTrack = List_GetNodeData(This->m_pTracks, pNode);

			if (commons & Prop_Url)
			{
				if (strcmp(nvl(This->m_ref.url), FLTrack_GetFilename(pTrack)))
					commons &= ~Prop_Url;
			}

			if (commons & Prop_Station)
			{
				if (strcmp(nvl(This->m_ref.station), EditRadio_GetMetaText(pTrack, EMetaId_StreamStation)))
					commons &= ~Prop_Station;
			}

			if (commons & Prop_Broadcaster)
			{
				if (strcmp(nvl(This->m_ref.broadcaster), EditRadio_GetMetaText(pTrack, EMetaId_StreamBroadcaster)))
					commons &= ~Prop_Broadcaster;
			}

			if (commons & Prop_MimeType)
			{
				if (strcmp(nvl(This->m_ref.mimetype), EditRadio_GetMetaText(pTrack, EMetaId_StreamMimeType)))
					commons &= ~Prop_MimeType;
			}

			if (commons & Prop_Info)
			{
				if (strcmp(nvl(This->m_ref.info), FLTrack_GetInfo(pTrack)))
					commons &= ~Prop_Info;
			}

			if (commons & Prop_Rate)
			{
				if (This->m_ref.rate != FLTrack_GetRate(pTrack))
					commons &= ~Prop_Rate;
			}

			if (commons & Prop_Clue)
			{
				if (This->m_ref.pclue != FLTrack_GetClue(pTrack))
					commons &= ~Prop_Clue;
			}

			if (commons & Prop_Points)
			{
				if (This->m_ref.points != FLTrack_GetPoints(pTrack))
					commons &= ~Prop_Points;
			}

			if (commons & Prop_Volume)
			{
				if (This->m_ref.volume != FLTrack_GetVolume(pTrack))
					commons &= ~Prop_Volume;
			}
		}

		This->m_DifferingProps = This->m_AllowedProps & ~commons;
	}

	EditRadio_Refresh(This, Prop_RefreshState | Prop_AllProps);
}

/**
 * Takes note of the properties which were modified.
 */

static void EditRadio_CheckChanges(EditRadio* This, Props props)
{
	Props modifs = 0;
	Props updated;

	props &= This->m_AllowedProps;

	// Check values with references
	if (props & Prop_Url)
	{
		if (strcmp(nvl(This->m_ref.url), Icon_GetData(This->m_wnd, Icon_Url)))
			modifs |= Prop_Url;
	}

	if (props & Prop_Station)
	{
		if (strcmp(nvl(This->m_ref.station), Icon_GetData(This->m_wnd, Icon_Station)))
			modifs |= Prop_Station;
	}

	if (props & Prop_Broadcaster)
	{
		if (strcmp(nvl(This->m_ref.broadcaster), Icon_GetData(This->m_wnd, Icon_Broadcaster)))
			modifs |= Prop_Broadcaster;
	}

	if (props & Prop_MimeType)
	{
		if (strcmp(nvl(This->m_ref.mimetype), Icon_GetData(This->m_wnd, Icon_MimeType)))
			modifs |= Prop_MimeType;
	}

	if (props & Prop_Info)
	{
		if (strcmp(nvl(This->m_ref.info), Icon_GetData(This->m_wnd, Icon_Info)))
			modifs |= Prop_Info;
	}

	if (props & Prop_Rate)
	{
		This->m_new.rate = atoi(Icon_GetData(This->m_wnd, Icon_Rate));
		if (This->m_ref.rate != This->m_new.rate)
			modifs |= Prop_Rate;
	}

	if (props & Prop_Clue)
	{
		if (This->m_ref.pclue != This->m_new.pclue)
			modifs |= Prop_Clue;
	}

	if (props & Prop_Points)
	{
		if (This->m_ref.points != This->m_new.points)
			modifs |= Prop_Points;
	}

	if (props & Prop_Volume)
	{
		if (This->m_ref.volume != This->m_new.volume)
			modifs |= Prop_Volume;
	}

	// Any change compared to old status?
	updated = (modifs ^ This->m_ModifiedProps) & props;

	if (This->m_AllowedProps & Prop_SingleObject)
	{
		// reflect even reversion to original values
		if (updated)
		{
			This->m_ModifiedProps ^= updated;

			EditRadio_RefreshButtons(This);
		}
	}
	else
	{
		// reflect new changes but there is no reversion
		// to original value since any change affected old values
		updated &= modifs;

		if (updated)
		{
			This->m_ModifiedProps |= updated;
			This->m_DifferingProps &= ~updated;
			EditRadio_Refresh(This, Prop_RefreshState | updated);

			EditRadio_RefreshButtons(This);
		}
	}
}

static void EditRadio_SetVolume(EditRadio* This, unsigned int volume)
{
	ListNode* pNode;
	FLTrack* pTrack;

	if (!(This->m_AllowedProps & Prop_Volume))
		return;

	if (volume < 10) volume = 10;
	if (volume > 500) volume = 500;
	This->m_new.volume = volume;

	EditRadio_CheckChanges(This, Prop_Volume);
	EditRadio_Refresh(This, Prop_RefreshContents | Prop_Volume);

	pNode = NULL;

	while ((pNode = List_GetSuccessor(This->m_pTracks, pNode)) != NULL)
	{
		pTrack = List_GetNodeData(This->m_pTracks, pNode);

		FLTrack_SetVolume(pTrack, This->m_new.volume);
	}

	PListRadio_RefreshPlayer(PListRadio_Get(), player_refresh_volume);
}

static void EditRadio_UpdateVolume(void* pData, int value, int maxvalue, ESlider_UpdateMode mode)
{
	IGNORE(maxvalue);

	if (mode == ESlider_UpdateMode_Cancel) return;

	EditRadio_SetVolume(pData, value);
}

static void EditRadio_SetPoints(EditRadio* This, int points)
{
	if (points < -1) points = -1;
	if (points > Options()->PlayLists.MaxPoints) points = Options()->PlayLists.MaxPoints;
	This->m_new.points = points;

	EditRadio_CheckChanges(This, Prop_Points);
	EditRadio_Refresh(This, Prop_RefreshContents | Prop_Points);
}

static void EditRadio_ClearTracks(EditRadio* This)
{
	This->m_flags |= EditFlags_Updating;

	try
	{
		if (This->m_flags & EditFlags_Create)
		{
			ListNode* pNode;
			FLTrack* pTrack;

			pNode = NULL;

			while ((pNode = List_GetSuccessor(This->m_pTracks, pNode)) != NULL)
			{
				pTrack = List_GetNodeData(This->m_pTracks, pNode);
				Delete_FLTrack(pTrack);
			}
		}
	}
	catch
	{
		App_ReportException();
	}
	catch_end

	List_Clear(This->m_pTracks);

	This->m_flags &= ~EditFlags_Updating;
}

static bool EditRadio_OnOk(EditRadio* This)
{
	ListNode* pNode;
	FileList* pOwner = NULL;
	int i = 0;
	int max = List_Count(This->m_pTracks);

	// Checks
	if (This->m_AllowedProps & Prop_Url)
	{
		String_StripBlanks(Icon_GetData(This->m_wnd, Icon_Url));

		if (!*Icon_GetData(This->m_wnd, Icon_Url))
		{
			App_ReportError("DSErr9");
			return false;
		}
	}

	// Set
	bool off = !WLib_Hourglass_IsOn();
	if (off) WLib_Hourglass_On();
	pNode = NULL;

	This->m_flags |= EditFlags_Updating;

	try
	{
		while ((pNode = List_GetSuccessor(This->m_pTracks, pNode)) != NULL)
		{
			FLTrack* pTrack = List_GetNodeData(This->m_pTracks, pNode);

			WLib_Hourglass_Percentage((100 * i++)/max);

			if (pOwner != FLTrack_GetOwner(pTrack))
			{
				if (pOwner != NULL) FileList_EndUpdate(pOwner, false, false);

				pOwner = FLTrack_GetOwner(pTrack);
				if (pOwner != NULL) FileList_StartUpdate(pOwner);
			}

			bool bModified = false;
			bool bAutoModified = false;

			if (This->m_ModifiedProps & Prop_Url)
				bModified |= FLTrack_SetFilename(pTrack, Icon_GetData(This->m_wnd, Icon_Url), false);

			if (This->m_ModifiedProps & Prop_Station)
				bAutoModified |= FLTrack_SetMetaText(pTrack, EMetaId_StreamStation, EMetaOrigin_User, Icon_GetData(This->m_wnd, Icon_Station));

			if (This->m_ModifiedProps & Prop_Broadcaster)
				bAutoModified |= FLTrack_SetMetaText(pTrack, EMetaId_StreamBroadcaster, EMetaOrigin_User, Icon_GetData(This->m_wnd, Icon_Broadcaster));

			if (This->m_ModifiedProps & Prop_MimeType)
				bAutoModified |= FLTrack_SetMetaText(pTrack, EMetaId_StreamMimeType, EMetaOrigin_User, Icon_GetData(This->m_wnd, Icon_MimeType));

			if (This->m_ModifiedProps & Prop_Info)
				bAutoModified |= FLTrack_SetInfo(pTrack, Icon_GetData(This->m_wnd, Icon_Info));

			if (This->m_ModifiedProps & Prop_Points)
				bAutoModified |= FLTrack_SetPoints(pTrack, This->m_new.points);

			if (This->m_ModifiedProps & Prop_Rate)
				bAutoModified |= FLTrack_SetRate(pTrack, This->m_new.rate);

			if (This->m_ModifiedProps & Prop_Clue)
				bAutoModified |= FLTrack_SetClue(pTrack, This->m_new.pclue);

			if (This->m_flags & EditFlags_Create)
			{
				try
				{
					pOwner = (FileList*) View_GetDocument(This->m_pView);
					int pos = throw_FileList_InsertTrackAt(pOwner, -1, pTrack);
					FileList_Show(pOwner, pos);
				}
				catch
				{
					App_ReportException();
				}
				catch_end
			}
			else if ((This->m_new.volume != This->m_ref.volume)
			||  bModified
			||  bAutoModified)
			{
				FLTrack_RefreshViews(pTrack, This, bAutoModified, bModified);
				PListRadio_RefreshPlayer(PListRadio_Get(), player_refresh_track | player_refresh_volume);
			}
		}

		if (pOwner != NULL) FileList_EndUpdate(pOwner, false, false);
	}
	catch
	{
		App_ReportException();
	}
	catch_end

	This->m_flags &= ~EditFlags_Updating;

	if (off) WLib_Hourglass_Off();

	// Once here new modications are updates
	This->m_flags &= ~EditFlags_Create;

	// Reset settings
	EditRadio_BuildProperties(This);
	EditRadio_BuildCommonStatus(This);

	return true;
}

static void EditRadio_OnCancel(EditRadio* This)
{
	EditRadio_SetVolume(This, This->m_ref.volume);

	// Reset settings
	EditRadio_BuildProperties(This);
	EditRadio_BuildCommonStatus(This);
}

static void EditRadio_Drawer(void* handle, const CWindRedraw* pdraw)
{
	EditRadio* This = handle;
	CIcon icon;
	CPoint pt;
	CRect box;

	Icon_GetInfo(This->m_wnd, Icon_Clue, &icon);

	Desktop_SetStdColour((This->m_DifferingProps & Prop_Clue) ? 2: 0);
	box = RectToScreen(&icon.box, &pdraw->cvt);
	RoundRectForPlot(&box);
	Display_RectangleFill(&box);

	pt.x = box.x0 + 10;
	pt.y = box.y0 + 10;
	Desktop_PlotSprite(This->m_new.pclue, pt, NULL);
}

static EListenerAction EditRadio_Listener(void* handle, const Event* e)
{
	EditRadio* This = handle;

	switch(e->Type)
	{
		case EEvent_OptionParentalLock:
		{
			if (Options()->Player.bParentalLock)
			{
				EditRadio_OnCancel(This);
				Window_Close(This->m_wnd);
			}
		}
		break;
	}

	return EListenerAction_ContinueEvent;
}

static EListenerAction EditRadio_EventHandler(void* handle, const Event* e)
{
	EditRadio* This = handle;

	switch(e->Type)
	{
		case EEvent_WindowRedraw:
		{
			Window_Redraw(This->m_wnd, EditRadio_Drawer, handle);

			return EListenerAction_StopEvent;
		}
		break;
		case EEvent_Mouse:
		{
			const Mouse* m = e->pData;

			if (m->but & EBut_Menu)
				return EListenerAction_StopEvent;

			switch(m->i)
			{
				case Icon_100:
				{
					EditRadio_SetVolume(This, 100);
				}
				break;
				case Icon_500:
				{
					EditRadio_SetVolume(This, 500);
				}
				break;
				case Icon_Volume:
				case Icon_Volume2:
				{
					Slider_Update(This->m_wnd, Icon_Volume, Icon_Volume2, 0, m, EditRadio_UpdateVolume, This);
				}
				break;
				case Icon_Cancel:
				{
					EditRadio_OnCancel(This);
					if (m->but & EBut_Select)
						Window_Close(This->m_wnd);
				}
				break;
				case Icon_Set:
				{
					if (EditRadio_OnOk(This)
					&&  (m->but & EBut_Select))
						Window_Close(This->m_wnd);
				}
				break;
				case Icon_ClueMenu:
				{
					// Open menu
					WList_SetParent(&DigitalCD.m_ClueList, This->m_wnd);
					WList_SetItemsState(&DigitalCD.m_ClueList, 0, EWItem_Selected, EWItem_Selected, EWItem_Selected);
					WList_Popup(&DigitalCD.m_ClueList, This->m_wnd, Icon_ClueMenu);
				}
				break;
			}

			return EListenerAction_StopEvent;
		}
		break;
		case EEvent_Key:
		{
			const Event_Key* pkey = e->pData;

			switch(pkey->code)
			{
				case 0x1b: // Esc
				{
					EditRadio_OnCancel(This);
					Window_Close(This->m_wnd);
					return EListenerAction_StopEvent;
				}
				break;
				case 0x0d: // Return
				{
					if (pkey->caret.pos.i == Icon_Points)
					{
						if (EditRadio_OnOk(This))
							Window_Close(This->m_wnd);
					}
					return EListenerAction_StopEvent;
				}
				break;
				case 0x181: // F1
				{
					App_StrongHelp("Radios_Properties");
					return EListenerAction_StopEvent;
				}
				break;
				default:
				{
					switch (pkey->caret.pos.i)
					{
						case Icon_Url:
						{
							EditRadio_CheckChanges(This, Prop_Url);
						}
						break;
						case Icon_Station:
						{
							EditRadio_CheckChanges(This, Prop_Station);
						}
						break;
						case Icon_Broadcaster:
						{
							EditRadio_CheckChanges(This, Prop_Broadcaster);
						}
						break;
						case Icon_MimeType:
						{
							EditRadio_CheckChanges(This, Prop_MimeType);
						}
						break;
						case Icon_Info:
						{
							EditRadio_CheckChanges(This, Prop_Info);
						}
						break;
						case Icon_Rate:
						{
							EditRadio_CheckChanges(This, Prop_Rate);
						}
						break;
						case Icon_Points:
						{
							const char* pdata = Icon_GetData(This->m_wnd, Icon_Points);

							if (*pdata)
							{
								EditRadio_SetPoints(This, atoi(pdata));
							}
							else
								EditRadio_SetPoints(This, -1);
						}
						break;
					}
					break;
				}
			}
		}
		break;
		case EEvent_WindowScroll:
		{
			const Event_WindowScroll* sc = e->pData;
			int val = (sc->dx & 3) ? 0: (sc->dx >> 2);
			val += (sc->dy & 3) ? 0: (sc->dy >> 2);
			if (val)
			{
				switch(sc->icon)
				{
					case Icon_Volume-1:
					case Icon_Volume:
					case Icon_Volume2:
					{
						EditRadio_SetVolume(This, This->m_new.volume + 5*val);
					}
					break;
				}
			}
			return EListenerAction_StopEvent;
		}
		break;
		case EEvent_SelectionChange:
		{
			const Event_SelectionChange* ev = e->pData;
			const Mouse* m = Mouse_Get();

			if (ev->pWList == &DigitalCD.m_ClueList)
			{
				This->m_new.pclue = WList_Get(&DigitalCD.m_ClueList, ev->Index);
				EditRadio_CheckChanges(This, Prop_Clue);
				EditRadio_Refresh(This, Prop_RefreshContents | Prop_Clue);

				if (m->but == EBut_Select)
					Menu_Close();
				return EListenerAction_StopEvent;
			}
		}
		break;
	}

	return EListenerAction_ContinueEvent;
}

static EListenerAction EditRadio_OnDocEvent(void* pListener, const Event* pEvent)
{
	EditRadio* This = pListener;
	const DocEvent* pe = pEvent->pData;

	if ((This->m_wnd == HWind_None)
	||  (This->m_flags & EditFlags_Updating))
		return EListenerAction_ContinueEvent;

	switch(pe->event)
	{
		case EDocEvent_RemoveElement:
		case EDocEvent_UpdateElement:
		{
			int pos = List_Find(This->m_pTracks, 0, pe->pElement);

			if (pos != -1)
			{
				EditRadio_OnCancel(This);
				EditRadio_ClearTracks(This);
				Window_Close(This->m_wnd);
			}
		}
		break;
	}

	return EListenerAction_ContinueEvent;
}

void EditRadio_EditNew(void* pView)
{
	EditRadio_Edit(pView, NULL, NULL);
}

void EditRadio_Edit(void* pView, List* pList, const FLTrack* pRef)
{
	EditRadio* This = &TheEditRadio;

	if (Options()->Player.bParentalLock)
		return;

	if (This->m_wnd == HWind_None)
	{
		memset(This, 0, sizeof(*This));
		This->m_wnd = HWind_None;

		try
		{
			This->m_pTracks = New_List();

			This->m_wnd = throw_Window_CreateFrom("PropRadio", "RPropH");

			throw_Window_RegisterEventHandler(This->m_wnd, EditRadio_EventHandler, This, false);
			throw_Task_AddListener(EEvent_OptionParentalLock, EditRadio_Listener, This, false);

			This->m_pWBroadcasterList = throw_New_WStringList(DigitalCD.pBroadcastersCol, This->m_wnd, Icon_Broadcaster);
			This->m_pWMimeTypeList = throw_New_WStringList(DigitalCD.pMimeTypesCol, This->m_wnd, Icon_MimeType);
			throw_DocEvents_AddListener(NULL, This, EditRadio_OnDocEvent);
		}
		catch
		{
			EditRadio_NotEdit();
			App_ReportException();
			return;
		}
		catch_end
	}

	This->m_pView = pView;

	EditRadio_ClearTracks(This);

	try
	{
		if (pList && List_Count(pList))
		{
			ListNode* pNode;
			FLTrack* pTrack;

			pNode = NULL;

			while ((pNode = List_GetSuccessor(pList, pNode)) != NULL)
			{
				pTrack = List_GetNodeData(pList, pNode);

				List_InsertBefore(This->m_pTracks, NULL, pTrack);
			}

			This->m_flags &= ~EditFlags_Create;
		}
		else if (!pList && pView)
		{
			// Creation mode
			FileList* pOwner = (FileList*) View_GetDocument(This->m_pView);
			FLTrack* pTrack = throw_New_FLTrack(pOwner, FLTrack_IsUrl, "http://");

			List_InsertBefore(This->m_pTracks, NULL, pTrack);

			This->m_flags |= EditFlags_Create;
		}
	}
	catch
	{
		App_ReportException();
		EditRadio_ClearTracks(This);
	}
	catch_end

	EditRadio_SetRefTrack(This, pRef);

	if (!List_Count(This->m_pTracks))
	{
		Window_Close(This->m_wnd);
	}
	else
	{
		EditRadio_BuildProperties(This);
		EditRadio_BuildCommonStatus(This);

		Window_Open(This->m_wnd);
		Icon_SetFocus(This->m_wnd, Icon_Station, -1);
	}
}

void EditRadio_NotEdit(void)
{
	EditRadio* This = &TheEditRadio;

	if (This->m_pTracks)
	{
		EditRadio_ClearTracks(This);
		Delete_List(This->m_pTracks);
	}

	Delete_WStringList(This->m_pWBroadcasterList);
	Delete_WStringList(This->m_pWMimeTypeList);

	if (This->m_wnd != HWind_None)
	{
		DocEvents_RemoveListener(NULL, This, EditRadio_OnDocEvent);
		Task_RemoveListener(EEvent_OptionParentalLock, EditRadio_Listener, This);
		Window_DeRegisterEventHandler(This->m_wnd, EditRadio_EventHandler, This);
		Window_Delete(This->m_wnd);
	}

	mem_free(This->m_ref.url);
	mem_free(This->m_ref.station);
	mem_free(This->m_ref.broadcaster);
	mem_free(This->m_ref.info);

	memset(This, 0, sizeof(*This));
	This->m_wnd = HWind_None;
}
