The R13B03 release.OTP_R13B03

1 files changed, 480 insertions, 0 deletions

diff --git a/lib/tv/src/tv_pd_frames.erl b/lib/tv/src/tv_pd_frames.erl
new file mode 100644
index 0000000000..4e091ac9f0
--- /dev/null
+++ b/lib/tv/src/tv_pd_frames.erl
@@ -0,0 +1,480 @@
+%%
+%% %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_pd_frames).
+
+
+
+-export([create_display_frames/4, resize_display_frames/3]).
+
+
+
+
+-include("tv_int_def.hrl").
+-include("tv_pd_int_def.hrl").
+
+
+
+
+
+
+
+%%%*********************************************************************
+%%% EXTERNAL FUNCTIONS
+%%%*********************************************************************
+
+
+
+
+%%======================================================================
+%% Function:      
+%%
+%% Return Value:  
+%%
+%% Description:   
+%%
+%% Parameters:    
+%%======================================================================
+
+
+create_display_frames(WindowId, WindowWidth, WindowHeight, FrameP) ->
+    {DisplayId, DisplayWidth, DisplayHeight} = 
+	create_frame(WindowId, 
+		     get_display_coords(WindowWidth, WindowHeight),
+		     ?DEFAULT_BG_COLOR,
+		     0),
+
+    {ToolbarId, ToolbarWidth, ToolbarHeight} = create_toolbar_frame(DisplayId, 
+								    DisplayWidth),
+
+    {SheetFrameId, SheetBgFrameId, SheetFrameWidth, SheetFrameHeight} = 
+	create_sheet_frames(DisplayId, 
+			    DisplayWidth, 
+			    DisplayHeight),
+
+    {GridFrameId, GridBgFrameId, GridFrameWidth, GridFrameHeight} = 
+	create_grid_frames(SheetFrameId, 
+			   SheetFrameWidth, 
+			   SheetFrameHeight),
+    
+    
+    FrameP#frame_params{display_id           = DisplayId,
+			toolbar_frame_id     = ToolbarId,
+			toolbar_frame_width  = ToolbarWidth,
+			toolbar_frame_height = ToolbarHeight,
+			sheet_frame_id       = SheetFrameId,
+			sheet_frame_width    = SheetFrameWidth,
+			sheet_frame_height   = SheetFrameHeight,
+			sheet_bgframe_id     = SheetBgFrameId,
+			grid_frame_id        = GridFrameId,
+			grid_frame_width     = GridFrameWidth,
+			grid_frame_height    = GridFrameHeight,
+			grid_bgframe_id      = GridBgFrameId
+			}.
+
+
+
+
+
+
+
+%%======================================================================
+%% Function:      
+%%
+%% Return Value:  
+%%
+%% Description:   
+%%
+%% Parameters:    
+%%======================================================================
+
+
+resize_display_frames(NewW, NewH, FrameP) ->
+    #frame_params{display_id         = DispId,
+		  toolbar_frame_id   = ToolbarId,
+		  sheet_frame_id     = SheetFgId,
+		  sheet_bgframe_id   = SheetBgId,
+		  grid_frame_id      = GridFgId,
+		  grid_bgframe_id    = GridBgId}  = FrameP,
+    
+    {NewDispW, NewDispH} = config_frame(DispId, get_display_coords(NewW, NewH)),
+    {NewToolW, NewToolH} = resize_toolbar(ToolbarId, NewDispW),
+    {NewSheetFgW, NewSheetFgH} = resize_sheet_frames(SheetFgId, SheetBgId, NewDispW,
+						     NewDispH),
+
+    {NewGridFgW, NewGridFgH} = resize_grid_frames(GridFgId, GridBgId, NewSheetFgW, 
+						  NewSheetFgH),
+    
+    FrameP#frame_params{toolbar_frame_width  = NewToolW,
+			toolbar_frame_height = NewToolH,
+			sheet_frame_width    = NewSheetFgW,
+			sheet_frame_height   = NewSheetFgH,
+			grid_frame_width     = NewGridFgW,
+			grid_frame_height    = NewGridFgH
+			}.
+
+
+
+
+
+
+
+
+%%%********************************************************************
+%%% INTERNAL FUNCTIONS
+%%%********************************************************************
+
+
+
+
+
+%%======================================================================
+%% Function:      
+%%
+%% Return Value:  
+%%
+%% Description:   
+%%
+%% Parameters:    
+%%======================================================================
+
+
+config_frame(Id, {Width, Height, Xpos, Ypos}) ->
+    gs:config(Id, [{width, Width},
+		   {height, Height},
+		   {x, Xpos},
+		   {y, Ypos}
+		  ]),
+    {Width, Height}.
+
+
+
+
+
+
+
+%%======================================================================
+%% Function:      
+%%
+%% Return Value:  
+%%
+%% Description:   
+%%
+%% Parameters:    
+%%======================================================================
+
+
+create_frame(ParentId, {Width, Height, Xpos, Ypos}, Color, BorderWidth) ->
+    Id = gs:frame(ParentId, [{width, Width},
+			     {height, Height},
+			     {x, Xpos},
+			     {y, Ypos},
+			     {bw, BorderWidth},
+			     {bg, Color}
+			    ]),
+    {Id, Width, Height}.
+
+
+
+
+
+
+
+
+
+%%======================================================================
+%% Function:      
+%%
+%% Return Value:  
+%%
+%% Description:   
+%%
+%% Parameters:    
+%%======================================================================
+
+
+create_grid_frames(SheetFrameId, SheetFrameWidth, SheetFrameHeight) ->
+    {BgId, _W, _H} = 
+	create_frame(SheetFrameId,
+		     get_grid_frame_coords(bg, SheetFrameWidth, SheetFrameHeight),
+		     ?BLACK, 
+		     0),
+    {FgId, FgWidth, FgHeight} = 
+	create_frame(SheetFrameId, 
+		     get_grid_frame_coords(fg, SheetFrameWidth, SheetFrameHeight),
+		     ?DEFAULT_BG_COLOR, 
+		     0),
+    {FgId, BgId, FgWidth, FgHeight}.
+    
+    
+
+
+
+
+
+
+%%======================================================================
+%% Function:      
+%%
+%% Return Value:  
+%%
+%% Description:   
+%%
+%% Parameters:    
+%%======================================================================
+
+
+create_sheet_frames(DispId, DispWidth, DispHeight) ->
+    {BgId, _W, _H} = create_frame(DispId, 
+				  get_sheet_frame_coords(bg, DispWidth, DispHeight),
+				  ?BLACK, 
+				  0),
+    {FgId, FgWidth, FgHeight} = 
+	create_frame(DispId, 
+		     get_sheet_frame_coords(fg, DispWidth, DispHeight), 
+		     ?DEFAULT_BG_COLOR, 
+		     0),
+    {FgId, BgId, FgWidth, FgHeight}.
+
+
+
+
+
+
+
+%%======================================================================
+%% Function:      
+%%
+%% Return Value:  
+%%
+%% Description:   
+%%
+%% Parameters:    
+%%======================================================================
+
+
+create_toolbar_frame(DispId, DispWidth) ->
+    create_frame(DispId, get_toolbar_coords(DispWidth), ?DEFAULT_BG_COLOR, 0).
+
+
+
+
+
+
+
+%%======================================================================
+%% Function:      
+%%
+%% Return Value:  
+%%
+%% Description:   
+%%
+%% Parameters:    
+%%======================================================================
+
+
+get_display_coords(WindowWidth, WindowHeight) ->
+    Xpos = 4,
+    {WindowWidth - 2 * Xpos, WindowHeight - ?MENUBAR_HEIGHT - Xpos, Xpos, ?MENUBAR_HEIGHT}.
+
+
+
+
+
+
+
+
+%%======================================================================
+%% Function:      
+%%
+%% Return Value:  
+%%
+%% Description:   
+%%
+%% Parameters:    
+%%======================================================================
+
+
+get_grid_frame_coords(bg, FrameWidth, FrameHeight) ->
+    get_grid_frame_coords2(FrameWidth, FrameHeight, 0);
+get_grid_frame_coords(fg, FrameWidth, FrameHeight) ->
+    get_grid_frame_coords2(FrameWidth, FrameHeight, 1).
+
+
+
+
+
+
+
+
+%%======================================================================
+%% Function:      
+%%
+%% Return Value:  
+%%
+%% Description:   
+%%
+%% Parameters:    
+%%======================================================================
+
+
+get_grid_frame_coords2(FrameWidth, FrameHeight, BorderWidth) ->
+    Xpos   = 0,
+    Ypos   = 0,
+    Width  = FrameWidth - ?VSCALE_WIDTH - Xpos - BorderWidth,
+    Height = FrameHeight - ?HSCALE_HEIGHT - Ypos - BorderWidth,
+    {Width, Height, Xpos, Ypos}.
+    
+
+
+
+
+
+%%======================================================================
+%% Function:      
+%%
+%% Return Value:  
+%%
+%% Description:   
+%%
+%% Parameters:    
+%%======================================================================
+
+
+get_sheet_frame_coords(bg, FrameWidth, FrameHeight) ->
+    get_sheet_frame_coords2(FrameWidth, FrameHeight, 0);
+get_sheet_frame_coords(fg, FrameWidth, FrameHeight) ->
+    get_sheet_frame_coords2(FrameWidth, FrameHeight, 1).
+
+
+
+
+
+
+
+
+%%======================================================================
+%% Function:      
+%%
+%% Return Value:  
+%%
+%% Description:   
+%%
+%% Parameters:    
+%%======================================================================
+
+
+get_sheet_frame_coords2(FrameWidth, FrameHeight, BorderWidth) ->
+    Xpos   = BorderWidth,
+    Ypos   = ?TOOLBAR_HEIGHT + BorderWidth,
+    Width  = FrameWidth - 2 * BorderWidth,
+    Height = FrameHeight - Ypos - ?MISC_AREA_HEIGHT - BorderWidth,
+    {Width, Height, Xpos, Ypos}.
+
+
+    
+
+
+
+
+
+%%======================================================================
+%% Function:      
+%%
+%% Return Value:  
+%%
+%% Description:   
+%%
+%% Parameters:    
+%%======================================================================
+
+
+get_toolbar_coords(DispWidth) ->
+    Xpos = 0,
+    {DispWidth - 2 * Xpos, ?TOOLBAR_HEIGHT, Xpos, 0}.
+
+
+
+
+
+    
+
+
+
+%%======================================================================
+%% Function:      
+%%
+%% Return Value:  
+%%
+%% Description:   
+%%
+%% Parameters:    
+%%======================================================================
+
+
+resize_grid_frames(FgId, BgId, ParentWidth, ParentHeight) ->
+    config_frame(BgId, get_grid_frame_coords(bg, ParentWidth, ParentHeight)),
+    config_frame(FgId, get_grid_frame_coords(fg, ParentWidth, ParentHeight)).
+
+    
+
+
+
+
+
+
+
+
+%%======================================================================
+%% Function:      
+%%
+%% Return Value:  
+%%
+%% Description:   
+%%
+%% Parameters:    
+%%======================================================================
+
+
+resize_sheet_frames(FgId, BgId, ParentWidth, ParentHeight) ->
+    config_frame(BgId, get_sheet_frame_coords(bg, ParentWidth, ParentHeight)),
+    config_frame(FgId, get_sheet_frame_coords(fg, ParentWidth, ParentHeight)).
+		 
+    
+
+
+
+
+
+
+
+%%======================================================================
+%% Function:      
+%%
+%% Return Value:  
+%%
+%% Description:   
+%%
+%% Parameters:    
+%%======================================================================
+
+
+resize_toolbar(Id, DispWidth) ->
+    config_frame(Id, get_toolbar_coords(DispWidth)).
+
+
+