aboutsummaryrefslogtreecommitdiffstats
path: root/lib/tv/src/tv_pb_funcs.erl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/tv/src/tv_pb_funcs.erl')
-rw-r--r--lib/tv/src/tv_pb_funcs.erl1050
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.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+