Remove tv

1 files changed, 0 insertions, 1066 deletions

diff --git a/lib/tv/src/tv_pd_display.erl b/lib/tv/src/tv_pd_display.erl
deleted file mode 100644
index 804180da16..0000000000
--- a/lib/tv/src/tv_pd_display.erl
+++ /dev/null
@@ -1,1066 +0,0 @@
-%%
-%% %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.
-
-
-
-