Remove tv

1 files changed, 0 insertions, 1056 deletions

diff --git a/lib/tv/src/tv_pb_funcs.erl b/lib/tv/src/tv_pb_funcs.erl
deleted file mode 100644
index 24d1120597..0000000000
--- a/lib/tv/src/tv_pb_funcs.erl
+++ /dev/null
@@ -1,1056 +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_pb_funcs).
--compile([{nowarn_deprecated_function,{gs,button,2}},
-          {nowarn_deprecated_function,{gs,canvas,2}},
-          {nowarn_deprecated_function,{gs,config,2}},
-          {nowarn_deprecated_function,{gs,create,3}},
-          {nowarn_deprecated_function,{gs,destroy,1}},
-          {nowarn_deprecated_function,{gs,read,2}}]).
-
-
-
--export([init_btns/10, 
-	 update_hbtns/3, 
-	 update_vbtns/5, 
-	 update_keys/2, 
-	 set_new_sort_col/2]).
-
-
--include("tv_int_def.hrl").
--include("tv_pb_int_def.hrl").
-
-
-
-
-
-
-
-%%%*********************************************************************
-%%% EXTERNAL FUNCTIONS
-%%%*********************************************************************
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-
-init_btns(ParentId, Ypos, HbtnH, 
-	  VbtnW, ResbtnW, FirstColShown, ColsShown, NofRows, RowH, ProcVars) ->
-
-    #process_variables{key_numbers = KeyNos,
-		       key_ids     = KeyIds} = ProcVars,
-
-%    C = gs:canvas(ParentId, [{width, VbtnW - 1},
-%			     {height, HbtnH},
-%			     {x, 0},
-%			     {y, HbtnH + 1},
-%			     {bg, white}
-%			    ]),
-%    gs:create(image, C, [{load_gif, "erlang.gif"}]),
-
-    {HbtnsShown, ResBtnsShown} = update_hbtns(ColsShown, [], [], 
-					      FirstColShown, ParentId, Ypos,
-					      HbtnH, ResbtnW, VbtnW),
-
-    NewKeyIds = update_keys(KeyNos, KeyIds, FirstColShown, 
-			    FirstColShown + length(ColsShown) - 1, HbtnsShown, 
-			    ParentId, []),
-
-    VbtnsShown = create_vbtns(ParentId, Ypos, NofRows, RowH, VbtnW, HbtnH),
-    ProcVars#process_variables{grid_frame_id   = ParentId,
-			       ypos            = Ypos,
-			       hbtn_height     = HbtnH,
-			       vbtn_width      = VbtnW,
-			       resbtn_width    = ResbtnW,
-			       first_col_shown = FirstColShown,
-			       hbtns_shown     = HbtnsShown,
-			       resbtns_shown   = ResBtnsShown,
-			       vbtns_shown     = VbtnsShown,
-			       cols_shown      = ColsShown,
-			       key_ids         = NewKeyIds
-			      }.
-
-
-
-
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-update_hbtns(FirstColShown, ColsShown, ProcVars) ->
-    #process_variables{grid_frame_id   = ParentId,
-		       first_col_shown = OldFirstColShown,
-		       cols_shown      = OldColsShown,
-		       ypos            = Ypos,
-		       hbtn_height     = HbtnH,
-		       vbtn_width      = VbtnW,
-		       resbtn_width    = ResbtnW,
-		       hbtns_shown     = HbtnsShown,
-		       resbtns_shown   = ResbtnsShown,
-		       key_numbers     = KeyNos,
-		       key_ids         = KeyIds,
-		       col_mark_params = ColMarkP}  = ProcVars,
-
-       % Only if the grid has been scrolled horizontally need we move the
-       % col mark!
-    case FirstColShown of
-	OldFirstColShown ->
-	    done;
-	_NewValue ->
-	    #col_mark_params{col_btn_id         = MarkedBtnId,
-			     virtual_col_marked = ColMarked,
-			     sort_btn_id        = SortBtnId,
-			     virtual_sort_col   = SortCol}  = ColMarkP,
-	    unmark_marked_col(MarkedBtnId, ColMarked, SortCol),
-	    unmark_sort_col(SortBtnId, ColMarked, SortCol)
-    end,
-
-    {NewHbtns, NewResbtns, NewKeys} = 
-	case {FirstColShown, ColsShown} of
-	    {OldFirstColShown, OldColsShown} ->
-		{HbtnsShown, ResbtnsShown, KeyIds};
-	    _Other ->
-		{NewHbtnsShown, NewResbtnsShown} = update_hbtns(ColsShown, 
-								HbtnsShown, 
-								ResbtnsShown, 
-								FirstColShown, 
-								ParentId, 
-								Ypos, 
-								HbtnH, 
-								ResbtnW,
-								VbtnW),
-		NewKeyIds = update_keys(KeyNos, KeyIds, FirstColShown, 
-					FirstColShown + length(ColsShown) - 1, 
-					NewHbtnsShown, ParentId, []),
-		{NewHbtnsShown, NewResbtnsShown, NewKeyIds}
-	end,
-	    
-       % Now mark the marked column again!
-    NewColMarkP = mark_marked_col(NewHbtns, FirstColShown, ColMarkP),
-
-    ProcVars#process_variables{first_col_shown = FirstColShown,
-			       hbtns_shown     = NewHbtns,
-			       resbtns_shown   = NewResbtns,
-			       cols_shown      = ColsShown,
-			       key_ids         = NewKeys,
-			       col_mark_params = NewColMarkP
-			      }.
-    
-    
-		       
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-update_vbtns(NofRowsShown, FirstRowShown, Colors, BlinkEnabled, ProcVars) ->
-    #process_variables{vbtns_shown      = Vbtns,
-		       blink_color_list = BlinkList} = ProcVars,
-    
-    update_vbtns(1, NofRowsShown, FirstRowShown, Vbtns, Colors, BlinkEnabled, BlinkList),
-    NewProcVars = update_sort_btn_mark(ProcVars),
-    NewProcVars.
-
-
-
-
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-set_new_sort_col(SortCol, ProcVars) ->
-    #process_variables{hbtns_shown     = HbtnsShown,
-		       col_mark_params = ColMarkP} = ProcVars,
-    
-    #col_mark_params{col_btn_id         = MarkedColBtnId,
-		     sort_btn_id        = OldSortBtnId}  = ColMarkP,
-    
-       % Set the new color of the sort btn, and remove the mark, if it is the same
-       % column!
-
-    case MarkedColBtnId of
-	undefined ->
-	    done;
-	_AnyId ->
-	    gs:config(MarkedColBtnId, [{bg, ?DEFAULT_BG_COLOR},
-				       {fg, {0, 0, 0}}
-				      ])
-    end,
-    
-    SortBtnId = get_btn_id(SortCol, HbtnsShown),
-    case SortBtnId of 
-	undefined ->
-	       % The btn isn't visible, or no sorting shall be performed!
-	    gs:config(OldSortBtnId, [{bg, ?DEFAULT_BG_COLOR},
-				     {fg, {0, 0, 0}}
-				    ]);
-	_Other ->
-	       % Unmark the old sort btn id!
-	    gs:config(OldSortBtnId, [{bg, ?DEFAULT_BG_COLOR},
-				     {fg, {0, 0, 0}}
-				    ]),
-	    gs:config(SortBtnId, [{bg, ?SORT_MARK_COLOR},
-				  {fg, {0, 0, 0}}
-				 ])
-    end,
-    
-    NewColMarkP = ColMarkP#col_mark_params{col_btn_id         = undefined,
-					   virtual_col_marked = undefined,
-					   sort_btn_id        = SortBtnId,
-					   virtual_sort_col   = SortCol
-					  },
-    ProcVars#process_variables{col_mark_params = NewColMarkP}.
-    
-
-
-
-
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-update_keys(KeyList, ProcVars) ->
-    #process_variables{key_numbers     = OldKeyList,
-		       key_ids         = KeyIds,
-		       first_col_shown = FirstColShown,
-		       cols_shown      = ColsShown,
-		       hbtns_shown     = HbtnsShown,
-		       grid_frame_id   = ParentId} = ProcVars,
-
-    NewKeyIds = case KeyList of
-		    OldKeyList ->
-			KeyIds;
-		    NewKeyList ->
-			update_keys(NewKeyList, KeyIds, FirstColShown, 
-				    FirstColShown + length(ColsShown) - 1, 
-				    HbtnsShown, ParentId, [])
-		end,
-
-    ProcVars#process_variables{key_numbers = KeyList,
-			       key_ids     = NewKeyIds
-			      }.
-
-
-
-
-
-
-
-
-%%%*********************************************************************
-%%% INTERNAL FUNCTIONS
-%%%*********************************************************************
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-unmark_sort_col(undefined, _ColMarked, _SortCol) ->
-    done;
-unmark_sort_col(SortBtnId, _ColMarked, _SortCol) ->
-    gs:config(SortBtnId, [{bg, ?DEFAULT_BG_COLOR},
-			  {fg, {0, 0, 0}}
-			 ]).
-
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-mark_marked_col(HbtnsShown, _FirstColShown, ColMarkP) ->
-    #col_mark_params{virtual_col_marked = VirtualCol,
-		     virtual_sort_col   = SortCol} = ColMarkP,
-
-    {NewMarkBtnId, NewSortBtnId} = 
-	case VirtualCol of
-	    SortCol ->
-		   % Same btn!
-		BtnId = get_btn_id(VirtualCol, 
-				   HbtnsShown),
-		gs:config(BtnId, [{bg, ?SORT_MARK_COLOR},
-				  {fg, {0, 0, 0}}
-				 ]),
-		{BtnId, BtnId};
-	    _OtherCol ->
-		MarkBtnId = get_btn_id(VirtualCol, HbtnsShown),
-		case MarkBtnId of
-		    undefined ->
-			done;
-		    _Else ->
-			gs:config(MarkBtnId, [{bg, ?COL_MARK_COLOR},
-					      {fg, {255, 255, 255}}
-					     ])
-		end,
-
-		SortBtnId = get_btn_id(SortCol, HbtnsShown),
-		case SortBtnId of
-		    undefined ->
-			done;
-		    _OtherId ->
-			gs:config(SortBtnId, [{bg, ?SORT_MARK_COLOR},
-					      {fg, {0, 0, 0}}
-					     ])
-		end,
-
-		{MarkBtnId, SortBtnId}
-	end,
-    
-    ColMarkP#col_mark_params{col_btn_id = NewMarkBtnId,
-			     sort_btn_id = NewSortBtnId}.
-    
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-unmark_marked_col(undefined, _ColMarked, _SortCol) ->
-    done;
-unmark_marked_col(BtnId, _ColMarked, _SortCol) ->
-    gs:config(BtnId, [{bg, ?DEFAULT_BG_COLOR},
-		      {fg, {0,0,0}}
-		     ]).
-
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-update_sort_btn_mark(ProcVars) ->
-    #process_variables{hbtns_shown     = HbtnsShown,
-		       col_mark_params = ColMarkP}  = ProcVars,
-
-    #col_mark_params{col_btn_id         = MarkedColBtnId,
-		     virtual_col_marked = ColMarked,
-		     sort_btn_id        = OldSortBtnId,
-		     virtual_sort_col   = SortCol}  = ColMarkP,
-    
-    {NewMarkedColBtnId, NewColMarked} = case ColMarked of
-					    SortCol ->
-						{undefined, undefined};
-					    _Other ->
-						{MarkedColBtnId, ColMarked}
-					end,
-
-    NewSortBtnId = set_sort_btn_color(OldSortBtnId, SortCol, HbtnsShown),
-
-    NewColMarkP = ColMarkP#col_mark_params{col_btn_id         = NewMarkedColBtnId,
-					   virtual_col_marked = NewColMarked,
-					   sort_btn_id        = NewSortBtnId},
-
-    ProcVars#process_variables{col_mark_params = NewColMarkP}.
-    
-
-
-
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-get_btn_id(VirtualCol, HbtnsShown) ->
-    case lists:keysearch(VirtualCol, #hbtn.virtual_col, HbtnsShown) of
-	false ->
-	    undefined;
-	{value, HbtnRec} ->
-	    HbtnRec#hbtn.id
-    end.
-    
-
-
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-set_sort_btn_color(undefined, SortCol, HbtnsShown) ->
-    case lists:keysearch(SortCol, #hbtn.virtual_col, HbtnsShown) of
-	false ->
-	    undefined;
-	{value, HbtnRec} ->
-	    BtnId = HbtnRec#hbtn.id,
-	    gs:config(BtnId, [{bg, ?SORT_MARK_COLOR}]),
-	    BtnId
-    end;
-set_sort_btn_color(BtnId, undefined, _HbtnsShown) ->
-    gs:config(BtnId, [{bg, ?DEFAULT_BG_COLOR}]);
-set_sort_btn_color(OldSortBtnId, SortCol, HbtnsShown) ->
-    case gs:read(OldSortBtnId, bg) of 
-	SortCol ->
-	       % Btn is already marked!
-	    OldSortBtnId;
-	_OtherColor ->
-	       % Unmark old btn, mark new btn, if visible.
-	    gs:config(OldSortBtnId, [{bg, ?DEFAULT_BG_COLOR}]),
-	    case lists:keysearch(SortCol, #hbtn.virtual_col, HbtnsShown) of
-		false ->
-		    undefined;
-		{value, HbtnRec} ->
-		    BtnId = HbtnRec#hbtn.id,
-		    gs:config(BtnId, [{bg, ?SORT_MARK_COLOR}]),
-		    BtnId
-	    end
-    end.
-
-
-
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-update_vbtns(N, NofRowsShown, _VirtualRowNo,
-	     _Vbtns, _Colors, _BlinkEnabled, _BlinkList) when N > NofRowsShown ->
-    done;
-update_vbtns(_N, _NofRowsShown, _VirtualRowNo, [], [], _BlinkEnabled, _BlinkList) ->
-    done;
-update_vbtns(_N, _NofRowsShown, _VirtualRowNo, [], _Colors, _BlinkEnabled, _BlinkList) ->
-       % Right now we don't bother with dynamically creating row buttons:
-       % we ought too know in advance the maximum number of rows that can
-       % be visible.
-    io:format("Configuration error: too few rows in grid.~n"),
-    done;
-update_vbtns(N, NofRowsShown, 
-	     VirtualRowNo, [VbtnRec | VT], [], BlinkEnabled, BlinkList) ->
-    VbtnId = VbtnRec#vbtn.id,
-    gs:config(VbtnId, [{bg, ?DEFAULT_BG_COLOR},
-		       {fg, ?BLACK},
-		       {label, {text, integer_to_list(VirtualRowNo)}},
-		       {data, {vbtn, N, VirtualRowNo}}      % Real row + virtual row
-		      ]),
-    update_vbtns(N + 1, NofRowsShown, VirtualRowNo + 1,VT, [], BlinkEnabled, 
-		 BlinkList);
-update_vbtns(N, NofRowsShown, 
-	     VirtualRowNo, [VbtnRec | VT], [Color | CT], true, BlinkList) ->
-    VbtnId = VbtnRec#vbtn.id,
-    {Text, TextColor} = get_vbtn_text_and_textcolor(Color, VirtualRowNo),
-    case lists:member(Color, BlinkList) of
-	true ->
-	    gs:config(VbtnId, [{bg, Color}, 
-			       {fg, TextColor},
-			       {label, {text, Text}},
-			       {data, {vbtn, N, VirtualRowNo}}, % Real + virtual row
-			       flash
-			      ]);
-	false ->
-	    gs:config(VbtnId, [{bg, Color},
-			       {fg, TextColor},
-			       {label, {text, Text}},
-			       {data, {vbtn, N, VirtualRowNo}} % Real + virtual row
-			      ])
-    end,
-    update_vbtns(N + 1, NofRowsShown, VirtualRowNo + 1, VT, CT, true, BlinkList);
-update_vbtns(N, NofRowsShown, 
-	     VirtualRowNo, [VbtnRec | VT], [Color | CT], false, BlinkList) ->
-    VbtnId = VbtnRec#vbtn.id,
-    {Text, TextColor} = get_vbtn_text_and_textcolor(Color, VirtualRowNo),
-    gs:config(VbtnId, [{bg, Color},
-		       {fg, TextColor},
-		       {label, {text, Text}},
-		       {data, {vbtn, N, VirtualRowNo}}  % Real row + virtual row
-		      ]),
-    update_vbtns(N + 1, NofRowsShown, VirtualRowNo + 1, VT, CT, false, BlinkList).
-    
-    
-    
-
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-get_vbtn_text_and_textcolor(?BLACK, N) ->
-    {integer_to_list(N), ?WHITE};
-get_vbtn_text_and_textcolor(?RED1, N) ->
-    {integer_to_list(N), ?BLACK};
-get_vbtn_text_and_textcolor(?RED2, N) ->
-    {integer_to_list(N), ?BLACK};
-get_vbtn_text_and_textcolor(?RED3, N) ->
-    {integer_to_list(N), ?BLACK};
-get_vbtn_text_and_textcolor(?RED4, N) ->
-    {integer_to_list(N), ?BLACK};
-get_vbtn_text_and_textcolor(?RED5, N) ->
-    {integer_to_list(N), ?BLACK};
-get_vbtn_text_and_textcolor(?GREEN1, N) ->
-    {integer_to_list(N), ?BLACK};
-get_vbtn_text_and_textcolor(?GREEN2, N) ->
-    {integer_to_list(N), ?BLACK};
-get_vbtn_text_and_textcolor(?GREEN3, N) ->
-    {integer_to_list(N), ?BLACK};
-get_vbtn_text_and_textcolor(?GREEN4, N) ->
-    {integer_to_list(N), ?BLACK};
-get_vbtn_text_and_textcolor(?GREEN5, N) ->
-    {integer_to_list(N), ?BLACK};
-get_vbtn_text_and_textcolor(_AnyOtherColor, N) ->
-    {integer_to_list(N), ?BLACK}.
-
-
-
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-create_vbtns(ParentId, Ypos, NofRows, RowHeight, VbtnW, HbtnH) ->
-    create_vbtns(1, NofRows, RowHeight, ParentId, VbtnW, Ypos + HbtnH, []).
-
-
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-create_vbtns(N, NofRows, _RowHeight, _ParId, _VbtnW, _Ypos, VAcc) when N > NofRows ->
-    lists:reverse(VAcc);
-create_vbtns(N, NofRows, RowHeight, ParId, VbtnW, Ypos, VAcc) ->
-    VHeight = RowHeight + 1,
-    VInfo   = create_one_vbtn(ParId, VHeight, VbtnW, Ypos, N),
-    create_vbtns(N + 1, NofRows, RowHeight, ParId, VbtnW, Ypos + VHeight,
-		 [VInfo | VAcc]).
-    
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-create_one_vbtn(ParentId, Height, VbtnW, Ypos, N) ->
-    Id = gs:button(ParentId, [{width, VbtnW},
-			      {height, Height},
-			      {x, 0},
-			      {y, Ypos},
-			      {font, ?BTN_FONT},
-			      {bg, ?DEFAULT_BG_COLOR},
-			      {align, center},
-			      {label, {text,integer_to_list(N)}},
-			      {data, {vbtn, N, N}}      % Real row + virtual row
-			     ]),
-    #vbtn{virtual_row = N,
-	  real_row    = N,
-	  id          = Id,
-	  height      = Height,
-	  ypos        = Ypos}.
-
-
-
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-update_hbtns([], _HBtnsShown, 
-	     _ResBtns, _VirtualColNo, _FrId, _Ypos, _HbtnH, _ResBtnW, _VbtnW) ->
-    {[], []};
-update_hbtns(ColsShown, HBtns, 
-	     ResBtns, VirtualColNo, FrId, Ypos, HbtnH, ResBtnW, VbtnW) ->
-    update_hbtns(1, ColsShown, HBtns, ResBtns, HbtnH, ResBtnW, VbtnW, 
-		 VirtualColNo, FrId, 0, Ypos, [], []).
-
-
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-update_hbtns(_N, [], 
-	     [], [], _HbtnH, _ResBtnW, _VbtnW, _ColNo, _FrId, _Xpos, _Ypos, HAcc, RAcc) ->
-    {lists:reverse(HAcc), lists:reverse(RAcc)};
-
-update_hbtns(N, [], [HInfo | HT], [RInfo | RT],  
-	     HbtnH, ResBtnW, VbtnW, ColNo, FrId, Xpos, Ypos, HAcc, RAcc) ->
-       % If too many buttons, i.e., if the ColsShown list 
-       % has become empty.
-    gs:destroy(HInfo#hbtn.id),
-    gs:destroy(RInfo#resbtn.id),
-    update_hbtns(N, [], HT, RT,  HbtnH, ResBtnW, VbtnW, ColNo, FrId, 
-		 Xpos, Ypos, HAcc, RAcc);
-
-update_hbtns(1, [ColW | T], [], [],  
-	     HbtnH, ResBtnW, VbtnW, ColNo, FrId, _Xpos, Ypos, HAcc, RAcc) ->
-       % The first button has to be bigger than the others.
-    {HInfo, RInfo} = create_one_hbtn_and_resbtn(FrId, ColW - 2, 
-						HbtnH, VbtnW - 1, 
-						Ypos, ResBtnW, 1, ColNo),
-    update_hbtns(2, T, [], [],  HbtnH, ResBtnW, VbtnW, ColNo + 1, 
-		 FrId, VbtnW - 1 + ColW - 2 + ResBtnW, Ypos, [HInfo | HAcc], 
-		 [RInfo | RAcc]);
-
-update_hbtns(N, [ColW | T], [], [],  
-	     HbtnH, ResBtnW, VbtnW, ColNo, FrId, Xpos, Ypos, HAcc, RAcc) ->
-    {HInfo, RInfo} = create_one_hbtn_and_resbtn(FrId, ColW - 4, 
-						HbtnH, Xpos, 
-						Ypos, ResBtnW, N, ColNo),
-    update_hbtns(N + 1, T, [], [],  HbtnH, ResBtnW, VbtnW, ColNo + 1, 
-		 FrId, Xpos + ColW - 4 + ResBtnW, Ypos, [HInfo | HAcc], 
-		 [RInfo | RAcc]);
-
-update_hbtns(1, [ColW | T], [HInfo | HT], [RInfo | RT], 
-	     HbtnH, ResBtnW, VbtnW, ColNo, FrId, _Xpos, Ypos, HAcc, RAcc) ->
-    {NewHInfo, NewRInfo} = config_one_hbtn_and_resbtn(HInfo, RInfo, 
-						      ColW - 2, 
-						      VbtnW - 1, 
-						      1, ColNo),
-    update_hbtns(2, T, HT, RT,  HbtnH, ResBtnW, VbtnW, ColNo + 1, 
-		 FrId, VbtnW - 1 + ColW - 2 + ResBtnW, Ypos, 
-		 [NewHInfo | HAcc], [NewRInfo | RAcc]);
-
-update_hbtns(N, [ColW | T], [HInfo | HT], [RInfo | RT],  
-	     HbtnH, ResBtnW, VbtnW, ColNo, FrId, Xpos, Ypos, HAcc, RAcc) ->
-    {NewHInfo, NewRInfo} = config_one_hbtn_and_resbtn(HInfo, RInfo, 
-						      ColW - 4, 
-						      Xpos, N, 
-						      ColNo),
-    update_hbtns(N + 1, T, HT, RT,  HbtnH, ResBtnW, VbtnW, ColNo + 1, 
-		 FrId, Xpos + ColW - 4 + ResBtnW, Ypos, [NewHInfo | HAcc], 
-		 [NewRInfo | RAcc]).
-
-
-
-
-
-
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-create_one_hbtn_and_resbtn(ParId, HWidth, HHeight, HXpos, Ypos, RWidth, N, ColNo) ->
-    HId = gs:button(ParId, [{width, HWidth},
-			    {height, HHeight},
-			    {x, HXpos},
-			    {y, Ypos},
-			    {font, ?BTN_FONT},
-			    {bg, ?DEFAULT_BG_COLOR},
-			    {data, {hbtn, N, ColNo}},
-			    {label, {text, integer_to_list(ColNo)}}
-			   ]),
-    RId = gs:button(ParId, [{width, RWidth},
-			    {height, HHeight},
-			    {x, HXpos + HWidth},
-			    {y, Ypos},
-			    {cursor, resize},
-			    {buttonpress, true},
-			    {buttonrelease, true},
-			    {data, {resbtn, N, ColNo, (HXpos + HWidth + RWidth div 2)}},
-			    {bg, ?BLACK}
-			   ]),
-    HInfo = #hbtn{virtual_col = ColNo,
-		  real_col    = N,
-		  id          = HId,
-		  width       = HWidth,
-		  xpos        = HXpos},
-    RInfo = #resbtn{virtual_col = ColNo,
-		    real_col    = N,
-		    id          = RId,
-		    width       = RWidth,
-		    xpos        = HXpos + HWidth},
-    {HInfo, RInfo}.
-
-
-
-
-
-
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-config_one_hbtn_and_resbtn(HInfo, RInfo, HWidth, HXpos, N, ColNo) ->
-    gs:config(HInfo#hbtn.id, [{width, HWidth},
-			      {x, HXpos},
-			      {data, {hbtn, N, ColNo}},
-			      {label, {text, integer_to_list(ColNo)}}
-			     ]),
-    gs:config(RInfo#resbtn.id, [{x, HXpos + HWidth},
-				{data, {resbtn, N, ColNo, 
-					(HXpos + HWidth + RInfo#resbtn.width div 2)}}
-			]),
-    NewHInfo = HInfo#hbtn{virtual_col = ColNo,
-			  width       = HWidth,
-			  xpos        = HXpos},
-    NewRInfo = RInfo#resbtn{virtual_col = ColNo,
-			    xpos        = HXpos + HWidth},
-    {NewHInfo, NewRInfo}.
-
-
-
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-update_keys([], [], _FirstCol, _LastCol, _HBtns, _ParentId, KeyIdsAcc) ->
-    lists:reverse(KeyIdsAcc);
-
-update_keys([], [KeyId | IdT], FirstCol, LastCol, HBtns, ParentId, KeyIdsAcc) ->
-    gs:config(KeyId, [{x, 1200}]),
-    update_keys([], IdT, FirstCol, LastCol, HBtns, ParentId, 
-		[KeyId | KeyIdsAcc]);
-
-update_keys([KeyNo | KT], [], FirstCol, LastCol, 
-	    HBtns,ParentId,  KeyIdsAcc) when KeyNo >= FirstCol, KeyNo =< LastCol ->
-    {_Width, Xpos} = get_keywidth_and_pos(KeyNo, FirstCol, HBtns),
-    NewKeyId = create_key(ParentId, Xpos, 1),
-    update_keys(KT, [], FirstCol, LastCol, HBtns, ParentId, 
-		[NewKeyId | KeyIdsAcc]);
-
-update_keys([_KeyNo | KT], [], FirstCol, LastCol, HBtns, ParentId, KeyIdsAcc) ->
-    update_keys(KT, [], FirstCol, LastCol, HBtns, ParentId, 
-		KeyIdsAcc);
-
-update_keys([KeyNo | KT], [KeyId | IdT], FirstCol, LastCol, 
-	    HBtns, ParentId, KeyIdsAcc) when KeyNo >= FirstCol, KeyNo =< LastCol ->
-    {Width, Xpos} = get_keywidth_and_pos(KeyNo, FirstCol, HBtns),
-    gs:config(KeyId, [{width, Width},
-		      {x, Xpos}
-		     ]),
-    update_keys(KT, IdT, FirstCol, LastCol, HBtns, ParentId, 
-		[KeyId | KeyIdsAcc]);
-
-update_keys([_KeyNo | KT], 
-	    [KeyId | IdT], FirstCol, LastCol, HBtns, ParentId, KeyIdsAcc) ->
-    update_keys(KT, [KeyId | IdT], FirstCol, LastCol, HBtns, ParentId, 
-		KeyIdsAcc).
-
-
-
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-get_keywidth_and_pos(VirtualCol, FirstCol, HBtns) ->
-    RealColNo = VirtualCol - FirstCol + 1,
-    HBtnR = lists:nth(RealColNo, HBtns),
-    #hbtn{width = Width,
-	  xpos  = Xpos}  = HBtnR,
-    KeyWidth = 10,
-       % Compute the x position for the key!
-    KeyXpos = (Xpos + (Width div 2) - (KeyWidth div 2)),
-    {KeyWidth, KeyXpos}.
-    
-
-
-
-
-
-
-%%======================================================================
-%% Function:      
-%%
-%% Return Value:  
-%%
-%% Description:   
-%%
-%% Parameters:    
-%%======================================================================
-
-
-create_key(ParentId, Xpos, Ypos) ->
-    PicDir = code:priv_dir(tv),
-    C = gs:canvas(ParentId, [{width, 10},
-			     {height, 18},
-			     {x, Xpos},
-			     {y, Ypos},
-			     {bg, ?DEFAULT_BG_COLOR}
-			    ]),
-    gs:create(image, C, [{bitmap, PicDir ++ "/key.xbm"}]),
-    C.
-
-
-
-
-
-
-
-    
-
-
-
-
-
-
-
-
-
-
-
-
-