aboutsummaryrefslogtreecommitdiffstats
path: root/lib/tv/src/tv_pd_display.erl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/tv/src/tv_pd_display.erl')
-rw-r--r--lib/tv/src/tv_pd_display.erl1059
1 files changed, 1059 insertions, 0 deletions
diff --git a/lib/tv/src/tv_pd_display.erl b/lib/tv/src/tv_pd_display.erl
new file mode 100644
index 0000000000..f5a30cb640
--- /dev/null
+++ b/lib/tv/src/tv_pd_display.erl
@@ -0,0 +1,1059 @@
+%%
+%% %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%
+%%%*********************************************************************
+%%%
+%%% Description: Part of pd controlling the graphics.
+%%%
+%%%*********************************************************************
+
+-module(tv_pd_display).
+
+
+
+
+-export([init_display/4,
+ display_data/8,
+ resize_display/3,
+ resize_column/4,
+ scroll_horizontally/2,
+ scroll_vertically/2,
+ perform_horizontal_scroll/2,
+ perform_vertical_scroll/2,
+ marked_cell/5,
+ update_toolbar_label/5,
+ update_toolbar_editor/2,
+ get_data_element/4,
+ hide_toolbar_editor/1,
+ show_toolbar_editor/1]).
+
+
+
+
+
+-include("tv_int_def.hrl").
+-include("tv_int_msg.hrl").
+-include("tv_pd_int_def.hrl").
+-include("tv_pd_int_msg.hrl").
+
+
+
+
+
+
+
+%%%*********************************************************************
+%%% EXTERNAL FUNCTIONS
+%%%*********************************************************************
+
+
+
+%%======================================================================
+%% Function: init_display.
+%%
+%% Return Value: Id of the display (here:canvas) created.
+%%
+%% Description: Creates the canvas and the scale.
+%%
+%% Parameters: Id of the window the display shall be created in.
+%%======================================================================
+
+
+init_display(WindowId, WindowWidth, WindowHeight, ProcVars) ->
+ % Get all necessary window parameters!
+ #process_variables{pg_pid = PgPid,
+ pb_pid = PbPid,
+ frame_params = FrameP,
+ scale_params = ScaleP,
+ toolbar_params = ToolP} = ProcVars,
+
+ NewFrameP = tv_pd_frames:create_display_frames(WindowId, WindowWidth,
+ WindowHeight, FrameP),
+
+ #frame_params{grid_frame_id = GridParentId,
+ grid_frame_width = GridParentWidth,
+ grid_frame_height = GridParentHeight} = NewFrameP,
+
+ PgPid ! #pg_init_grid{sender = self(),
+ parent_id = GridParentId,
+ width = GridParentWidth,
+ height = GridParentHeight,
+ xpos = ?VBTN_WIDTH - 1,
+ ypos = ?KEY_MARK_AREA_HEIGHT + ?HBTN_HEIGHT - 1,
+ nof_rows = ?NOF_GRIDROWS,
+ row_height = ?ROW_HEIGHT
+ },
+
+
+ receive
+ #pg_col_info{first_col_shown = FirstColShown,
+ width_of_cols_shown = ColsShown,
+ nof_rows_shown = NofRowsShown} ->
+
+ PbPid ! #pb_init_btns{sender = self(),
+ parent_id = GridParentId,
+ parent_width = GridParentWidth,
+ parent_height = GridParentHeight,
+ ypos = ?KEY_MARK_AREA_HEIGHT,
+ hbtn_height = ?HBTN_HEIGHT,
+ resbtn_width = ?RESBTN_WIDTH,
+ vbtn_width = ?VBTN_WIDTH,
+ nof_rows = ?NOF_GRIDROWS,
+ row_height = ?ROW_HEIGHT,
+ first_col_shown = FirstColShown,
+ cols_shown = ColsShown
+ },
+
+ NewScaleP = tv_pd_scale:init_scale(NewFrameP, ScaleP),
+
+ NewToolP = init_toolbar(NewFrameP, ToolP),
+
+ ProcVars#process_variables{window_id = WindowId,
+ window_width = WindowWidth,
+ window_height = WindowHeight,
+ first_col_shown = FirstColShown,
+ nof_rows_shown = NofRowsShown,
+ cols_shown = ColsShown,
+ frame_params = NewFrameP,
+ scale_params = NewScaleP,
+ toolbar_params = NewToolP
+ }
+ end.
+
+
+
+
+
+resize_display(NewWinW, NewWinH, ProcVars) ->
+ #process_variables{pg_pid = PgPid,
+ pb_pid = PbPid,
+ color_list = ColorList,
+ first_row_shown = FirstRowShown,
+ frame_params = FrameP,
+ scale_params = ScaleP,
+ toolbar_params = ToolP} = ProcVars,
+
+ NewFrameP = tv_pd_frames:resize_display_frames(NewWinW, NewWinH, FrameP),
+
+ #frame_params{grid_frame_width = GridParentWidth,
+ grid_frame_height = GridParentHeight} = NewFrameP,
+
+ PgPid ! #pg_resize_grid{sender = self(),
+ width = GridParentWidth,
+ height = GridParentHeight
+ },
+
+ receive
+ #pg_col_info{first_col_shown = FirstColShown,
+ width_of_cols_shown = ColsShown,
+ nof_rows_shown = NofRowsShown} ->
+
+ PbPid ! #pb_update_hbtns{sender = self(),
+ parent_width = GridParentWidth,
+ parent_height = GridParentHeight,
+ first_col_shown = FirstColShown,
+ cols_shown = ColsShown
+ },
+
+ PbPid ! #pb_update_vbtns{sender = self(),
+ color_list = ColorList,
+ first_row_shown = FirstRowShown,
+ nof_rows_shown = NofRowsShown,
+ blinking_enabled = false
+ },
+
+ NewScaleP = tv_pd_scale:resize_scale(NewFrameP, ScaleP),
+
+ NewToolP = resize_toolbar(NewFrameP, ToolP),
+
+ ProcVars#process_variables{window_width = NewWinW,
+ window_height = NewWinH,
+ first_col_shown = FirstColShown,
+ nof_rows_shown = NofRowsShown,
+ cols_shown = ColsShown,
+ frame_params = NewFrameP,
+ scale_params = NewScaleP,
+ toolbar_params = NewToolP
+ }
+ end.
+
+
+
+
+
+
+
+resize_column(RealCol, VirtualCol, Xdiff, ProcVars) ->
+ #process_variables{pg_pid = PgPid,
+ pb_pid = PbPid,
+ frame_params = FrameP} = ProcVars,
+
+ PgPid ! #pg_resize_grid_col{sender = self(),
+ real_col_no = RealCol,
+ virtual_col_no = VirtualCol,
+ xdiff = Xdiff
+ },
+
+ #frame_params{grid_frame_width = GridFrameWidth,
+ grid_frame_height = GridFrameHeight} = FrameP,
+ receive
+ #pg_col_info{first_col_shown = FirstColShown,
+ width_of_cols_shown = ColsShown,
+ nof_rows_shown = NofRowsShown} ->
+
+ PbPid ! #pb_update_hbtns{parent_width = GridFrameWidth,
+ parent_height = GridFrameHeight,
+ first_col_shown = FirstColShown,
+ cols_shown = ColsShown
+ },
+
+ ProcVars#process_variables{first_col_shown = FirstColShown,
+ nof_rows_shown = NofRowsShown,
+ cols_shown = ColsShown
+ }
+ end.
+
+
+
+
+
+
+
+
+display_data(Pos, Range, _MaxValue, List, KeyList, MaxElemSize, MarkedRowData,ProcVars) ->
+ #process_variables{master_pid = PcPid,
+ rec_pid = RecPid,
+ pg_pid = PgPid,
+ pb_pid = PbPid,
+ writable = Writable,
+ sorting_on = SortingOn,
+ nof_rows_shown = NofRowsShown,
+ scale_params = ScaleP,
+ toolbar_params = ToolP,
+ mark_params = MarkP} = ProcVars,
+
+ {DataList, ColorList} = split_dblist(List, [], []),
+
+ NewMarkP = update_marks(SortingOn, DataList, ColorList, MarkedRowData, Pos, NofRowsShown,
+ Writable, Range, PcPid, PgPid, RecPid, ToolP, MarkP),
+
+ PgPid ! #pg_data{sender = self(),
+ data = DataList,
+ first_row_shown = Pos
+ },
+
+ PbPid ! #pb_update_vbtns{sender = self(),
+ color_list = ColorList,
+ first_row_shown = Pos,
+ nof_rows_shown = NofRowsShown,
+ blinking_enabled = false
+ },
+
+ PbPid ! #pb_key_info{sender = self(),
+ list_of_keys = KeyList
+ },
+
+ % May be new number of elements in the total list!
+ ?SCALE_FUNC_FILE:set_scale_range(vscale, Range, ScaleP),
+ % May be new vertical scale position required!
+ NewScaleP = ?SCALE_FUNC_FILE:set_scale_pos(vscale, Pos, ScaleP),
+ % May be new maximum size of elements!
+ ?SCALE_FUNC_FILE:set_scale_range(hscale, {1, MaxElemSize}, NewScaleP),
+
+ ProcVars#process_variables{data_list = DataList,
+ color_list = ColorList,
+ first_row_shown = Pos,
+ initialising = false,
+ scale_params = NewScaleP,
+ mark_params = NewMarkP
+ }.
+
+
+
+
+
+
+
+scroll_vertically(MouseBtn, ProcVars) ->
+ #process_variables{scale_params = ScaleP} = ProcVars,
+
+ OldScalePos = ScaleP#scale_params.vscale_pos,
+ NewScalePos = get_new_scalepos(MouseBtn, OldScalePos),
+
+ case NewScalePos of
+ OldScalePos ->
+ ProcVars;
+ NewValue ->
+ perform_vertical_scroll(NewValue, ProcVars)
+ end.
+
+
+
+
+
+
+
+scroll_horizontally(MouseBtn, ProcVars) ->
+ #process_variables{scale_params = ScaleP} = ProcVars,
+
+ OldScalePos = ScaleP#scale_params.hscale_pos,
+ NewScalePos = get_new_scalepos(MouseBtn, OldScalePos),
+
+ case NewScalePos of
+ OldScalePos ->
+ ProcVars;
+ NewValue ->
+ perform_horizontal_scroll(NewValue, ProcVars)
+ end.
+
+
+
+
+
+
+
+
+perform_vertical_scroll(NewScalePos, ProcVars) ->
+ #process_variables{master_pid = MasterPid,
+ initialising = Init,
+ scale_params = ScaleP} = ProcVars,
+
+ %% To avoid erroneous scrollbar signals during creation of the display.
+ case Init of
+ true ->
+ done;
+ false ->
+ MasterPid ! #pc_data_req{sender = self(),
+ element = NewScalePos,
+ nof_elements = ?NOF_GRIDROWS}
+ end,
+
+ % Since the order of click/buttonrelease messages isn't
+ % precise, set the scale to the returned pos (may otherwise
+ % differ one unit).
+ NewScaleP = ?SCALE_FUNC_FILE:set_scale_pos(vscale,
+ NewScalePos,
+ ScaleP),
+
+ ProcVars#process_variables{scale_params = NewScaleP}.
+
+
+
+
+
+
+
+perform_horizontal_scroll(NewScalePos, ProcVars) ->
+ #process_variables{pg_pid = PgPid,
+ pb_pid = PbPid,
+ frame_params = FrameP,
+ scale_params = ScaleP} = ProcVars,
+
+ % Since the order of click/buttonrelease messages isn't
+ % precise, set the scale to the returned pos (may otherwise
+ % differ one unit).
+ NewScaleP = ?SCALE_FUNC_FILE:set_scale_pos(hscale,
+ NewScalePos,
+ ScaleP),
+
+ PgPid ! #pg_horizontal_scroll{sender = self(),
+ leftmost_virtual_col = NewScalePos
+ },
+
+ #frame_params{grid_frame_width = GridFrameWidth,
+ grid_frame_height = GridFrameHeight} = FrameP,
+ receive
+ #pg_col_info{first_col_shown = FirstColShown,
+ width_of_cols_shown = ColsShown,
+ nof_rows_shown = NofRowsShown} ->
+
+ PbPid ! #pb_update_hbtns{parent_width = GridFrameWidth,
+ parent_height = GridFrameHeight,
+ first_col_shown = FirstColShown,
+ cols_shown = ColsShown
+ },
+
+ ProcVars#process_variables{first_col_shown = FirstColShown,
+ cols_shown = ColsShown,
+ nof_rows_shown = NofRowsShown,
+ scale_params = NewScaleP
+ }
+ end.
+
+
+
+
+
+
+
+
+marked_cell(true, VirtualCol, RealRow, VirtualRow, ProcVars) ->
+ #process_variables{master_pid = MasterPid,
+ rec_pid = RecPid,
+ data_list = DataList,
+ color_list = ColorList,
+ writable = Writable,
+ mark_params = MarkP,
+ toolbar_params = ToolP} = ProcVars,
+
+ {DataElement, MarkedRowObject} = get_data_element(cell, DataList, RealRow, VirtualCol),
+ update_toolbar_label(DataElement, ToolP, VirtualRow, VirtualCol, Writable),
+ send_to_rec_edit(RecPid, {update_mode,MarkedRowObject}),
+
+ MarkedRowColor = lists:nth(RealRow, ColorList),
+
+ MasterPid ! #pc_marked_row{sender = self(),
+ row_no = VirtualRow,
+ object = MarkedRowObject,
+ color = MarkedRowColor
+ },
+ NewMarkP = MarkP#mark_params{cell_col_no = VirtualCol,
+ row_no = RealRow,
+ virtual_row_no = VirtualRow,
+ marked_object = MarkedRowObject,
+ marked_color = MarkedRowColor
+ },
+ ProcVars#process_variables{mark_params = NewMarkP
+ };
+marked_cell(false, VirtualCol, _RealRow, VirtualRow, ProcVars) ->
+ #process_variables{master_pid = MasterPid,
+ rec_pid = RecPid,
+ pb_pid = PbPid,
+ writable = Writable,
+ mark_params = MarkP} = ProcVars,
+
+ PbPid ! #pb_remove_marks{sender = self()},
+
+ case VirtualRow of
+ undefined ->
+ done;
+ _AnyRow ->
+ update_toolbar_label(notext, ProcVars#process_variables.toolbar_params,
+ VirtualRow, VirtualCol, Writable),
+ send_to_rec_edit(RecPid, insert_mode)
+ end,
+ MasterPid ! #pc_marked_row{sender = self(),
+ %% row_no = VirtualRow
+ row_no = undefined,
+ object = undefined,
+ color = undefined
+ },
+ NewMarkP = MarkP#mark_params{cell_col_no = undefined,
+ row_no = undefined,
+ virtual_row_no = undefined,
+ marked_object = undefined,
+ marked_color = undefined
+ },
+ ProcVars#process_variables{mark_params = NewMarkP
+ }.
+
+
+
+
+
+
+
+
+update_toolbar_label(notext, ToolP, _VirtualRowNo, _VirtualColNo, Writable) ->
+ #toolbar_params{row_col_label_id = RowColLblId,
+ fg_label_id = FgLblId,
+ editor_id = EdId} = ToolP,
+ gs:config(RowColLblId, [{label, {text,""}}]),
+ gs:config(FgLblId, [{enable,true}]),
+ gs:config(FgLblId, [{delete, {0,1000000000}}]),
+ gs:config(FgLblId, [{insert, {0, ""}}]),
+ case Writable of
+ true ->
+ gs:config(FgLblId, [{cursor, text},
+ {setfocus, true}]);
+ false ->
+ gs:config(FgLblId, [{enable, false},
+ {cursor, arrow},
+ {setfocus, false}])
+ end,
+ update_toolbar_editor(EdId, notext);
+update_toolbar_label({DataToShow}, ToolP, VirtualRowNo, VirtualColNo, Writable) ->
+ #toolbar_params{row_col_label_id = RowColLblId,
+ fg_label_id = FgLblId,
+ editor_id = EdId} = ToolP,
+
+ case VirtualRowNo of
+ undefined ->
+ %% No row - nothing can possibly be marked!
+ case Writable of
+ true ->
+ gs:config(FgLblId, [{setfocus,true},
+ {cursor, text}]);
+ false ->
+ gs:config(FgLblId, [{enable,false},
+ {setfocus, false},
+ {cursor, arrow}])
+ end;
+ _AnyRow ->
+ RowStr = "R" ++ integer_to_list(VirtualRowNo),
+ ColStr = case VirtualColNo of
+ undefined ->
+ "";
+ _AnyCol ->
+ " x C" ++ integer_to_list(VirtualColNo)
+ end,
+ DataStr = lists:flatten(tv_io_lib:format("~p", [DataToShow])),
+ gs:config(RowColLblId, [{label, {text,RowStr++ColStr}}]),
+ gs:config(FgLblId, [{enable,true}]),
+ gs:config(FgLblId, [{delete, {0,10000000}}]),
+ gs:config(FgLblId, [{insert, {0,DataStr}}]),
+ case Writable of
+ true ->
+ gs:config(FgLblId, [{setfocus,true},
+ {cursor, text}]);
+ false ->
+ gs:config(FgLblId, [{enable,false},
+ {setfocus, false},
+ {cursor, arrow}])
+ end,
+ update_toolbar_editor(EdId, {DataToShow})
+ end.
+
+
+
+
+
+
+
+
+get_data_element(row, DataList, RowNo, _VirtualCol) ->
+ if
+ length(DataList) < RowNo ->
+ {notext, undefined};
+ true ->
+ RowObj = lists:nth(RowNo, DataList),
+ {{RowObj}, RowObj}
+ end;
+get_data_element(cell, DataList, RowNo, ColNo) ->
+ %% It's the responsibility of pg to ensure that there is a data item
+ %% for the cell marked, meaning we don't *have* to check the length of
+ %% the data items. However, since we in the future may want to edit
+ %% even empty cells, we check it!
+ if
+ length(DataList) < RowNo ->
+ {notext, undefined};
+ true ->
+ DataItem = lists:nth(RowNo, DataList),
+ if
+ is_tuple(DataItem) ->
+ if size(DataItem) < ColNo ->
+ {notext, DataItem};
+ true ->
+ {{element(ColNo, DataItem)}, DataItem}
+ end;
+ true ->
+ {{DataItem}, DataItem}
+ end
+ end.
+
+
+
+
+
+
+
+
+show_toolbar_editor(ProcVars) ->
+ #process_variables{frame_params = FrameP,
+ toolbar_params = ToolP} = ProcVars,
+
+ #frame_params{toolbar_frame_height = THeight} = FrameP,
+
+ #toolbar_params{editor_frame_id = EdFrameId} = ToolP,
+
+ Xpos = 0,
+ Ypos = THeight - 8 - ?ROW_COL_LBL_HEIGHT + 1,
+ gs:config(EdFrameId, [{x, Xpos},
+ {y, Ypos}
+ ]),
+ ProcVars.
+
+
+
+
+
+
+
+
+hide_toolbar_editor(ProcVars) ->
+ #process_variables{toolbar_params = ToolP} = ProcVars,
+
+ #toolbar_params{editor_frame_id = EdFrameId} = ToolP,
+
+ Xpos = 0,
+ Ypos = (-1) * gs:read(EdFrameId, height) - 50,
+ gs:config(EdFrameId, [{x, Xpos},
+ {y, Ypos}
+ ]),
+ ProcVars.
+
+
+
+
+
+
+%%%********************************************************************
+%%% INTERNAL FUNCTIONS
+%%%********************************************************************
+
+
+
+
+
+update_toolbar_editor(EdId, notext) ->
+ gs:config(EdId, [{enable, true}]),
+ gs:config(EdId, [clear]),
+ gs:config(EdId, [{enable, false}]);
+update_toolbar_editor(EdId, {DataToShow}) ->
+ Str = io_lib:format("~n~p~n", [DataToShow]),
+ gs:config(EdId, [{enable, true}]),
+ gs:config(EdId, [clear]),
+ gs:config(EdId, [{overwrite, {insert, Str}}]),
+ gs:config(EdId, [{enable, false}]).
+
+
+
+
+
+
+update_marks(true, _DataList, _ColorList, _MarkedRowData,
+ _Pos, _NofRowsShown, _Writable, _Range, PcPid, PgPid, RecPid, ToolP, MarkP) ->
+ PgPid ! #pg_remove_marks{sender = self()},
+ %% Too much trouble trying to find the marked object again!
+ %% On the other hand, is the mark based on the row number
+ %% or the row content? Probably different strategies now, depending
+ %% on where in the code we are... :-(
+ %% update_toolbar_label(notext, ToolP, undefined, undefined, Writable),
+ update_toolbar_editor(ToolP#toolbar_params.editor_id, notext),
+ send_to_rec_edit(RecPid, insert_mode),
+ PcPid ! #pc_marked_row{sender = self(),
+ row_no = undefined,
+ object = undefined,
+ color = undefined
+ },
+ MarkP#mark_params{cell_col_no = undefined,
+ row_no = undefined,
+ virtual_row_no = undefined,
+ marked_object = undefined,
+ marked_color = undefined
+ };
+update_marks(false, DataList, ColorList, MarkedRowData,
+ Pos, NofRowsShown, Writable, Range, PcPid, PgPid, RecPid, ToolP, MarkP) ->
+ #mark_params{cell_col_no = CellColNo,
+ virtual_row_no = VirtualRowNo} = MarkP,
+
+ % Marked row data contains the color also!
+ {RowData, RowColors} = split_dblist(MarkedRowData, [], []),
+
+ case VirtualRowNo of
+ undefined ->
+ MarkP;
+ _AnyRow ->
+ if
+ VirtualRowNo > element(2, Range) ->
+ %% Mark outside the existing list! Uh-uh, remove the mark immediately! 8-0
+ update_marks(true, DataList, ColorList, MarkedRowData, Pos, NofRowsShown,
+ Writable, Range, PcPid, PgPid, RecPid, ToolP, MarkP);
+ true ->
+ {DataElement, RowObj} = choose_data_to_show(VirtualRowNo, CellColNo, RowData,
+ DataList, Pos),
+ {_, RowObjColor} = choose_data_to_show(VirtualRowNo, CellColNo, RowColors,
+ ColorList, Pos),
+ case DataElement of
+ notext ->
+ %% send_to_rec_edit(RecPid, insert_mode);
+ done;
+ _OtherElement ->
+ %% send_to_rec_edit(RecPid, {update_mode, RowObj})
+ send_to_rec_edit(RecPid, {reset_info, RowObj})
+ end,
+
+ %% case RowObj of
+ %% OldMarkedObj ->
+ %% done;
+ %% _NewObj ->
+ %% update_toolbar_label(DataElement, ToolP, VirtualRowNo,
+ %% CellColNo, Writable)
+ %% end,
+
+ %% update_toolbar_label(DataElement,ToolP,VirtualRowNo,CellColNo,Writable),
+
+ update_toolbar_editor(ToolP#toolbar_params.editor_id, DataElement),
+ MarkP#mark_params{marked_object = RowObj,
+ marked_color = RowObjColor}
+ end
+ end.
+
+
+
+
+
+choose_data_to_show(VirtualRowNo, undefined, _RowData, DataList, Pos) when VirtualRowNo >= Pos, VirtualRowNo =< (Pos + length(DataList) - 1) ->
+ get_data_element(row, DataList, VirtualRowNo - Pos + 1, undefined);
+choose_data_to_show(_VirtualRowNo, undefined, RowData, _DataList, _Pos) ->
+ get_data_element(row, RowData, 1, undefined);
+choose_data_to_show(VirtualRowNo, CellColNo, _RowData, DataList, Pos)
+ when VirtualRowNo >= Pos, VirtualRowNo =< (Pos + length(DataList) - 1) ->
+ get_data_element(cell, DataList, VirtualRowNo - Pos + 1, CellColNo);
+choose_data_to_show(_VirtualRowNo, CellColNo, RowData, _DataList, _Pos) ->
+ get_data_element(cell, RowData, 1, CellColNo).
+
+
+
+
+
+
+get_new_scalepos(Btn, LastScalePos) ->
+ receive
+ {gs, _Id, click, _Data, [NewScalePos | _T]} ->
+ get_new_scalepos(Btn, NewScalePos);
+
+ {gs, _Id, buttonrelease, _Data, [Btn | _T]} ->
+ LastScalePos;
+
+ {gs, _Id, buttonrelease, _Data, _Args} ->
+ get_new_scalepos(Btn, LastScalePos);
+
+ {gs, _Id, buttonpress, _Data, _Args} ->
+ get_new_scalepos(Btn, LastScalePos)
+
+ end.
+
+
+
+
+
+
+
+split_dblist([], DataAcc, ColorAcc) ->
+ {lists:reverse(DataAcc), lists:reverse(ColorAcc)};
+split_dblist([{Data, Color} | Tail], DataAcc, ColorAcc) ->
+ split_dblist(Tail, [Data | DataAcc], [Color | ColorAcc]).
+
+
+
+
+
+
+
+
+init_toolbar(FrameP, ToolP) ->
+ #frame_params{display_id = DispId,
+ toolbar_frame_id = TId,
+ toolbar_frame_width = TWidth,
+ toolbar_frame_height = THeight,
+ grid_frame_width = GWidth} = FrameP,
+
+ NewToolP = init_toolbar_btns(TId, ToolP),
+ {RowColLblId, BgLabelId, FgLabelId, BtnId} =
+ init_toolbar_label(TId, TWidth, THeight, GWidth),
+
+ PopUpFrame = gs:frame(TId, [{width, 80},
+ {height, 20},
+ {x, 0},
+ {y, -30},
+ {bg, {0, 0, 0}}
+ ]),
+
+ PopUpLabel = gs:label(PopUpFrame, [{width, 78},
+ {height, 18},
+ {bg, {255,255,190}},
+ {x,1},
+ {y,1},
+ {align, center},
+ {label, {text,""}},
+ {font,{screen,12}}]),
+
+ {EditorFrameId, EditorId} = init_toolbar_editor(DispId, TWidth, THeight),
+
+ NewToolP#toolbar_params{parent_id = TId,
+ row_col_label_id = RowColLblId,
+ bg_label_id = BgLabelId,
+ fg_label_id = FgLabelId,
+ label_btn_id = BtnId,
+ pop_up_frame_id = PopUpFrame,
+ pop_up_label_id = PopUpLabel,
+ editor_frame_id = EditorFrameId,
+ editor_id = EditorId
+ }.
+
+
+
+
+
+
+init_toolbar_btns(TId, ToolP) ->
+ PicDir = code:priv_dir(tv),
+% PicDir = "../priv",
+ % Toolbar btns are 25x25, the bitmaps are 20x20.
+ create_one_toolbar_btn(TId, 1, PicDir ++ "/edit1.xbm",
+ {toolbar, insert_object, "Edit Object"}),
+ create_one_toolbar_btn(TId, 3, PicDir ++ "/search.xbm",
+ {toolbar, search_object, "Search Object"}),
+ create_one_toolbar_btn(TId, 5, PicDir ++ "/sort.xbm",
+ {toolbar, sort_rising_order, "Sort Ascending"}),
+ create_one_toolbar_btn(TId, 6, PicDir ++ "/no_sort.xbm",
+ {toolbar, no_sorting,"No Sorting"}),
+ create_one_toolbar_btn(TId, 7, PicDir ++ "/sort_reverse.xbm",
+ {toolbar, sort_falling_order,"Sort Descending"}),
+ create_one_toolbar_btn(TId, 9, PicDir ++ "/poll.xbm",
+ {toolbar, poll_table,"Poll Table"}),
+ create_one_toolbar_btn(TId, 11, PicDir ++ "/info.xbm",
+ {toolbar, table_info,"Table Info"}),
+ create_one_toolbar_btn(TId, 13, PicDir ++ "/help.xbm",
+ {toolbar, help_button, "Help"}),
+ ToolP.
+
+
+
+
+
+
+
+
+create_one_toolbar_btn(ParentId, N, Image, Data) ->
+ BtnWidth = 25,
+ BtnHeight = 25,
+ StartXpos = 0,
+ BtnXpos = StartXpos + ((N - 1) * BtnWidth),
+ BtnYpos = 2,
+ BgColor = ?DEFAULT_BG_COLOR,
+ FgColor = {178,34,34}, % Firebrick
+
+ gs:button(ParentId, [{width, BtnWidth},
+ {height, BtnHeight},
+ {x, BtnXpos},
+ {y, BtnYpos},
+ {enter, true},
+ {leave, true},
+ {label, {image, Image}},
+ {data, Data},
+ {fg, FgColor},
+ {bg, BgColor}
+ ]).
+
+
+
+
+
+resize_toolbar(FrameP, ToolP) ->
+ #frame_params{toolbar_frame_width = TWidth,
+ toolbar_frame_height = THeight,
+ grid_frame_width = GWidth} = FrameP,
+
+ #toolbar_params{bg_label_id = BgId,
+ fg_label_id = FgId,
+ row_col_label_id = RowColId,
+ label_btn_id = BtnId,
+ editor_frame_id = FrId,
+ editor_id = EdId} = ToolP,
+
+ resize_toolbar_label(BgId, FgId, RowColId, BtnId, TWidth, THeight, GWidth),
+ resize_toolbar_editor(FrId, EdId, TWidth, THeight),
+ ToolP.
+
+
+
+
+
+
+
+
+init_toolbar_label(ParentId, ParentWidth, ParentHeight, GWidth) ->
+ {BgWidth, BgHeight, BgXpos, BgYpos, FgWidth, FgHeight, FgXpos, FgYpos, BtnWidth,
+ BtnHeight, BtnXpos, BtnYpos} =
+ get_toolbar_label_coords(ParentWidth, ParentHeight),
+
+ BgId = gs:label(ParentId, [{width, BgWidth},
+ {height, BgHeight},
+ {x, BgXpos},
+ {y, BgYpos},
+ {bg, {0, 0, 0}},
+ {fg, {0, 0, 0}}
+ ]),
+
+
+ RowColLblHeight = ?ROW_COL_LBL_HEIGHT,
+ RowColLblWidth = GWidth - ?VBTN_WIDTH,
+ RowColLblYpos = BgYpos + RowColLblHeight + 18,
+
+ RowColLblId = gs:label(ParentId, [{width, RowColLblWidth},
+ {height, RowColLblHeight},
+ {x, ?VBTN_WIDTH},
+ {y, RowColLblYpos},
+ {bg, ?DEFAULT_BG_COLOR},
+ {fg, {178,34,34}},
+ {align,center},
+ {font,{screen,12}},
+ {label, {text,""}}
+ ]),
+
+ FgId = gs:entry(editentry, ParentId, [{width, FgWidth},
+ {height, FgHeight},
+ {x, FgXpos},
+ {y, FgYpos},
+ {bg, {255,255,255}},
+ {fg, {0,0,0}},
+ {bw, 1},
+ {font,{screen,12}},
+ {justify, left},
+ {cursor, arrow},
+ {setfocus, false},
+ {enable, false},
+ {keypress,true}
+ ]),
+
+ PicDir = code:priv_dir(tv),
+ BtnId = gs:button(ParentId, [{width, BtnWidth},
+ {height, BtnHeight},
+ {x, BtnXpos},
+ {y, BtnYpos},
+ {bg, ?DEFAULT_BG_COLOR},
+ {fg, {0, 0, 0}},
+ {label, {image, PicDir ++ "/more.xbm"}},
+ {data, {labelbtn, pop_up}}
+ ]),
+
+ {RowColLblId, BgId, FgId, BtnId}.
+
+
+
+
+
+
+
+init_toolbar_editor(DispId, TWidth, THeight) ->
+ {BgWidth, BgHeight, BgXpos, BgYpos, Width, Height, Xpos, Ypos} =
+ get_toolbar_editor_coords(TWidth, THeight),
+
+ EditorFrame = gs:frame(DispId, [{width, BgWidth},
+ {height, BgHeight},
+ {x, BgXpos},
+ {y, BgYpos},
+ {bg, {0, 0, 0}}
+ ]),
+
+ Editor = gs:editor(EditorFrame, [{width, Width},
+ {height, Height},
+ {x, Xpos},
+ {y, Ypos},
+ {vscroll, right},
+ {wrap, word},
+ {bg, {255, 255, 255}},
+ {fg, {0, 0, 0}},
+ {enable, false}
+ ]),
+
+ {EditorFrame, Editor}.
+
+
+
+
+
+
+
+get_toolbar_editor_coords(TWidth, _THeight) ->
+ BgWidth = TWidth,
+ BgHeight = 200,
+ BgXpos = 0,
+ BgYpos = (-1) * BgHeight - 50,
+ FgWidth = BgWidth - 2,
+ FgHeight = BgHeight - 2,
+ FgXpos = 1,
+ FgYpos = 1,
+
+ {BgWidth, BgHeight, BgXpos, BgYpos, FgWidth, FgHeight, FgXpos, FgYpos}.
+
+
+
+
+
+
+resize_toolbar_editor(FrId, EdId, TWidth, THeight) ->
+ {BgWidth, BgHeight, _BgXpos, _BgYpos, FgWidth, FgHeight, _FgXpos, _FgYpos} =
+ get_toolbar_editor_coords(TWidth, THeight),
+ gs:config(FrId, [{width, BgWidth},
+ {height, BgHeight}
+ ]),
+
+ gs:config(EdId, [{width, FgWidth},
+ {height, FgHeight}
+ ]).
+
+
+
+
+
+
+resize_toolbar_label(BgId, FgId, RowColId, BtnId, ParentWidth, ParentHeight, GWidth) ->
+ {BgWidth, BgHeight, _BgXpos, _BgYpos, FgWidth, FgHeight, _FgXpos, _FgYpos, _BtnWidth,
+ _BtnHeight, BtnXpos, BtnYpos} =
+ get_toolbar_label_coords(ParentWidth, ParentHeight),
+
+ gs:config(RowColId, [{width, GWidth - ?VBTN_WIDTH}]),
+
+ gs:config(BgId, [{width, BgWidth},
+ {height, BgHeight}
+ ]),
+
+ gs:config(BtnId, [{x, BtnXpos},
+ {y, BtnYpos}
+ ]),
+
+ gs:config(FgId, [{width, FgWidth},
+ {height, FgHeight}
+ ]).
+
+
+
+
+
+get_toolbar_label_coords(ParentWidth, ParentHeight) ->
+ BtnWidth = 19,
+ BgWidth = ParentWidth,
+ BgHeight = 26,
+ BgXpos = 0,
+ BgYpos = ParentHeight - BgHeight - 8 - ?ROW_COL_LBL_HEIGHT + 2,
+ FgHeight = BgHeight - 2,
+ FgWidth = BgWidth - BtnWidth - 3,
+ FgXpos = BgXpos + 1,
+ FgYpos = BgYpos + 1,
+ BtnHeight = BgHeight - 2,
+ BtnXpos = FgWidth + 2,
+ BtnYpos = BgYpos + 1,
+
+ {BgWidth, BgHeight, BgXpos, BgYpos, FgWidth, FgHeight, FgXpos, FgYpos, BtnWidth,
+ BtnHeight, BtnXpos, BtnYpos}.
+
+
+
+
+
+
+send_to_rec_edit(undefined, _Msg) ->
+ done;
+send_to_rec_edit(RecPid, Msg) ->
+ RecPid ! Msg.
+
+
+
+
generated by cgit v1.2.3 (git 2.25.1) at 2024-07-03 08:29:59 +0000