%% ``The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
%% compliance with the License. You should have received a copy of the
%% Erlang Public License along with this software. If not, it can be
%% retrieved via the world wide web at http://www.erlang.org/.
%% 
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and limitations
%% under the License.
%% 
%% The Initial Developer of the Original Code is Ericsson Utvecklings AB.
%% Portions created by Ericsson are Copyright 1999, Ericsson Utvecklings
%% AB. All Rights Reserved.''
%% 
%%     $Id$
%%
%%%*********************************************************************
%%% 
%%%   Description:      Code for the "set poll interval" dialog with the user.
%%%
%%%*********************************************************************

-module(tv_poll_dialog).



-export([start/1, init/2]).



-include("tv_int_msg.hrl").



-define(WINDOW_WIDTH, 305).
-define(WINDOW_HEIGHT, 185).

-define(DEFAULT_BG_COLOR, {217, 217, 217}).






%%%*********************************************************************
%%% EXTERNAL FUNCTIONS
%%%*********************************************************************



%%======================================================================
%% Function:      
%%
%% Return Value:  
%%
%% Description:   
%%
%% Parameters:    
%%======================================================================


start(Pos) ->
    Pid = self(),
    ProcPid = spawn_link(?MODULE, init, [Pid, Pos]),
    receive_answer(ProcPid).








%%======================================================================
%% Function:      
%%
%% Return Value:  
%%
%% Description:   
%%
%% Parameters:    
%%======================================================================


init(Pid, Pos) ->
    process_flag(trap_exit, true),
    {ScalePos, ScaleRange, Poll, Color} = case Pos of
				       infinity ->
					   {0, {20, 20}, false, {255, 255, 255}};
				       _Other ->
					   {Pos, {20, 300}, true, {0, 0, 0}}
				   end,
    S = gs:start(),
    Win = gs:window(S, [{width, ?WINDOW_WIDTH},
			{height, ?WINDOW_HEIGHT},
			{bg, ?DEFAULT_BG_COLOR},
			{title, "[TV]   Set Poll Interval"},
			{configure, true},
			{destroy, true}
		       ]),

    NoPollBtn = gs:radiobutton(Win, [{height, 30}, 
				     {width, 143},
				     {x, 10},
				     {y, 10},
				     {bg, ?DEFAULT_BG_COLOR},
				     {fg, {0, 0, 0}},
				     {value, no_poll},
				     {label, {text, "Manual Polling"}},
				     {select, not(Poll)}
				    ]),

    PollBtn = gs:radiobutton(Win, [{height, 30}, 
				   {width, 163},
				   {x, 10},
				   {y, 60},
				   {bg, ?DEFAULT_BG_COLOR},
				   {fg, {0, 0, 0}},
				   {value, poll},
				   {label, {text, "Automatic Polling"}},
				   {select, Poll}
				  ]),

    Lbl = gs:label(Win, [{label, {text, "Poll Interval (seconds):"}},
			 {align, center},
			 {bg, ?DEFAULT_BG_COLOR},
			 {fg, Color},
			 {width, 183},
			 {height, 30},
			 {x, 10},
			 {y, 100}
			]),
    
    Scale = gs:scale(Win, [{bg, ?DEFAULT_BG_COLOR},
			   {fg, Color},
			   {orient, horizontal},
			   {range, ScaleRange},
			   {pos, ScalePos},
			   {width, 285},
			   {height, 50},
			   {x, 10},
			   {y, 130}
			  ]),
    
    OkBtn = gs:button(Win, [{label, {text, "OK"}},
			    {bg, ?DEFAULT_BG_COLOR},
			    {fg, {0, 0, 0}},
			    {align, center},
			    {width, 60},
			    {height, 30},
			    {x, 230},
			    {y, 10}
			   ]),

    CancelBtn = gs:button(Win, [{label, {text, "Cancel"}},
				{bg, ?DEFAULT_BG_COLOR},
				{fg, {0, 0, 0}},
				{align, center},
				{width, 60},
				{height, 30},
				{x, 230},
				{y, 60}
			       ]),
    
    gs:config(Win, {map, true}),
    browser_loop(Pid, Win, NoPollBtn, PollBtn, Lbl, Scale, OkBtn, CancelBtn, Poll, Pos).
    






%%%*********************************************************************
%%% INTERNAL FUNCTIONS
%%%*********************************************************************




%%======================================================================
%% Function:      
%%
%% Return Value:  
%%
%% Description:   
%%
%% Parameters:    
%%======================================================================


receive_answer(ProcPid) ->
    receive_answer(ProcPid, undefined, undefined, undefined, undefined).









%%======================================================================
%% Function:      
%%
%% Return Value:  
%%
%% Description:   
%%
%% Parameters:    
%%======================================================================


