Remove tv

1 files changed, 0 insertions, 305 deletions

diff --git a/lib/tv/src/tv_pd_scale.erl b/lib/tv/src/tv_pd_scale.erl
deleted file mode 100644
index 04af2bb981..0000000000
--- a/lib/tv/src/tv_pd_scale.erl
+++ /dev/null
@@ -1,305 +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%
-%%%*********************************************************************
-%%% 
-%%%   Description:      Part of pd controlling the scale, i.e., the scrollbar
-%%%                     imitation.
-%%%
-%%%*********************************************************************
-
-
--module(tv_pd_scale).
--compile([{nowarn_deprecated_function,{gs,config,2}},
-          {nowarn_deprecated_function,{gs,scale,2}}]).
-
-
-
--export([init_scale/2, 
-	 resize_scale/2, 
-	 set_scale_range/3, 
-	 set_scale_pos/3]).
-
-
-
--include("tv_int_def.hrl").
--include("tv_pd_int_def.hrl").
-
-
-
-
-
-
-%%%*********************************************************************
-%%% EXTERNAL FUNCTIONS
-%%%*********************************************************************
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-init_scale(FrameP, ScaleP) ->
-    #frame_params{sheet_frame_id     = SheetFrameId,
-		  sheet_frame_width  = SheetFrameWidth,
-		  sheet_frame_height = SheetFrameHeight,
-		  grid_frame_width   = GridFrameWidth,
-		  grid_frame_height  = GridFrameHeight} = FrameP,
-
-    VScaleId = create_scale(vscale, SheetFrameId, SheetFrameWidth, GridFrameHeight),
-    HScaleId = create_scale(hscale, SheetFrameId, GridFrameWidth, SheetFrameHeight),
-    
-    ScaleP#scale_params{vscale_id  = VScaleId,
-			vscale_pos = 0,
-			hscale_id  = HScaleId,
-			hscale_pos = 0
-		       }.
-    
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-resize_scale(FrameP, ScaleP) ->
-    #frame_params{sheet_frame_width  = SheetFrameWidth,
-		  sheet_frame_height = SheetFrameHeight,
-		  grid_frame_width   = GridFrameWidth,
-		  grid_frame_height  = GridFrameHeight} = FrameP,
-
-    #scale_params{vscale_id    = VScaleId,
-		  hscale_id    = HScaleId} = ScaleP,
-
-    config_scale(vscale, VScaleId, SheetFrameWidth, GridFrameHeight),
-    config_scale(hscale, HScaleId, GridFrameWidth, SheetFrameHeight),
-    ScaleP.
-
-
-
-
-
-
-
-    
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-set_scale_range(vscale, Range, ScaleP) ->
-    {Lo, Hi} = Range,
-    NewRange = if
-		   Lo > Hi ->
-		       {Hi, Hi};
-		   true ->
-		       Range
-	       end,
-    VScaleId = ScaleP#scale_params.vscale_id,
-    gs:config(VScaleId, [{range, NewRange}]);
-set_scale_range(hscale, Range, ScaleP) ->
-    {Lo, Hi} = Range,
-    NewRange = if
-		   Lo > Hi ->
-		       {Hi, Hi};
-		   true ->
-		       Range
-	       end,
-    HScaleId = ScaleP#scale_params.hscale_id,
-    gs:config(HScaleId, [{range, NewRange}]).
-
-
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-set_scale_pos(_ScaleName, undefined, ScaleP) ->
-    ScaleP;
-set_scale_pos(vscale, NewPos, ScaleP) ->
-    ScaleId = ScaleP#scale_params.vscale_id,
-    gs:config(ScaleId, [{pos, NewPos}]),
-    ScaleP#scale_params{vscale_pos = NewPos};
-set_scale_pos(hscale, NewPos, ScaleP) ->
-    ScaleId = ScaleP#scale_params.hscale_id,
-    gs:config(ScaleId, [{pos, NewPos}]),
-    ScaleP#scale_params{hscale_pos = NewPos}.
-
-
-
-
-
-
-
-%%%********************************************************************
-%%% INTERNAL FUNCTIONS
-%%%********************************************************************
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-config_scale(ScaleName, ScaleId, FrameWidth, FrameHeight) ->
-    {Width, Height, Xpos, Ypos} = get_scale_coords(ScaleName, 
-						   FrameWidth, 
-						   FrameHeight),
-    gs:config(ScaleId, [{height, Height},
-			{width, Width},
-			{x, Xpos},
-			{y, Ypos}
-		       ]).
-
-
-
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-create_scale(ScaleName, FrameId, FrameWidth, FrameHeight) ->
-    {Width, Height, Xpos, Ypos} = get_scale_coords(ScaleName, 
-						   FrameWidth, 
-						   FrameHeight),
-    {Orientation, Range}  = case ScaleName of 
-				vscale ->
-				    {vertical, {1, 1}};
-				hscale ->
-				    {horizontal, {1, 1}}
-			    end,
-    gs:scale(FrameId, [{data, ScaleName},
-		       {orient, Orientation},
-		       {buttonpress, true},
-		       {buttonrelease, true},
-		       {height, Height},
-		       {width, Width},
-		       {x, Xpos},
-		       {y, Ypos},
-		       {bg, ?DEFAULT_BG_COLOR},
-		       {fg, {0, 0, 0}},
-		       {range, Range}
-		      ]).
-
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-get_scale_coords(hscale, FrameWidth, FrameHeight) ->
-    Height = ?HSCALE_HEIGHT,
-    Xpos   = ?VBTN_WIDTH - 3,  % Subtracting 3 makes it look better!
-    Ypos   = FrameHeight - Height,
-    Width  = FrameWidth - Xpos + 5,  % Adding 5 for better look!
-    {Width, Height, Xpos, Ypos};
-get_scale_coords(vscale, FrameWidth, FrameHeight) ->
-    Width  = ?VSCALE_WIDTH,
-    Xpos   = (FrameWidth - Width),
-    Ypos   = ?HBTN_HEIGHT - 3,       % Subtracting 3 makes it look better!
-    Height = FrameHeight - Ypos + 5,   % Adding 5 for better look!
-    {Width, Height, Xpos, Ypos}.
-    
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-