tv_pd_display.erl

OTP是开放电信平台的简称

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.