aboutsummaryrefslogtreecommitdiffstats
path: root/lib/tv/src/tv_pc_graph_ctrl.erl
diff options
context:
space:
mode:
authorErlang/OTP <[email protected]>2009-11-20 14:54:40 +0000
committerErlang/OTP <[email protected]>2009-11-20 14:54:40 +0000
commit84adefa331c4159d432d22840663c38f155cd4c1 (patch)
treebff9a9c66adda4df2106dfd0e5c053ab182a12bd /lib/tv/src/tv_pc_graph_ctrl.erl
downloadotp-84adefa331c4159d432d22840663c38f155cd4c1.tar.gz
otp-84adefa331c4159d432d22840663c38f155cd4c1.tar.bz2
otp-84adefa331c4159d432d22840663c38f155cd4c1.zip
The R13B03 release.OTP_R13B03
Diffstat (limited to 'lib/tv/src/tv_pc_graph_ctrl.erl')
-rw-r--r--lib/tv/src/tv_pc_graph_ctrl.erl120
1 files changed, 120 insertions, 0 deletions
diff --git a/lib/tv/src/tv_pc_graph_ctrl.erl b/lib/tv/src/tv_pc_graph_ctrl.erl
new file mode 100644
index 0000000000..3fc3ded565
--- /dev/null
+++ b/lib/tv/src/tv_pc_graph_ctrl.erl
@@ -0,0 +1,120 @@
+%%
+%% %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_pc_graph_ctrl).
+
+
+
+-export([create_menu/4, win_conf/2]).
+
+
+-include("tv_int_msg.hrl").
+-include("tv_pc_int_def.hrl").
+
+
+
+
+
+
+
+
+%%%*********************************************************************
+%%% EXTERNAL FUNCTIONS
+%%%*********************************************************************
+
+
+
+
+%%======================================================================
+%% Function:
+%%
+%% Return Value:
+%%
+%% Description:
+%%
+%% Parameters:
+%%======================================================================
+
+
+create_menu(PwPid, MenuTitle, TitleAccPos, MenuList) ->
+ PwPid ! #pw_create_menu{sender = self(),
+ menutitle = MenuTitle,
+ title_acc_pos = TitleAccPos,
+ menulist = MenuList
+ },
+ receive
+ #pw_create_menu_cfm{} ->
+ done
+ after 10000 ->
+ exit(error)
+ end.
+
+
+
+
+
+
+
+
+
+%%======================================================================
+%% Function: win_conf.
+%%
+%% Return Value: None.
+%%
+%% Description: Configures all objects in the window according to new coordinates.
+%%
+%% Parameters:
+%%======================================================================
+
+
+win_conf(Msg, ProcVars) ->
+ #pc_win_conf{width = NewWidth,
+ height = NewHeight} = Msg,
+
+ #process_variables{pd_pid = PdPid,
+ window_params = WinP} = ProcVars,
+
+ #window_params{window_width = OldWindowWidth,
+ window_height = OldWindowHeight} = WinP,
+
+
+ case {NewWidth, NewHeight} of
+ {OldWindowWidth, OldWindowHeight} ->
+ ProcVars;
+ _Other ->
+ PdPid ! #pd_win_conf{sender = self(),
+ width = NewWidth,
+ height = NewHeight
+ },
+ NewWinP = WinP#window_params{window_width = NewWidth,
+ window_height = NewHeight},
+
+ ProcVars#process_variables{window_params = NewWinP}
+ end.
+
+
+
+
+
+
+
+
+
+
+
+