The R13B03 release.OTP_R13B03

1 files changed, 1050 insertions, 0 deletions

diff --git a/lib/tv/src/tv_pb_funcs.erl b/lib/tv/src/tv_pb_funcs.erl
new file mode 100644
index 0000000000..87a4719bbd
--- /dev/null
+++ b/lib/tv/src/tv_pb_funcs.erl
@@ -0,0 +1,1050 @@
+%%
+%% %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_pb_funcs).
+
+
+
+-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.
+
+
+
+
+
+
+
+    
+
+
+
+
+
+
+
+
+
+
+
+
+