%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 1997-2012. All Rights Reserved.
%%
%% The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
%% compliance with the License. You should have received a copy of the
%% Erlang Public License along with this software. If not, it can be
%% retrieved online at http://www.erlang.org/.
%%
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and limitations
%% under the License.
%%
%% %CopyrightEnd%
%%%*********************************************************************
%%%
%%% Description: Part of pd controlling the graphics.
%%%
%%%*********************************************************************
-module(tv_pd_display).
-compile([{nowarn_deprecated_function,{gs,button,2}},
{nowarn_deprecated_function,{gs,config,2}},
{nowarn_deprecated_function,{gs,editor,2}},
{nowarn_deprecated_function,{gs,entry,3}},
{nowarn_deprecated_function,{gs,frame,2}},
{nowarn_deprecated_function,{gs,label,2}},
{nowarn_deprecated_function,{gs,read,2}}]).
-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.
