The R13B03 release.OTP_R13B03

1 files changed, 176 insertions, 0 deletions

diff --git a/lib/tv/src/tv_utils.erl b/lib/tv/src/tv_utils.erl
new file mode 100644
index 0000000000..fd232bde69
--- /dev/null
+++ b/lib/tv/src/tv_utils.erl
@@ -0,0 +1,176 @@
+%%
+%% %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).
+
+
+
+-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.
+