The R13B03 release.OTP_R13B03

1 files changed, 236 insertions, 0 deletions

diff --git a/lib/tv/src/tv_ip.erl b/lib/tv/src/tv_ip.erl
new file mode 100644
index 0000000000..aeec4e8f6d
--- /dev/null
+++ b/lib/tv/src/tv_ip.erl
@@ -0,0 +1,236 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 1997-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_ip).
+
+
+
+-export([ip/1]).
+
+
+
+-include("tv_int_msg.hrl").
+
+
+-define(NOF_LABELS, 25).
+
+-define(DEFAULT_BG_COLOR, {217, 217, 217}).
+
+
+
+
+
+
+
+%%%*********************************************************************
+%%% EXTERNAL FUNCTIONS
+%%%*********************************************************************
+
+
+
+%%======================================================================
+%% Function:      
+%%
+%% Return Value:  
+%%
+%% Description:   
+%%
+%% Parameters:    
+%%======================================================================
+
+
+ip(_Master) ->
+    W = gs:window(win, gs:start(), [{width, 302},
+				    {height, 38},
+				    {bg, ?DEFAULT_BG_COLOR},
+				    {title, "Launching..."}
+				   ]),
+    C = gs:canvas(W, [{width, 40},
+		      {height, 35},
+		      {x, 0},
+		      {bg, {255, 255, 255}}
+		     ]),
+    gs:create(image, C, [{load_gif, code:priv_dir(tv) ++ "/erlang.gif"}]),
+    gs:label(W, [{width, 252},
+		 {height, 12}, 
+		 {x, 47},
+		 {y, 23},
+		 {bg, {0, 0, 0}},
+		 {cursor, arrow}
+		]),
+    
+    LabelList = create_labels(?NOF_LABELS, W, 48),
+    
+    L = gs:label(W, [{width, 250},
+		     {height, 18},
+		     {x, 47},
+		     {y, 0},
+		     {bg, ?DEFAULT_BG_COLOR},
+		     {fg, {0, 0, 0}},
+		     {align, w}
+		    ]),
+    gs:config(win, [{map, true}]),
+    loop(1, LabelList, L).
+
+
+
+
+
+
+
+
+
+%%%*********************************************************************
+%%% INTERNAL FUNCTIONS
+%%%*********************************************************************
+
+
+
+
+%%======================================================================
+%% Function:      
+%%
+%% Return Value:  
+%%
+%% Description:   
+%%
+%% Parameters:    
+%%======================================================================
+
+
+create_labels(0, _WinId, _Xpos) ->
+    [];
+create_labels(N, WinId, Xpos) ->
+    Width = 10,
+    Xdiff = Width,
+    LabelId = gs:label(WinId, [{width, Width},
+			       {height, 10}, 
+			       {x, Xpos},
+			       {y, 24},
+			       {bg, {235, 235, 235}},
+			       {cursor, arrow}
+			      ]),
+
+    [LabelId | create_labels(N - 1, WinId, Xpos + Xdiff)].
+
+
+
+
+
+
+
+
+
+
+
+%%======================================================================
+%% Function:      
+%%
+%% Return Value:  
+%%
+%% Description:   
+%%
+%% Parameters:    
+%%======================================================================
+
+
+loop(N, LabelList, L) ->
+    receive
+	Msg ->
+	    case Msg of
+
+		#ip_update{nof_elements_to_mark = X, text = Text} ->
+		    update_window(LabelList, N, N + X, L, Text),
+		    loop(N + X, LabelList, L);
+
+		#ip_quit{} ->
+		    update_labels(LabelList, N, ?NOF_LABELS),
+		    receive
+		    after 1000 ->
+			    done
+		    end,
+		    done;
+
+		_Other ->
+		    loop(N, LabelList, L)
+	    end
+    end.
+
+
+
+
+
+
+
+
+
+
+
+%%======================================================================
+%% Function:      
+%%
+%% Return Value:  
+%%
+%% Description:   
+%%
+%% Parameters:    
+%%======================================================================
+
+
+update_window(LabelList, N, Hi, LblId, Text) ->
+    gs:config(win, [raise]),
+    gs:config(LblId, [{label, {text, Text}}]),
+    update_labels(LabelList, N, Hi).
+
+
+
+
+
+
+
+
+%%======================================================================
+%% Function:      
+%%
+%% Return Value:  
+%%
+%% Description:   
+%%
+%% Parameters:    
+%%======================================================================
+
+
+update_labels(_LabelList, N, _Hi) when N > ?NOF_LABELS ->
+    done;
+update_labels(_LabelList, N, Hi) when N >= Hi ->
+    done;
+update_labels(LabelList, N, Hi) ->
+    LabelId = lists:nth(N, LabelList),
+    gs:config(LabelId, [{bg, {0, 0, 255}}]),
+    update_labels(LabelList, N + 1, Hi).
+    
+
+
+
+
+
+
+
+
+
+
+