receive_answer(ProcPid, DataReqMsg, WinConfMsg, MarkedRowMsg, SubsetMsg) ->
    receive Msg ->
	    case Msg of 

		{browser, ProcPid, cancel} ->
		    PcPid = self(),
		    PcPid ! DataReqMsg,
		    PcPid ! WinConfMsg,
		    PcPid ! MarkedRowMsg,
		    PcPid ! SubsetMsg,   
		    cancel;

		{browser, ProcPid, {true, PollInterval}} ->
		    PcPid = self(),
		    PcPid ! DataReqMsg,
		    PcPid ! WinConfMsg,
		    PcPid ! MarkedRowMsg,
		    PcPid ! SubsetMsg,   
		    PollInterval;

		{browser, ProcPid, {false, _Pollinterval}} ->
		    PcPid = self(),
		    PcPid ! DataReqMsg,
		    PcPid ! WinConfMsg,
		    PcPid ! MarkedRowMsg,
		    PcPid ! SubsetMsg,   
		    infinity;

		#pc_data_req{} ->
		    receive_answer(ProcPid, Msg, WinConfMsg, MarkedRowMsg, SubsetMsg);

		#pc_win_conf{} ->
		    receive_answer(ProcPid, DataReqMsg, Msg, MarkedRowMsg, SubsetMsg);

		#pc_marked_row{} ->
		    receive_answer(ProcPid, DataReqMsg, WinConfMsg, Msg, SubsetMsg);

		#dbs_subset{} ->
		    receive_answer(ProcPid, DataReqMsg, WinConfMsg, MarkedRowMsg, Msg);

		#pc_menu_msg{data = exit_button} ->
		    self() ! Msg,
		    cancel;

		#pc_set_sorting_mode{sender = Sender} ->
		    Sender ! #pd_ignore{sender = self()},
		    ProcPid ! raise_and_beep,
		    receive_answer(ProcPid, DataReqMsg, WinConfMsg, MarkedRowMsg, SubsetMsg);

		{'EXIT', _Sender, _Reason} ->
		    self() ! Msg,
		    cancel;

		_Other ->
		    ProcPid ! raise_and_beep,
		    receive_answer(ProcPid, DataReqMsg, WinConfMsg, MarkedRowMsg, SubsetMsg)
	    end
    end.
    







%%======================================================================
%% Function:      
%%
%% Return Value:  
%%
%% Description:   
%%
%% Parameters:    
%%======================================================================


browser_loop(Pid, Win, NoPollBtn, PollBtn, Lbl, Scale, OkBtn, CancelBtn, Poll, Pos) ->
    receive
	{gs, Scale, click, _, [NewPos | _]} ->
	    browser_loop(Pid, Win, NoPollBtn, PollBtn, Lbl, Scale, OkBtn, 
			 CancelBtn, Poll, NewPos);

	{gs, NoPollBtn, click, _, _} ->
	    gs:config(Lbl, [{fg, {255, 255, 255}}]),
	    gs:config(Scale, [{fg, {255, 255, 255}}, {pos, 0}, {range, {20, 20}}]),
	    receive
		{gs, Scale, click, _, _} ->
		    done
	    after 500 ->
		    done
	    end,
	    browser_loop(Pid, Win, NoPollBtn, PollBtn, Lbl, Scale, OkBtn, 
			 CancelBtn, false, Pos);

	{gs, PollBtn, click, _, _} ->
	    gs:config(Lbl, [{fg, {0, 0, 0}}]),
	    gs:config(Scale, [{fg, {0, 0, 0}}, {pos, Pos}, {range, {20, 300}}]),
	    receive
		{gs, Scale, click, _, _} ->
		    done
	    after 500 ->
		    done
	    end,
	    browser_loop(Pid, Win, NoPollBtn, PollBtn, Lbl, Scale, OkBtn, 
			 CancelBtn, true, Pos);

	{gs, OkBtn, click, _, _} ->
	    Pid ! {browser, self(), {Poll, Pos}};

	{gs, CancelBtn, click, _, _} ->
	    Pid ! {browser, self(), cancel};

	{gs, _, destroy, _, _} ->
	    Pid ! {browser, self(), cancel};


	{gs, Win, configure, _, _} ->
	    gs:config(Win, [{width, ?WINDOW_WIDTH},
			    {height, ?WINDOW_HEIGHT}
			   ]),
	    browser_loop(Pid, Win, NoPollBtn, PollBtn, Lbl, Scale, OkBtn, 
			 CancelBtn, Poll, Pos);


	raise_and_beep ->
	    gs:config(Win, [raise,
			   beep]),
	    browser_loop(Pid, Win, NoPollBtn, PollBtn, Lbl, Scale, OkBtn, 
			 CancelBtn, Poll, Pos);


	{'EXIT', _Sender, _Reason} ->
	    Pid ! {browser, self(), cancel};


	_Other ->
	    io:format("Poll dialog received message ~w ~n", [_Other]),
	    browser_loop(Pid, Win, NoPollBtn, PollBtn, Lbl, Scale, OkBtn, 
			 CancelBtn, Poll, Pos)

   end.

