The R13B03 release.OTP_R13B03

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.
+
+
+
+