diff options
Diffstat (limited to 'lib/tv/src/tv_ip.erl')
| -rw-r--r-- | lib/tv/src/tv_ip.erl | 242 |
1 files changed, 0 insertions, 242 deletions
diff --git a/lib/tv/src/tv_ip.erl b/lib/tv/src/tv_ip.erl deleted file mode 100644 index 9f66917362..0000000000 --- a/lib/tv/src/tv_ip.erl +++ /dev/null @@ -1,242 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 1997-2012. 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). --compile([{nowarn_deprecated_function,{gs,canvas,2}}, - {nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,create,3}}, - {nowarn_deprecated_function,{gs,label,2}}, - {nowarn_deprecated_function,{gs,start,0}}, - {nowarn_deprecated_function,{gs,window,3}}]). - - - --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). - - - - - - - - - - - - |