aboutsummaryrefslogblamecommitdiffstats
path: root/lib/tv/src/tv_utils.erl
blob: 9c7458d302e743716c57898291211a98fa9688c9 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

















                                                                         


                                                        





























































































































































                                                                 
%%
%% %CopyrightBegin%
%% 
%% Copyright Ericsson AB 1998-2009. All Rights Reserved.
%% 
%% 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 online 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.
%% 
%% %CopyrightEnd%
-module(tv_utils).
-compile([{nowarn_deprecated_function,{gs,config,2}},
          {nowarn_deprecated_function,{gs,create,3}},
          {nowarn_deprecated_function,{gs,destroy,1}}]).



-export([notify/3]).



   %% Minimum size of help windows
-define(wwin, 300).
-define(hwin, 180).

   %% Button sizes
-define(wbut, 60).
-define(hbut, 30).

-define(pad, 10).


%----------------------------------------
% notify(S,Strings) -> ok
%   S       = pid() GS
%   Strings = string() | [string()]
% A notification window contains a message to the user.
% Will lock the GUI until the user confirms the message by
% pressing the 'Ok' button.
%----------------------------------------
notify(S,Title,Strings) ->
    W    = required_width(Strings, ?wwin),
    Htop = round(2 * ?hwin / 3),
    Hbot = ?hwin - Htop,

    %% Open a new window
    Win = gs:create(window,S,[{width, W},
			      {height, ?hwin},
                              {title,  Title},
                              {data, notifywin}
			     ]),

    %% Top frame containing a label
    Top = gs:create(frame,Win,[{width, W},
			       {height, Htop},
			       {x, 0},
			       {y, 0},
                               {data, notifywin},
			       {keypress, true}
			      ]),
    
    Lbl = gs:create(label,Top,[{width,W},
			       {height, Htop - 2 * ?pad},
			       {x, 0},
			       {y, ?pad},
                               {align, c},
			       {justify, center},
                               {data, notifywin},
			       {keypress, true}
			      ]),
  
    gs:config(Lbl, {label, {text, insert_newlines(Strings)}}),

    %% Bottom frame containing an 'Ok' button
    Bot = gs:create(frame,Win,[{width, W},
			       {height, Hbot},
			       {x, 0},
			       {y, Htop}
			      ]),
    gs:create(button,Bot,[{width, ?wbut},
			  {height, ?hbut},
                          {x, W / 2 - ?wbut/2},
			  {y, Hbot / 2 - ?hbut / 2},
                          {label, {text, "OK"}},
                          {data, notifywin},
			  {keypress, true}]),

    gs:config(Win, [{map,true}]),
    
    event_loop(Win,null).




insert_newlines([String|Rest]) when is_list(String), Rest=/=[]->
    String ++ "\n" ++ insert_newlines(Rest);
insert_newlines([Last]) ->
    [Last];
insert_newlines(Other) ->
    Other.




event_loop(Win,Entry) ->
    receive

        %%
        %% Notify window
        %%

        %% 'Ok' pressed in notify window
        {gs,_Obj,_Event,notifywin,["OK"|_]} ->
            gs:destroy(Win),
            ok;

        %% 'Window manager destroy' received in notify window
        {gs,_Obj,destroy,notifywin,_} ->
            gs:destroy(Win),
            ok;

        %% 'Return' pressed in notify or confirm window
        {gs,_Obj,_Event,helpwin,['Return'|_]} ->
            gs:destroy(Win),
            ok;


        %%
        %% Common or partly common events
        %%

        %% 'Window manager destroy' received in notify, 
        %% confirm,confirm_exit or request window
        {gs,_Obj,destroy,_,_} ->
            gs:destroy(Win),
            cancel;

        %% Flush any other GS events
        {gs,_Obj,_Event,_Data,_Arg} ->
            event_loop(Win,Entry)
    end.




%----------------------------------------
% required_width(Strings,Min) -> Req
%   Strings   = string() | [string()]
%   Min = Req = integer()
% Returns the minimum required width in pixels for a help window,
% which is the maximum of Min and the required width for Strings.
% NOTE: Font dependant really!
%----------------------------------------
required_width([First|Rest],Min) when is_list(First) ->
    Req = 7*length(First), % 7 pixels per character
    if
        Req>Min ->
            required_width(Rest,Req);
        true ->
            required_width(Rest,Min)
    end;
required_width([],Min) ->
    Min;
required_width(String,Min) ->
    Req = 7*length(String),
    if
        Req>Min ->
            Req;
        true ->
            Min
    end.