diff options
Diffstat (limited to 'lib/tv/src')
46 files changed, 0 insertions, 20311 deletions
diff --git a/lib/tv/src/Makefile b/lib/tv/src/Makefile deleted file mode 100644 index 3d680c1eaf..0000000000 --- a/lib/tv/src/Makefile +++ /dev/null @@ -1,135 +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% -include $(ERL_TOP)/make/target.mk -include $(ERL_TOP)/make/$(TARGET)/otp.mk - -# ---------------------------------------------------- -# Application version -# ---------------------------------------------------- -include ../vsn.mk -VSN=$(TV_VSN) - -# ---------------------------------------------------- -# Release directory specification -# ---------------------------------------------------- -RELSYSDIR = $(RELEASE_PATH)/lib/tv-$(VSN) - -# ---------------------------------------------------- -# Common Macros -# ---------------------------------------------------- - -MODULES= \ - tv \ - tv_comm_func \ - tv_db \ - tv_db_search \ - tv_db_sort \ - tv_ets_rpc \ - tv_etsread \ - tv_info \ - tv_io_lib \ - tv_io_lib_format \ - tv_io_lib_pretty \ - tv_ip \ - tv_main \ - tv_mnesia_rpc \ - tv_new_table \ - tv_nodewin \ - tv_pb \ - tv_pb_funcs \ - tv_pc \ - tv_pc_graph_ctrl \ - tv_pc_menu_handling \ - tv_pd \ - tv_pd_display \ - tv_pd_frames \ - tv_pd_scale \ - tv_pg \ - tv_pg_gridfcns \ - tv_poll_dialog \ - tv_pw \ - tv_pw_window \ - tv_rec_edit \ - tv_table_owner \ - tv_utils - - - -HRL_FILES= \ - tv_db_int_def.hrl \ - tv_int_def.hrl \ - tv_int_msg.hrl \ - tv_main.hrl \ - tv_pb_int_def.hrl \ - tv_pc_int_def.hrl \ - tv_pd_int_def.hrl \ - tv_pd_int_msg.hrl \ - tv_pg_int_def.hrl \ - tv_pw_int_def.hrl - -ERL_FILES= $(MODULES:%=%.erl) - -TARGET_FILES = $(MODULES:%=$(EBIN)/%.$(EMULATOR)) $(APP_TARGET) $(APPUP_TARGET) - -APP_FILE = tv.app -APP_SRC = $(APP_FILE).src -APP_TARGET = $(EBIN)/$(APP_FILE) - -APPUP_FILE = tv.appup -APPUP_SRC = $(APPUP_FILE).src -APPUP_TARGET = $(EBIN)/$(APPUP_FILE) -# ---------------------------------------------------- -# FLAGS -# ---------------------------------------------------- -ERL_COMPILE_FLAGS += +warn_obsolete_guard - -# ---------------------------------------------------- -# Targets -# ---------------------------------------------------- - -debug opt: $(TARGET_FILES) - -clean: - rm -f $(TARGET_FILES) - rm -f errs core *~ - -$(APP_TARGET): $(APP_SRC) ../vsn.mk - $(vsn_verbose)sed -e 's;%VSN%;$(VSN);' $< > $@ - -$(APPUP_TARGET): $(APPUP_SRC) ../vsn.mk - $(vsn_verbose)sed -e 's;%VSN%;$(VSN);' $< > $@ - -docs: - -# ---------------------------------------------------- -# Special Targets -# ---------------------------------------------------- - -# ---------------------------------------------------- -# Release Target -# ---------------------------------------------------- -include $(ERL_TOP)/make/otp_release_targets.mk - -release_spec: opt - $(INSTALL_DIR) "$(RELSYSDIR)/src" - $(INSTALL_DATA) $(HRL_FILES) $(ERL_FILES) "$(RELSYSDIR)/src" - $(INSTALL_DIR) "$(RELSYSDIR)/ebin" - $(INSTALL_DATA) $(TARGET_FILES) "$(RELSYSDIR)/ebin" - -release_docs_spec: - diff --git a/lib/tv/src/tv.app.src b/lib/tv/src/tv.app.src deleted file mode 100644 index e76c587868..0000000000 --- a/lib/tv/src/tv.app.src +++ /dev/null @@ -1,56 +0,0 @@ -%% -%% %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% -{application, tv, - [{description, "tv Table Visualizer"}, - {vsn, "%VSN%"}, - {modules, [tv, - tv_comm_func, - tv_db, - tv_db_search, - tv_db_sort, - tv_ets_rpc, - tv_etsread, - tv_info, - tv_io_lib, - tv_io_lib_format, - tv_io_lib_pretty, - tv_ip, - tv_main, - tv_mnesia_rpc, - tv_new_table, - tv_nodewin, - tv_pb, - tv_pb_funcs, - tv_pc, - tv_pc_graph_ctrl, - tv_pc_menu_handling, - tv_pd, - tv_pd_display, - tv_pd_frames, - tv_pd_scale, - tv_pg, - tv_pg_gridfcns, - tv_poll_dialog, - tv_pw, - tv_pw_window, - tv_rec_edit, - tv_table_owner, - tv_utils - ]}, - {registered,[tv_table_owner]}, - {applications, [kernel, stdlib, gs]}]}. diff --git a/lib/tv/src/tv.appup.src b/lib/tv/src/tv.appup.src deleted file mode 100644 index 0d918b6081..0000000000 --- a/lib/tv/src/tv.appup.src +++ /dev/null @@ -1,18 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2001-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% -{"%VSN%",[],[]}. diff --git a/lib/tv/src/tv.erl b/lib/tv/src/tv.erl deleted file mode 100644 index 70bc945c63..0000000000 --- a/lib/tv/src/tv.erl +++ /dev/null @@ -1,38 +0,0 @@ -%% -%% %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% --module(tv). - --export([start/0, - start_browser/6]). - - -%%%********************************************************************* -%%% EXTERNAL FUNCTIONS -%%%********************************************************************* - -start() -> - tv_main:start(). - - -start_browser(Node, LocalNode, TableId, KindOfTable, TableName, ErrMsgMode) -> - spawn_link(tv_pc, pc, [self(), Node, LocalNode, TableId, KindOfTable, TableName, ErrMsgMode]). - - - - - diff --git a/lib/tv/src/tv_comm_func.erl b/lib/tv/src/tv_comm_func.erl deleted file mode 100644 index d57960e303..0000000000 --- a/lib/tv/src/tv_comm_func.erl +++ /dev/null @@ -1,77 +0,0 @@ -%% -%% %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% --module(tv_comm_func). - - - - --export([max/2, - min/2 - ]). - - - - - - - -%%%********************************************************************* -%%% EXTERNAL FUNCTIONS -%%%********************************************************************* - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -max(X, Y) when X > Y -> - X; -max(_X, Y) -> - Y. - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -min(X, Y) when X < Y -> - X; -min(_X, Y) -> - Y. - - - diff --git a/lib/tv/src/tv_db.erl b/lib/tv/src/tv_db.erl deleted file mode 100644 index 75537418b3..0000000000 --- a/lib/tv/src/tv_db.erl +++ /dev/null @@ -1,1271 +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: Module handling the internal database in the table tool. -%%% -%%%********************************************************************* - --module(tv_db). --compile([{nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,destroy,1}}, - {nowarn_deprecated_function,{gs,start,0}}, - {nowarn_deprecated_function,{gs,window,3}}]). - - - --export([dbs/2]). - - - --include("tv_int_def.hrl"). --include("tv_int_msg.hrl"). --include("tv_db_int_def.hrl"). - - - - - - - -%%%********************************************************************* -%%% EXTERNAL FUNCTIONS -%%%********************************************************************* - - - - -dbs(Master, ErrMsgMode) -> - process_flag(trap_exit, true), - put(error_msg_mode, ErrMsgMode), - ProcVars = #process_variables{master_pid = Master}, - blocked(ProcVars). - - - - - - -%%%******************************************************************** -%%% INTERNAL FUNCTIONS -%%%******************************************************************** - - - -blocked(ProcVars) -> - receive - Msg -> - case Msg of - - #dbs_deblock{} -> - deblock(Msg, ProcVars, false); - - {error_msg_mode, Mode} -> - put(error_msg_mode, Mode), - blocked(ProcVars); - - {'EXIT', Pid, Reason} -> - MasterPid = ProcVars#process_variables.master_pid, - exit_signals({Pid, Reason}, MasterPid), - blocked(ProcVars); - - _Other -> - blocked(ProcVars) - end - end. - - - - - - - -deblock(Msg, ProcVars, SearchWinCreated) -> - #dbs_deblock{sender = Sender, - etsread_pid = EtsreadPid, - type = Type, - keypos = KeyPos, - sublist_length = SublistLength} = Msg, - - NewDbData = #db_data{subset_size = SublistLength, - subset_pos = 1, - key_no = KeyPos, - ets_type = Type - }, - NewProcVars = ProcVars#process_variables{db_data = NewDbData, - etsread_pid = EtsreadPid}, - Sender ! #dbs_deblock_cfm{sender = self()}, - deblocked_loop(NewProcVars, SearchWinCreated, [], undefined). - - - - - - - - -deblocked_loop(ProcVars, SearchWinCreated, SearchData, RegExp) -> - receive - Msg -> - case Msg of - - {gs,entry,keypress,_Data,['Return' | _T]} -> - NewSearchData = search_object(ProcVars, RegExp), - deblocked_loop(ProcVars, SearchWinCreated, NewSearchData, RegExp); - - {gs,entry,keypress,_Data,['Tab' | _T]} -> - gs:config(entry, [{select, {0,1000}}]), - deblocked_loop(ProcVars, SearchWinCreated, SearchData, RegExp); - - {gs,entry,keypress,_Data,_Args} -> - deblocked_loop(ProcVars, SearchWinCreated, SearchData, RegExp); - - {gs,expr_term,click,_Data,_Args} -> - deblocked_loop(ProcVars, SearchWinCreated, SearchData, false); - - {gs,expr_regexp,click,_Data,_Args} -> - deblocked_loop(ProcVars, SearchWinCreated, SearchData, true); - - {gs,search,click,_Data,_Args} -> - NewSearchData = search_object(ProcVars, RegExp), - deblocked_loop(ProcVars, SearchWinCreated, NewSearchData, RegExp); - - {gs,cancel,click,cancel,_Args} -> - tv_db_search:destroy_window(SearchWinCreated), - deblocked_loop(ProcVars, false, [], RegExp); - - {gs,listbox,click,_LbData,[Idx | _T]} when SearchData =/= [] -> - tv_db_search:mark_busy(SearchWinCreated), - {Row,_Obj} = lists:nth(Idx+1, SearchData), - DbData = ProcVars#process_variables.db_data, - %% Never allow 'subset_pos' to have zero as value! - %% No list can begin with the 0:th element!!! - %% Has to be at least 1! - NewDbData = DbData#db_data{subset_pos=?COMM_FUNC_FILE:max(1, - Row), - subset_size=?ITEMS_TO_DISPLAY}, - NewProcVars = ProcVars#process_variables{db_data=NewDbData}, - send_subset(NewProcVars, undefined, undefined), - tv_db_search:mark_nonbusy(SearchWinCreated), - deblocked_loop(NewProcVars, SearchWinCreated, SearchData, RegExp); - - {gs,win,configure,_Data,_Args} -> - tv_db_search:resize_window(SearchWinCreated), - deblocked_loop(ProcVars, SearchWinCreated, SearchData, RegExp); - - {gs,win,destroy,_Data,_Args} -> - deblocked_loop(ProcVars, false, [], RegExp); - - - #dbs_new_data{data = NewData, keys = ListOfKeys, - time_to_read_table = ElapsedTimeEtsread} -> - tv_db_search:reset_window(SearchWinCreated), - T1 = time(), - NewProcVars = update_db(NewData, ListOfKeys, ProcVars), - T2 = time(), - ElapsedTimeDbs = compute_elapsed_seconds(T1, T2), - send_subset(NewProcVars, ElapsedTimeEtsread, ElapsedTimeDbs), - deblocked_loop(NewProcVars, SearchWinCreated, [], RegExp); - - #dbs_subset_req{subset_pos = Pos,subset_length = Length} -> - DbData = ProcVars#process_variables.db_data, - %% Never allow 'subset_pos' to have zero as value! - %% No list can begin with the 0:th element!!! - %% Has to be at least 1! - NewDbData = DbData#db_data{subset_pos=?COMM_FUNC_FILE:max(1, - Pos), - subset_size=Length}, - NewProcVars = ProcVars#process_variables{db_data = NewDbData}, - send_subset(NewProcVars, undefined, undefined), - deblocked_loop(NewProcVars, SearchWinCreated, SearchData, RegExp); - - #dbs_marked_row{row_no = RowNo} -> - DbData = ProcVars#process_variables.db_data, - NewDbData = DbData#db_data{requested_row = RowNo}, - NewProcVars = ProcVars#process_variables{db_data = NewDbData}, - deblocked_loop(NewProcVars, SearchWinCreated, SearchData, RegExp); - - #dbs_search_req{} -> - tv_db_search:create_window(SearchWinCreated), - deblocked_loop(ProcVars, true, SearchData, false); - - #dbs_sorting_mode{} -> - {NewProcVars, NewSearchData} = - update_sorting_mode(Msg, ProcVars, - SearchWinCreated, SearchData, RegExp), - deblocked_loop(NewProcVars, SearchWinCreated, NewSearchData, RegExp); - - #dbs_deblock{} -> - tv_db_search:reset_window(SearchWinCreated), - deblock(Msg, ProcVars, SearchWinCreated); - - #dbs_updated_object{object=Obj,old_object=OldObj,old_color=Color,obj_no=ObjNo} -> - {Success, NewProcVars} = update_object(Obj, OldObj, Color, ObjNo, ProcVars), - case Success of - true -> - tv_db_search:reset_window(SearchWinCreated), - send_subset(NewProcVars, undefined, undefined); - false -> - done - end, - deblocked_loop(NewProcVars, SearchWinCreated, SearchData, RegExp); - - #dbs_new_object{object=Obj} -> - {Success, NewProcVars} = new_object(Obj, ProcVars), - case Success of - true -> - tv_db_search:reset_window(SearchWinCreated), - send_subset(NewProcVars, undefined, undefined); - false -> - done - end, - deblocked_loop(NewProcVars, SearchWinCreated, SearchData, RegExp); - - #dbs_delete_object{object=Obj, color=Color, obj_no=ObjNo} -> - {Success, NewProcVars} = delete_object(Obj, Color, ObjNo, ProcVars), - case Success of - true -> - tv_db_search:reset_window(SearchWinCreated), - send_subset(NewProcVars, undefined, undefined); - false -> - done - end, - deblocked_loop(NewProcVars, SearchWinCreated, SearchData, RegExp); - - #pc_list_info{lists_as_strings=ListAsStr} -> - NewProcVars = ProcVars#process_variables{lists_as_strings=ListAsStr}, - deblocked_loop(NewProcVars, SearchWinCreated, SearchData, RegExp); - - {error_msg_mode, Mode} -> - put(error_msg_mode, Mode), - deblocked_loop(ProcVars, SearchWinCreated, SearchData, RegExp); - - {'EXIT', Pid, Reason} -> - MasterPid = ProcVars#process_variables.master_pid, - exit_signals({Pid, Reason}, MasterPid), - deblocked_loop(ProcVars, SearchWinCreated, SearchData, RegExp); - - _Other -> - %% io:format("Received message: ~w ~n", [_Other]), - deblocked_loop(ProcVars, SearchWinCreated, SearchData, RegExp) - end - end. - - - - - - - -search_object(ProcVars, RegExp) -> - DbData = ProcVars#process_variables.db_data, - DbList = dblist2list(DbData#db_data.db), - ListAsStr = ProcVars#process_variables.lists_as_strings, - case catch tv_db_search:get_input_and_search(DbList, RegExp, ListAsStr) of - {'EXIT', _Reason} -> - tv_db_search:reset_window(true), - []; - List -> - List - end. - - - - - - -update_sorting_mode(Msg, ProcVars, SearchWinCreated, OldSearchData, RegExp) -> - #dbs_sorting_mode{sorting = Sorting, - reverse = Reverse, - sort_key_no = SortKeyNo} = Msg, - - DbData = ProcVars#process_variables.db_data, - - #db_data{db = DbList, - sorting = OldSorting, - rev_sorting = OldReverse, - sort_key_no = OldSortKeyNo} = DbData, - - - NewDbList = sort_db_list(DbList, Sorting, OldSorting, Reverse, OldReverse, - SortKeyNo, OldSortKeyNo), - - NewDbData = DbData#db_data{db = NewDbList, - sorting = Sorting, - rev_sorting = Reverse, - sort_key_no = SortKeyNo - }, - - NewProcVars = ProcVars#process_variables{db_data = NewDbData}, - send_subset(NewProcVars, undefined, undefined), - - SearchData = - case Sorting of - false -> - OldSearchData; - OldSorting when Reverse =:= OldReverse, - SortKeyNo =:= OldSortKeyNo -> - []; - OldSorting when Reverse =:= OldReverse, - OldSortKeyNo =:= undefined-> - []; - _Other -> - ListAsStr = ProcVars#process_variables.lists_as_strings, - case catch tv_db_search:update_search(SearchWinCreated, - NewDbList, RegExp, - ListAsStr) of - {'EXIT', _Reason} -> - tv_db_search:reset_window(true), - []; - List -> - List - end - end, - - {NewProcVars, SearchData}. - - - - - - - - -sort_db_list(DbList, Sort, Sort, Rev, Rev, KeyNo, KeyNo) -> - % Already sorted! - DbList; -sort_db_list(DbList, false, _OldSort, _Rev, _OldRev, _KeyNo, _OldKeyNo) -> - % No sorting, i.e., the old list order suffices! - DbList; -sort_db_list(DbList, _Sort, _OldSort, Rev, _OldRev, KeyNo, _OldKeyNo) -> - tv_db_sort:mergesort(KeyNo, DbList, Rev). - - - - - - - -send_subset(ProcVars, EtsreadTime, DbsTime) -> - #process_variables{master_pid = MasterPid, - db_data = DbData, - list_of_keys = ListOfKeys} = ProcVars, - - #db_data{subset_size = SubsetSize, - subset_pos = SubsetPos, - requested_row = RowNo, - db_size = DbSize, - db = DbList, - max_elem_size = MaxElemSize} = DbData, - - - RowData = get_requested_row_data(RowNo, DbList), - - if - DbSize > 0 -> - Pos = ?COMM_FUNC_FILE:min(SubsetPos, DbSize), - % Requested_data may be shorter than requested, but that's OK, - % pd handles that correctly! - Subset = lists:sublist(DbList, Pos, SubsetSize), - MasterPid ! #dbs_subset{sender = self(), - data = Subset, - subset_pos = Pos, - db_length = DbSize, - list_of_keys = ListOfKeys, - max_elem_size = MaxElemSize, - requested_row = RowData, - required_time_etsread = EtsreadTime, - required_time_dbs = DbsTime - }; - true -> - MasterPid ! #dbs_subset{sender = self(), - data = [], - subset_pos = 1, - db_length = 0, - list_of_keys = ListOfKeys, - max_elem_size = MaxElemSize, - requested_row = RowData, - required_time_etsread = EtsreadTime, - required_time_dbs = DbsTime - } - end. - - - - - -get_requested_row_data(undefined, _DbList) -> - []; -get_requested_row_data(_RowNo, []) -> - []; -get_requested_row_data(RowNo, DbList) -> - case catch lists:nth(RowNo, DbList) of - {'EXIT', _Reason} -> - []; - RowData -> - [RowData] - end. - - - - -exit_signals(ExitInfo, MasterPid) -> - case ExitInfo of - {MasterPid, _Reason} -> - % When from master, just quit! - exit(normal); - _Other -> - done - end. - - - - -update_db(NewList, ListOfKeys, ProcVars) -> - DbData = ProcVars#process_variables.db_data, - #db_data{db = OldDbList, - max_elem_size = MaxElemSize, - deleted = DelList, - ets_type = EtsType, - sorting = Sorting, - rev_sorting = RevSorting, - sort_key_no = SortKeyNo, - key_no = KeyNo} = DbData, - - DbList = update_colors(OldDbList -- DelList), - OldList = dblist2list(DbList), - InsOrUpd = (NewList -- OldList), - DelOrUpd = (OldList -- NewList), - - {Inserted, Deleted, Updated} = group_difflists(basetype(EtsType), KeyNo, - InsOrUpd, - DelOrUpd), - DelMarked = mark_deleted(KeyNo, Deleted, DbList), - Replaced = replace_elements(KeyNo, Updated, DelMarked), - NewDbList = add_elements(KeyNo, Inserted, Replaced, Sorting, RevSorting, - SortKeyNo), - - NewMaxSize = ?COMM_FUNC_FILE:max(MaxElemSize, - ?COMM_FUNC_FILE:max(max_size(Replaced), - max_size(Inserted))), - - NewDbData = DbData#db_data{db = NewDbList, - db_size = length(NewDbList), - max_elem_size = NewMaxSize, - deleted = list2dblist(Deleted, ?BLACK) - }, - - ProcVars#process_variables{db_data = NewDbData, - list_of_keys = ListOfKeys - }. - - - - - - -update_object(Obj, OldObj, OldColor, ObjNo, ProcVars) -> - #process_variables{db_data = DbData, - etsread_pid = EtsreadPid} = ProcVars, - - #db_data{key_no = KeyNo} = DbData, - - %% Don't update if there are no changes! - case OldObj of - Obj when OldColor =/= ?BLACK -> %% Allow deleted objects to be inserted! - gs:window(dbwin, gs:start(), []), - case get(error_msg_mode) of - normal -> - tv_utils:notify(dbwin, "TV Notification", ["The object is unchanged!"]); - haiku -> - tv_utils:notify(dbwin, "TV Notification", - ["Stay the patient course,", - "Of little worth is your ire:", - "The object's unchanged." ]) - end, - gs:destroy(dbwin), - {false, ProcVars}; - _Other -> - %% Before we try to update the internal database, we have to check to see - %% whether the ETS/Mnesia update is allowed! - Result = - case OldColor of - ?BLACK -> - EtsreadPid ! #etsread_new_object{sender = self(), - object = Obj}, - receive - #etsread_new_object_cfm{success = Success} -> - Success - after - 60000 -> - exit(etsread_not_responding) - end; - _OtherColor -> - EtsreadPid ! #etsread_update_object{sender = self(), - key_no = KeyNo, - object = Obj, - old_object = OldObj}, - receive - #etsread_update_object_cfm{success = Success} -> - Success - after - 60000 -> - exit(etsread_not_responding) - end - end, - case Result of - false -> - gs:window(dbwin, gs:start(), [beep]), - case get(error_msg_mode) of - normal -> - tv_utils:notify(dbwin, "TV Notification", - ["Couldn't update table!"]); - haiku -> - tv_utils:notify(dbwin, "TV Notification", - ["Three things are certain:", - "Death, taxes, and lost updates.", - "Guess which has occurred."]) - end, - gs:destroy(dbwin), - {false, ProcVars}; - true -> - {true, update_object2(Obj, OldObj, OldColor, ObjNo, ProcVars)} - end - end. - - - - - -update_object2(Obj, OldObj, OldColor, ObjNo, ProcVars) -> - #process_variables{db_data = DbData} = ProcVars, - - #db_data{db = DbList, - ets_type = EtsType, %% 'bag', 'set', 'ordered_set' or - %% 'duplicate_bag' - max_elem_size = MaxElemSize, - sorting = Sorting, - rev_sorting = RevSorting, - sort_key_no = SortKeyNo, - key_no = KeyNo} = DbData, - - %% Replace the old element... - Key = element(KeyNo, Obj), - OldKey = element(KeyNo, OldObj), - %% If Key == OldKey, the old object shall only be replaced! - %% Otherwise the updated object shall be treated as a new - %% object when inserting it in the list! - %% In that latter case, we also have to check for duplicates! - - Fun = - case basetype(EtsType) of - set -> - case Key of - OldKey -> - fun({Data,Color}, {Replaced,AccDb}) when element(KeyNo,Data) =/= Key -> - {Replaced, [{Data,Color} | AccDb]}; - ({_Data,Color}, {Replaced,AccDb}) when not Replaced, - OldColor =:= ?BLACK, - Color =:= ?BLACK -> - {true, [{Obj,?RED1} | AccDb]}; - ({_Data,Color}, {Replaced,AccDb}) when not Replaced, - OldColor =/= ?BLACK, - Color =/= ?BLACK -> - {true, [{Obj,?GREEN1} | AccDb]}; - ({_Data,_Color}, {Replaced,AccDb}) -> - {Replaced, AccDb} - end; - _NewKey -> - fun({Data,Color}, {Replaced,AccDb}) -> - ElemKey = element(KeyNo,Data), - case ElemKey of - OldKey when not Replaced, - OldColor =:= ?BLACK, - Color =:= ?BLACK -> - {true, [{Obj,?RED1} | AccDb]}; - OldKey when not Replaced, - OldColor =/= ?BLACK, - Color =/= ?BLACK -> - {true, [{Obj,?GREEN1} | AccDb]}; - OldKey -> - {Replaced, AccDb}; - Key -> - {Replaced, AccDb}; - _OtherKey -> - {Replaced, [{Data,Color} | AccDb]} - end - end - end; - - bag -> - case Key of - OldKey -> - fun({Data,_Color}, {Replaced,AccDb}) when Data =:= Obj -> - {Replaced, AccDb}; - ({Data,Color}, {Replaced,AccDb}) when Data =/= OldObj -> - {Replaced, [{Data,Color} | AccDb]}; - %% Clauses when Data =:= OldObj. - ({_Data,Color}, {Replaced,AccDb}) when not Replaced, - OldColor =:= ?BLACK, - Color =:= ?BLACK -> - {true, [{Obj,?RED1} | AccDb]}; - ({_Data,Color}, {Replaced,AccDb}) when not Replaced, - OldColor =/= ?BLACK, - Color =/= ?BLACK -> - {true, [{Obj,Color} | AccDb]}; - ({_Data,_Color}, {Replaced,AccDb}) -> - {Replaced, AccDb} - end; - _NewKey -> - fun({Data,Color}, {Replaced,AccDb}) when Data =:= OldObj, - not Replaced, - OldColor =:= ?BLACK, - Color =:= ?BLACK -> - {true, [{Obj,?RED1} | AccDb]}; - ({Data,Color}, {Replaced,AccDb}) when Data =:= OldObj, - not Replaced, - OldColor =/= ?BLACK, - Color =/= ?BLACK -> - {true, [{Obj,?GREEN1} | AccDb]}; - ({Data,_Color}, {Replaced,AccDb}) when Data =:= OldObj -> - {Replaced, AccDb}; - ({Data,_Color}, {Replaced,AccDb}) when Data =:= Obj -> - {Replaced, AccDb}; - ({Data,Color}, {Replaced,AccDb}) -> - {Replaced, [{Data,Color} | AccDb]} - end - end; - - duplicate_bag -> - %% Multiple identical objects allowed, meaning that we shall not - %% remove anything, just replace one element. - case Key of - OldKey -> - fun({Data,Color}, {Replaced,AccDb}) when Data =:= Obj -> - {Replaced, [{Data,Color} | AccDb]}; - ({Data,Color}, {Replaced,AccDb}) when Data =/= OldObj -> - {Replaced, [{Data,Color} | AccDb]}; - ({_Data,Color}, {Replaced,AccDb}) when not Replaced, - OldColor =:= ?BLACK, - Color =:= ?BLACK -> - {true, [{Obj,?RED1} | AccDb]}; - ({_Data,Color}, {Replaced,AccDb}) when not Replaced, - OldColor =/= ?BLACK, - Color =/= ?BLACK -> - {true, [{Obj,Color} | AccDb]}; - ({Data,Color}, {Replaced,AccDb}) -> - {Replaced, [{Data,Color} | AccDb]} - end; - _NewKey -> - fun({Data,Color}, {Replaced,AccDb}) when Data =:= OldObj, - not Replaced, - OldColor =:= ?BLACK, - Color =:= ?BLACK -> - {true, [{Obj,?RED1} | AccDb]}; - ({Data,Color}, {Replaced,AccDb}) when Data =:= OldObj, - not Replaced, - OldColor =/= ?BLACK, - Color =/= ?BLACK -> - {true, [{Obj,?GREEN1} | AccDb]}; - ({Data,Color}, {Replaced,AccDb}) when Data =:= OldObj -> - {Replaced, [{Data,Color} | AccDb]}; - ({Data,Color}, {Replaced,AccDb}) when Data =:= Obj -> - {Replaced, [{Data,Color} | AccDb]}; - ({Data,Color}, {Replaced,AccDb}) -> - {Replaced, [{Data,Color} | AccDb]} - end - end - end, - - FilterFun = fun(Acc0, L) -> - lists:foldl(Fun, Acc0, L) - end, - - - {Repl, TmpList} = - case split(ObjNo, DbList) of - {L1, [{OldObj,OldColor} | T]} when OldColor =/= ?BLACK -> - {true, - lists:reverse(element(2, FilterFun({true,[]}, L1))) ++ - [{Obj,?GREEN1} | lists:reverse(element(2, FilterFun({true,[]},T)))]}; - {L1, [{OldObj,OldColor} | T]} -> - {true, - lists:reverse(element(2, FilterFun({true,[]}, L1))) ++ - [{Obj,?RED1} | lists:reverse(element(2, FilterFun({true,[]}, T)))]}; - {L1, L2} -> - {R1, NewL1} = FilterFun({false,[]}, L1), - {R2, NewL2} = FilterFun({false,[]}, L2), - {R1 or R2, lists:reverse(NewL1) ++ lists:reverse(NewL2)} - end, - - NewDbList = - case Repl of - true when not Sorting -> - TmpList; - true -> - tv_db_sort:mergesort(SortKeyNo, TmpList, RevSorting); - false -> - TmpList2 = - case Key of - OldKey -> - lists:reverse(element(2, FilterFun({false,[]}, TmpList))); - _OtherKey -> - lists:reverse(element(2, FilterFun({true,[]}, TmpList))) ++ - [{Obj,?RED1}] - end, - case Sorting of - false -> - TmpList2; - true -> - tv_db_sort:mergesort(SortKeyNo, TmpList2, RevSorting) - end - end, - NewMaxSize = ?COMM_FUNC_FILE:max(MaxElemSize, max_size([Obj])), - NewDbData = DbData#db_data{db = NewDbList, - db_size = length(NewDbList), - max_elem_size = NewMaxSize - }, - ProcVars#process_variables{db_data = NewDbData}. - - - - - -delete_object(_Obj, ?BLACK, _ObjNo, ProcVars) -> - %% Don't delete already deleted objects!!! - {false, ProcVars}; -delete_object(undefined, undefined, _ObjNo, ProcVars) -> - {false, ProcVars}; -delete_object(Obj, _ObjColor, ObjNo, ProcVars) -> - #process_variables{db_data = DbData, - etsread_pid = EtsreadPid} = ProcVars, - - #db_data{db = DbList, - deleted = OldDeleted} = DbData, - - %% Before we try to update the internal database, we have to check to see - %% whether the ETS/Mnesia update is allowed! - EtsreadPid ! #etsread_delete_object{sender = self(), - object = Obj}, - Result = - receive - #etsread_delete_object_cfm{success = Success} -> - Success - after - 60000 -> - exit(etsread_not_responding) - end, - - case Result of - false -> - gs:window(dbwin, gs:start(), [beep]), - case get(error_msg_mode) of - normal -> - tv_utils:notify(dbwin, "TV Notification", - ["Couldn't update table!"]); - haiku -> - tv_utils:notify(dbwin, "TV Notification", - ["Three things are certain:", - "Death, taxes, and lost updates.", - "Guess which has occurred."]) - end, - gs:destroy(dbwin), - {false, ProcVars}; - true -> - %% Replace the old element... - %% Have to beware of duplicate_bag tables, - %% i.e., the same object may occur more than - %% once, but we only want to remove it once! - {Repl, TmpList} = - case split(ObjNo, DbList) of - {L1, [{Obj,_Color} | T]} -> - {true, L1 ++ [{Obj,?BLACK} | T]}; - {L1, L2} -> - {false, L1 ++ L2} - end, - NewDbList = - case Repl of - true -> - TmpList; - false -> - Fun = fun({Data,TmpColor}, - {Removed,AccDb}) when Data =/= Obj -> - {Removed, [{Data,TmpColor} | AccDb]}; - ({_Data,TmpColor}, - {Removed,AccDb}) when not Removed, TmpColor =/= ?BLACK -> - {true, [{Obj,?BLACK} | AccDb]}; - ({Data,TmpColor}, - {Removed,AccDb}) -> - {Removed, [{Data,TmpColor} | AccDb]} - end, - lists:reverse(element(2, lists:foldl(Fun, {false,[]}, DbList))) - end, - NewDbData = DbData#db_data{db = NewDbList, - db_size = length(NewDbList), - deleted = [{Obj,?BLACK} | OldDeleted]}, - {true, ProcVars#process_variables{db_data = NewDbData}} - end. - - - - - -new_object(Obj, ProcVars) -> - #process_variables{db_data = DbData, - etsread_pid = EtsreadPid} = ProcVars, - - #db_data{db = DbList, - max_elem_size = MaxElemSize, - ets_type = EtsType, %% 'bag', 'set' or 'duplicate_bag' - sorting = Sorting, - rev_sorting = RevSorting, - sort_key_no = SortKeyNo, - key_no = KeyNo} = DbData, - - %% Before we try to update the internal database, we have to check to see - %% whether the ETS/Mnesia update is allowed! - EtsreadPid ! #etsread_new_object{sender = self(), - object = Obj}, - Result = - receive - #etsread_new_object_cfm{success = Success} -> - Success - after - 60000 -> - exit(etsread_not_responding) - end, - - case Result of - false -> - gs:window(dbwin, gs:start(), [beep]), - case get(error_msg_mode) of - normal -> - tv_utils:notify(dbwin, "TV Notification", - ["Couldn't update table!"]); - haiku -> - tv_utils:notify(dbwin, "TV Notification", - ["Three things are certain:", - "Death, taxes, and lost updates.", - "Guess which has occurred."]) - end, - gs:destroy(dbwin), - {false, ProcVars}; - true -> - Key = element(KeyNo, Obj), - NewDbList = insert_new_object(EtsType, Key, KeyNo, Obj, DbList, Sorting, - RevSorting, SortKeyNo), - NewMaxSize = ?COMM_FUNC_FILE:max(MaxElemSize, max_size([Obj])), - NewDbData = DbData#db_data{db = NewDbList, - db_size = length(NewDbList), - max_elem_size = NewMaxSize - }, - {true, ProcVars#process_variables{db_data = NewDbData}} - end. - - - - - -insert_new_object(EtsType,Key,KeyNo,Obj,DbList,Sorting,RevSorting,SortKeyNo) -> - %% Remove elements from the list that ought not to be there, - %% according to the table type! - - Fun = - case basetype(EtsType) of - set -> - fun({Data,Color}, {Replaced,AccDb}) when element(KeyNo,Data) =/= Key -> - {Replaced, [{Data,Color} | AccDb]}; - ({Data,Color}, {Replaced,AccDb}) when not Replaced, - Color =/= ?BLACK, - Data =/= Obj-> - {true, [{Obj,?GREEN1} | AccDb]}; - ({_Data,Color}, {Replaced,AccDb}) when not Replaced, - Color =/= ?BLACK -> - {true, [{Obj,Color} | AccDb]}; - ({_Data,Color}, {Replaced,AccDb}) when not Replaced, - Color =:= ?BLACK -> - {true, [{Obj, ?RED1} | AccDb]}; - ({_Data,Color}, {Replaced,AccDb}) when Replaced, - Color =:= ?BLACK -> - {false, AccDb}; - ({_Data,_Color}, {Replaced,AccDb}) -> - {Replaced, AccDb} - end; - bag -> - fun({Data,Color}, {Replaced,AccDb}) when Data =/= Obj -> - {Replaced, [{Data,Color} | AccDb]}; - ({_Data,Color}, {Replaced,AccDb}) when not Replaced, - Color =/= ?BLACK -> - {true, [{Obj,Color} | AccDb]}; - ({_Data,Color}, {Replaced,AccDb}) when Replaced, - Color =/= ?BLACK -> - {true, AccDb}; - ({_Data,Color}, {Replaced,AccDb}) when Replaced, - Color =:= ?BLACK -> - {true, AccDb}; - ({_Data,Color}, {Replaced,AccDb}) when not Replaced, - Color =:= ?BLACK -> - {true, [{Obj, ?RED1} | AccDb]}; - ({_Data,_Color}, {Replaced,AccDb}) -> - {Replaced, AccDb} - end; - duplicate_bag -> - %% The fun is never called if the type is duplicate_bag, - %% because all we have to do with new elements is to insert - %% them (multiple identical objects allowed). - not_used - end, - - FilterFun = fun(Acc0, L) -> - lists:foldl(Fun, Acc0, L) - end, - - {_Replaced, TmpDbList} = - case EtsType of - duplicate_bag -> - {false, DbList}; - _OtherType -> - {R,L} = FilterFun({false,[]}, DbList), - {R, lists:reverse(L)} - end, - - case Sorting of - false -> - TmpDbList ++ [{Obj,?RED1}]; - true -> - %% The original list is already sorted! - %% Just merge the two lists together! - tv_db_sort:merge(SortKeyNo, TmpDbList, [{Obj,?RED1}], RevSorting) - end. - - - - - - -max_size([]) -> - 0; -max_size(L) -> - max_size(L, 0). - - - -max_size([], CurrMax) -> - CurrMax; -max_size([H | T], CurrMax) when is_tuple(H) -> - Size = size(H), - if - Size >= CurrMax -> - max_size(T, Size); - true -> - max_size(T, CurrMax) - end; -max_size([_H | T], CurrMax) -> - Size = 1, - if - Size >= CurrMax -> - max_size(T, Size); - true -> - max_size(T, CurrMax) - end. - - - - - -add_elements(_KeyNo, Inserted, List, false, _RevSorting, _SortKeyNo) -> - % Remember that the order of the original list has to be preserved! - List ++ list2dblist(Inserted, ?RED1); -add_elements(_KeyNo, Inserted, List, _Sorting, RevSorting, SortKeyNo) -> - % The original list is already sorted - sort the new elements, and - % just merge the two lists together! - SortedInsertedList = tv_db_sort:mergesort(SortKeyNo, - list2dblist(Inserted, ?RED1), - RevSorting), - tv_db_sort:merge(SortKeyNo, List, SortedInsertedList, RevSorting). - - - - - - %% We assume the list already has been sorted, i.e., since the order won't - %% be changed by marking an element deleted, we DON'T have to sort the list - %% once again! - -mark_deleted(_KeyNo, [], List) -> - List; -mark_deleted(KeyNo, [Data | T], List) -> - KeyValue = tv_db_sort:get_compare_value(KeyNo, Data), - NewList = mark_one_element_deleted(KeyNo, KeyValue, Data, List, []), - mark_deleted(KeyNo, T, NewList). - - - - - - - - -mark_one_element_deleted(_KeyNo, _KeyValue, _Data, [], Acc) -> - Acc; -mark_one_element_deleted(KeyNo, {tuple, KeyValue}, - Data, [{DataTuple, Color} | Tail], Acc) -> - OldKeyValue = tv_db_sort:get_compare_value(KeyNo, DataTuple), - % Remember that the order of the original list has to be preserved! - if - OldKeyValue =:= {tuple, KeyValue} -> - Acc ++ [{Data, ?BLACK}] ++ Tail; - true -> - mark_one_element_deleted(KeyNo, {tuple, KeyValue}, Data, Tail, - Acc ++ [{DataTuple, Color}]) - end; -mark_one_element_deleted(KeyNo, _KeyValue, Data, [{DataTuple, Color} | Tail], Acc) -> - if - Data =:= DataTuple -> - Acc ++ [{Data, ?BLACK}] ++ Tail; - true -> - mark_one_element_deleted(KeyNo, _KeyValue, Data, Tail, - Acc ++ [{DataTuple, Color}]) - end. - - - - - - - - %% We assume the list already has been sorted, i.e., since the order won't - %% be changed by marking an element updated, we DON'T have to sort the list - %% once again! - -replace_elements(_KeyNo, [], List) -> - List; -replace_elements(KeyNo, [Data | T], List) -> - KeyValue = tv_db_sort:get_compare_value(KeyNo, Data), - NewList = replace_one_element(KeyNo, KeyValue, Data, List, []), - replace_elements(KeyNo, T, NewList). - - - - - - - -replace_one_element(_KeyNo, _Key, _Data, [], Acc) -> - Acc; -replace_one_element(KeyNo, {tuple, Key1}, Data, [{DataTuple, Color} | Tail], Acc) -> - Key2 = tv_db_sort:get_compare_value(KeyNo, DataTuple), - % Remember that the order of the original list has to be preserved! - if - Key2 =:= {tuple, Key1} -> - Acc ++ [{Data, ?GREEN1}] ++ Tail; - true -> - replace_one_element(KeyNo, {tuple, Key1}, Data, Tail, - Acc ++ [{DataTuple, Color}]) - end; -replace_one_element(_KeyNo, _KeyValue, _Data, [{DataTuple, Color} | Tail], Acc) -> - % Can't replace an element with no key! - Acc ++ [{DataTuple, Color} | Tail]. - - - - - - - - -group_difflists(bag, _KeyNo, Inserted, Deleted) -> - %% Since the ETS table is of bag type, no element can be updated, i.e., - %% it can only be deleted and re-inserted, otherwise a new element will be added. - {Inserted, Deleted, []}; -group_difflists(duplicate_bag, _KeyNo, Inserted, Deleted) -> - %% Since the ETS table is of duplicate_bag type, no element can be updated, i.e., - %% it can only be deleted and re-inserted, otherwise a new element will be added. - {Inserted, Deleted, []}; -group_difflists(set, _KeyNo, [], Deleted) -> - %% Updated elements have to be present in both lists, i.e., if one list is empty, - %% the other contains no updated elements - they are either inserted or deleted! - {[], Deleted, []}; -group_difflists(set, _KeyNo, Inserted, []) -> - {Inserted, [], []}; -group_difflists(set, KeyNo, InsOrUpd, DelOrUpd) -> - match_difflists(KeyNo, InsOrUpd, DelOrUpd, [], []). - - - - - - -match_difflists(_KeyNo, [], Deleted, Inserted, Updated) -> - {Inserted, Deleted, Updated}; -match_difflists(KeyNo, [Data | T], DelOrUpd, InsAcc, UpdAcc) -> - % This function is only called in case of a 'set' ETS table. - % 'Set' type of ETS table means there are unique keys. If two elements in - % InsOrUpd and DelOrUpd have the same key, that element has been updated, - % and is added to the Updated list, and removed from the original two lists. - % After the two lists have been traversed in this way, the remaining elements - % in DelOrUpd forms the new Deleted list (analogous for InsOrUpd). - % If we want to improve the performance, we could check which list is the - % shortest, since the traversing time depends on this. - Key = element(KeyNo, Data), - case searchdelete(Key, KeyNo, DelOrUpd) of - {true, NewDelOrUpd} -> - match_difflists(KeyNo, T, NewDelOrUpd, InsAcc, [Data | UpdAcc]); - {false, SameDelOrUpd} -> - match_difflists(KeyNo, T, SameDelOrUpd, [Data | InsAcc], UpdAcc) - end. - - - - -searchdelete(_Key, _ElemNo, []) -> - {false, []}; -searchdelete(Key, ElemNo, List) -> - searchdelete(Key, ElemNo, List, []). - - - - - -searchdelete(_Key, _ElemNo, [], Acc) -> - {false, Acc}; -searchdelete(Key, ElemNo, [Tuple | Tail], Acc) -> - % We don't use standard libraries, 'cause we want to make an 'atomic' - % operation, i.e., we will not search the list two times... - case (element(ElemNo, Tuple) =:= Key) of - true -> - {true, Acc ++ Tail}; % Return the list without the matching element - _Other -> - searchdelete(Key, ElemNo, Tail, [Tuple | Acc]) - end. - - - - - - - -dblist2list([]) -> - []; -dblist2list([{Data, _Color} | T]) -> - [Data | dblist2list(T)]. - - - - - - - -list2dblist([], _Color) -> - []; -list2dblist([Data | T], Color) -> - [{Data, Color} | list2dblist(T, Color)]. - - - - - - - - -update_colors([]) -> - []; -update_colors([{Data, Color} | T]) -> - [{Data, new_color(Color)} | update_colors(T)]. - - - - - - - - -new_color(?GREEN1) -> - ?GREEN2; -new_color(?GREEN2) -> - ?GREEN3; -new_color(?GREEN3) -> - ?GREEN4; -new_color(?GREEN4) -> - ?GREEN5; -new_color(?GREEN5) -> - ?DEFAULT_BTN_COLOR; -new_color(?RED1) -> - ?RED2; -new_color(?RED2) -> - ?RED3; -new_color(?RED3) -> - ?RED4; -new_color(?RED4) -> - ?RED5; -new_color(?RED5) -> - ?DEFAULT_BTN_COLOR; -new_color(_Other) -> - ?DEFAULT_BTN_COLOR. % Default shall be gray. - - - - - - - - -compute_elapsed_seconds({H1, M1, S1}, {H2, M2, S2}) -> - ElapsedHours = get_time_diff(hours, H1, H2), - ElapsedMinutes = get_time_diff(minutes, M1, M2), - ElapsedSeconds = get_time_diff(seconds, S1, S2), - (ElapsedHours * 3600) + (ElapsedMinutes * 60) + ElapsedSeconds + 1. - - - - - - - -get_time_diff(_Type, T1, T2) when T1 =< T2 -> - T2 - T1; -get_time_diff(hours, T1, T2) -> - T2 + 24 - T1; -get_time_diff(minutes, T1, T2) -> - T2 + 60 - T1; -get_time_diff(seconds, T1, T2) -> - T2 + 60 - T1. - - - - -split(_N, []) -> - {[], []}; -split(0, List) -> - {[], List}; -split(N, List) -> - split2(0, N - 1, [], List). - - - -split2(Ctr, N, Acc, [H | T]) when Ctr < N -> - split2(Ctr + 1, N, [H | Acc], T); -split2(_Ctr, _N, Acc, []) -> - {lists:reverse(Acc), []}; -split2(_Ctr, _N, Acc, List) -> - {lists:reverse(Acc), List}. - -basetype(ordered_set) -> - set; -basetype(Any) -> - Any. diff --git a/lib/tv/src/tv_db_int_def.hrl b/lib/tv/src/tv_db_int_def.hrl deleted file mode 100644 index d2cb8adee5..0000000000 --- a/lib/tv/src/tv_db_int_def.hrl +++ /dev/null @@ -1,80 +0,0 @@ -%% -%% %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: Internal definitions for the database part of the table -%%% tool. -%%% -%%%********************************************************************* - --define(WHITE, {255, 255, 255}). --define(MEDIUM_GRAY, {170, 170, 170}). - - --define(LIGHT_GREEN, { 0, 255, 0}). --define(GREEN, { 50, 215, 50}). --define(DARK_GREEN, { 50, 170, 50}). --define(FOREST_GREEN, { 34, 139, 34}). --define(DARK_FOREST_GREEN, { 15, 100, 15}). - - - --define(RED, {255, 0, 0}). --define(PINK, {255, 130, 170}). --define(LIGHT_VIOLET, {220, 150, 225}). --define(VIOLET, {160, 70, 180}). --define(DARK_VIOLET, {100, 10, 130}). - - - - - - --record(db_data, {db = [], % List containing all elements - db_size = 0, % Number of elements in 'db' - max_elem_size = 0, % Size of largest element in db. - hidden = [], % Elements (i.e., keys) not to be shown - deleted = [], % Elements just deleted - subset_size, % Size of the subset to be extracted and - % shown - subset_pos, % Position in list where subset starts - sorting = false, % Tells whether sorting is used ('true' - % or 'false') - requested_row = 0, - rev_sorting = false, % Tells whether the sorting (if any) is - % in reversed order or not ('true' or - % 'false') - sort_key_no, % Element in each tuple to use as sorting - % element - key_no, % Element in each tuple to use as key - % (this element is used when updating the - % dblist, i.e., inserting, deleting a.s.o) - ets_type % 'bag' or 'set' - }). - - --record(process_variables, {master_pid, - etsread_pid, - db_data = #db_data{}, - list_of_keys = [], - lists_as_strings = true - }). - - - - diff --git a/lib/tv/src/tv_db_search.erl b/lib/tv/src/tv_db_search.erl deleted file mode 100644 index edfa57df04..0000000000 --- a/lib/tv/src/tv_db_search.erl +++ /dev/null @@ -1,475 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 1998-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: Code for the search window. -%%% -%%%********************************************************************* --module(tv_db_search). --compile([{nowarn_deprecated_function,{gs,button,3}}, - {nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,destroy,1}}, - {nowarn_deprecated_function,{gs,entry,3}}, - {nowarn_deprecated_function,{gs,frame,2}}, - {nowarn_deprecated_function,{gs,label,2}}, - {nowarn_deprecated_function,{gs,label,3}}, - {nowarn_deprecated_function,{gs,listbox,3}}, - {nowarn_deprecated_function,{gs,radiobutton,3}}, - {nowarn_deprecated_function,{gs,read,2}}, - {nowarn_deprecated_function,{gs,start,0}}, - {nowarn_deprecated_function,{gs,window,3}}]). - - - --export([create_window/1, - resize_window/1, - reset_window/1, - destroy_window/1, - mark_busy/1, - mark_nonbusy/1, - get_input_and_search/3, - update_search/4, - string_to_term/1 - ]). - - - - --include("tv_int_def.hrl"). --include("tv_int_msg.hrl"). --include("tv_db_int_def.hrl"). - - - - --define(WIN_WIDTH, 445). --define(SMALL_WIN_HEIGHT, 117). --define(BIG_WIN_HEIGHT, 335). --define(FRAME_WIDTH, 429). % 334 --define(OLD_FRAME_WIDTH, 334). --define(FRAME_HEIGHT, 105). --define(FRAME_XPOS, (10-2)). --define(FRAME_YPOS, 10). --define(ENTRY_XPOS, 9). --define(ENTRY_YPOS, 31). --define(ENTRY_WIDTH, (?OLD_FRAME_WIDTH-10-2*?ENTRY_XPOS-5)). --define(LISTBOX_WIDTH, ?WIN_WIDTH-2*?FRAME_XPOS+1). --define(LISTBOX_HEIGHT, 162). --define(LISTBOX_XPOS, ?FRAME_XPOS-2). --define(LISTBOX_YPOS, ?SMALL_WIN_HEIGHT+8). --define(BTN_WIDTH, 80). --define(BTN_HEIGHT, 30). --define(BTN_XPOS, ?OLD_FRAME_WIDTH-6). --define(BG_COLOUR, {217,217,217}). - - - - - - -create_window(true) -> - gs:config(win, [raise]); -create_window(false) -> - gs:window(win, gs:start(), [{width,?WIN_WIDTH}, - {height,?SMALL_WIN_HEIGHT}, - {data,small}, - {bg,?BG_COLOUR}, - {title,"[TV] Search Object"}, - {destroy,true}, - {configure,true}, - {cursor,arrow} - ]), - - F = gs:frame(win, [{width,?FRAME_WIDTH}, - {height,?FRAME_HEIGHT}, - {x,?FRAME_XPOS}, - {y,?FRAME_YPOS}, - {bw,2}, - {bg,?BG_COLOUR} - ]), - - gs:label(F, [{width,80}, - {height,25}, - {x,?ENTRY_XPOS+2}, - {y,8}, - {align,w}, - {bg,?BG_COLOUR}, - {fg, {0,0,0}}, - {label, {text,"Search for:"}} - ]), - - gs:entry(entry, F, [{width,?ENTRY_WIDTH}, - {height,30}, - {x,?ENTRY_XPOS}, - {y,?ENTRY_YPOS}, - {insert, {0,"<Search expression>"}}, - {bg, {255,255,255}}, - {fg, {0,0,0}}, - {cursor,text}, - {justify,left}, - {keypress,true}, - {setfocus,true} - ]), - - Group = list_to_atom("expr" ++ pid_to_list(self())), - RadioWidth = round(?ENTRY_WIDTH / 2), - gs:radiobutton(expr_term, F, [{width,RadioWidth - 45}, - {height,25}, - {x,?ENTRY_XPOS}, - {y,?ENTRY_YPOS+40}, - {group,Group}, - {align, c}, - {label,{text,"as term"}}, - {select,true} - ]), - gs:radiobutton(expr_regexp, F, [{width,RadioWidth + 45}, - {height,25}, - {x,?ENTRY_XPOS+RadioWidth-20-26}, - {y,?ENTRY_YPOS+40}, - {group,Group}, - {align,c}, - {label,{text,"as regular expression"}} - ]), - - gs:button(search, F, [{width,?BTN_WIDTH}, - {height,?BTN_HEIGHT}, - {x,?BTN_XPOS}, - {y,11}, - {label, {text,"Search"}}, - {bg,?BG_COLOUR}, - {fg, {0,0,0}} - ]), - gs:button(cancel, F, [{width,?BTN_WIDTH}, - {height,?BTN_HEIGHT}, - {x,?BTN_XPOS}, - {y,?BTN_HEIGHT+11+10}, - {label, {text,"Cancel"}}, - {data,cancel}, - {bg,?BG_COLOUR}, - {fg, {0,0,0}} - ]), - expand_window(), - gs:config(entry, [{select, {0,1000}}]), - gs:config(win, [{map,true}]). - - - - -resize_window(false) -> - done; -resize_window(true) -> - gs:config(win, [{width,?WIN_WIDTH}, - {height,?BIG_WIN_HEIGHT} - ]). - - - - -reset_window(false) -> - done; -reset_window(true) -> - gs:config(listbox, [clear]), - gs:config(objects_found, [{label, {text,""}}]). - - - - -destroy_window(false) -> - done; -destroy_window(true) -> - gs:destroy(win). - - - -mark_busy(false) -> - done; -mark_busy(true) -> - gs:config(win, [{cursor,busy}]), - gs:config(entry, [{cursor,busy}]). - - - - -mark_nonbusy(false) -> - done; -mark_nonbusy(true) -> - gs:config(win, [{cursor,arrow}]), - gs:config(entry, [{cursor,text}]). - - - - -get_input_and_search(DbList, IsRegExp, ListAsStr) -> - get_input_and_search(DbList, IsRegExp, true, ListAsStr). - - - - -get_input_and_search(DbList, IsRegExp, Notify, ListAsStr) -> - Str = get_entry_text(), - StrConvRes = case IsRegExp of - true -> - string_to_regexp(Str); - false -> - string_to_term(Str) - end, - - case StrConvRes of - {ok, TermOrRE} -> - search(IsRegExp, TermOrRE, DbList, ListAsStr); - {error, {_Reason, Msg}} when Notify -> - gs:config(win, [beep]), - tv_utils:notify(win, "TV Notification", Msg); - {error, {_Reason, _Msg}} -> - done - end. - - - -update_search(false, _DbList, _IsRegExp, _ListAsStr) -> - done; -update_search(true, DbList, true, ListAsStr) -> - get_input_and_search(DbList, false, false, ListAsStr); -update_search(true, DbList, false, ListAsStr) -> - get_input_and_search(DbList, true, false, ListAsStr). - - - -get_entry_text() -> - gs:read(entry,text). - - - -string_to_regexp(Str) -> - case re:compile(Str) of - {ok, RegExp} -> - {ok, RegExp}; - {error, _Error} -> - case get(error_msg_mode) of - normal -> - {error, {not_a_regexp, "Please enter a regular expression!"}}; - haiku -> - {error, {not_a_regexp, ["Being incorrect", - "The regular expression", - "Must now be retyped."]}} - end - end. - - - -string_to_term(Str) -> - case catch erl_scan:string(Str ++ ". ") of - {ok, ScannedStr, _No} -> - case erl_parse:parse_term(ScannedStr) of - {ok, Term} -> - {ok, Term}; - _Other -> - %% May be a PID, have to check this, since erl_scan - %% currently cannot handle this case... :-( - case catch list_to_pid(Str) of - Pid when is_pid(Pid) -> - {ok, Pid}; - _Error -> - case get(error_msg_mode) of - normal -> - {error, {not_a_term, "Please enter a valid term!"}}; - haiku -> - {error, {not_a_term, ["Aborted effort.", - "Reflect, repent and retype:", - "Enter valid term."]}} - end - end - end; - _Error -> - case get(error_msg_mode) of - normal -> - {error, {not_a_term, "Please enter a valid term!"}}; - haiku -> - {error, {not_a_term, ["Aborted effort.", - "Reflect, repent and retype:", - "Enter valid term."]}} - end - end. - - - -search(IsRegExp, SearchValue, DbList, ListAsStr) -> - gs:config(cancel, [{label, {text,"Stop"}}]), - mark_busy(true), - reset_window(true), - SearchRes = traverse(SearchValue, DbList, 1, length(DbList), [], IsRegExp, ListAsStr), - gs:config(cancel, [{label, {text,"Cancel"}}]), - mark_nonbusy(true), - SearchRes. - - - - - -expand_window() -> - gs:listbox(listbox, win, [{width,?LISTBOX_WIDTH}, - {height,?LISTBOX_HEIGHT}, - {x,?LISTBOX_XPOS}, - {y,?LISTBOX_YPOS}, - {bg, {255,255,255}}, - {fg, {0,0,0}}, - {scrollbg,?BG_COLOUR}, - {scrollfg,?BG_COLOUR}, - {hscroll,bottom}, - {vscroll,right}, - {click,true}, - {doubleclick,false}, - {selectmode,single} - ]), - gs:label(objects_found, win, [{width,?LISTBOX_WIDTH}, - {height,25}, - {x,?LISTBOX_XPOS}, - {y,?LISTBOX_YPOS+?LISTBOX_HEIGHT+13}, - {align,w}, - {bg,?BG_COLOUR}, - {fg, {0,0,0}} - ]), - gs:config(win, [{width,?WIN_WIDTH}, - {height,?BIG_WIN_HEIGHT} - ]). - - - - - - - -traverse(Pattern, [Object | T], Row, Length, Acc, IsRegExp, ListAsStr) -> - SearchRes = - case IsRegExp of - true -> - search_for_regexp(Pattern, Object, ListAsStr); - false -> - compare_terms(Pattern, Object) - end, - - NewAcc - = case SearchRes of - found -> - RowStr = integer_to_list(Row), - LengthStr = integer_to_list(Length), - ObjectStr = case ListAsStr of - true -> - lists:flatten(tv_io_lib:format("~p", [Object])); - false -> - lists:flatten(tv_io_lib:write(Object)) - end, - - gs:config(listbox, - [{add, - " Row " ++ RowStr ++ ":" ++ - lists:duplicate(length(LengthStr)-length(RowStr), " ") ++ - " " ++ ObjectStr} - ]), - gs:config(objects_found, - [{label, - {text,integer_to_list(length(Acc)+1) ++ - " object(s) found"}} - ]), - [{Row,Object} | Acc]; - not_found -> - Acc - end, - receive - {gs,cancel,click,_Data,_Args} -> - gs:config(objects_found, - [{label, - {text,integer_to_list(gs:read(listbox,size)) ++ - " object(s) found"}} - ]), - lists:reverse(NewAcc) - after - 0 -> - traverse(Pattern, T, Row+1, Length, NewAcc, IsRegExp, ListAsStr) - end; -traverse(_Pattern, [], _N, _Length, Acc, _IsRegExp, _ListAsStr) -> - gs:config(objects_found, - [{label, - {text,integer_to_list(gs:read(listbox,size)) ++ - " object(s) found"}} - ]), - lists:reverse(Acc). - - - - -search_for_regexp(Pattern, Elem, ListAsStr) -> - ListToSearch = - case ListAsStr of - true -> - lists:flatten(tv_io_lib:format("~p", [Elem])); - false -> - lists:flatten(tv_io_lib:write(Elem)) - end, - - case re:run(ListToSearch, Pattern, [{capture,none}]) of - match -> - found; - nomatch -> - not_found - end. - - - - - -compare_terms(Term, Elem) when not is_tuple(Elem), not is_list(Elem), Term =/= Elem -> - not_found; -compare_terms(Term, Term) -> - %% Even the case Term = "{}" or "[]"!!! - found; -compare_terms(Term, Elem) when is_list(Elem) -> - traverse_list(Term, Elem); -compare_terms(Term, Elem) when is_tuple(Elem) -> - traverse_tuple(Term, Elem, 1, size(Elem)). - - - - - -traverse_tuple(Pattern, Tuple, N, Stop) when N =< Stop -> - Elem = element(N,Tuple), - case compare_terms(Pattern, Elem) of - found -> - found; - not_found -> - traverse_tuple(Pattern, Tuple, N+1, Stop) - end; -traverse_tuple(_Pattern, _Tuple, N, Stop) when N > Stop -> - not_found. - - - - - - -traverse_list(Pattern, [H | T]) -> - case compare_terms(Pattern, H) of - found -> - found; - not_found -> - traverse_list(Pattern, T) - end; -traverse_list(_Pattern, []) -> - not_found. - diff --git a/lib/tv/src/tv_db_sort.erl b/lib/tv/src/tv_db_sort.erl deleted file mode 100644 index 3675c7b413..0000000000 --- a/lib/tv/src/tv_db_sort.erl +++ /dev/null @@ -1,141 +0,0 @@ -%% -%% %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% --module(tv_db_sort). - - - --export([mergesort/3, merge/4, get_compare_value/2]). - - - - - -%%%********************************************************************* -%%% EXTERNAL FUNCTIONS -%%%********************************************************************* - - - - - -mergesort(_KeyNo, [X], _ReverseOrder) -> - [X]; -mergesort(_KeyNo, [], _ReverseOrder) -> - []; -mergesort(KeyNo, X, ReverseOrder) -> - split(KeyNo, X, [], [], ReverseOrder). - - - - - - - - - %% If we want reverse order when just merging two lists, - %% each of them has to be in reverse order first! - -merge(KeyNo, [{E1, C1} | T1], [{E2, C2} | T2], Reverse) when not Reverse -> - K1 = get_compare_value(KeyNo, E1), - K2 = get_compare_value(KeyNo, E2), - case get_correct_order(K1, E1, K2, E2) of - {1, 2} -> - [{E1, C1} | merge(KeyNo, T1, [{E2, C2} | T2], Reverse)]; - {2, 1} -> - [{E2, C2} | merge(KeyNo, [{E1, C1} | T1], T2, Reverse)] - end; -merge(KeyNo, [{E1, C1} | T1], [{E2, C2} | T2], Reverse) -> - K1 = get_compare_value(KeyNo, E1), - K2 = get_compare_value(KeyNo, E2), - case get_correct_order(K1, E1, K2, E2) of - {1, 2} -> - [{E2, C2} | merge(KeyNo, [{E1, C1} | T1], T2, Reverse)]; - {2, 1} -> - [{E1, C1} | merge(KeyNo, T1, [{E2, C2} | T2], Reverse)] - end; -merge(_KeyNo, [], L2, _Reverse) -> % L2 may be the empty list also! - L2; -merge(_KeyNo, L1, [], _Reverse) -> % L1 may be the empty list also! - L1. - - - - - - -get_compare_value(KeyNo, E) when is_tuple(E) -> - case catch element(KeyNo, E) of - {'EXIT', {badarg, {?MODULE, get_compare_value, [KeyNo, E]}}} -> - short_tuple; - V -> - {tuple, V} - end; -get_compare_value(_KeyNo, _E) -> - no_tuple. - - - - - - - - - - -%%%******************************************************************** -%%% INTERNAL FUNCTIONS -%%%******************************************************************** - - - - -split(KeyNo, [A,B|T], X, Y, Reverse) -> - split(KeyNo, T, [A|X], [B|Y], Reverse); -split(KeyNo, [H], X, Y, Reverse) -> - split(KeyNo, [], [H|X], Y, Reverse); -split(KeyNo, [], X, Y, Reverse) -> - merge(KeyNo, - mergesort(KeyNo, X, Reverse), - mergesort(KeyNo, Y, Reverse), - Reverse). - - - - - - -get_correct_order({tuple, V1}, _E1, {tuple, V2}, _E2) when V1 < V2 -> - {1, 2}; -get_correct_order({tuple, _V1}, _E1, {tuple, _V2}, _E2) -> - {2, 1}; -get_correct_order(short_tuple, _E1, {tuple, _V2}, _E2) -> - {1, 2}; -get_correct_order({tuple, _V1}, _E1, short_tuple, _E2) -> - {2, 1}; -get_correct_order(short_tuple, E1, short_tuple, E2) when E1 < E2 -> - {1, 2}; -get_correct_order(short_tuple, _E1, short_tuple, _E2) -> - {2, 1}; -get_correct_order(no_tuple, E1, no_tuple, E2) when E1 < E2 -> - {1, 2}; -get_correct_order(no_tuple, _E1, no_tuple, _E2) -> - {2, 1}; -get_correct_order(_Anything, _E1, no_tuple, _E2) -> % Tuples first, then other - {1, 2}; % terms in correct order! -get_correct_order(no_tuple, _E1, _Anything, _E2) -> - {2, 1}. diff --git a/lib/tv/src/tv_ets_rpc.erl b/lib/tv/src/tv_ets_rpc.erl deleted file mode 100644 index ec2fde30ac..0000000000 --- a/lib/tv/src/tv_ets_rpc.erl +++ /dev/null @@ -1,140 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 1998-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% --module(tv_ets_rpc). - - - --export([all/2, - info/4, - new/4, - tab2list/3, - insert/4, - lookup/4, - delete/4 - ]). - - - - -all(_Node, true) -> - chk(catch ets:all()); -all(Node, false) -> - chk(catch rpc:block_call(Node, ets, all, [])). - - - - -info(_Node, true, TabId, What) -> - chk(catch ets:info(TabId, What)); -info(Node, false, TabId, What) -> - chk(catch rpc:block_call(Node, ets, info, [TabId, What])). - - - - -new(_Node, true, TabName, Options) -> - case catch ets:new(TabName, Options) of - {TabName, Pid} when is_pid(Pid) -> - {TabName,Pid}; - {TabNo, Pid} when is_pid(Pid) -> - {TabNo,Pid}; - OtherResult -> - chk(OtherResult) - end; -new(Node, false, TabName, Options) -> - case catch rpc:block_call(Node, ets, new, [TabName, Options]) of - {TabName, Pid} when is_pid(Pid) -> - {TabName,Pid}; - {TabNo, Pid} when is_pid(Pid) -> - {TabNo, Pid}; - OtherResult -> - chk(OtherResult) - end. - - - - -tab2list(_Node, true, TabId) -> - chk(catch ets:tab2list(TabId)); -tab2list(Node, false, TabId) -> - chk(catch rpc:call(Node, ets, tab2list, [TabId])). - - - - -insert(_Node, true, TabId, Object) -> - chk(catch ets:insert(TabId, Object)); -insert(Node, false, TabId, Object) -> - chk(catch rpc:call(Node, ets, insert, [TabId, Object])). - - - - -lookup(_Node, true, TabId, Key) -> - chk(catch ets:lookup(TabId, Key)); -lookup(Node, false, TabId, Key) -> - chk(catch rpc:call(Node, ets, lookup, [TabId, Key])). - - - - -delete(_Node, true, TabId, Key) -> - chk(catch ets:delete(TabId, Key)); -delete(Node, false, TabId, Key) -> - chk(catch rpc:call(Node, ets, delete, [TabId, Key])). - - - - -chk(Result) -> - case Result of - undefined -> - throw(no_table); - _Anything when is_list(Result) -> - Result; - _Anything when is_atom(Result) -> - Result; - _Anything when is_integer(Result) -> - Result; - _Anything when is_pid(Result) -> - Result; - - %% Messages received when node is down. - {badrpc, nodedown} -> - throw(nodedown); - {'EXIT', nodedown} -> - throw(nodedown); - {'EXIT', {{badarg, {gen, set_monitor_node, _Args}}, _Reason}} -> - throw(nodedown); - - %% Messages received when table doesn't exist. - {'EXIT', {badarg, {ets,local_info,_Args}}} -> - %% Due to inconsistencies in R2D and earlier versions: - %% ets:info/1 returned 'undefined' when table didn't - %% exist, while ets:info/2 returned the exit-signal - %% above. This was corrected in R3A - now both functions - %% return 'undefined' :-) - throw(no_table); - {badrpc, {'EXIT', {badarg,_Reason}}} -> - throw(no_table); - {'EXIT', {badarg,_Reason}} -> - throw(no_table); - Error when is_tuple(Error) -> - throw({unexpected_error,Error}) - end. - diff --git a/lib/tv/src/tv_etsread.erl b/lib/tv/src/tv_etsread.erl deleted file mode 100644 index 32f111c9a1..0000000000 --- a/lib/tv/src/tv_etsread.erl +++ /dev/null @@ -1,770 +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: Module containing the interface towards ETS tables, -%%% i.e., handling the polling and thereafter sending the -%%% result to the database part of the table tool. -%%% -%%%********************************************************************* - - --module(tv_etsread). --compile([{nowarn_deprecated_function,{gs,destroy,1}}, - {nowarn_deprecated_function,{gs,start,0}}, - {nowarn_deprecated_function,{gs,window,3}}]). - - - --export([etsread/2]). - - - --include("tv_int_def.hrl"). --include("tv_int_msg.hrl"). - - - - - - -%%%********************************************************************* -%%% EXTERNAL FUNCTIONS -%%%********************************************************************* - - - - -etsread(MasterPid, ErrorMsgMode) -> - process_flag(trap_exit, true), - put(error_msg_mode, ErrorMsgMode), - blocked(MasterPid). - - - - - -%%%********************************************************************* -%%% INTERNAL FUNCTIONS -%%%********************************************************************* - - - -blocked(MasterPid) -> - receive - Msg -> - case Msg of - - #etsread_deblock{} -> - deblock(Msg, MasterPid); - - {'EXIT', Pid, Reason} -> - exit_signals({Pid, Reason}, MasterPid), - blocked(MasterPid); - - {error_msg_mode, Mode} -> - put(error_msg_mode, Mode), - blocked(MasterPid); - - _Other -> - %% io:format("Received signal ~p~n", [_Other]), - blocked(MasterPid) - end - end. - - - - - - - -deblock(Msg, MasterPid) -> - #etsread_deblock{dbs_pid = DbsPid, - table_type = KindOfTable, - node = Node, - local_node = LocalNode, - table_id = TableId, - poll_interval = PollInt} = Msg, - PollInterval = case PollInt of - infinity -> - PollInt; - _Other -> - PollInt * 1000 - end, - %% Get table info! - case catch get_table_info(Node, LocalNode, TableId, KindOfTable) of - nodedown -> - MasterPid ! #pc_nodedown{sender = self(), - automatic_polling = false}, - blocked(MasterPid); - no_table -> - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = false}, - blocked(MasterPid); - mnesia_not_started -> - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = false}, - blocked(MasterPid); - {unexpected_error,_Reason} -> - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = false}, - blocked(MasterPid); - {Type, Pos, Protection} -> - MasterPid ! #etsread_deblock_cfm{sender = self(), - type = Type, - keypos = Pos, - protection = Protection - }, - - timer:sleep(500), - case catch read_table(Node, LocalNode, TableId, KindOfTable, DbsPid) of - nodedown -> - MasterPid ! #pc_nodedown{sender = self(), - automatic_polling = false}, - blocked(MasterPid); - no_table -> - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = false}, - blocked(MasterPid); - mnesia_not_started -> - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = false}, - blocked(MasterPid); - {unexpected_error,_Reason} -> - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = false}, - blocked(MasterPid); - _ElapsedTime -> - deblocked_loop(MasterPid, DbsPid, Node, LocalNode, TableId, - KindOfTable, PollInterval) - end - end. - - - - - - -get_table_info(Node, LocalNode, TableId, KindOfTable) -> - case KindOfTable of - ets -> - % Check whether table is 'bag' or 'set' type. - Type = tv_ets_rpc:info(Node, LocalNode, TableId, type), - % Get position for the key. - Pos = tv_ets_rpc:info(Node, LocalNode, TableId, keypos), - Protection = tv_ets_rpc:info(Node, LocalNode, TableId, protection), - {Type, Pos, Protection}; - mnesia -> - Type = tv_mnesia_rpc:table_info(Node, LocalNode, TableId, type), - Pos = 2, - %% All Mnesia tables are regarded as being public! - {Type, Pos, public} - end. - - - - - - -deblocked_loop(MasterPid,DbsPid,Node,LocalNode,TableId,KindOfTable,PollInterval) -> - receive - Msg -> - - case Msg of - - #etsread_poll_table{} -> - case catch read_table(Node, LocalNode, TableId, KindOfTable, DbsPid) of - %% No automatic polling here! - nodedown -> - MasterPid ! #pc_nodedown{sender = self(), - automatic_polling = false}; - no_table -> - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = false}; - mnesia_not_started -> - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = false}; - {unexpected_error,_Reason} -> - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = false}; - _ElapsedTime -> - done - end, - deblocked_loop(MasterPid, DbsPid, Node, LocalNode, - TableId, KindOfTable, PollInterval); - - - #etsread_set_poll_interval{interval = PollInt} -> - NewPollInterval = case PollInt of - infinity -> - PollInt; - _Other -> - PollInt * 1000 - end, - deblocked_loop(MasterPid, DbsPid, Node, LocalNode, - TableId, KindOfTable, NewPollInterval); - - - #etsread_deblock{} -> - deblock(Msg, MasterPid); - - - #etsread_update_object{key_no=KeyNo, object=Obj, old_object=OldObj} -> - update_object(KindOfTable, Node, LocalNode, TableId, DbsPid, - KeyNo, Obj, OldObj, MasterPid, PollInterval), - deblocked_loop(MasterPid, DbsPid, Node, LocalNode, TableId, KindOfTable, - PollInterval); - - - #etsread_new_object{object=Obj} -> - new_object(KindOfTable, Node, LocalNode, TableId, DbsPid, - Obj, MasterPid, PollInterval), - deblocked_loop(MasterPid, DbsPid, Node, LocalNode, TableId, KindOfTable, - PollInterval); - - - #etsread_delete_object{object=Obj} -> - delete_object(KindOfTable, Node, LocalNode, TableId, DbsPid, - Obj, MasterPid, PollInterval), - deblocked_loop(MasterPid, DbsPid, Node, LocalNode, TableId, KindOfTable, - PollInterval); - - - #ip_dead_table{} -> - AutoPoll = case PollInterval of - infinity -> - false; - _Other -> - true - end, - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = AutoPoll}, - deblocked_loop(MasterPid, DbsPid, Node, LocalNode, TableId, - KindOfTable, infinity); - - - #etsread_nodedown{} -> - AutoPoll = case PollInterval of - infinity -> - false; - _Other -> - true - end, - MasterPid ! #pc_nodedown{sender = self(), - automatic_polling = AutoPoll}, - deblocked_loop(MasterPid, DbsPid, Node, LocalNode, TableId, - KindOfTable, infinity); - - - {error_msg_mode, Mode} -> - put(error_msg_mode, Mode), - deblocked_loop(MasterPid, DbsPid, Node, LocalNode, TableId, KindOfTable, - PollInterval); - - - {'EXIT', Pid, Reason} -> - exit_signals({Pid, Reason}, MasterPid), - deblocked_loop(MasterPid, DbsPid, Node, LocalNode, - TableId, KindOfTable, PollInterval) - end - - after PollInterval -> - %% Automatic polling must be on, otherwise these - %% lines would never be executed! - NewPollInterval = - case catch read_table(Node,LocalNode,TableId,KindOfTable,DbsPid) of - nodedown -> - MasterPid ! #pc_nodedown{sender = self(), - automatic_polling = true}, - infinity; - no_table -> - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = true}, - infinity; - mnesia_not_started -> - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = true}, - infinity; - {unexpected_error,_Reason} -> - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = true}, - infinity; - ElapsedMilliseconds -> - if - (ElapsedMilliseconds * 1000) >= PollInterval -> - infinity; - true -> - PollInterval - end - end, - deblocked_loop(MasterPid, DbsPid, Node, LocalNode, - TableId, KindOfTable, NewPollInterval) - end. - - - - - -exit_signals(ExitInfo, MasterPid) -> - case ExitInfo of - {MasterPid, _Reason} -> - exit(normal); - _Other -> - done - end. - - - - -update_object(KindOfTable, Node, LocalNode, TableId, DbsPid, KeyNo, Obj, OldObj, MasterPid, PollInterval) -> - AutoPoll = - case PollInterval of - infinity -> - false; - _Other -> - true - end, - case check_record_format(KindOfTable, Node, LocalNode, TableId, Obj) of - bad_format -> - DbsPid ! #etsread_update_object_cfm{sender = self(), - success = false}; - ok -> - %% Check that we are allowed to edit the table! - case catch update_object2(KindOfTable, Node, LocalNode, TableId, DbsPid, KeyNo, - Obj, OldObj) of - - nodedown -> - DbsPid ! #etsread_update_object_cfm{sender = self(), - success = false}, - MasterPid ! #pc_nodedown{sender = self(), - automatic_polling = AutoPoll}; - - no_table -> - DbsPid ! #etsread_update_object_cfm{sender = self(), - success = false}, - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = AutoPoll}; - - mnesia_not_started -> - DbsPid ! #etsread_update_object_cfm{sender = self(), - success = false}, - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = AutoPoll}; - - - {unexpected_error,_Reason} -> - DbsPid ! #etsread_update_object_cfm{sender = self(), - success = false}, - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = AutoPoll}; - - ok -> - DbsPid ! #etsread_update_object_cfm{sender = self(), - success = true} - end - end. - - - - - -update_object2(ets, Node, LocalNode, Tab, _DbsPid, KeyNo, Obj, OldObj) -> - %% We shall update a specific object! If the table is a 'set' table, - %% it is just to insert the altered object. However, if the table - %% is a 'bag', or a 'duplicate_bag', we first have to remove the - %% old object, and then insert the altered one. - %% But, we aren't finished with that... we also want to preserve - %% the time order, meaning we have to delete *ALL* objects having the - %% very same key, and then insert them again! (Actually we would have - %% to do this anyhow, due to limitations in the interface functions, - %% but this remark has to be noted!) - OldKey = element(KeyNo, OldObj), - InsertList = - case tv_ets_rpc:info(Node, LocalNode, Tab, type) of - set -> - %% Have to remove old object, because the key may be what's changed. - tv_ets_rpc:delete(Node, LocalNode, Tab, OldKey), - [Obj]; - ordered_set -> - %% Have to remove old object, because the key may be what's changed. - tv_ets_rpc:delete(Node, LocalNode, Tab, OldKey), - [Obj]; - _Other -> %% 'bag' or 'duplicate_bag' - OldList = tv_ets_rpc:lookup(Node, LocalNode, Tab, OldKey), - tv_ets_rpc:delete(Node, LocalNode, Tab, OldKey), - %% Have to beware of duplicate_bag tables, - %% i.e., the same object may occur more than - %% once, but we only want to replace it once! - {_Replaced, TmpList} = - lists:foldl( - fun(Data, {Replaced,Acc}) when Data =/= OldObj -> - {Replaced, [Data | Acc]}; - (_Data, {Replaced,Acc}) when not Replaced -> - {true, [Obj | Acc]}; - (Data, {Replaced,Acc}) -> - {Replaced, [Data | Acc]} - end, - {false, []}, - OldList), - lists:reverse(TmpList) - end, - lists:foreach(fun(H) -> - tv_ets_rpc:insert(Node, LocalNode, Tab, H) - end, - InsertList), - ok; -update_object2(mnesia, Node, LocalNode, Tab, _DbsPid, KeyNo, Obj, OldObj) -> - OldKey = element(KeyNo, OldObj), - InsertList = - case tv_mnesia_rpc:table_info(Node, LocalNode, Tab, type) of - set -> - tv_mnesia_rpc:transaction( - Node, - LocalNode, - fun() -> - mnesia:delete(Tab,OldKey,write) - end), - [Obj]; - ordered_set -> - tv_mnesia_rpc:transaction( - Node, - LocalNode, - fun() -> - mnesia:delete(Tab,OldKey,write) - end), - [Obj]; - _Other -> %% 'bag' or 'duplicate_bag' - {atomic, OldList} = - tv_mnesia_rpc:transaction( - Node, - LocalNode, - fun() -> - mnesia:read(Tab,OldKey,read) - end), - %% We can't use mnesia:delete_object here, because - %% time order wouldn't be preserved then!!! - tv_mnesia_rpc:transaction( - Node, - LocalNode, - fun() -> - mnesia:delete(Tab,OldKey,write) - end), - ChangeFun = - fun(H) when H =:= OldObj -> - Obj; - (H) -> - H - end, - [ChangeFun(X) || X <- OldList] - end, - lists:foreach(fun(H) -> - tv_mnesia_rpc:transaction( - Node, - LocalNode, - fun() -> - %% This mnesia call shall not be distributed, - %% since the transaction sees to that it is - %% executed on the right node!!! - mnesia:write(Tab,H,write) - end) - end, - InsertList), - ok. - - - - - - -delete_object(KindOfTable, Node, LocalNode, TableId, DbsPid, Obj, MasterPid, PollInterval) -> - AutoPoll = - case PollInterval of - infinity -> - false; - _Other -> - true - end, - case catch delete_object2(KindOfTable, Node, LocalNode, TableId, DbsPid, Obj) of - - nodedown -> - DbsPid ! #etsread_delete_object_cfm{sender = self(), - success = false}, - MasterPid ! #pc_nodedown{sender = self(), - automatic_polling = AutoPoll}; - - no_table -> - DbsPid ! #etsread_delete_object_cfm{sender = self(), - success = false}, - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = AutoPoll}; - - mnesia_not_started -> - DbsPid ! #etsread_delete_object_cfm{sender = self(), - success = false}, - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = AutoPoll}; - - {unexpected_error,_Reason} -> - DbsPid ! #etsread_delete_object_cfm{sender = self(), - success = false}, - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = AutoPoll}; - - ok -> - DbsPid ! #etsread_delete_object_cfm{sender = self(), - success = true} - end. - - - - -delete_object2(ets, Node, LocalNode, Tab, _DbsPid, Obj) -> - KeyNo = tv_ets_rpc:info(Node, LocalNode, Tab, keypos), - Key = element(KeyNo, Obj), - InsertList = - case tv_ets_rpc:info(Node, LocalNode, Tab, type) of - set -> - %% Have to remove old object, because the key may be what's changed. - tv_ets_rpc:delete(Node, LocalNode, Tab, Key), - []; - ordered_set -> - %% Have to remove old object, because the key may be what's changed. - tv_ets_rpc:delete(Node, LocalNode, Tab, Key), - []; - _Other -> %% 'bag' or 'duplicate_bag' - OldList = tv_ets_rpc:lookup(Node, LocalNode, Tab, Key), - tv_ets_rpc:delete(Node, LocalNode, Tab, Key), - OldList -- [Obj] - end, - - lists:foreach(fun(H) -> - tv_ets_rpc:insert(Node, LocalNode, Tab, H) - end, - InsertList), - ok; -delete_object2(mnesia, Node, LocalNode, Tab, _DbsPid, Obj) -> - tv_mnesia_rpc:transaction( - Node, - LocalNode, - fun() -> - %% This mnesia call shall not be distributed, - %% since the transaction sees to that it is - %% executed on the right node!!! - mnesia:delete_object(Tab,Obj,write) - end), - ok. - - - - - -new_object(KindOfTable, Node, LocalNode, TableId, DbsPid, Obj, MasterPid, PollInterval) -> - AutoPoll = - case PollInterval of - infinity -> - false; - _Other -> - true - end, - case check_record_format(KindOfTable, Node, LocalNode, TableId, Obj) of - bad_format -> - DbsPid ! #etsread_new_object_cfm{sender = self(), - success = false}; - ok -> - %% Check that we are allowed to edit the table! - case catch new_object2(KindOfTable, Node, LocalNode, TableId, DbsPid, Obj) of - - nodedown -> - DbsPid ! #etsread_new_object_cfm{sender = self(), - success = false}, - MasterPid ! #pc_nodedown{sender = self(), - automatic_polling = AutoPoll}; - - no_table -> - DbsPid ! #etsread_new_object_cfm{sender = self(), - success = false}, - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = AutoPoll}; - - mnesia_not_started -> - DbsPid ! #etsread_new_object_cfm{sender = self(), - success = false}, - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = AutoPoll}; - - {unexpected_error,_Reason} -> - DbsPid ! #etsread_new_object_cfm{sender = self(), - success = false}, - MasterPid ! #pc_dead_table{sender = self(), - automatic_polling = AutoPoll}; - - ok -> - DbsPid ! #etsread_new_object_cfm{sender = self(), - success = true} - end - end. - - - - - -new_object2(ets, Node, LocalNode, Tab, _DbsPid, Obj) -> - tv_ets_rpc:insert(Node, LocalNode, Tab, Obj), - ok; -new_object2(mnesia, Node, LocalNode, Tab, _DbsPid, Obj) -> - tv_mnesia_rpc:transaction( - Node, - LocalNode, - fun() -> - %% This mnesia call shall not be distributed, - %% since the transaction sees to that it is - %% executed on the right node!!! - mnesia:write(Tab,Obj,write) - end), - ok. - - - - - -check_record_format(mnesia, Node, LocalNode, Tab, Obj) -> - Arity = tv_mnesia_rpc:table_info(Node, LocalNode, Tab, arity), - case size(Obj) of - Arity -> - ok; - _Other -> - gs:window(etsreadwin, gs:start(), []), - case get(error_msg_mode) of - normal -> - tv_utils:notify(etsreadwin, "TV Notification", - ["The record is not complete,", - "too few fields are specified!"]); - haiku -> - tv_utils:notify(etsreadwin, "TV Notification", - ["The attempt to change", - "The specified record size", - "Is simply ignored."]) - end, - gs:destroy(etsreadwin), - bad_format - end; -check_record_format(ets, _Node, _LocalNode, _Tab, _Obj) -> - ok. - - - - - - - -read_table(Node, LocalNode, Tab, KindOfTable, DbsPid) -> - T1 = time(), - - {TableContent, ListOfKeys} = - case KindOfTable of - ets -> - {tv_ets_rpc:tab2list(Node, LocalNode, Tab), - [tv_ets_rpc:info(Node, LocalNode, Tab, keypos)] - }; - mnesia -> - %% It may be tempting to use Mnesia event subscription, - %% but will this really save the day? The main drawback - %% is that we will then have to update the table copy we - %% store internally in two different ways: one for the - %% Mnesia tables, and one for the ETS tables. Also, if - %% the Mnesia tables are frequently updated, this will - %% cause TV to work all the time too (either updating the - %% table copy for each inserted/deleted object, or storing - %% these objects until polling is ordered). To make this - %% work smoothly requires a bit of work... - %% The second drawback is that it doesn't seem clear in all - %% circumstances how the subscription actually works - i.e., - %% if we only use subscriptions, can we actually be sure that - %% the *real* state of the table is the same as the one kept - %% in TV? For example, imagine the scenario that Mnesia is - %% stopped, all Mnesia directories are removed (from the UNIX - %% shell), and then Mnesia once again is started. The first - %% problem is that we have to check for start/stop of Mnesia, - %% the second is that we then have to rescan the actual table. - %% The logic for this may require som effort to write! - %% Also, what will happen if the table is killed/dies? - %% Will we get messages for each element in the table? - %% (I havent't checked this last issue, this is just som thoughts.) - %% And generally, there is always a risk that a message is lost, - %% which will result in TV showing an erroneous table content. - %% - %% All in all, using Mnesia subscriptions *may* be a sub-optimization. - %% The current solution works fine, is also easy to control, and is - %% mainly the same for both ETS and Mnesia tables. - %% My suggestion is that it is used until someone actually complains - %% about the polling time being too long for huge tables! :-) - %% (However, it shall be emphasized that it is this module that - %% actually polls the Mnesia/ETS tables, meaning that it is - %% mainly this module that has to be modified, should the usage of - %% subscriptions be desired. The other module that has to be modified - %% is the one maintaining the internal copy of the table.) - WildPattern = tv_mnesia_rpc:table_info(Node,LocalNode,Tab,wild_pattern), - {atomic, Content} = - tv_mnesia_rpc:transaction( - Node, - LocalNode, - fun() -> - %% This mnesia call shall not be distributed, - %% since the transaction sees to that it is - %% executed on the right node!!! - mnesia:match_object(Tab, WildPattern, read) - end), - {Content, [2 | tv_mnesia_rpc:table_info(Node, LocalNode,Tab, index)]} - end, - - T2 = time(), - - ElapsedTime = compute_elapsed_seconds(T1, T2), - - DbsPid ! #dbs_new_data{sender = self(), - data = TableContent, - keys = ListOfKeys, - time_to_read_table = ElapsedTime - }, - - ElapsedTime. - - - - - - - -compute_elapsed_seconds({H1, M1, S1}, {H2, M2, S2}) -> - ElapsedHours = get_time_diff(hours, H1, H2), - ElapsedMinutes = get_time_diff(minutes, M1, M2), - ElapsedSeconds = get_time_diff(seconds, S1, S2), - (ElapsedHours * 3600) + (ElapsedMinutes * 60) + ElapsedSeconds + 1. - - - - - -get_time_diff(_Type, T1, T2) when T1 =< T2 -> - T2 - T1; -get_time_diff(hours, T1, T2) -> - T2 + 24 - T1; -get_time_diff(minutes, T1, T2) -> - T2 + 60 - T1; -get_time_diff(seconds, T1, T2) -> - T2 + 60 - T1. diff --git a/lib/tv/src/tv_info.erl b/lib/tv/src/tv_info.erl deleted file mode 100644 index c744888c38..0000000000 --- a/lib/tv/src/tv_info.erl +++ /dev/null @@ -1,884 +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% --module(tv_info). --compile([{nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,create,3}}, - {nowarn_deprecated_function,{gs,frame,2}}, - {nowarn_deprecated_function,{gs,label,2}}, - {nowarn_deprecated_function,{gs,listbox,2}}, - {nowarn_deprecated_function,{gs,read,2}}, - {nowarn_deprecated_function,{gs,start,0}}, - {nowarn_deprecated_function,{gs,window,3}}]). - - - --export([info/6 - ]). - - --include("tv_int_def.hrl"). --include("tv_int_msg.hrl"). - - - - --define(DEFAULT_BG_COLOR, {217, 217, 217}). - - --record(card_field_ids, {parent_pid, - window_id, - window_frame, - table_id, - table_type, - table_name, - named_table, - owner_pid, - owner_name, - bag_or_set, - arity, - attributes, - wild_pattern, - keypos, - index, - snmp, - protection, - size, - memory, - storage_type, - disc_copies, - where_to_read, - ram_copies, - disc_only_copies, - where_to_write, - checkpoints, - node - }). - - - --define(WINDOW_WIDTH, 580). --define(WINDOW_HEIGHT, 430). - - - --define(MNESIA_INFO_ITEMS, [type, - arity, - attributes, - index, - size, - memory, - storage_type, - where_to_read, - disc_copies, - disc_only_copies, - ram_copies, - where_to_write, - checkpoints - ]). - - - - -info(Master, Node, LocalNode, TabId, TabType, ErrMsgMode) -> - process_flag(trap_exit,true), - WinId = create_window(), - {CardIds, MaskLabel} = init(Master, Node, LocalNode, TabId, TabType, WinId), - put(error_msg_mode, ErrMsgMode), - gs:config(WinId, [{map, true}]), - loop(CardIds, MaskLabel, Node, LocalNode, TabId, TabType). - - - - - - -create_window() -> - WinWidth = ?WINDOW_WIDTH, - WinHeight = ?WINDOW_HEIGHT, - Win = gs:window(win, gs:start(), [{width, WinWidth}, - {height, WinHeight}, - {bg, ?DEFAULT_BG_COLOR}, - {destroy, true}, - {configure, true}, - {keypress, true} - ]), - - MenubarId = gs:create(menubar, Win, [{bg, ?DEFAULT_BG_COLOR} - ]), - Mbutt = gs:create(menubutton, MenubarId, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {178, 34, 34}}, % firebrick - {label, {text, " File "}}, - {underline, 1} - ]), - Obutt = gs:create(menubutton, MenubarId, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {178, 34, 34}}, % firebrick - {label, {text, " Options "}}, - {underline, 1} - ]), - - % Create the actual menu! - FMenu = gs:create(menu, Mbutt, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {178, 34, 34}}]), - OMenu = gs:create(menu, Obutt, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {178, 34, 34}}]), - gs:create(menuitem, FMenu, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {178, 34, 34}}, - {label, {text, " Close Ctrl-C "}}, - {data, close_menu}, - {underline, 1} - ]), - gs:create(menuitem, OMenu, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {178, 34, 34}}, - {label, {text, " Refresh Ctrl-R "}}, - {data, update}, - {underline, 1} - ]), - Win. - - - - - - - - -init(Master, Node, LocalNode, TabId, TabType, WinId) -> - WinWidth = ?WINDOW_WIDTH, - WinHeight = ?WINDOW_HEIGHT, - - WinFrame = gs:frame(WinId, [{width, WinWidth}, - {height, WinHeight}, - {x, 0}, - {y, 30}, - {bg, ?DEFAULT_BG_COLOR}, - {bw, 0} - ]), - - TableIdFlap = create_flap(1, "Table Id", WinFrame), - BasicSettingsFlap = create_flap(2, "Basic Settings", WinFrame), - SizeFlap = create_flap(3, "Size", WinFrame), - StorageFlap = create_flap(4, "Storage", WinFrame), - - TableIdCard = create_card(WinFrame, TableIdFlap), - BasicSettingsCard = create_card(WinFrame, BasicSettingsFlap), - SizeCard = create_card(WinFrame, SizeFlap), - StorageCard = create_card(WinFrame, StorageFlap), - - - set_flap_label(TableIdFlap, "Table Id"), - set_flap_label(BasicSettingsFlap, "Basic Settings"), - set_flap_label(SizeFlap, "Size"), - set_flap_label(StorageFlap, "Storage"), - - - gs:config(TableIdCard, [raise]), - - CardIds = print_cards(TabType, TableIdCard, BasicSettingsCard, SizeCard, StorageCard), - - {_CardId, FirstMaskXpos} = gs:read(TableIdFlap, data), - Mask = gs:label(WinFrame, [{width, gs:read(TableIdFlap, width) - 2 * gs:read(TableIdFlap, bw) + 1}, - {height, gs:read(TableIdCard, bw)}, - {x, FirstMaskXpos}, - {y, gs:read(TableIdCard, y)}, - {bg, ?DEFAULT_BG_COLOR} - ]), - - update_info_flaps(TabType, Node, LocalNode, TabId, CardIds, Master), - {CardIds#card_field_ids{parent_pid = Master, - window_id = WinId, - window_frame = WinFrame}, Mask}. - - - - - -check_node(OldNode, LocalNode) -> - HomeNode = node(), - case net_adm:ping(OldNode) of - pong -> - OldNode; - pang when LocalNode -> - %% The system has gone either distributed or undistributed. - %% No matter which, HomeNode tells the current correct node. - HomeNode; - pang -> - OldNode - end. - - - - - - -update_data_field(notext, {label, Id}) -> - gs:config(Id, [{label, {text, "" }}]); -update_data_field(notext, {listbox, Id}) -> - gs:config(Id, [{items, []}]); -update_data_field({Data}, {label, Id}) -> - gs:config(Id, [{label, {text, " " ++ lists:flatten(io_lib:write(Data))}}]); -update_data_field({Data}, {listbox, Id}) -> - gs:config(Id, [{items, lists:map(fun(E) -> " " ++ lists:flatten(io_lib:write(E)) - end, Data)}]). - - - - -print_info(mnesia, Node, LocalNode, TabId, CardIds) -> - update_data_field({mnesia}, - CardIds#card_field_ids.table_type), - update_data_field({TabId}, - CardIds#card_field_ids.table_name), - update_data_field({tv_mnesia_rpc:table_info(Node, LocalNode, TabId, type)}, - CardIds#card_field_ids.bag_or_set), - update_data_field({tv_mnesia_rpc:table_info(Node, LocalNode, TabId, arity) - 1}, - CardIds#card_field_ids.arity), - - AttributesList = tv_mnesia_rpc:table_info(Node, LocalNode, TabId, attributes), - update_data_field({AttributesList}, - CardIds#card_field_ids.attributes), - update_data_field({lists:map(fun(N) -> - lists:nth(N - 1, AttributesList) - end, - [2] ++ tv_mnesia_rpc:table_info(Node, - LocalNode, - TabId, - index) - ) - }, - CardIds#card_field_ids.index), - - update_data_field({tv_mnesia_rpc:table_info(Node, LocalNode, TabId, size)}, - CardIds#card_field_ids.size), - update_data_field({tv_mnesia_rpc:table_info(Node, LocalNode, TabId, memory)}, - CardIds#card_field_ids.memory), - update_data_field({tv_mnesia_rpc:table_info(Node, LocalNode, TabId, storage_type)}, - CardIds#card_field_ids.storage_type), - update_data_field({tv_mnesia_rpc:table_info(Node, LocalNode, TabId, where_to_read)}, - CardIds#card_field_ids.where_to_read), - update_data_field({tv_mnesia_rpc:table_info(Node, LocalNode, TabId, disc_copies)}, - CardIds#card_field_ids.disc_copies), - update_data_field({tv_mnesia_rpc:table_info(Node, LocalNode, TabId, disc_only_copies)}, - CardIds#card_field_ids.disc_only_copies), - update_data_field({tv_mnesia_rpc:table_info(Node, LocalNode, TabId, ram_copies)}, - CardIds#card_field_ids.ram_copies), - update_data_field({tv_mnesia_rpc:table_info(Node, LocalNode, TabId, where_to_write)}, - CardIds#card_field_ids.where_to_write), - update_data_field({tv_mnesia_rpc:table_info(Node, LocalNode, TabId, checkpoints)}, - CardIds#card_field_ids.checkpoints), - {ok, TabId}; -print_info(ets, Node, LocalNode, TabId, CardIds) -> - update_data_field({ets}, - CardIds#card_field_ids.table_type), - update_data_field({TabId}, - CardIds#card_field_ids.table_id), - TabName = tv_ets_rpc:info(Node, LocalNode, TabId, name), - update_data_field({TabName}, - CardIds#card_field_ids.table_name), - update_data_field({tv_ets_rpc:info(Node, LocalNode, TabId, named_table)}, - CardIds#card_field_ids.named_table), - - OwnerPid = tv_ets_rpc:info(Node, LocalNode, TabId, owner), - OwnerNameSearchResult = lists:keysearch(registered_name, - 1, - rpc:block_call(Node, - erlang, - process_info, - [OwnerPid])), - OwnerName = case OwnerNameSearchResult of - false -> - notext; - {value, {registered_name, WantedName}} -> - {WantedName} - end, - update_data_field({OwnerPid}, - CardIds#card_field_ids.owner_pid), - update_data_field(OwnerName, - CardIds#card_field_ids.owner_name), - - update_data_field({tv_ets_rpc:info(Node, LocalNode, TabId, keypos)}, - CardIds#card_field_ids.keypos), - update_data_field({tv_ets_rpc:info(Node, LocalNode, TabId, type)}, - CardIds#card_field_ids.bag_or_set), - update_data_field({tv_ets_rpc:info(Node, LocalNode, TabId, protection)}, - CardIds#card_field_ids.protection), - update_data_field({tv_ets_rpc:info(Node, LocalNode, TabId, size)}, - CardIds#card_field_ids.size), - update_data_field({tv_ets_rpc:info(Node, LocalNode, TabId, memory)}, - CardIds#card_field_ids.memory), - update_data_field({tv_ets_rpc:info(Node, LocalNode, TabId, node)}, - CardIds#card_field_ids.node), - {ok, TabName}. - - - - - - -print_cards(mnesia, Card1, Card2, Card3, Card4) -> - create_card_text(1, "Table Type:", Card1), - create_card_text(2, "Table Name:", Card1), - - create_card_text(1, "Table Type:", Card2), - create_card_text(2, "Number of Attributes:", Card2), -% create_card_text(3, "Attribute Names:", Card2), -% create_card_text(4, "Index Positions:", Card2), - - create_card_text(1, "Number of Elements Stored:", Card3), - create_card_text(2, "Number of Words Allocated:", Card3), - - create_card_text(1, "Local Storage Type:", Card4), - create_card_text(2, "Table Readable at Node:", Card4), -% create_card_text(3, "Disc Copy Nodes:", Card4), -% create_card_text(4, "Disc Copy Only Nodes:", Card4), -% create_card_text(5, "RAM Copy Nodes:", Card4), -% create_card_text(6, "Active Table Replica Nodes:", Card4), -% create_card_text(7, "Active Checkpoints:", Card4), - - {AttributesId, IndexId} = create_special_fields(mnesia, size_card, Card2), - - - {DiscCopiesId, DiscOnlyCopiesId, RamCopiesId, WhereToWriteId, CheckpointsId} = - create_special_fields(mnesia, storage_card, Card4), - - #card_field_ids{table_name = {label, create_card_data_field(2, Card1)}, - table_type = {label, create_card_data_field(1, Card1)}, - bag_or_set = {label, create_card_data_field(1, Card2)}, - arity = {label, create_card_data_field(2, Card2)}, - attributes = AttributesId, - index = IndexId, - size = {label, create_card_data_field(1, Card3)}, - memory = {label, create_card_data_field(2, Card3)}, - storage_type = {label, create_card_data_field(1, Card4)}, - where_to_read = {label, create_card_data_field(2, Card4)}, - disc_copies = DiscCopiesId, - disc_only_copies = DiscOnlyCopiesId, - ram_copies = RamCopiesId, - where_to_write = WhereToWriteId, - checkpoints = CheckpointsId - }; -print_cards(ets, Card1, Card2, Card3, Card4) -> - create_card_text(1, "Table Type:", Card1), - create_card_text(2, "Table Id:", Card1), - create_card_text(3, "Table Name:", Card1), - create_card_text(4, "Table Name Registered:", Card1), - create_card_text(5, "Process Owning the Table:", Card1), - create_card_text(6, "Name of Owning Process:", Card1), - - create_card_text(1, "Index Position:", Card2), - create_card_text(2, "Table Type:", Card2), - create_card_text(3, "Protection Mode:", Card2), - - create_card_text(1, "Number of Elements Stored:", Card3), - create_card_text(2, "Number of Words Allocated:", Card3), - - create_card_text(1, "Table Stored at Node:", Card4), - - #card_field_ids{table_id = {label, create_card_data_field(2, Card1)}, - table_type = {label, create_card_data_field(1, Card1)}, - table_name = {label, create_card_data_field(3, Card1)}, - named_table = {label, create_card_data_field(4, Card1)}, - owner_pid = {label, create_card_data_field(5, Card1)}, - owner_name = {label, create_card_data_field(6, Card1)}, - - keypos = {label, create_card_data_field(1, Card2)}, - bag_or_set = {label, create_card_data_field(2, Card2)}, - protection = {label, create_card_data_field(3, Card2)}, - - size = {label, create_card_data_field(1, Card3)}, - memory = {label, create_card_data_field(2, Card3)}, - - node = {label, create_card_data_field(1, Card4)} - }. - - - - - - -create_special_fields(mnesia, size_card, CardId) -> - LabelWidth = 195, - LabelHeight = 24, - ListboxWidth = 210, - ListboxHeight = 160, - VerticalSpacing = 20, - LXpos = 30, - RXpos = 330, - Ypos = 40 + (LabelHeight + VerticalSpacing) * 2 + 25, - gs:label(CardId, [{width, LabelWidth}, - {height, LabelHeight}, - {x, LXpos}, - {y, Ypos}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}}, - {align, center}, - {label, {text, "Attribute Names:"}} - ]), - - gs:label(CardId, [{width, LabelWidth}, - {height, LabelHeight}, - {x, RXpos}, - {y, Ypos}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}}, - {align, center}, - {label, {text, "Attributes Used as Indices:"}} - ]), - - AttributesId = gs:listbox(CardId, [{width, ListboxWidth}, - {height, ListboxHeight}, - {x, LXpos}, - {y, Ypos + LabelHeight - 3}, - {bg, {255, 255, 255}}, - {fg, {0, 0, 0}}, - {hscroll, bottom}, - {vscroll, right}, - {selectmode, single}, - {click, true}, - {doubleclick, true}, - {data, listbox} - ]), - - IndexId = gs:listbox(CardId, [{width, ListboxWidth}, - {height, ListboxHeight}, - {x, RXpos}, - {y, Ypos + LabelHeight - 3}, - {bg, {255, 255, 255}}, - {fg, {0, 0, 0}}, - {hscroll, bottom}, - {vscroll, right}, - {selectmode, single}, - {click, true}, - {doubleclick, true}, - {data, listbox} - ]), - - {{listbox, AttributesId}, - {listbox, IndexId} - }; -create_special_fields(mnesia, storage_card, CardId) -> - LabelWidth = 155, - LabelHeight = 24, - ListboxHeight = 80, - ListboxWidth = 170, - VerticalSpacing = 20, - LXpos = 10, - MXpos = 197, - RXpos = 385, - % Y-positions for upper and lower row. - UYpos = 40 + (LabelHeight + VerticalSpacing) * 2, - LYpos = UYpos + ListboxHeight + 37, - gs:label(CardId, [{width, LabelWidth}, - {height, LabelHeight}, - {x, LXpos}, - {y, UYpos}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}}, - {align, center}, - {label, {text, "Disc Copy Nodes:"}} - ]), - - gs:label(CardId, [{width, LabelWidth}, - {height, LabelHeight}, - {x, MXpos}, - {y, UYpos}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}}, - {align, center}, - {label, {text, "Disc Only Copy Nodes:"}} - ]), - - gs:label(CardId, [{width, LabelWidth}, - {height, LabelHeight}, - {x, RXpos}, - {y, UYpos}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}}, - {align, center}, - {label, {text, "RAM Copy Nodes:"}} - ]), - - - gs:label(CardId, [{width, LabelWidth}, - {height, LabelHeight}, - {x, LXpos}, - {y, LYpos}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}}, - {align, center}, - {label, {text, "Table Replica Nodes:"}} - ]), - - gs:label(CardId, [{width, LabelWidth}, - {height, LabelHeight}, - {x, MXpos}, - {y, LYpos}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}}, - {align, center}, - {label, {text, "Active Checkpoints:"}} - ]), - - - DiscCopiesId = gs:listbox(CardId, [{width, ListboxWidth}, - {height, ListboxHeight}, - {x, LXpos}, - {y, UYpos + LabelHeight - 3}, - {bg, {255, 255, 255}}, - {fg, {0, 0, 0}}, - {hscroll, bottom}, - {vscroll, right}, - {selectmode, single}, - {click, true}, - {doubleclick, true}, - {data, listbox} - ]), - - DiscCopiesOnlyId = gs:listbox(CardId, [{width, ListboxWidth}, - {height, ListboxHeight}, - {x, MXpos}, - {y, UYpos + LabelHeight - 3}, - {bg, {255, 255, 255}}, - {fg, {0, 0, 0}}, - {hscroll, bottom}, - {vscroll, right}, - {selectmode, single}, - {click, true}, - {doubleclick, true}, - {data, listbox} - ]), - - RamCopiesId = gs:listbox(CardId, [{width, ListboxWidth}, - {height, ListboxHeight}, - {x, RXpos}, - {y, UYpos + LabelHeight - 3}, - {bg, {255, 255, 255}}, - {fg, {0, 0, 0}}, - {hscroll, bottom}, - {vscroll, right}, - {selectmode, single}, - {click, true}, - {doubleclick, true}, - {data, listbox} - ]), - - - - WhereToWriteId = gs:listbox(CardId, [{width, ListboxWidth}, - {height, ListboxHeight}, - {x, LXpos}, - {y, LYpos + LabelHeight - 3}, - {bg, {255, 255, 255}}, - {fg, {0, 0, 0}}, - {hscroll, bottom}, - {vscroll, right}, - {selectmode, single}, - {click, true}, - {doubleclick, true}, - {data, listbox} - ]), - - CheckpointsId = gs:listbox(CardId, [{width, ListboxWidth}, - {height, ListboxHeight}, - {x, MXpos}, - {y, LYpos + LabelHeight - 3}, - {bg, {255, 255, 255}}, - {fg, {0, 0, 0}}, - {hscroll, bottom}, - {vscroll, right}, - {selectmode, single}, - {click, true}, - {doubleclick, true}, - {data, listbox} - ]), - - {{listbox, DiscCopiesId}, - {listbox, DiscCopiesOnlyId}, - {listbox, RamCopiesId}, - {listbox, WhereToWriteId}, - {listbox, CheckpointsId} - }. - - - - - - - -create_card_data_field(N, ParentId) -> - Width = 345, - Height = 24, - VerticalSpacing = 20, - Xpos = 210, - Ypos = 40 + (Height + VerticalSpacing) * (N - 1), - - BgFrame = gs:frame(ParentId, [{width, Width}, - {height, Height}, - {x, Xpos}, - {y, Ypos}, - {bg, {0, 0, 0}}, - {bw, 0} - ]), - gs:label(BgFrame, [{width, Width - 2}, - {height, Height - 2}, - {x, 1}, - {y, 1}, - {bg, {255, 255, 255}}, - {fg, {0, 0, 0}}, - {align, w} - ]). - - - - - - -create_card_text(N, Text, ParentId) -> - LabelWidth = 205, - LabelHeight = 24, - VerticalSpacing = 20, - Xpos = 10, - Ypos = 40 + (LabelHeight + VerticalSpacing) * (N - 1), - gs:label(ParentId, [{width, LabelWidth}, - {height, LabelHeight}, - {x, Xpos}, - {y, Ypos}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}}, - {align, w}, - {label, {text, Text}} - ]). - - - - -create_card(ParentId, FlapId) -> - CardId = gs:frame(ParentId, [{width, 570}, - {height, 360}, - {x, 5}, - {y, 35}, - {bg, ?DEFAULT_BG_COLOR}, - {bw, 2} - ]), - FlapXpos = gs:read(FlapId, data), - gs:config(FlapId, [{data, {CardId, FlapXpos}} - ]), - CardId. - - - - - -set_flap_label(ParentId, Text) -> - Bw = gs:read(ParentId, bw), % It is assumed that the parent is a frame! :-) - Width = gs:read(ParentId, width) - 2 * Bw - 2, - Height = gs:read(ParentId, height) - 2 * Bw - 6, - Xpos = 0, - Ypos = 0, - Data = gs:read(ParentId, data), - - gs:label(ParentId, [{width, Width}, - {height, Height}, - {x, Xpos}, - {y, Ypos}, - % {fg, {178, 34, 34}}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}}, - {label, {text, Text}}, - {align, center}, - {buttonpress, true}, - {data, Data} - ]). - - - -create_flap(N, _Text, ParentId) -> - Width = 120, - Height = 40, - Spacing = 2, - FirstXpos = 5, - Xpos = FirstXpos + ((Width + Spacing) * (N - 1)), - Ypos = 5, - BorderWidth = 2, - - gs:frame(ParentId, [{width, Width}, - {height, Height}, - {x, Xpos}, - {y, Ypos}, - {bg, ?DEFAULT_BG_COLOR}, - {bw, BorderWidth}, - {cursor, hand}, - {buttonpress, true}, - {data, Xpos + BorderWidth} - ]). - - - -update_info_flaps(TabType, Node, LocalNode, TabId, CardIds, MasterPid) -> - case catch print_info(TabType, Node, LocalNode, TabId, CardIds) of - {ok, TabName} -> - WinTitle = tv_pc_menu_handling:get_window_title(TabType,Node,TabId,TabName), - gs:config(win, [{title, "[TV] " ++ WinTitle}]), - done; - nodedown -> - nodedown; - no_table -> - gs:config(win, [beep]), - case get(error_msg_mode) of - normal -> - Msg = ["The table " ++ lists:flatten(io_lib:write(TabId)) ++ " on node", - lists:flatten(io_lib:write(Node)) ++ " no longer exists!"], - tv_utils:notify(win, "TV Notification", Msg); - haiku -> - Msg = ["Three things are certain:", - "Death, taxes, and lost tables.", - "Guess which has occurred."], - tv_utils:notify(win, "TV Notification", Msg) - end, - MasterPid ! #ip_dead_table{sender = self()}; - mnesia_not_started -> - gs:config(win, [beep]), - case get(error_msg_mode) of - normal -> - Msg = ["The table " ++ lists:flatten(io_lib:write(TabId)) ++ " on node", - lists:flatten(io_lib:write(Node)) ++ " no longer exists!"], - tv_utils:notify(win, "TV Notification", Msg); - haiku -> - Msg = ["A table that big?", - "It might be very useful.", - "But now it is gone."], - tv_utils:notify(win, "TV Notification", Msg) - end, - MasterPid ! #ip_dead_table{sender = self()}; - {unexpected_error,Reason} -> - io:format("Unexpected error: ~p~n", [Reason]); - _Other -> - io:format("Unexpected return value: ~p~n", [_Other]), - done - end. - - - - -loop(CardIds, MaskLabel, Node, LocalNode, TabId, TabType) -> - receive - #info_update_table_info{sender = Sender} -> - NewNode = check_node(Node, LocalNode), - update_info_flaps(TabType, NewNode, LocalNode, TabId, CardIds, Sender), - loop(CardIds, MaskLabel, NewNode, LocalNode, TabId, TabType); - - - #info_raise_window{sender = Sender} -> - gs:config(CardIds#card_field_ids.window_id, [raise]), - NewNode = check_node(Node, LocalNode), - chk(update_info_flaps(TabType, NewNode, LocalNode, TabId, CardIds, Sender)), - loop(CardIds, MaskLabel, NewNode, LocalNode, TabId, TabType); - - - #info_quit{} -> - exit(normal); - - {gs, _FlapId, buttonpress, {CardId, Xpos}, [1 | _]} -> - gs:config(CardId, [raise - ]), - gs:config(MaskLabel, [raise, - {x, Xpos} - ]), - loop(CardIds, MaskLabel, Node, LocalNode, TabId, TabType); - - {gs, _Id, buttonpress, {_CardId, _Xpos}, _Args} -> - loop(CardIds, MaskLabel, Node, LocalNode, TabId, TabType); - - {gs, _LblId, enter, _Data, _Args} -> - loop(CardIds, MaskLabel, Node, LocalNode, TabId, TabType); - - {gs, WinId, configure, _Data, _Args} -> - gs:config(WinId, [{width, ?WINDOW_WIDTH}, - {height, ?WINDOW_HEIGHT} - ]), - loop(CardIds, MaskLabel, Node, LocalNode, TabId, TabType); - - {gs, ListboxId, click, listbox, _Args} -> - gs:config(ListboxId, [{selection, clear}]), - loop(CardIds, MaskLabel, Node, LocalNode, TabId, TabType); - - {gs, ListboxId, doubleclick, listbox, _Args} -> - gs:config(ListboxId, [{selection, clear}]), - loop(CardIds, MaskLabel, Node, LocalNode, TabId, TabType); - - {gs, _Id, click, update, _Args} -> - NewNode = check_node(Node, LocalNode), - chk(update_info_flaps(TabType,NewNode,LocalNode,TabId,CardIds, - CardIds#card_field_ids.parent_pid)), - loop(CardIds, MaskLabel, NewNode, LocalNode, TabId, TabType); - - {gs, _Id, keypress, _, [r, _, 0, 1 | _]} -> - NewNode = check_node(Node, LocalNode), - chk(update_info_flaps(TabType,NewNode,LocalNode,TabId,CardIds, - CardIds#card_field_ids.parent_pid)), - loop(CardIds, MaskLabel, NewNode, LocalNode, TabId, TabType); - - {gs, _Id, keypress, _, ['R', _, 1, 1 | _]} -> - NewNode = check_node(Node, LocalNode), - chk(update_info_flaps(TabType,NewNode,LocalNode,TabId,CardIds, - CardIds#card_field_ids.parent_pid)), - loop(CardIds, MaskLabel, NewNode, LocalNode, TabId, TabType); - - {gs, _Id, click, close_menu, _Args} -> - exit(normal); - - {gs, _Id, keypress, _, [c, _, 0, 1 | _]} -> - exit(normal); - - {gs, _Id, keypress, _, ['C', _, 1, 1 | _]} -> - exit(normal); - - {gs, _Id, destroy, _Data, _Args} -> - exit(normal); - - {'EXIT', _Pid, _Reason} -> - exit(normal); - - {error_msg_mode, Mode} -> - put(error_msg_mode, Mode), - loop(CardIds, MaskLabel, Node, LocalNode, TabId, TabType); - - _Other -> - loop(CardIds, MaskLabel, Node, LocalNode, TabId, TabType) - end. - - - - - - -chk(nodedown) -> - gs:config(win, [beep]), - case get(error_msg_mode) of - normal -> - tv_utils:notify(win, "TV Notification", - ["The node is down, and the", - "table cannot be reached."]); - haiku -> - ErrMsg1 = ["With searching comes loss", - "And the presence of absence:", - "Node is down."], - tv_utils:notify(win, "TV Notification", ErrMsg1) - end; -chk(_Other) -> - done. - diff --git a/lib/tv/src/tv_int_def.hrl b/lib/tv/src/tv_int_def.hrl deleted file mode 100644 index 6d4263c51b..0000000000 --- a/lib/tv/src/tv_int_def.hrl +++ /dev/null @@ -1,56 +0,0 @@ -%% -%% %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: Internal definitions for the table tool as a whole. -%%% -%%%********************************************************************* - --define(COMM_FUNC_FILE, tv_comm_func). - --define(ITEMS_TO_DISPLAY, 35). - - --define(DEFAULT_BACKGROUND_COLOR, {255, 255, 255}). % white - - -% Colors used for marking updates. - --define(BLACK, { 0, 0, 0}). - --define(RED1, {255, 0, 0}). --define(RED2, {255, 100, 100}). --define(RED3, {255, 150, 150}). --define(RED4, {255, 200, 200}). --define(RED5, {235, 217, 217}). - - --define(GREEN1, { 0, 255, 0}). --define(GREEN2, {115, 255, 135}). --define(GREEN3, {125, 225, 150}). --define(GREEN4, {170, 225, 185}). --define(GREEN5, {195, 219, 202}). - --define(DEFAULT_BTN_COLOR, {217, 217, 217}). - - - - - - - diff --git a/lib/tv/src/tv_int_msg.hrl b/lib/tv/src/tv_int_msg.hrl deleted file mode 100644 index 75ce8eca3b..0000000000 --- a/lib/tv/src/tv_int_msg.hrl +++ /dev/null @@ -1,504 +0,0 @@ -%% -%% %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: File containing all messages used internally -%%% between the various table tool components. -%%% -%%%********************************************************************* - - -%%%********************************************************************* -%%% MESSAGES OWNED BY PC -%%%********************************************************************* - - - --record(pc_raise_window, {sender}). - - - --record(pc_menu_msg, {sender, - data}). - - - --record(pc_win_conf, {sender, - width, - height}). - - - --record(pc_show_table_info, {sender}). - - - --record(pc_poll_table, {sender}). - - - --record(pc_select, {sender}). - - - --record(pc_help, {sender}). - - - --record(pc_set_sorting_mode, {sender, - sorting, % 'true' or 'false' - reverse, % 'true' or 'false', - sort_key_no = 1 - }). - - - --record(pc_set_sorting_mode_cfm, {sender, - sort_key_no - }). - - - --record(pc_marked_row, {sender, - row_no, - object, - color - }). - - - --record(pc_data_req, {sender, - element, - nof_elements - }). - - - --record(pc_resend_data, {sender}). - - - - --record(pc_data, {sender, - scale_pos, % vertical scale - scale_range, % vertical scale - max_elem_size, - list_range, - elementlist, - marked_row, - list_of_keys, - color}). - - - - --record(pc_list_info, {sender, - lists_as_strings}). - - - --record(pc_dead_table, {sender, - automatic_polling}). - - - --record(pc_nodedown, {sender, - automatic_polling}). - - - --record(pc_search_req, {sender - }). - - - - -%%%********************************************************************* -%%% MESSAGES OWNED BY PD -%%%********************************************************************* - - - --record(pd_win_conf, {sender, - width, - height}). - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: sender: Pid of the sender of the message. -%% win: Id of window to create canvas and scale in. -%% win_width: width of the window to create the canvas in. -%% win_height: height of the window to create the canvas in. -%% scale: whether a scale shall be shown or not. -%% Possible values: true -- scale is shown. -%% false -- scale is not shown. -%%====================================================================== - --record(pd_deblock, {sender, - win, - win_width, - win_height, - scale = false, - range}). - - - - --record(pd_deblock_cfm, {sender}). - - - --record(pd_new_table, {sender, - table_type, - table_name, - record_name, %% Only valid for Mnesia tables. - writable - }). - - - --record(pd_get_sort_settings, {sender, - sorting, - reverse - }). - - - --record(pd_no_sorting, {sender - }). - - - - --record(pd_ignore, {sender - }). - - - - --record(pd_updated_object, {sender, - object, - old_object, - old_color, %% Tells status of the object, if deleted or present. - obj_no - }). - - - --record(pd_new_object, {sender, %% Used when no row is marked. - object %% Note: may still be an updated object! - }). - - - --record(pd_delete_object, {sender, - object, - color - }). - - - --record(pd_rec_edit, {sender, - attributes - }). - - - -%%%********************************************************************* -%%% MESSAGES OWNED BY PW -%%%********************************************************************* - - - - --record(pw_deblock, {sender, - win_title, - win_width, - win_height, - min_win_width, - min_win_height}). - - - --record(pw_set_window_title, {sender, - win_title}). - - - --record(pw_deblock_cfm, {sender, - win_id}). - - - - -%%====================================================================== -%% Message: pw_create_menu. -%% -%% Function: Order to pw to create a menu according to the content of the message. -%% -%% Data: menutitle: string containing the name of the menu, e.g., "File". -%% menulist: list of tuples having the following format: -%% {Text, Data}, where Text is the string that shall be -%% written in each menulist item, and Data is optional data, -%% presumably the name of a function that is to be called -%% when the corresponding menulist message is received. -%%====================================================================== - --record(pw_create_menu, {sender, - menutitle, - title_acc_pos, - menulist}). - - - --record(pw_create_menu_cfm, {sender}). - - - --record(pw_select_menu, {sender, - menu, - old_menus}). - - - - - -%%%********************************************************************* -%%% MESSAGES OWNED BY DBS -%%%********************************************************************* - - - --record(dbs_deblock, {sender, - etsread_pid, - type, - keypos, - sublist_length}). - - - --record(dbs_deblock_cfm, {sender}). - - - - --record(dbs_new_data, {sender, - data, - keys, - time_to_read_table - }). - - - --record(dbs_new_mnesia_data, {sender, - new_or_changed, - deleted, - keys - }). - - - --record(dbs_subset, {sender, - data, - requested_row, - subset_pos, - db_length, - max_elem_size, - list_of_keys, - required_time_etsread, - required_time_dbs}). - - - - - --record(dbs_subset_req, {sender, - subset_pos, - subset_length - }). - - - - --record(dbs_sorting_mode, {sender, - sorting, % 'true' or 'false' - reverse, % 'true' or 'false' - sort_key_no - }). - - - --record(dbs_marked_row, {sender, - row_no - }). - - - - --record(dbs_search_req, {sender - }). - - - --record(dbs_updated_object, {sender, - object, - old_object, - old_color, - obj_no - }). - - --record(dbs_new_object, {sender, - object - }). - - --record(dbs_delete_object, {sender, - object, - color, - obj_no - }). - - - -%%%********************************************************************* -%%% MESSAGES OWNED BY ETSREAD -%%%********************************************************************* - - - --record(etsread_update_object, {sender, - object, - old_object, - key_no - }). - --record(etsread_update_object_cfm, {sender, - success - }). - - - --record(etsread_new_object, {sender, - object - }). - - --record(etsread_new_object_cfm, {sender, - success - }). - - - --record(etsread_delete_object, {sender, - object, - key_no - }). - - --record(etsread_delete_object_cfm, {sender, - success - }). - - - --record(etsread_deblock, {sender, - dbs_pid, - node, - local_node, - table_id, - table_type, % One of 'ets' or 'mnesia' - poll_interval - }). - - - --record(etsread_deblock_cfm, {sender, - type, - keypos, - protection - }). - - - --record(etsread_set_poll_interval, {sender, - interval}). - - - --record(etsread_poll_table, {sender}). - - - --record(etsread_nodedown, {sender}). - - - -%%%********************************************************************* -%%% MESSAGES OWNED BY IP -%%%********************************************************************* - - - - --record(ip_dead_table, {sender}). - - --record(ip_register_parent, {sender}). - - - --record(ip_update, {sender, - nof_elements_to_mark, - text}). - - - --record(ip_quit, {sender}). - - - - -%%%********************************************************************* -%%% MESSAGES OWNED BY INFO -%%%********************************************************************* - - --record(info_update_table_info, {sender}). - - - --record(info_raise_window, {sender}). - - - --record(info_restart, {sender, - node, - table_id, - table_type}). - - - --record(info_quit, {sender}). - - diff --git a/lib/tv/src/tv_io_lib.erl b/lib/tv/src/tv_io_lib.erl deleted file mode 100644 index 5457575b7d..0000000000 --- a/lib/tv/src/tv_io_lib.erl +++ /dev/null @@ -1,223 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 1998-2010. 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: This file contains io functions adapted to the -%%% TV requirements. -%%% -%%%********************************************************************* - --module(tv_io_lib). - - --export([format/2]). - --export([write/1,write/2]). --export([write_atom/1,write_string/2]). - --export([char_list/1,deep_char_list/1,printable_list/1]). - - - -%% Interface calls to sub-modules. - -format(Format, Args) -> - tv_io_lib_format:fwrite(Format, Args). - - -%% write(Term) -%% write(Term, Depth) -%% write(Term, Depth, Pretty) -%% Return a (non-flattened) list of characters giving a printed -%% representation of the term. - -write(Term) -> write(Term, -1). - -write(_Term, 0) -> "..."; -write(Term, _D) when is_integer(Term) -> integer_to_list(Term); -write(Term, _D) when is_float(Term) -> tv_io_lib_format:fwrite_g(Term); -write(Atom, _D) when is_atom(Atom) -> write_atom(Atom); -write(Term, _D) when is_port(Term) -> lists:flatten(io_lib:write(Term)); -write(Term, _D) when is_pid(Term) -> pid_to_list(Term); -write(Term, _D) when is_reference(Term) -> io_lib:write(Term); -write(Term, _D) when is_binary(Term), byte_size(Term) > 100 -> "#Bin"; -write(Term, _D) when is_binary(Term) -> "<<\"" ++ binary_to_list(Term) ++ "\">>"; -write(Term, _D) when is_bitstring(Term) -> "#Bitstr"; -write([], _D) -> "[]"; -write({}, _D) -> "{}"; -write([H|T], D) -> - if - D =:= 1 -> "[...]"; - true -> - [$[,[write(H, D-1)|write_tail(T, D-1)],$]] - end; -write(F, _D) when is_function(F) -> - {module,M} = erlang:fun_info(F, module), - ["#Fun<",atom_to_list(M),">"]; -write(T, D) when is_tuple(T) -> - if - D =:= 1 -> "{...}"; - true -> - [${, - [write(element(1, T), D-1)|write_tail(tl(tuple_to_list(T)), D-1)], - $}] - end. - -%% write_tail(List, Depth) -%% Test the terminating case first as this looks better with depth. - -write_tail([], _D) -> ""; -write_tail(_List, 1) -> "|..."; -write_tail([H|T], D) -> - [$,,write(H, D-1)|write_tail(T, D-1)]; -write_tail(Other, D) -> - [$|,write(Other, D-1)]. - -%% write_atom(Atom) -> [Char] -%% Generate the list of characters needed to print an atom. - -write_atom(Atom) -> - Chars = atom_to_list(Atom), - case quote_atom(Atom, Chars) of - true -> - write_string(Chars, $'); - false -> - Chars - end. - - -write_string(S, Q) -> - [Q|write_string1(S, Q)]. - -write_string1([], Q) -> - [Q]; -write_string1([C|Cs], Q) -> - write_char(C, Q, write_string1(Cs, Q)). - - -write_char(Q, Q, Tail) -> %Must check this first - [$\\,Q|Tail]; -write_char($\\, _, Tail) -> %In printable character range - [$\\,$\\|Tail]; -write_char(C, _, Tail) when C >= $ , C =< $~ -> - [C|Tail]; -write_char(C, _, Tail) when C >= 128+$ , C =< 255 -> - [C|Tail]; -write_char($\n, _Q, Tail) -> %\n = LF - [$\\,$n|Tail]; -write_char($\r, _, Tail) -> %\r = CR - [$\\,$r|Tail]; -write_char($\t, _, Tail) -> %\t = TAB - [$\\,$t|Tail]; -write_char($\v, _, Tail) -> %\v = VT - [$\\,$v|Tail]; -write_char($\b, _, Tail) -> %\b = BS - [$\\,$b|Tail]; -write_char($\f, _, Tail) -> %\f = FF - [$\\,$f|Tail]; -write_char($\e, _, Tail) -> %\e = ESC - [$\\,$e|Tail]; -write_char($\d, _, Tail) -> %\d = DEL - [$\\,$d|Tail]; -write_char(C, _, Tail) when C < $ -> - C1 = (C bsr 3) + $0, - C2 = (C band 7) + $0, - [$\\,$0,C1,C2|Tail]; -write_char(C, _, Tail) when C > $~ -> - C1 = (C bsr 6) + $0, - C2 = ((C bsr 3) band 7) + $0, - C3 = (C band 7) + $0, - [$\\,C1,C2,C3|Tail]. - -%% quote_atom(Atom, CharList) -%% Return 'true' if atom with chars in CharList needs to be quoted, else -%% return 'false'. - -quote_atom(Atom, Cs0) -> - case erl_scan:reserved_word(Atom) of - true -> true; - false -> - case Cs0 of - [C|Cs] when C >= $a, C =< $z -> - quote_atom(Cs); - _ -> true - end - end. - -quote_atom([C|Cs]) when C >= $a, C =< $z -> - quote_atom(Cs); -quote_atom([C|Cs]) when C >= $A, C =< $Z -> - quote_atom(Cs); -quote_atom([C|Cs]) when C >= $0, C =< $9 -> - quote_atom(Cs); -quote_atom([$_|Cs]) -> - quote_atom(Cs); -quote_atom([$@|Cs]) -> - quote_atom(Cs); -quote_atom([_|_]) -> - true; -quote_atom([]) -> - false. - -%% char_list(CharList) -%% deep_char_list(CharList) -%% Return true if CharList is a (possibly deep) list of characters, else -%% false. - -char_list([C|Cs]) when is_integer(C), C >= 0, C =< 255 -> - char_list(Cs); -char_list([]) -> true; -char_list(_Other) -> false. %Everything else is false - -deep_char_list(Cs) -> - deep_char_list(Cs, []). - -deep_char_list([C|Cs], More) when is_list(C) -> - deep_char_list(C, [Cs|More]); -deep_char_list([C|Cs], More) when is_integer(C), C >= 0, C =< 255 -> - deep_char_list(Cs, More); -deep_char_list([], [Cs|More]) -> - deep_char_list(Cs, More); -deep_char_list([], []) -> true; -deep_char_list(_Other, _More) -> %Everything else is false - false. - -%% printable_list([Char]) -> bool() -%% Return true if CharList is a list of printable characters, else -%% false. - -printable_list([C|Cs]) when is_integer(C), C >= $ , C =< 255 -> - printable_list(Cs); -printable_list([$\n|Cs]) -> - printable_list(Cs); -printable_list([$\r|Cs]) -> - printable_list(Cs); -printable_list([$\t|Cs]) -> - printable_list(Cs); -printable_list([$\v|Cs]) -> - printable_list(Cs); -printable_list([$\b|Cs]) -> - printable_list(Cs); -printable_list([$\f|Cs]) -> - printable_list(Cs); -printable_list([$\e|Cs]) -> - printable_list(Cs); -printable_list([]) -> true; -printable_list(_Other) -> false. %Everything else is false - - diff --git a/lib/tv/src/tv_io_lib_format.erl b/lib/tv/src/tv_io_lib_format.erl deleted file mode 100644 index e043d9296e..0000000000 --- a/lib/tv/src/tv_io_lib_format.erl +++ /dev/null @@ -1,386 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 1998-2010. 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% --module(tv_io_lib_format). - - --export([fwrite/2,fwrite_g/1,indentation/2]). - - -%% fwrite(Format, ArgList) -> [Char]. -%% Format the arguments in ArgList after string Format. Just generate -%% an error if there is an error in the arguments. -%% -%% To do the printing command correctly we need to calculate the -%% current indentation for everything before it. This may be very -%% expensive, especially when it is not needed, so we first determine -%% if, and for how long, we need to calculate the indentations. We do -%% this by first collecting all the control sequences and -%% corresponding arguments, then counting the print sequences and -%% then building the output. This method has some drawbacks, it does -%% two passes over the format string and creates more temporary data, -%% and it also splits the handling of the control characters into two -%% parts. - -fwrite(Format, Args) when is_atom(Format) -> - fwrite(atom_to_list(Format), Args); -fwrite(Format, Args) -> - Cs = collect(Format, Args), - Pc = pcount(Cs), - build(Cs, Pc, 0). - -collect([$~|Fmt0], Args0) -> - {C,Fmt1,Args1} = collect_cseq(Fmt0, Args0), - [C|collect(Fmt1, Args1)]; -collect([C|Fmt], Args) -> - [C|collect(Fmt, Args)]; -collect([], []) -> []. - -collect_cseq(Fmt0, Args0) -> - {F,Ad,Fmt1,Args1} = field_width(Fmt0, Args0), - {P,Fmt2,Args2} = precision(Fmt1, Args1), - {Pad,Fmt3,Args3} = pad_char(Fmt2, Args2), - {C,As,Fmt4,Args4} = collect_cc(Fmt3, Args3), - {{C,As,F,Ad,P,Pad},Fmt4,Args4}. - -field_width([$-|Fmt0], Args0) -> - {F,Fmt,Args} = field_value(Fmt0, Args0), - field_width(-F, Fmt, Args); -field_width(Fmt0, Args0) -> - {F,Fmt,Args} = field_value(Fmt0, Args0), - field_width(F, Fmt, Args). - -field_width(F, Fmt, Args) when F < 0 -> - {-F,left,Fmt,Args}; -field_width(F, Fmt, Args) when F >= 0 -> - {F,right,Fmt,Args}. - -precision([$.|Fmt], Args) -> - field_value(Fmt, Args); -precision(Fmt, Args) -> - {none,Fmt,Args}. - -field_value([$*|Fmt], [A|Args]) when is_integer(A) -> - {A,Fmt,Args}; -field_value([C|Fmt], Args) when C >= $0, C =< $9 -> - field_value([C|Fmt], Args, 0); -field_value(Fmt, Args) -> - {none,Fmt,Args}. - -field_value([C|Fmt], Args, F) when C >= $0, C =< $9 -> - field_value(Fmt, Args, 10*F + (C - $0)); -field_value(Fmt, Args, F) -> %Default case - {F,Fmt,Args}. - -pad_char([$.,$*|Fmt], [Pad|Args]) -> {Pad,Fmt,Args}; -pad_char([$.,Pad|Fmt], Args) -> {Pad,Fmt,Args}; -pad_char(Fmt, Args) -> {$ ,Fmt,Args}. - -%% collect_cc([FormatChar], [Argument]) -> -%% {Control,[ControlArg],[FormatChar],[Arg]}. -%% Here we collect the argments for each control character. -%% Be explicit to cause failure early. - -collect_cc([$w|Fmt], [A|Args]) -> {$w,[A],Fmt,Args}; -collect_cc([$p|Fmt], [A|Args]) -> {$p,[A],Fmt,Args}; -collect_cc([$W|Fmt], [A,Depth|Args]) -> {$W,[A,Depth],Fmt,Args}; -collect_cc([$P|Fmt], [A,Depth|Args]) -> {$P,[A,Depth],Fmt,Args}; -collect_cc([$s|Fmt], [A|Args]) -> {$s,[A],Fmt,Args}; -collect_cc([$e|Fmt], [A|Args]) -> {$e,[A],Fmt,Args}; -collect_cc([$f|Fmt], [A|Args]) -> {$f,[A],Fmt,Args}; -collect_cc([$g|Fmt], [A|Args]) -> {$g,[A],Fmt,Args}; -collect_cc([$c|Fmt], [A|Args]) -> {$c,[A],Fmt,Args}; -collect_cc([$~|Fmt], Args) -> {$~,[],Fmt,Args}; -collect_cc([$n|Fmt], Args) -> {$n,[],Fmt,Args}; -collect_cc([$i|Fmt], [A|Args]) -> {$i,[A],Fmt,Args}. - -%% pcount([ControlC]) -> Count. -%% Count the number of print requests. - -pcount(Cs) -> pcount(Cs, 0). - -pcount([{$p,_As,_F,_Ad,_P,_Pad}|Cs], Acc) -> pcount(Cs, Acc+1); -pcount([{$P,_As,_F,_Ad,_P,_Pad}|Cs], Acc) -> pcount(Cs, Acc+1); -pcount([_|Cs], Acc) -> pcount(Cs, Acc); -pcount([], Acc) -> Acc. - -%% build([Control], Pc, Indentation) -> [Char]. -%% Interpret the control structures. Count the number of print -%% remaining and only calculate indentation when necessary. Must also -%% be smart when calculating indentation for characters in format. - -build([{C,As,F,Ad,P,Pad}|Cs], Pc0, I) -> - S = control(C, As, F, Ad, P, Pad, I), - Pc1 = decr_pc(C, Pc0), - if - Pc1 > 0 -> [S|build(Cs, Pc1, indentation(S, I))]; - true -> [S|build(Cs, Pc1, I)] - end; -build([$\n|Cs], Pc, _I) -> [$\n|build(Cs, Pc, 0)]; -build([$\t|Cs], Pc, I) -> [$\t|build(Cs, Pc, ((I + 8) div 8) * 8)]; -build([C|Cs], Pc, I) -> [C|build(Cs, Pc, I+1)]; -build([], _, _) -> []. - -decr_pc($p, Pc) -> Pc - 1; -decr_pc($P, Pc) -> Pc - 1; -decr_pc(_C, Pc) -> Pc. - -%% control(FormatChar, [Argument], FieldWidth, Adjust, Precision, PadChar, - -%% Indentation) -> -%% [Char] -%% This is the main dispatch function for the various formatting commands. -%% Field widths and precisions have already been calculated. - -control($w, [A], F, Adj, P, Pad, _I) -> - term(tv_io_lib:write(A, -1), F, Adj, P, Pad); -control($p, [A], F, Adj, P, Pad, I) -> - print(A, -1, F, Adj, P, Pad, I); -control($W, [A,Depth], F, Adj, P, Pad, _I) when is_integer(Depth) -> - term(tv_io_lib:write(A, Depth), F, Adj, P, Pad); -control($P, [A,Depth], F, Adj, P, Pad, I) when is_integer(Depth) -> - print(A, Depth, F, Adj, P, Pad, I); -control($s, [A], F, Adj, P, Pad, _I) when is_atom(A) -> - string(atom_to_list(A), F, Adj, P, Pad); -control($s, [L], F, Adj, P, Pad, _I) -> - true = tv_io_lib:deep_char_list(L), %Check if L a character list - string(L, F, Adj, P, Pad); -control($e, [A], F, Adj, P, Pad, _I) when is_float(A) -> - fwrite_e(A, F, Adj, P, Pad); -control($f, [A], F, Adj, P, Pad, _I) when is_float(A) -> - fwrite_f(A, F, Adj, P, Pad); -control($g, [A], F, Adj, P, Pad, _I) when is_float(A) -> - fwrite_g(A, F, Adj, P, Pad); -control($c, [A], F, Adj, P, Pad, _I) when is_integer(A) -> - char(A band 255, F, Adj, P, Pad); -control($~, [], F, Adj, P, Pad, _I) -> char($~, F, Adj, P, Pad); -control($n, [], F, Adj, P, Pad, _I) -> newline(F, Adj, P, Pad); -control($i, [_A], _F, _Adj, _P, _Pad, _I) -> []. - -%% indentation([Char], Indentation) -> Indentation. -%% Calculate the indentation of the end of a string given its start -%% indentation. We assume tabs at 8 cols. - -indentation([$\n|Cs], _I) -> indentation(Cs, 0); -indentation([$\t|Cs], I) -> indentation(Cs, ((I + 8) div 8) * 8); -indentation([C|Cs], I) when is_integer(C) -> - indentation(Cs, I+1); -indentation([C|Cs], I) -> - indentation(Cs, indentation(C, I)); -indentation([], I) -> I. - -%% term(TermList, Field, Adjust, Precision, PadChar) -%% Output the characters in a term. - -term(T, none, _Adj, none, _Pad) -> T; -term(T, none, Adj, P, Pad) -> term(T, P, Adj, P, Pad); -term(T, F, Adj, none, Pad) -> term(T, F, Adj, erlang:min(flat_length(T), F), Pad); -term(T, F, Adj, P, Pad) when F >= P -> - adjust_error(T, F, Adj, P, Pad). - -%% print(Term, Depth, Field, Adjust, Precision, PadChar, Indentation) -%% Print a term. - -print(T, D, none, Adj, P, Pad, I) -> print(T, D, 80, Adj, P, Pad, I); -print(T, D, F, Adj, none, Pad, I) -> print(T, D, F, Adj, I+1, Pad, I); -print(T, D, F, right, P, _Pad, _I) -> - tv_io_lib_pretty:pretty_print(T, P, F, D). - -%% fwrite_e(Float, Field, Adjust, Precision, PadChar) - -fwrite_e(Fl, none, Adj, none, Pad) -> %Default values - fwrite_e(Fl, none, Adj, 6, Pad); -fwrite_e(Fl, none, _Adj, P, _Pad) when P >= 2 -> - float_e(Fl, float_data(Fl), P); -fwrite_e(Fl, F, Adj, none, Pad) -> - fwrite_e(Fl, F, Adj, 6, Pad); -fwrite_e(Fl, F, Adj, P, Pad) when P >= 2 -> - adjust_error(float_e(Fl, float_data(Fl), P), F, Adj, F, Pad). - -float_e(Fl, Fd, P) when Fl < 0.0 -> %Negative numbers - [$-|float_e(-Fl, Fd, P)]; -float_e(_Fl, {Ds,E}, P) -> - case float_man(Ds, 1, P-1) of - {[$0|Fs],true} -> [[$1|Fs]|float_exp(E)]; - {Fs,false} -> [Fs|float_exp(E-1)] - end. - -%% float_man([Digit], Icount, Dcount) -> {[Chars],CarryFlag}. -%% Generate the characters in the mantissa from the digits with Icount -%% characters before the '.' and Dcount decimals. Handle carry and let -%% caller decide what to do at top. - -float_man(Ds, 0, Dc) -> - {Cs,C} = float_man(Ds, Dc), - {[$.|Cs],C}; -float_man([D|Ds], I, Dc) -> - case float_man(Ds, I-1, Dc) of - {Cs,true} when D =:= $9 -> {[$0|Cs],true}; - {Cs,true} -> {[D+1|Cs],false}; - {Cs,false} -> {[D|Cs],false} - end; -float_man([], I, Dc) -> %Pad with 0's - {string:chars($0, I, [$.|string:chars($0, Dc)]),false}. - -float_man([D|_Ds], 0) when D >= $5 -> {[],true}; -float_man([_|_], 0) -> {[],false}; -float_man([D|Ds], Dc) -> - case float_man(Ds, Dc-1) of - {Cs,true} when D =:= $9 -> {[$0|Cs],true}; - {Cs,true} -> {[D+1|Cs],false}; - {Cs,false} -> {[D|Cs],false} - end; -float_man([], Dc) -> {string:chars($0, Dc),false}. %Pad with 0's - -%% float_exp(Exponent) -> [Char]. -%% Generate the exponent of a floating point number. Alwayd include sign. - -float_exp(E) when E >= 0 -> - [$e,$+|integer_to_list(E)]; -float_exp(E) -> - [$e|integer_to_list(E)]. - -%% fwrite_f(FloatData, Field, Adjust, Precision, PadChar) - -fwrite_f(Fl, none, Adj, none, Pad) -> %Default values - fwrite_f(Fl, none, Adj, 6, Pad); -fwrite_f(Fl, none, _Adj, P, _Pad) when P >= 1 -> - float_f(Fl, float_data(Fl), P); -fwrite_f(Fl, F, Adj, none, Pad) -> - fwrite_f(Fl, F, Adj, 6, Pad); -fwrite_f(Fl, F, Adj, P, Pad) when P >= 1 -> - adjust_error(float_f(Fl, float_data(Fl), P), F, Adj, F, Pad). - -float_f(Fl, Fd, P) when Fl < 0.0 -> - [$-|float_f(-Fl, Fd, P)]; -float_f(Fl, {Ds,E}, P) when E =< 0 -> - float_f(Fl, {string:chars($0, -E+1, Ds),1}, P); %Prepend enough 0's -float_f(_Fl, {Ds,E}, P) -> - case float_man(Ds, E, P) of - {Fs,true} -> "1" ++ Fs; %Handle carry - {Fs,false} -> Fs - end. - -%% float_data([FloatChar]) -> {[Digit],Exponent} - -float_data(Fl) -> - float_data(float_to_list(Fl), []). - -float_data([$e|E], Ds) -> - {reverse(Ds),list_to_integer(E)+1}; -float_data([D|Cs], Ds) when D >= $0, D =< $9 -> - float_data(Cs, [D|Ds]); -float_data([_D|Cs], Ds) -> - float_data(Cs, Ds). - - -%% fwrite_g(Float, Field, Adjust, Precision, PadChar) -%% Use the f form if Float is > 0.1 and < 10^4, else the e form. -%% Precision always means the # of significant digits. - -fwrite_g(Fl) -> - fwrite_g(Fl, none, right, none, $\s). - -fwrite_g(Fl, F, Adj, none, Pad) -> - fwrite_g(Fl, F, Adj, 6, Pad); -fwrite_g(Fl, F, Adj, P, Pad) when abs(Fl) < 0.1 -> - fwrite_e(Fl, F, Adj, P, Pad); -fwrite_g(Fl, F, Adj, P, Pad) when abs(Fl) < 1.0 -> - fwrite_f(Fl, F, Adj, P, Pad); -fwrite_g(Fl, F, Adj, P, Pad) when abs(Fl) < 10.0 -> - fwrite_f(Fl, F, Adj, P-1, Pad); -fwrite_g(Fl, F, Adj, P, Pad) when abs(Fl) < 100.0 -> - fwrite_f(Fl, F, Adj, P-2, Pad); -fwrite_g(Fl, F, Adj, P, Pad) when abs(Fl) < 1000.0 -> - fwrite_f(Fl, F, Adj, P-3, Pad); -fwrite_g(Fl, F, Adj, P, Pad) when abs(Fl) < 10000.0 -> - fwrite_f(Fl, F, Adj, P-4, Pad); -fwrite_g(Fl, F, Adj, P, Pad) -> - fwrite_e(Fl, F, Adj, P, Pad). - -%% string(String, Field, Adjust, Precision, PadChar) - -string(S, none, _Adj, none, _Pad) -> S; -string(S, F, Adj, none, Pad) -> - string(S, F, Adj, erlang:min(flat_length(S), F), Pad); -string(S, none, _Adj, P, Pad) -> - string:left(flatten(S), P, Pad); -string(S, F, Adj, P, Pad) when F >= P -> - adjust(string:left(flatten(S), P, Pad), string:chars(Pad, F - P), Adj). - -%% char(Char, Field, Adjust, Precision, PadChar) -> [Char]. - -char(C, none, _Adj, none, _Pad) -> [C]; -char(C, F, _Adj, none, _Pad) -> string:chars(C, F); -char(C, none, _Adj, P, _Pad) -> string:chars(C, P); -char(C, F, Adj, P, Pad) when F >= P -> - adjust(string:chars(C, P), string:chars(Pad, F - P), Adj). - -%% newline(Field, Adjust, Precision, PadChar) -> [Char]. - -newline(none, _Adj, _P, _Pad) -> "\n"; -newline(F, right, _P, _Pad) -> string:chars($\n, F). - -%% adjust_error([Char], Field, Adjust, Max, PadChar) -> [Char]. -%% Adjust the characters within the field if length less than Max padding -%% with PadChar. - -adjust_error(Cs, F, Adj, M, Pad) -> - L = flat_length(Cs), - if - L > M -> - adjust(string:chars($*, M), string:chars(Pad, F - M), Adj); - true -> - adjust(Cs, string:chars(Pad, F - L), Adj) - end. - -adjust(Data, Pad, left) -> [Data,Pad]; -adjust(Data, Pad, right) -> [Pad,Data]. - -%% -%% Utilities -%% - -reverse(List) -> - reverse(List, []). - -reverse([H|T], Stack) -> - reverse(T, [H|Stack]); -reverse([], Stack) -> Stack. - -%% flatten(List) -%% Flatten a list. - -flatten(List) -> flatten(List, []). - -flatten([H|T], Cont) when is_list(H) -> - flatten(H, [T|Cont]); -flatten([H|T], Cont) -> - [H|flatten(T, Cont)]; -flatten([], [H|Cont]) -> flatten(H, Cont); -flatten([], []) -> []. - -%% flat_length(List) -%% Calculate the length of a list of lists. - -flat_length(List) -> flat_length(List, 0). - -flat_length([H|T], L) when is_list(H) -> - flat_length(H, flat_length(T, L)); -flat_length([_|T], L) -> - flat_length(T, L + 1); -flat_length([], L) -> L. diff --git a/lib/tv/src/tv_io_lib_pretty.erl b/lib/tv/src/tv_io_lib_pretty.erl deleted file mode 100644 index c19277d006..0000000000 --- a/lib/tv/src/tv_io_lib_pretty.erl +++ /dev/null @@ -1,171 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 1998-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% --module(tv_io_lib_pretty). - - - --export([pretty_print/4]). - -%% pretty_print(Term, Column, LineLength, Depth) -> [Chars] -%% Depth = -1 gives unlimited print depth. Use tv_io_lib:write for atomic terms. - -pretty_print(_, _, _, 0) -> "..."; -pretty_print([], _, _, _) -> "[]"; -pretty_print({}, _, _, _) -> "{}"; -pretty_print(List, Col, Ll, D) when is_list(List) -> - case tv_io_lib:printable_list(List) of - true -> - tv_io_lib:write_string(List, $"); - false -> - Len = write_length(List, D, 0, Ll - Col), - if - D =:= 1 -> "[...]"; - Len + Col < Ll -> - write(List, D); - true -> - [$[, - [pretty_print(hd(List), Col + 1, Ll, D - 1)| - pretty_print_tail(tl(List), Col + 1, Ll, D - 1)], - $]] - end - end; -pretty_print(Fun, _Col, _Ll, _D) when is_function(Fun) -> - tv_io_lib:write(Fun); -pretty_print(Tuple, Col, Ll, D) when is_tuple(Tuple) -> - Len = write_length(Tuple, D, 0, Ll - Col), - if - D =:= 1 -> "{...}"; - Len + Col < Ll -> - write(Tuple, D); - is_atom(element(1, Tuple)), size(Tuple) > 1 -> - print_tag_tuple(Tuple, Col, Ll, D); - true -> - [${, - [pretty_print(element(1, Tuple), Col + 1, Ll, D - 1)| - pretty_print_tail(tl(tuple_to_list(Tuple)), Col + 1, Ll, D - 1)], - $}] - end; -pretty_print(Term, _Col, _Ll, D) -> tv_io_lib:write(Term, D). - -%% print_tag_tuple(Tuple, Column, LineLength, Depth) -> [Char] -%% Print a tagged tuple by indenting the rest of the elements differently -%% to the tag. Start beside the tag if start column not too far to -%% the right. Tuple has size >= 2. - -print_tag_tuple(Tuple, Col, Ll, D) -> - Tag = tv_io_lib:write_atom(element(1, Tuple)), - Tlen = length(Tag), - Tcol = Col + Tlen + 2, - if - Tcol >= Ll div 2, Tlen > 2 -> - [${,Tag, - pretty_print_tail(tl(tuple_to_list(Tuple)), Col + 4, Ll, D - 2), - $}]; - true -> - [${,Tag,$,, - [pretty_print(element(2, Tuple), Col + Tlen + 2, Ll, D - 2)| - pretty_print_tail(tl(tl(tuple_to_list(Tuple))), Tcol, Ll, D - 3)], - $}] - end. - -%% pretty_print_tail([Element], Column, LineLength, D) -> [Char] -%% Pretty print the elements of a list or tuple. - -pretty_print_tail([], _Col, _Ll, _D) -> ""; -pretty_print_tail(_Es, _Col, _Ll, 1) -> "|..."; -pretty_print_tail([E|Es], Col, Ll, D) -> - [$,,nl_indent(Col-1), - pretty_print(E, Col, Ll, D-1)| - pretty_print_tail(Es, Col, Ll, D-1)]; -pretty_print_tail(E, Col, Ll, D) -> - [$|,nl_indent(Col-1),pretty_print(E, Col, Ll, D-1)]. - -%% write(Term, Depth) -> [Char] -%% Write a term down to Depth on one line. Use tv_io_lib:write/2 for -%% atomic terms. - -write(_, 0) -> "..."; -write([], _) -> "[]"; -write({}, _) -> "{}"; -write(List, D) when is_list(List) -> - case tv_io_lib:printable_list(List) of - true -> - tv_io_lib:write_string(List, $"); - false -> - if - D =:= 1 -> "[...]"; - true -> - [$[, - [write(hd(List), D-1)|write_tail(tl(List), D-1)], - $]] - end - end; -write(Fun, _D) when is_function(Fun) -> tv_io_lib:write(Fun); %Must catch this first -write(T, D) when is_tuple(T) -> - if - D =:= 1 -> "{...}"; - true -> - [${, - [write(element(1, T), D-1)|write_tail(tl(tuple_to_list(T)), D-1)], - $}] - end; -write(Term, D) -> tv_io_lib:write(Term, D). - -write_tail([], _D) -> ""; -write_tail(_Es, 1) -> "|..."; -write_tail([E|Es], D) -> - [$,,write(E, D - 1)|write_tail(Es, D - 1)]; -write_tail(E, D) -> - [$|,write(E, D - 1)]. - -%% write_length(Term, Depth, Accumulator, MaxLength) -> integer() -%% Calculate the print length of a term, but exit when length becomes -%% greater than MaxLength. - -write_length(_T, _D, Acc, Max) when Acc > Max -> Acc; -write_length(_T, 0, Acc, _Max) -> Acc + 3; -write_length([], _, Acc, _) -> Acc + 2; -write_length({}, _, Acc, _) -> Acc + 2; -write_length(List, D, Acc, Max) when is_list(List) -> - case tv_io_lib:printable_list(List) of - true -> - Acc + length(tv_io_lib:write_string(List, $")); - false -> - write_length_list(List, D, Acc, Max) - end; -write_length(Fun, _D, Acc, _Max) when is_function(Fun) -> - Acc + length(tv_io_lib:write(Fun)); -write_length(Tuple, D, Acc, Max) when is_tuple(Tuple) -> - write_length_list(tuple_to_list(Tuple), D, Acc, Max); -write_length(Term, _D, Acc, _Max) -> - Acc + length(tv_io_lib:write(Term)). - -write_length_list(_, _, Acc, Max) when Acc > Max -> Acc; -write_length_list([], _, Acc, _) -> Acc + 1; %] -write_length_list(_Es, 1, Acc, _) -> Acc + 5; %|...] -write_length_list([E|Es], D, Acc, Max) -> - write_length_list(Es, - D - 1, - write_length(E, D - 1, Acc + 1, Max), - Max); -write_length_list(E, D, Acc, Max) -> - write_length(E, D - 1, Acc + 2, Max). %| ] - - - -nl_indent(_) -> "". diff --git a/lib/tv/src/tv_ip.erl b/lib/tv/src/tv_ip.erl deleted file mode 100644 index 9f66917362..0000000000 --- a/lib/tv/src/tv_ip.erl +++ /dev/null @@ -1,242 +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% --module(tv_ip). --compile([{nowarn_deprecated_function,{gs,canvas,2}}, - {nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,create,3}}, - {nowarn_deprecated_function,{gs,label,2}}, - {nowarn_deprecated_function,{gs,start,0}}, - {nowarn_deprecated_function,{gs,window,3}}]). - - - --export([ip/1]). - - - --include("tv_int_msg.hrl"). - - --define(NOF_LABELS, 25). - --define(DEFAULT_BG_COLOR, {217, 217, 217}). - - - - - - - -%%%********************************************************************* -%%% EXTERNAL FUNCTIONS -%%%********************************************************************* - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -ip(_Master) -> - W = gs:window(win, gs:start(), [{width, 302}, - {height, 38}, - {bg, ?DEFAULT_BG_COLOR}, - {title, "Launching..."} - ]), - C = gs:canvas(W, [{width, 40}, - {height, 35}, - {x, 0}, - {bg, {255, 255, 255}} - ]), - gs:create(image, C, [{load_gif, code:priv_dir(tv) ++ "/erlang.gif"}]), - gs:label(W, [{width, 252}, - {height, 12}, - {x, 47}, - {y, 23}, - {bg, {0, 0, 0}}, - {cursor, arrow} - ]), - - LabelList = create_labels(?NOF_LABELS, W, 48), - - L = gs:label(W, [{width, 250}, - {height, 18}, - {x, 47}, - {y, 0}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}}, - {align, w} - ]), - gs:config(win, [{map, true}]), - loop(1, LabelList, L). - - - - - - - - - -%%%********************************************************************* -%%% INTERNAL FUNCTIONS -%%%********************************************************************* - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -create_labels(0, _WinId, _Xpos) -> - []; -create_labels(N, WinId, Xpos) -> - Width = 10, - Xdiff = Width, - LabelId = gs:label(WinId, [{width, Width}, - {height, 10}, - {x, Xpos}, - {y, 24}, - {bg, {235, 235, 235}}, - {cursor, arrow} - ]), - - [LabelId | create_labels(N - 1, WinId, Xpos + Xdiff)]. - - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -loop(N, LabelList, L) -> - receive - Msg -> - case Msg of - - #ip_update{nof_elements_to_mark = X, text = Text} -> - update_window(LabelList, N, N + X, L, Text), - loop(N + X, LabelList, L); - - #ip_quit{} -> - update_labels(LabelList, N, ?NOF_LABELS), - receive - after 1000 -> - done - end, - done; - - _Other -> - loop(N, LabelList, L) - end - end. - - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -update_window(LabelList, N, Hi, LblId, Text) -> - gs:config(win, [raise]), - gs:config(LblId, [{label, {text, Text}}]), - update_labels(LabelList, N, Hi). - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -update_labels(_LabelList, N, _Hi) when N > ?NOF_LABELS -> - done; -update_labels(_LabelList, N, Hi) when N >= Hi -> - done; -update_labels(LabelList, N, Hi) -> - LabelId = lists:nth(N, LabelList), - gs:config(LabelId, [{bg, {0, 0, 255}}]), - update_labels(LabelList, N + 1, Hi). - - - - - - - - - - - - diff --git a/lib/tv/src/tv_main.erl b/lib/tv/src/tv_main.erl deleted file mode 100644 index b6ffbd7c49..0000000000 --- a/lib/tv/src/tv_main.erl +++ /dev/null @@ -1,1821 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 1998-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% --module(tv_main). --compile([{nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,destroy,1}}, - {nowarn_deprecated_function,{gs,frame,3}}, - {nowarn_deprecated_function,{gs,grid,3}}, - {nowarn_deprecated_function,{gs,gridline,2}}, - {nowarn_deprecated_function,{gs,label,3}}, - {nowarn_deprecated_function,{gs,menu,2}}, - {nowarn_deprecated_function,{gs,menubar,3}}, - {nowarn_deprecated_function,{gs,menubutton,2}}, - {nowarn_deprecated_function,{gs,menuitem,2}}, - {nowarn_deprecated_function,{gs,menuitem,3}}, - {nowarn_deprecated_function,{gs,read,2}}, - {nowarn_deprecated_function,{gs,start,0}}, - {nowarn_deprecated_function,{gs,window,3}}]). - - - --export([start/0, - init/0 - ]). - - --export([get_ets_tables/1, - get_mnesia_tables/1 - ]). - - - --include("tv_main.hrl"). --include("tv_int_msg.hrl"). --include("tv_pd_int_msg.hrl"). --include("tv_pd_int_def.hrl"). - - - - -%%%********************************************************************* -%%% EXTERNAL FUNCTIONS -%%%********************************************************************* - - -start() -> - spawn(?MODULE, init, []). - - - -init() -> - process_flag(trap_exit,true), - %% OK, so it's *BAD* to use the process dictionary... - %% So why have I used it? Because it is simple to remove the haiku-functionality, - %% if that is desired. Otherwise a lot of functions (the parameters) would have - %% to be changed. - put(error_msg_mode, ?ERROR_MSG_MODE), - KindOfTable = ets, - SysTabHidden = true, - UnreadHidden = true, - SortKey = ?NAME_COL, - CurrNode = node(), - Children = start_tv_nodewin(CurrNode), - {MarkedCell, TempGridLines, WinSize, ShortcutList} = create_window([]), - Tables = get_tables(CurrNode, KindOfTable, UnreadHidden, SysTabHidden,SortKey), - gs:config(grid, [{rows, {1, get_nof_rows(length(Tables), - gs:read(grid, height))}}]), - GridLines = update_gridlines(Tables, TempGridLines, 1), - gs:config(win, [{map, true}, {cursor,arrow}]), - %% To avoid unpleasant error/exit messages, we surround the loop with a catch. - catch loop(KindOfTable, CurrNode, MarkedCell, GridLines, WinSize, Tables, ShortcutList, - UnreadHidden, SysTabHidden, SortKey, Children). - - - -start_tv_nodewin(CurrNode) -> - NodewinPid = tv_nodewin:start(CurrNode, get(error_msg_mode)), - [{NodewinPid, tv_nodewin, CurrNode}]. - - - - - -get_ets_tables(SysTabHidden) -> - Tables = ets:all(), - get_ets_table_info(Tables, - hidden_tables(ets, SysTabHidden) ++ - current_mnesia_tables(SysTabHidden), - owners_to_hide(ets, SysTabHidden), - []). - - - -get_mnesia_tables(SysTabHidden) -> - Tables = mnesia:system_info(tables), - get_mnesia_table_info(Tables -- hidden_tables(mnesia, SysTabHidden), - owners_to_hide(mnesia, SysTabHidden), - []). - - - - - -owners_to_hide(ets, true) -> - ?SYSTEM_OWNERS; -owners_to_hide(ets, false) -> - []; -owners_to_hide(mnesia, true) -> - []; -owners_to_hide(mnesia, false) -> - []. - - - - -get_mnesia_table_info([], _OwnersToHide, Acc) -> - lists:keysort(?NAME_ELEM, Acc); -get_mnesia_table_info([TabId | Tail], OwnersToHide, Acc) -> - case catch get_mnesia_owner_size(TabId) of - {'EXIT', _Reason} -> - %% Ignore tables ceasing to exist. - %% Nodedown errors caught above! - get_mnesia_table_info(Tail, OwnersToHide, Acc); - {OwnerPid, OwnerName, Size} -> - case lists:member(OwnerName, OwnersToHide) of - true -> - get_mnesia_table_info(Tail, OwnersToHide, Acc); - false -> - Readable = not(lists:member(TabId, ?UNREADABLE_MNESIA_TABLES)), - get_mnesia_table_info(Tail, - OwnersToHide, - [{TabId, {notext}, {notext}, Readable, - OwnerPid, OwnerName, Size} | Acc]) - end - end. - - - - -get_mnesia_owner_size(TabId) -> - {OwnerPid, OwnerName} = - case catch mnesia:table_info(TabId, owner) of - Pid when is_pid(Pid) -> - case lists:keysearch(registered_name, 1, process_info(Pid)) of - false -> - {Pid, {notext}}; - {value, {registered_name, ProcName}} -> - {Pid, ProcName} - end; - _Other -> - {{notext}, {notext}} - end, - Size = mnesia:table_info(TabId, size), - {OwnerPid, OwnerName, Size}. - - - - - - - -hidden_tables(_Any, true) -> - ?SYSTEM_TABLES ++ ?MNESIA_TABLES; -hidden_tables(ets, _SysTabHidden) -> - ?MNESIA_TABLES; -hidden_tables(mnesia, _SysTabHidden) -> - []. - - - - -get_tables(Node, KindOfTable, UnreadHidden, SysTabHidden,SortKey) -> - LocalNode = (Node =:= node()), - Tables = - case catch get_table_list(Node,LocalNode,KindOfTable,SysTabHidden) of - Result when is_list(Result) -> - case UnreadHidden of - true -> - lists:filter(fun(H) -> - element(?READABLE_ELEM, H) - end, - Result); - _Other -> - Result - end; - Error -> - analyze_error(Error, Node, undefined), - [] - end, - case SortKey of - ?PROCNAME_ELEM -> - lists:keysort(SortKey, - lists:keysort(?PID_ELEM, Tables)); - _OtherCol -> - lists:keysort(SortKey, - lists:keysort(?NAME_ELEM, Tables)) - end. - - - - - -get_ets_table_info([], _TablesToHide, _OwnersToHide, Acc) -> - lists:keysort(?ID_ELEM, Acc); -get_ets_table_info([TabId | Tail], TablesToHide, OwnersToHide, Acc) -> - case catch get_ets_name_owner_protection(TabId) of - {'EXIT', _Reason} -> - %% Ignore tables ceasing to exist. - %% Nodedown errors caught above! - get_ets_table_info(Tail, TablesToHide, OwnersToHide, Acc); - {Name, NamedTable, Id, Readable, OwnerPid, OwnerName, Size} -> - case lists:member(Name, TablesToHide) of - true -> - get_ets_table_info(Tail, TablesToHide, OwnersToHide, Acc); - false -> - case lists:member(OwnerName, OwnersToHide) of - true -> - get_ets_table_info(Tail, TablesToHide, OwnersToHide, Acc); - false -> - get_ets_table_info(Tail, TablesToHide, OwnersToHide, - [{Name,NamedTable,Id,Readable, - OwnerPid,OwnerName,Size} | Acc]) - end - end - end. - - - -get_ets_name_owner_protection(TabId) -> - Name = ets:info(TabId, name), - OwnerPid = ets:info(TabId, owner), - Readable = case ets:info(TabId, protection) of - private -> - false; - _Other -> - true - end, - Size = ets:info(TabId, size), - {NamedTable,Id} = case ets:info(TabId, named_table) of - true -> - {true,{notext}}; - false -> - {false, TabId} - end, - PName = case lists:keysearch(registered_name, 1, process_info(OwnerPid)) of - false -> - {notext}; - {value, {registered_name, ProcName}} -> - ProcName - end, - {Name, NamedTable, Id, Readable, OwnerPid, PName, Size}. - - - - - - -current_mnesia_tables(SysTabHidden) -> - case catch get_table_list(node(), true, mnesia, SysTabHidden) of - Result when is_list(Result) -> - lists:map(fun(H) -> - element(?NAME_ELEM, H) - end, - Result); - nodedown -> - handle_error(nodedown, node(), undefined), - []; - _Other -> - [] - end. - - - - -get_table_list(_Node, true, ets, SysTabHidden) -> - get_ets_tables(SysTabHidden); -get_table_list(Node, false, ets, SysTabHidden) -> - case rpc:block_call(Node, ?MODULE, get_ets_tables, [SysTabHidden]) of - {badrpc, Reason} -> - throw({badrpc,Reason}); - Result -> - Result - end; -get_table_list(_Node, true, mnesia, SysTabHidden) -> - get_mnesia_tables(SysTabHidden); -get_table_list(Node, false, mnesia, SysTabHidden) -> - case rpc:block_call(Node, ?MODULE, get_mnesia_tables, [SysTabHidden]) of - {badrpc,Reason} -> - throw({badrpc,Reason}); - Result -> - Result - end. - - - - -analyze_error(Cause, Node, Table) -> - case Cause of - {badrpc, {'EXIT', {badarg,_Reason}}} -> - done; %% Table has ceased to exist. - {'EXIT', {badarg, {ets,local_info,_Args}}} -> - done; - - {badrpc, nodedown} -> - handle_error(nodedown, Node, Table); - {'EXIT', nodedown} -> - handle_error(nodedown, Node, Table); - - {'EXIT', {aborted, {node_not_running,_ErrNode}}} -> - handle_error(mnesia_not_started, Node, Table); - {'EXIT', {'EXIT', {aborted, {node_not_running,_ErrNode}}}} -> - handle_error(mnesia_not_started, Node, Table); - {badrpc, {'EXIT', {aborted, {node_not_running,_ErrNode}}}} -> - handle_error(mnesia_not_started, Node, Table); - {'EXIT', {undef, {mnesia,_Fcn,_Args,_}}} -> - handle_error(mnesia_not_started, Node, Table); - - {'EXIT', Reason} -> - handle_error({unexpected_error,Reason}, Node, Table); - Error when is_tuple(Error) -> - handle_error({unexpected_error,Error}, Node, Table) - end. - - - -handle_error(mnesia_not_started, _Node, _Table) -> - gs:config(win, [beep]), - case get(error_msg_mode) of - normal -> - tv_utils:notify(win, "TV Notification", ["Mnesia not started!"]); - haiku -> - tv_utils:notify(win, "TV Notification", ["Mnesia is stopped.", - "We wish to reach all data", - "But we never will."]) - end; -handle_error(nodedown, _Node, _Table) -> - gs:config(win, [beep]), - case get(error_msg_mode) of - normal -> - tv_utils:notify(win, "TV Notification", ["The selected node is down!"]); - haiku -> - Msg = ["With searching comes loss", - "And the presence of absence:", - "Node is down."], - tv_utils:notify(win, "TV Notification", Msg) - end, - self() ! nodedown; -handle_error({unexpected_error,Cause}, _Node, _Table) -> - io:format("Unexpected error: ~p~n", [Cause]), - gs:config(win, [beep]). - - - - -loop(KindOfTable,CurrNode,MarkedCell,GridLines, - WinSize,Tables,Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children) -> - receive - - {gs, Gridline, click, {grid,Readable}, [Col,Row,Text | _]} when Text =/= "" -> - unmark_cell(MarkedCell, Tables), - NewMarkedCell = mark_cell({Gridline, Col, Row}, MarkedCell, Readable), - loop(KindOfTable,CurrNode,NewMarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,Children); - - - {gs, _Gridline, click, {grid,_Readable}, [_Col,_Row,"" | _]} -> - NewMarkedCell = unmark_cell(MarkedCell, Tables), - loop(KindOfTable,CurrNode,NewMarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,Children); - - - {gs, Gridline, doubleclick, {grid,Data}, [?NAME_COL,Row,Text | _]} when Text =/= "" -> - unmark_cell(MarkedCell, Tables), - NewMarkedCell = mark_cell({Gridline, ?NAME_COL, Row}, undefined, Data), - {Table, Name, Readable} = get_table_id(KindOfTable, Row, Tables), - case start_tv_browser(Table,CurrNode,Name,KindOfTable,Readable,Children) of - Children -> - {FinalMarkedCell, NewTables, NewGridLines} = - refresh_window(NewMarkedCell,Tables,KindOfTable,CurrNode,GridLines, - UnreadHidden,SysTabHidden,SortKey, Children), - loop(KindOfTable,CurrNode,FinalMarkedCell,NewGridLines,WinSize,NewTables, - Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children); - NewChildren -> - loop(KindOfTable,CurrNode,NewMarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,NewChildren) - end; - - - {gs, Gridline, doubleclick, {grid,Data}, [?ID_COL,Row,Text | _]} when Text =/= "" -> - unmark_cell(MarkedCell, Tables), - NewMarkedCell = mark_cell({Gridline, ?ID_COL, Row}, undefined, Data), - {Table, Name, Readable} = get_table_id(KindOfTable, Row, Tables), - case start_tv_browser(Table,CurrNode,Name,KindOfTable,Readable,Children) of - Children -> - {FinalMarkedCell, NewTables, NewGridLines} = - refresh_window(NewMarkedCell,Tables,KindOfTable,CurrNode,GridLines, - UnreadHidden,SysTabHidden,SortKey, Children), - loop(KindOfTable,CurrNode,FinalMarkedCell,NewGridLines,WinSize,NewTables, - Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children); - NewChildren -> - loop(KindOfTable,CurrNode,NewMarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,NewChildren) - end; - - - {gs, Gridline, doubleclick, {grid,Data}, [?INFO_COL,Row,Text | _]} when Text =/= "" -> - unmark_cell(MarkedCell, Tables), - NewMarkedCell = mark_cell({Gridline, ?INFO_COL, Row}, undefined, Data), - {Table, _Name, _Readable} = get_table_id(KindOfTable, Row, Tables), - case start_tv_info(Table, CurrNode, CurrNode =:= node(), KindOfTable, Children) of - Children -> - {FinalMarkedCell, NewTables, NewGridLines} = - refresh_window(NewMarkedCell,Tables,KindOfTable,CurrNode,GridLines, - UnreadHidden,SysTabHidden,SortKey, Children), - loop(KindOfTable,CurrNode,FinalMarkedCell,NewGridLines,WinSize,NewTables, - Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children); - NewChildren -> - loop(KindOfTable,CurrNode,NewMarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,NewChildren) - end; - - - {gs, Gridline, doubleclick, {grid,Data}, [?PID_COL,Row,Text | _]} when Text =/= "" -> - unmark_cell(MarkedCell, Tables), - NewMarkedCell = mark_cell({Gridline, ?PID_COL, Row}, undefined, Data), - OwnerPid = element(?PID_ELEM, lists:nth(Row, Tables)), - NewChildren = start_pman(OwnerPid, Children), - loop(KindOfTable,CurrNode,NewMarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey, NewChildren); - - - {gs, Gridline, doubleclick, {grid,Data}, [?PROCNAME_COL,Row,Text | _]} when Text =/= "" -> - unmark_cell(MarkedCell, Tables), - NewMarkedCell = mark_cell({Gridline, ?PROCNAME_COL, Row}, undefined, Data), - OwnerPid = element(?PID_ELEM, lists:nth(Row, Tables)), - NewChildren = start_pman(OwnerPid, Children), - loop(KindOfTable,CurrNode,NewMarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey, NewChildren); - - -%% {gs, win, configure, _Data, [Width, Height | _]} when {Width,Height} /= WinSize -> - Msg0 = {gs, win, configure, _Data, [Width0, Height0 | _]} - when {Width0,Height0} =/= WinSize -> - {gs, win, configure, _, [Width,Height|_]} = flush_msgs(Msg0), - - NewSize = resize_window(Width, Height, length(Tables)), - loop(KindOfTable,CurrNode,MarkedCell,GridLines,NewSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,Children); - - - {gs, _Id, click, update, _Args} -> - gs:config(win, [{cursor,busy}]), - NewMarkedCell = unmark_cell(MarkedCell, Tables), - {NewTables, NewGridLines} = - update_grid(KindOfTable,CurrNode,GridLines,UnreadHidden,SysTabHidden,SortKey), - update_tv_info(Children), - gs:config(win, [{cursor,arrow}]), - loop(KindOfTable,CurrNode,NewMarkedCell,NewGridLines,WinSize,NewTables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,Children); - - - {gs, _Id, click, open_table, _Args} -> - {Table, Name, Readable} = get_table_id(KindOfTable, element(3, MarkedCell), - Tables), - case start_tv_browser(Table,CurrNode,Name,KindOfTable,Readable,Children) of - Children -> - {NewMarkedCell, NewTables, NewGridLines} = - refresh_window(MarkedCell,Tables,KindOfTable,CurrNode,GridLines, - UnreadHidden,SysTabHidden,SortKey, Children), - loop(KindOfTable,CurrNode,NewMarkedCell,NewGridLines,WinSize,NewTables, - Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children); - NewChildren -> - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,NewChildren) - end; - - - {gs, _Id, click, new_table, _Args} -> - NewChildren = start_tv_new_table(CurrNode, Children), - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,NewChildren); - - - {gs, _Id, click, select_node, _Args} -> - show_tv_nodewin(Children), - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,Children); - - - {gs, _Id, click, show_mnesia, _Args} when KindOfTable =:= ets -> - gs:config(win, [{cursor,busy}]), - NewMarkedCell = unmark_cell(MarkedCell, Tables), - gs:config(label2, [{fg, ?DISABLED_COLOR}]), - gs:config(sort_table_id, [{enable, false}]), - NewSortKey = - case SortKey of - ?ID_ELEM -> - gs:config(sort_table_name, [{select,true}]), - ?NAME_ELEM; - _Other -> - SortKey - end, - {NewTables, NewGridLines} = - update_grid(mnesia, CurrNode, GridLines, UnreadHidden, SysTabHidden, NewSortKey), - gs:config(win, [{cursor,arrow}]), - loop(mnesia,CurrNode,NewMarkedCell,NewGridLines,WinSize,NewTables,Shortcuts, - UnreadHidden,SysTabHidden,NewSortKey,Children); - - - {gs, _Id, click, show_ets, _Args} when KindOfTable =:= mnesia -> - gs:config(win, [{cursor,busy}]), - NewMarkedCell = unmark_cell(MarkedCell, Tables), - gs:config(label2, [{fg, ?NORMAL_FG_COLOR}]), - gs:config(label3, [{fg, ?NORMAL_FG_COLOR}]), - gs:config(label4, [{fg, ?NORMAL_FG_COLOR}]), - {NewTables, NewGridLines} = - update_grid(ets, CurrNode, GridLines, UnreadHidden, SysTabHidden,SortKey), - %% gs:config(show_unreadable, [{enable, true}, - %% {select, not(UnreadHidden)}]), - gs:config(sort_table_id, [{enable, true}]), - gs:config(win, [{cursor,arrow}]), - loop(ets,CurrNode,NewMarkedCell,NewGridLines,WinSize,NewTables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,Children); - - - {gs, _Id, click, show_system, _Args} when SysTabHidden -> - gs:config(win, [{cursor,busy}]), - NewMarkedCell = unmark_cell(MarkedCell, Tables), - {NewTables, NewGridLines} - = update_grid(KindOfTable, CurrNode, GridLines, UnreadHidden, false, SortKey), - gs:config(show_system, [{data, hide_system}]), - gs:config(win, [{cursor,arrow}]), - loop(KindOfTable,CurrNode,NewMarkedCell,NewGridLines,WinSize,NewTables,Shortcuts, - UnreadHidden,false,SortKey,Children); - - - {gs, _Id, click, hide_system, _Args} when not SysTabHidden -> - gs:config(win, [{cursor,busy}]), - NewMarkedCell = unmark_cell(MarkedCell, Tables), - {NewTables, NewGridLines} = - update_grid(KindOfTable, CurrNode, GridLines, UnreadHidden, true, SortKey), - gs:config(show_system, [{label, {text, " System Tables "}}, - {data, show_system}]), - gs:config(win, [{cursor,arrow}]), - loop(KindOfTable,CurrNode,NewMarkedCell,NewGridLines,WinSize,NewTables,Shortcuts, - UnreadHidden,true,SortKey,Children); - - - {gs, _Id, click, show_unreadable, _Args} when UnreadHidden -> - gs:config(win, [{cursor,busy}]), - NewMarkedCell = unmark_cell(MarkedCell, Tables), - {NewTables, NewGridLines} - = update_grid(KindOfTable, CurrNode, GridLines, false, SysTabHidden, SortKey), - gs:config(show_unreadable, [{data, hide_unreadable}]), - gs:config(win, [{cursor,arrow}]), - loop(KindOfTable,CurrNode,NewMarkedCell,NewGridLines,WinSize,NewTables,Shortcuts, - false,SysTabHidden,SortKey,Children); - - - {gs, _Id, click, hide_unreadable, _Args} when not UnreadHidden -> - gs:config(win, [{cursor,busy}]), - NewMarkedCell = unmark_cell(MarkedCell, Tables), - {NewTables, NewGridLines} = - update_grid(KindOfTable, CurrNode, GridLines, true, SysTabHidden, SortKey), - gs:config(show_unreadable, [{label, {text, " Unreadable Tables "}}, - {data, show_unreadable}]), - gs:config(win, [{cursor,arrow}]), - loop(KindOfTable,CurrNode,NewMarkedCell,NewGridLines,WinSize,NewTables,Shortcuts, - true,SysTabHidden,SortKey,Children); - - - {gs, _Id, click, show_info, _Args} -> - {Table, _Name, _Readable} = get_table_id(KindOfTable, element(3,MarkedCell), - Tables), - case start_tv_info(Table, CurrNode, CurrNode =:= node(), KindOfTable, Children) of - Children -> - {NewMarkedCell, NewTables, NewGridLines} = - refresh_window(MarkedCell,Tables,KindOfTable,CurrNode,GridLines, - UnreadHidden,SysTabHidden,SortKey, Children), - loop(KindOfTable,CurrNode,NewMarkedCell,NewGridLines,WinSize,NewTables, - Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children); - NewChildren -> - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,NewChildren) - end; - - - {gs, _Id, click, sort_table_name, _Args} when SortKey =/= ?NAME_ELEM -> - gs:config(win, [{cursor,busy}]), - NewMarkedCell = unmark_cell(MarkedCell, Tables), - {NewTables, NewGridLines} = - update_grid(KindOfTable,CurrNode,GridLines,UnreadHidden,SysTabHidden,?NAME_ELEM), - gs:config(win, [{cursor,arrow}]), - loop(KindOfTable,CurrNode,NewMarkedCell,NewGridLines,WinSize,NewTables,Shortcuts, - UnreadHidden,SysTabHidden,?NAME_ELEM,Children); - - - {gs, _Id, click, sort_table_id, _Args} when SortKey =/= ?ID_ELEM -> - gs:config(win, [{cursor,busy}]), - NewMarkedCell = unmark_cell(MarkedCell, Tables), - {NewTables, NewGridLines} = - update_grid(KindOfTable,CurrNode,GridLines,UnreadHidden,SysTabHidden,?ID_ELEM), - gs:config(win, [{cursor,arrow}]), - loop(KindOfTable,CurrNode,NewMarkedCell,NewGridLines,WinSize,NewTables,Shortcuts, - UnreadHidden,SysTabHidden,?ID_ELEM,Children); - - - {gs, _Id, click, sort_owner_name, _Args} when SortKey =/= ?PROCNAME_ELEM -> - gs:config(win, [{cursor,busy}]), - NewMarkedCell = unmark_cell(MarkedCell, Tables), - {NewTables, NewGridLines} = - update_grid(KindOfTable,CurrNode,GridLines,UnreadHidden,SysTabHidden, - ?PROCNAME_ELEM), - gs:config(win, [{cursor,arrow}]), - loop(KindOfTable,CurrNode,NewMarkedCell,NewGridLines,WinSize,NewTables,Shortcuts, - UnreadHidden,SysTabHidden,?PROCNAME_ELEM,Children); - - - {gs, _Id, click, sort_owner_pid, _Args} when SortKey =/= ?PID_ELEM -> - gs:config(win, [{cursor,busy}]), - NewMarkedCell = unmark_cell(MarkedCell, Tables), - {NewTables, NewGridLines} = - update_grid(KindOfTable,CurrNode,GridLines,UnreadHidden,SysTabHidden,?PID_ELEM), - gs:config(win, [{cursor,arrow}]), - loop(KindOfTable,CurrNode,NewMarkedCell,NewGridLines,WinSize,NewTables,Shortcuts, - UnreadHidden,SysTabHidden,?PID_ELEM,Children); - - - {gs, _Id, click, trace_process, _Args} -> - OwnerPid = element(?PID_ELEM, lists:nth(element(3,MarkedCell), Tables)), - NewChildren = start_pman(OwnerPid, Children), - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,NewChildren); - - - {gs, _Id, click, help_button, _Args} -> - HelpFile = filename:join([code:lib_dir(tv), "doc", "html", "index.html"]), - tool_utils:open_help(win, HelpFile), - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,Children); - - - {gs, _Id, click, otp_help_button, _Args} -> - IndexFile = filename:join([code:root_dir(), "doc", "index.html"]), - tool_utils:open_help(win, IndexFile), - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,Children); - - - {gs, win, configure, _Data, _Args} -> - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,Children); - - - {gs, _Id, click, exit_button, _Args} -> - lists:foreach( - fun({Pid,pman,_OP}) -> - exit(Pid,kill); - (_) -> - done - end, - Children), - exit(normal); - - - {gs, _Id, click, show_haiku, _Args} -> - gs:config(win, [{cursor,busy}]), - gs:config(show_haiku, [{data, hide_haiku}]), - lists:foreach( - fun({Pid,tv_info,_Data}) -> - Pid ! {error_msg_mode,haiku}; - ({Pid,tv_browser,_Data}) -> - Pid ! {error_msg_mode,haiku}; - ({Pid,tv_nodewin,_Data}) -> - Pid ! {error_msg_mode,haiku}; - ({Pid,tv_new_table,_Data}) -> - Pid ! {error_msg_mode,haiku}; - (_Other) -> - done - end, - Children), - put(error_msg_mode, haiku), - gs:config(win, [{cursor,arrow}]), - loop(KindOfTable, CurrNode, MarkedCell, GridLines, WinSize, Tables, Shortcuts, - UnreadHidden,SysTabHidden,SortKey,Children); - - - {gs, _Id, click, hide_haiku, _Args} -> - gs:config(win, [{cursor,busy}]), - gs:config(show_haiku, [{data, show_haiku}]), - lists:foreach( - fun({Pid,tv_info,_Data}) -> - Pid ! {error_msg_mode,normal}; - ({Pid,tv_browser,_Data}) -> - Pid ! {error_msg_mode,normal}; - ({Pid,tv_nodewin,_Data}) -> - Pid ! {error_msg_mode,normal}; - ({Pid,tv_new_table,_Data}) -> - Pid ! {error_msg_mode,normal}; - (_Other) -> - done - end, - Children), - put(error_msg_mode, normal), - gs:config(win, [{cursor,arrow}]), - loop(KindOfTable, CurrNode, MarkedCell, GridLines, WinSize, Tables, Shortcuts, - UnreadHidden,SysTabHidden,SortKey,Children); - - - {gs, win, destroy, _Data, _Args} -> - lists:foreach( - fun({Pid,pman,_OP}) -> - exit(Pid,kill); - (_) -> - done - end, - Children), - exit(normal); - - - {gs, win, keypress, _Data, [Key, _, _, 1 | _]} -> - case lists:keysearch(Key, 1, Shortcuts) of - {value, {Key, Value}} -> - handle_keypress(Value,KindOfTable,CurrNode,MarkedCell, - GridLines,WinSize,Tables, Shortcuts, - UnreadHidden,SysTabHidden,SortKey,Children); - false -> - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,Children) - end; - - - {gs, win, keypress, _Data, _Args} -> - loop(KindOfTable, CurrNode, MarkedCell, GridLines, WinSize, Tables, Shortcuts, - UnreadHidden,SysTabHidden,SortKey,Children); - - - {tv_new_node, _Sender, NewCurrNode} -> - gs:config(win, [{cursor,busy}]), - NewMarkedCell = unmark_cell(MarkedCell, Tables), - {NewTables, NewGridLines} = - update_grid(KindOfTable,NewCurrNode,GridLines,UnreadHidden,SysTabHidden,SortKey), - update_tv_info(Children), - update_tv_browser(Children), - NewChildren = - case replace_node_name(NewCurrNode, CurrNode) of - false -> - Children; - true -> - update_node_name(Children) - end, - gs:config(win, [{cursor,arrow}]), - loop(KindOfTable,NewCurrNode,NewMarkedCell,NewGridLines,WinSize,NewTables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,NewChildren); - - - {tv_start_infowin, Table, Node, LocalNode, TableType} -> - case start_tv_info(Table, Node, LocalNode, TableType, Children) of - Children -> - {NewMarkedCell, NewTables, NewGridLines} = - refresh_window(MarkedCell,Tables,KindOfTable,CurrNode,GridLines, - UnreadHidden,SysTabHidden,SortKey, Children), - loop(KindOfTable,CurrNode,NewMarkedCell,NewGridLines,WinSize,NewTables, - Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children); - NewChildren -> - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,NewChildren) - end; - - - {tv_update_infowin, Table, Node, _Type} -> - case get_tv_info_pid(Table, Node, Children) of - undefined -> - done; - Pid -> - Pid ! #info_update_table_info{sender=self()} - end, - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize, - Tables,Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children); - - - {tv_new_table, NewTabWinPid, Node, Name, Options, KindOfTableToCreate, _Readable, false} -> - case create_table(KindOfTableToCreate, Node, Node =:= node(), Name, Options, - NewTabWinPid) of - error -> - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize, - Tables,Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children); - _TabId -> - case KindOfTable of - mnesia -> - done; - ets -> - self() ! {gs, tv_main, click, update, []} - end, - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize,Tables, - Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children) - end; - - - - {tv_new_table, NewTabWinPid, Node, Name, Options, KindOfTableToCreate, Readable, true} -> - case create_table(KindOfTableToCreate, Node, Node =:= node(), Name, Options, - NewTabWinPid) of - error -> - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize, - Tables,Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children); - TabId -> - case start_tv_browser(TabId,Node,Name,KindOfTableToCreate,Readable,Children) of - Children -> - {FinalMarkedCell, NewTables, NewGridLines} = - case KindOfTable of - mnesia -> - {MarkedCell, Tables, GridLines}; - ets -> - refresh_window(MarkedCell,Tables,KindOfTable, - CurrNode,GridLines,UnreadHidden, - SysTabHidden,SortKey, Children) - end, - loop(KindOfTable,CurrNode,FinalMarkedCell,NewGridLines,WinSize, - NewTables,Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children); - NewChildren -> - case KindOfTable of - mnesia -> - done; - ets -> - self() ! {gs, tv_main, click, update, []} - end, - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize,Tables, - Shortcuts,UnreadHidden,SysTabHidden,SortKey,NewChildren) - end - end; - - - - {'EXIT', Pid, _Reason} -> - case lists:keysearch(Pid, 1, Children) of - false -> - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize, - Tables,Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children); - {value, {Pid,Prog,_Data}} -> - NewChildren = - case Prog of - tv_nodewin -> - lists:keydelete(Pid, 1, Children) ++ start_tv_nodewin(CurrNode); - _Other -> - lists:keydelete(Pid, 1, Children) - end, - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize, - Tables,Shortcuts,UnreadHidden,SysTabHidden,SortKey,NewChildren) - end; - - - _Other -> - loop(KindOfTable, CurrNode, MarkedCell, GridLines, WinSize, Tables, Shortcuts, - UnreadHidden,SysTabHidden,SortKey,Children) - end. - - -flush_msgs(Msg0 = {gs, Win, Op, _, _}) -> - receive Msg = {gs, Win,Op,_,_} -> - flush_msgs(Msg) - after 100 -> - Msg0 - end. - -handle_keypress(open_table,KindOfTable,CurrNode,MarkedCell,GridLines, - WinSize,Tables,Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children) -> - NewChildren = - case MarkedCell of - {undefined,_,_} -> - case get(error_msg_mode) of - normal -> - gs:config(win, [beep]), - tv_utils:notify(win, "TV Notification", "No table selected!"); - haiku -> - Msg = ["Rather than a beep", - "Or a rude error message", - "These words: make a choice."], - tv_utils:notify(win, "TV Notification", Msg) - end, - Children; - _OtherCell -> - {Table, Name, Readable} = get_table_id(KindOfTable, element(3, MarkedCell), - Tables), - start_tv_browser(Table, CurrNode, Name, KindOfTable, Readable, Children) - end, - case NewChildren of - Children -> - {NewMarkedCell, NewTables, NewGridLines} = - refresh_window(MarkedCell,Tables,KindOfTable,CurrNode,GridLines,UnreadHidden, - SysTabHidden, SortKey, Children), - loop(KindOfTable,CurrNode,NewMarkedCell,NewGridLines,WinSize,NewTables, - Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children); - _Other -> - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,NewChildren) - end; - - -handle_keypress(update,KindOfTable,CurrNode,MarkedCell,GridLines, - WinSize,Tables,Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children) -> - gs:config(win, [{cursor,busy}]), - NewMarkedCell = unmark_cell(MarkedCell, Tables), - {NewTabs, NewGrLines} = - update_grid(KindOfTable,CurrNode,GridLines,UnreadHidden,SysTabHidden,SortKey), - update_tv_info(Children), - gs:config(win, [{cursor,arrow}]), - loop(KindOfTable,CurrNode,NewMarkedCell,NewGrLines,WinSize,NewTabs,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,Children); - - -handle_keypress(show_mnesia,ets,CurrNode,MarkedCell,GridLines, - WinSize,Tables,Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children) -> - gs:config(win, [{cursor,busy}]), - NewMarkedCell = unmark_cell(MarkedCell, Tables), - gs:config(label2, [{fg, ?DISABLED_COLOR}]), - gs:config(label3, [{fg, ?DISABLED_COLOR}]), - gs:config(label4, [{fg, ?DISABLED_COLOR}]), - gs:config(show_unreadable, [{label, {text, " Unreadable Tables "}}, - {data, show_unreadable}]), - %% gs:config(show_unreadable, [{enable, false}, - %% {select, false}]), - gs:config(sort_table_id, [{enable, false}]), - NewSortKey = - case SortKey of - ?ID_ELEM -> - gs:config(sort_table_name, [{select,true}]), - ?NAME_ELEM; - _Other -> - SortKey - end, - {NewTables, NewGridLines} = - update_grid(mnesia,CurrNode,GridLines,UnreadHidden,SysTabHidden,NewSortKey), - gs:config(win, [{cursor,arrow}]), - loop(mnesia,CurrNode,NewMarkedCell,NewGridLines,WinSize,NewTables,Shortcuts, - UnreadHidden,SysTabHidden,NewSortKey,Children); - - - -handle_keypress(show_ets,mnesia,CurrNode,MarkedCell,GridLines, - WinSize,Tables,Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children) -> - gs:config(win, [{cursor,busy}]), - NewMarkedCell = unmark_cell(MarkedCell, Tables), - gs:config(label2, [{fg, ?NORMAL_FG_COLOR}]), - gs:config(label3, [{fg, ?NORMAL_FG_COLOR}]), - gs:config(label4, [{fg, ?NORMAL_FG_COLOR}]), - {NewTables, NewGridLines} = - update_grid(ets,CurrNode,GridLines,UnreadHidden,SysTabHidden,SortKey), - %% gs:config(show_unreadable, [{enable, true}, - %% {select, not(UnreadHidden)}]), - gs:config(sort_table_id, [{enable, true}]), - gs:config(win, [{cursor,arrow}]), - loop(ets,CurrNode,NewMarkedCell,NewGridLines,WinSize,NewTables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,Children); - - -handle_keypress(trace_process,KindOfTable,CurrNode,MarkedCell,GridLines, - WinSize,Tables,Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children) -> - NewChildren = - case MarkedCell of - {_Id, ?PID_COL, Row} -> - OwnerPid = element(?PID_ELEM, lists:nth(Row, Tables)), - start_pman(OwnerPid, Children); - {_Id, ?PROCNAME_COL, Row} -> - OwnerPid = element(?PID_ELEM, lists:nth(Row, Tables)), - start_pman(OwnerPid, Children); - _Other -> - Children - end, - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey, NewChildren); - - -handle_keypress(select_node,KindOfTable,CurrNode,MarkedCell,GridLines, - WinSize,Tables,Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children) -> - show_tv_nodewin(Children), - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,Children); - - -handle_keypress(show_info,KindOfTable,CurrNode,MarkedCell,GridLines, - WinSize,Tables,Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children) -> - NewChildren = - case MarkedCell of - {_Id, ?NAME_COL, Row} -> - {Table, _Name, _Readable} = get_table_id(KindOfTable, Row, Tables), - start_tv_info(Table, CurrNode, CurrNode =:= node(), KindOfTable, Children); - {_Id, ?ID_COL, Row} -> - {Table, _Name, _Readable} = get_table_id(KindOfTable, Row, Tables), - start_tv_info(Table, CurrNode, CurrNode =:= node(), KindOfTable, Children); - {_Id, ?INFO_COL, Row} -> - {Table, _Name, _Readable} = get_table_id(KindOfTable, Row, Tables), - start_tv_info(Table, CurrNode, CurrNode =:= node(), KindOfTable, Children); - _OtherCell -> - Children - end, - case NewChildren of - Children -> - {NewMarkedCell, NewTables, NewGridLines} = - refresh_window(MarkedCell,Tables,KindOfTable,CurrNode,GridLines,UnreadHidden, - SysTabHidden, SortKey, Children), - loop(KindOfTable,CurrNode,NewMarkedCell,NewGridLines,WinSize,NewTables, - Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children); - _Other -> - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,NewChildren) - end; - - -handle_keypress(help_button,KindOfTable,CurrNode,MarkedCell,GridLines, - WinSize,Tables,Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children) -> - HelpFile = filename:join([code:lib_dir(tv), "doc", "html", "index.html"]), - tool_utils:open_help(win, HelpFile), - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,Children); - -handle_keypress(exit_button,_KindOfTable,_CurrNode,_MarkedCell,_GridLines, - _WinSize,_Tables,_Shortcuts,_UnreadHidden,_SysTabHidden,_SortKey,Children) -> - lists:foreach( - fun({Pid,pman,_OP}) -> - exit(Pid,kill); - (_) -> - done - end, - Children), - exit(normal); - - -handle_keypress(_Any,KindOfTable,CurrNode,MarkedCell,GridLines, - WinSize,Tables,Shortcuts,UnreadHidden,SysTabHidden,SortKey,Children) -> - loop(KindOfTable,CurrNode,MarkedCell,GridLines,WinSize,Tables,Shortcuts, - UnreadHidden,SysTabHidden,SortKey,Children). - - - - -refresh_window(MarkedCell,Tables,KindOfTable, - CurrNode,GridLines,UnreadHidden,SysTabHidden, SortKey, Children) -> - gs:config(win, [{cursor,busy}]), - NewMarkedCell = unmark_cell(MarkedCell, Tables), - {NewTables, NewGridLines} = - update_grid(KindOfTable,CurrNode,GridLines,UnreadHidden,SysTabHidden, - SortKey), - update_tv_info(Children), - gs:config(win, [{cursor,arrow}]), - {NewMarkedCell, NewTables, NewGridLines}. - - - - - -get_table_id(mnesia, Row, Tables) -> - TabTuple = lists:nth(Row, Tables), - Readable = element(?READABLE_ELEM, TabTuple), - Id = element(?NAME_ELEM, TabTuple), - {Id, Id, Readable}; -get_table_id(ets, Row, Tables) -> - TabTuple = lists:nth(Row, Tables), - Readable = element(?READABLE_ELEM, TabTuple), - Name = element(?NAME_ELEM, TabTuple), - case element(?NAMED_TABLE_ELEM, TabTuple) of - false -> - {element(?ID_ELEM, TabTuple), Name, Readable}; - _Other -> - {Name, Name, Readable} - end. - - - -replace_node_name('nonode@nohost', 'nonode@nohost') -> - %% Still undistributed... - false; -replace_node_name(_Node, _OldNode) when node() =:= 'nonode@nohost' -> - %% No longer distributed, but previously was! - true; -replace_node_name(_Node, 'nonode@nohost') -> - %% The system has been distributed! - true; -replace_node_name(_Node, _OldNode) -> - false. - - - -update_node_name(Children) when node() =:= 'nonode@nohost' -> - %% We have been distributed, but no longer are! - %% We change all node names stored to 'nonode@nohost'! - %% This works because we *will* receive exit signals - %% for those processes that have died on other nodes, - %% whereupon these processes will be removed from the - %% 'Children' list. - lists:map(fun({Pid, Prog, {Table,_Node}}) -> - {Pid, Prog, {Table,'nonode@nohost'}}; - (H) -> - H - end, - Children); -update_node_name(Children) -> - %% We have become distributed! - %% Change all occurrences of 'nonode@nohost' - %% to the new current node name! - HomeNode = node(), - lists:map(fun({Pid, Prog, {Table,'nonode@nohost'}}) -> - {Pid, Prog, {Table,HomeNode}}; - (H) -> - H - end, - Children). - - - - -show_tv_nodewin(Children) -> - {value, {Pid,tv_nodewin,_Node}} = lists:keysearch(tv_nodewin, 2, Children), - Pid ! show_window. - - - -update_tv_info(Children) -> - Sender = self(), - lists:foreach(fun({Pid,tv_info,{_Table,_Node}}) -> - Pid ! #info_update_table_info{sender=Sender}; - (_) -> - done - end, - Children). - - - -update_tv_browser(Children) -> - lists:foreach(fun({Pid,tv_browser,{_Table,_Node}}) -> - Pid ! check_node; - (_) -> - done - end, - Children). - - - -get_tv_info_pid(TabId,Node,Children) -> - TvInfoChildren = [X || X <- Children, element(2,X) =:= tv_info], - case lists:keysearch({TabId,Node}, 3, TvInfoChildren) of - {value, {Pid, tv_info, {_Table,Node}}} -> - Pid; - _Other -> - undefined - end. - - - -start_tv_browser(Tab,Node,_Name,KindOfTable,false,Children) -> - gs:config(win, [beep]), - case get(error_msg_mode) of - normal -> - tv_utils:notify(win, "TV Notification", - ["The selected table is unreadable!", - "Only table information may be viewed!"]); - haiku -> - Msg = ["Table protected.", - "The answers that you're seeking", - "will remain unknown."], - tv_utils:notify(win, "TV Notification", Msg) - end, - start_tv_info(Tab, Node, Node =:= node(), KindOfTable, Children); -start_tv_browser(Table,Node,Name,KindOfTable,_Readable,Children) -> - TvBrowserChildren = [X || X <- Children, element(2,X) =:= tv_browser], - case lists:keysearch({Table,Node}, 3, TvBrowserChildren) of - {value, {BPid,tv_browser,{Table,Node}}} -> - BPid ! raise, - Children; - _Other -> - %% Check that table still exists! - case table_still_there(KindOfTable, Node, Node =:= node(), Table, Name) of - true -> - LocalNode = (Node =:= node()), - NewBPid = tv:start_browser(Node, LocalNode, Table, KindOfTable, Name, - get(error_msg_mode)), - [{NewBPid, tv_browser, {Table,Node}} | Children]; - _TableDead -> - gs:config(win, [beep]), - case get(error_msg_mode) of - normal -> - tv_utils:notify(win, "TV Notification", - ["The table no longer exists!"]); - haiku -> - Msg = ["A table that big?", - "It might be very useful.", - "But now it is gone."], - tv_utils:notify(win, "TV Notification", Msg) - end, - Children - end - end. - - - - - -table_still_there(ets, Node, LocalNode, Table, Name) -> - case catch tv_ets_rpc:all(Node, LocalNode) of - Tables when is_list(Tables) -> - case lists:member(Table, Tables) of - true -> - true; - false -> %% May be a named table... - lists:keymember(Name, 1, Tables) - end; - Error -> - analyze_error(Error, Node, Table), - false - end; -table_still_there(mnesia, Node, LocalNode, Table, Name) -> - case catch tv_mnesia_rpc:system_info(Node, LocalNode, tables) of - Tables when is_list(Tables) -> - lists:member(Name, Tables); - Error -> - analyze_error(Error, Node, Table), - false - end. - - - - - - -start_tv_info(Table, Node, LocalNode, KindOfTable, Children) -> - TvInfoChildren = [X || X <- Children, element(2,X) =:= tv_info], - case lists:keysearch({Table,Node}, 3, TvInfoChildren) of - {value, {Pid,tv_info,{Table,Node}}} -> - Pid ! #info_raise_window{sender = self()}, - Children; - _Other -> - %% May have started a browser but no info window! - %% Info window may have been started from that browser, but - %% don't bother with checking *that*. - Pid = spawn_link(tv_info, info, [self(), Node, LocalNode, Table, KindOfTable, - get(error_msg_mode)]), - [{Pid, tv_info, {Table,Node}} | Children] - end. - - - - - -start_tv_new_table(CurrNode, Children) -> - TvNewTableChild = [X || X <- Children, element(2,X) =:= tv_new_table], - case TvNewTableChild of - [{Pid,tv_new_table,undefined}] -> - Pid ! raise, - Children; - [] -> - Pid = tv_new_table:start(CurrNode, get(error_msg_mode)), - [{Pid, tv_new_table, undefined} | Children] - end. - - - - -create_table(mnesia, _Node, _LocalNode, _TabName, _Options, _NewTabWinPid) -> - error; -create_table(ets, Node, LocalNode, TabName, Options, NewTabWinPid) -> - case tv_table_owner:create(ets, Node, LocalNode, TabName, Options) of - {ok, TabId} -> - NewTabWinPid ! ok, - TabId; - error -> - NewTabWinPid ! error, - error - end. - - - - -start_pman(OwnerPid, Children) -> - Pid = pman_shell:start(OwnerPid), - [{Pid,pman,OwnerPid} | Children]. - - - - -update_grid(TableType, CurrNode, GridLines, UnreadHidden, SysTabHidden,SortKey) -> - NewTables = get_tables(CurrNode, TableType, UnreadHidden, SysTabHidden,SortKey), - TabStr = case TableType of - mnesia -> - "Mnesia "; - ets -> - "ETS " - end, - NodeStr = atom_to_list(CurrNode), - gs:config(win, [{title, "[TV] " ++ TabStr ++ "tables on " ++ NodeStr}]), - gs:config(grid, [{rows, {1, get_nof_rows(length(NewTables), gs:read(grid,height))}}]), - NewGridLines = update_gridlines(NewTables, GridLines, 1), - {NewTables, NewGridLines}. - - - -unmark_cell({undefined, AnyCol, AnyRow}, _Tables) -> - {undefined, AnyCol, AnyRow}; -unmark_cell({Id, Col, Row}, Tables) -> - disable_menus(), - TabTuple = lists:nth(Row, Tables), - ReadableTable = element(?READABLE_ELEM, TabTuple), - NamedTable = element(?NAMED_TABLE_ELEM, TabTuple), - BgColor = - case ReadableTable of - false -> - ?UNREADABLE_BG_COLOR; - _Other1 -> - ?READABLE_BG_COLOR - end, - - FgColor = - case NamedTable of - false when Col =:= ?NAME_COL -> - ?UNNAMED_FG_COLOR; - _Other2 -> - ?NORMAL_FG_COLOR - end, - - gs:config(Id, [{bg, {Col, BgColor}}, - {fg, {Col, FgColor}}]), - {undefined, undefined, undefined}. - - - - -mark_cell({Id,Col,Row}, {Id,Col,Row}, _Readable) -> - {undefined, undefined, undefined}; -mark_cell({Id,Col,Row}, _Any, Readable) -> - case lists:member(Col, ?POSSIBLE_MARK_COLS) of - true -> - enable_menus(Col, Readable), - gs:config(Id, [{bg, {Col, ?GRID_MARK_COLOR}}, - {fg, {Col, ?NORMAL_FG_COLOR}}]), - {Id, Col,Row}; - false -> - {undefined, undefined, undefined} - end. - - -disable_menus() -> - disable_open_menu(), - disable_trace_menu(), - disable_info_menu(). - - -enable_menus(?ID_COL, true) -> - enable_open_menu(), - enable_info_menu(); -enable_menus(?ID_COL, {notext}) -> - enable_open_menu(), - enable_info_menu(); -enable_menus(?ID_COL, false) -> - enable_info_menu(); -enable_menus(?NAME_COL, true) -> - enable_open_menu(), - enable_info_menu(); -enable_menus(?NAME_COL, {notext}) -> - enable_open_menu(), - enable_info_menu(); -enable_menus(?NAME_COL, false) -> - enable_info_menu(); -enable_menus(?PID_COL, _Any) -> - enable_trace_menu(); -enable_menus(?PROCNAME_COL, _Any) -> - enable_trace_menu(); -enable_menus(?INFO_COL, _Any) -> - enable_info_menu(); -enable_menus(_Col, _Any) -> - done. - - - -resize_window(Width, Height, NofElems) -> - WinWidth = lists:max([Width, ?MIN_WIN_WIDTH]), - WinHeight = lists:max([Height, ?MIN_WIN_HEIGHT]), - gs:config(win, [{width, WinWidth}, - {height, WinHeight} - ]), - {BgWidth, BgHeight, FgWidth, FgHeight} = get_frame_coords(WinWidth, WinHeight), - {GridWidth, GridHeight} = get_grid_coords(FgWidth, FgHeight), - ColWidths = get_col_widths(?COL_WIDTHS, GridWidth), - resize_header_labels(ColWidths, - [label1,label2,label3,label4,label5], - ?GRID_XPOS), - gs:config(bgframe, [{width, BgWidth}, - {height, BgHeight} - ]), - gs:config(fgframe, [{width, FgWidth}, - {height, FgHeight} - ]), - gs:config(grid, [{width, GridWidth}, - {height, GridHeight}, - {columnwidths, ColWidths}, - {rows, {1, get_nof_rows(NofElems, GridHeight)}} - ]), - {WinWidth, WinHeight}. - - - - -create_window(Tables) -> - gs:window(win, gs:start(), [{width, ?WIN_WIDTH}, - {height, ?WIN_HEIGHT}, - {bg, ?DEFAULT_BG_COLOR}, - {title, "[TV] ETS tables on " ++ - atom_to_list(node())}, - {destroy, true}, - {configure, true}, - {keypress, true} - ]), - - ShortcutList = create_menus(), - - disable_menus(), - - {BgFrameWidth, BgFrameHeight, FgFrameWidth, FgFrameHeight} = - get_frame_coords(?WIN_WIDTH, ?WIN_HEIGHT), - - {GridWidth, GridHeight} = get_grid_coords(FgFrameWidth, FgFrameHeight), - - ColWidths = get_col_widths(?COL_WIDTHS, GridWidth), - - gs:frame(bgframe, win, [{width, BgFrameWidth}, - {height, BgFrameHeight}, - {x, ?GRID_XPOS}, - {y, ?GRID_YPOS}, - {bg, {0,0,0}} - ]), - gs:frame(fgframe, bgframe, [{width, FgFrameWidth}, - {height, FgFrameHeight}, - {x, 0}, - {y, 1}, - {bg, ?DEFAULT_BG_COLOR} - ]), - - - create_header_labels(ColWidths, ?HEADER_LABELS), - gs:grid(grid, fgframe, [{width, GridWidth}, - {height, GridHeight}, - {x, 0}, - {y, -1}, - {hscroll,bottom}, - {vscroll,right}, - {rows, {1, get_nof_rows(length(Tables), GridHeight)}}, - {columnwidths, ColWidths}, - {fg, ?NORMAL_FG_COLOR}, - {bg, {255,255,255}}, - {font, ?FONT} - ]), - GridLines = update_gridlines(Tables, [], 1), - {{undefined,undefined,undefined}, GridLines, {?WIN_WIDTH,?WIN_HEIGHT}, ShortcutList}. - - - - -get_frame_coords(WinWidth, WinHeight) -> - BgWidth = WinWidth - 2 * ?GRID_XPOS, - BgHeight = WinHeight - ?GRID_YPOS - ?GRID_XPOS, - FgWidth = BgWidth, - FgHeight = BgHeight - 1, - {BgWidth, BgHeight, FgWidth, FgHeight}. - - - - -get_grid_coords(ParentWidth, ParentHeight) -> - {ParentWidth, ParentHeight + 1}. - - - -get_col_widths(Cols, GridWidth) -> - SbWidth = 25, %% OK, OK, don't bother about it, this constant makes it work... :-/ - FixColWidthSum = lists:sum(lists:map(fun(H) -> - lists:nth(H, Cols) - end, - ?FIX_WIDTH_COLS)), - AvailableWidth = GridWidth - FixColWidthSum - SbWidth, - OriginalWidth = ?WIN_WIDTH - 2 * ?GRID_XPOS - FixColWidthSum - SbWidth, - get_col_widths(1, Cols, AvailableWidth, OriginalWidth). - - - -get_col_widths(N, [H | T], AvailWidth, OrigWidth) -> - NewColWidth = - case lists:member(N, ?FIX_WIDTH_COLS) of - true -> - H; - _Other -> - round(H * (AvailWidth / OrigWidth) + 0.1) - end, - [NewColWidth | get_col_widths(N + 1, T, AvailWidth, OrigWidth)]; -get_col_widths(_N, [], _AvailWidth, _OrigWidth) -> - []. - - - -create_header_labels(ColWidths, Text) -> - create_header_labels(ColWidths, Text, 1, ?GRID_XPOS). - - - -create_header_labels([W | T], [{Name, Text} | TextT], N, Xpos) -> - Ypos = ?GRID_YPOS - 20, - gs:label(Name, win, [{width, W + 1 - 3}, - {height, 20}, - {x, Xpos + 1 + 3}, - {y, Ypos}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, ?NORMAL_FG_COLOR}, - {font, ?HEADER_FONT}, - {align, w}, - {label, {text, Text}} - ]), - create_header_labels(T, TextT, N + 1, Xpos + 1 + W); -create_header_labels([], [], _N, _Xpos) -> - done. - - - -resize_header_labels([W | T], [Name | NT], Xpos) -> - gs:config(Name, [{width, W + 1 - 3}, - {x, Xpos + 1 + 3} - ]), - resize_header_labels(T, NT, Xpos + 1 + W); -resize_header_labels([], [], _Xpos) -> - done. - - - -disable_open_menu() -> - gs:config(open_table, [{enable,false}]). - - -disable_info_menu() -> - gs:config(show_info, [{enable,false}]). - -disable_trace_menu() -> - gs:config(trace_process, [{enable,false}]). - - -enable_open_menu() -> - gs:config(open_table, [{enable,true}]). - - -enable_info_menu() -> - gs:config(show_info, [{enable,true}]). - - -enable_trace_menu() -> - gs:config(trace_process, [{enable,true}]). - - -create_menus() -> - gs:menubar(menubar, win, [{bg, ?DEFAULT_BG_COLOR}]), - - HelpButt = gs:menubutton(menubar, [{bg, ?DEFAULT_BG_COLOR}, - {fg, ?FIREBRICK}, % firebrick - {label, {text, " Help "}}, - {underline, 1}, - {side, right} - ]), - FileButt = gs:menubutton(menubar, [{bg, ?DEFAULT_BG_COLOR}, - {fg, ?FIREBRICK}, % firebrick - {label, {text, " File "}}, - {underline, 1}, - {side, left} - ]), - ViewButt = gs:menubutton(menubar, [{bg, ?DEFAULT_BG_COLOR}, - {fg, ?FIREBRICK}, % firebrick - {label, {text, " View "}}, - {underline, 1}, - {side, left} - ]), - OptionsButt = gs:menubutton(menubar, [{bg, ?DEFAULT_BG_COLOR}, - {fg, ?FIREBRICK}, % firebrick - {label, {text, " Options "}}, - {underline, 1}, - {side, left} - ]), - - HelpMenu = gs:menu(HelpButt, [{bg, ?DEFAULT_BG_COLOR}, - {fg, ?FIREBRICK}, - {disabledfg,?DISABLED_COLOR} - ]), - FileMenu = gs:menu(FileButt, [{bg, ?DEFAULT_BG_COLOR}, - {fg, ?FIREBRICK}, - {disabledfg,?DISABLED_COLOR} - ]), - - OptionsMenu = gs:menu(OptionsButt, [{bg, ?DEFAULT_BG_COLOR}, - {fg, ?FIREBRICK}, - {disabledfg,?DISABLED_COLOR} - ]), - - ViewMenu = gs:menu(ViewButt, [{bg, ?DEFAULT_BG_COLOR}, - {fg, ?FIREBRICK}, - {disabledfg,?DISABLED_COLOR} - ]), - - ShortCutList = - create_menulist([{" Help ",normal,help_button,1,h}, - separator, - {" OTP Documentation ",normal,otp_help_button,1,no_char}], HelpMenu) ++ - create_menulist([{" Open Table ",normal,open_table,1,o}, - {" New Table... ",normal,new_table,1,no_char}, - {" Table Info ",normal,show_info,7,i}, - separator, - {" Nodes... ",normal,select_node,1,n}, - separator, - {" Trace Process ",normal,trace_process,1,t}, - separator, - {" Exit ",normal, exit_button,2,x}], FileMenu) ++ - [{c,exit_button}, {'C',exit_button}] ++ - create_menulist([{" Refresh ",normal,update,1,r}, - separator, - {" Unreadable Tables ",check,show_unreadable,1,no_char}, - separator, - {" System Tables ",check,show_system,1,no_char}, - separator, - {" Sort by Name ",radio,sort_table_name,9,no_char}, - {" Sort by Id ",radio,sort_table_id,9,no_char}, - {" Sort by Owner PID ",radio,sort_owner_pid,15,no_char}, - {" Sort by Owner Name ",radio,sort_owner_name,9,no_char}, - separator, - {" Error Messages in Haiku ",check,show_haiku,1,no_char} - ], - OptionsMenu) ++ - create_menulist([{" ETS Tables ",radio,show_ets,1,e}, - {" Mnesia Tables ",radio,show_mnesia,1,m}], ViewMenu), - gs:config(show_unreadable, [{select,false}]), - gs:config(show_system, [{select,false}]), - gs:config(show_haiku, [{select,false}]), - %% Due to a bug (or some other reason), only one of the radiobuttons belonging - %% to a specified group can be selected, even if different processes have created - %% the radiobuttons! This means that, if we have started more than one tv_main - %% process, selecting one radiobutton will affect the radiobuttons in the other - %% tv_main process(es)!!! Since this is a highly undesirable bahaviour, we have to - %% create unique group names (i.e., atoms). - %% (We need to group the radiobuttons, since otherwise all created by one process - %% belongs to the same group, which also is undesirable...) - SelfStr = pid_to_list(self()), - SortGroup = list_to_atom("sorting" ++ SelfStr), - TypeGroup = list_to_atom("table_type" ++ SelfStr), - gs:config(sort_table_name, [{group,SortGroup},{select,true}]), - gs:config(sort_table_id, [{group,SortGroup}]), - gs:config(sort_owner_pid, [{group,SortGroup}]), - gs:config(sort_owner_name, [{group,SortGroup}]), - gs:config(show_ets, [{group,TypeGroup}, {select,true}]), - gs:config(show_mnesia, [{group,TypeGroup}]), - ShortCutList. - - - - - -create_menulist(List, Menu) -> - MaxLength = get_length_of_longest_menu_text(List, 0), - create_menulist(List, Menu, MaxLength). - - - - -create_menulist([], _Menu, _MaxLength) -> - []; -create_menulist([{Text, Type, Data, AccCharPos, ShortcutChar} | Rest], Menu, MaxLength) -> - ShortcutCapitalChar = - if - ShortcutChar =:= no_char -> - no_char; - true -> - CharAsciiValue = lists:nth(1, atom_to_list(ShortcutChar)), - CapitalCharValue = CharAsciiValue - ($a - $A), - list_to_atom([CapitalCharValue]) - end, - - FinalText = if - ShortcutChar =:= no_char -> - Text; - true -> - Text ++ lists:duplicate(MaxLength - length(Text), " ") ++ - " Ctrl+" ++ atom_to_list(ShortcutCapitalChar) ++ " " - end, - gs:menuitem(Data, Menu, [{bg, ?DEFAULT_BG_COLOR}, - {fg, ?FIREBRICK}, - {itemtype, Type}, - {label, {text, FinalText}}, - {underline, AccCharPos}, - {data, Data} - ]), - [{ShortcutChar, Data}, {ShortcutCapitalChar, Data} | create_menulist(Rest, Menu, MaxLength)]; -create_menulist([separator | Rest], Menu, MaxLength) -> - gs:menuitem(Menu, [{itemtype, separator}]), - create_menulist(Rest, Menu, MaxLength). - - - - - - - -get_length_of_longest_menu_text([], MaxLength) -> - MaxLength; -get_length_of_longest_menu_text([{Text, _Type, _Data, _APos, _SChar} | Rest], CurrMax) -> - L = length(Text), - if - L > CurrMax -> - get_length_of_longest_menu_text(Rest, L); - true -> - get_length_of_longest_menu_text(Rest, CurrMax) - end; -get_length_of_longest_menu_text([separator | Rest], CurrMax) -> - get_length_of_longest_menu_text(Rest, CurrMax). - - - - - - -get_nof_rows(NofElems, GridHeight) -> - lists:max([NofElems, round((GridHeight - 20) / 21) + 1]). - - - -config_gridline(LineId, TabTuple) -> - Readable = element(?READABLE_ELEM, TabTuple), - NamedTable = element(?NAMED_TABLE_ELEM, TabTuple), - {FgColor, BgColor} = - case Readable of - true -> - {?NORMAL_FG_COLOR, ?READABLE_BG_COLOR}; - false -> - {?UNREADABLE_FG_COLOR, ?UNREADABLE_BG_COLOR}; - {notext} -> - {?NORMAL_FG_COLOR, ?READABLE_BG_COLOR} - end, - - NameFgColor = - case NamedTable of - false -> - ?UNNAMED_FG_COLOR; - _Other -> - ?NORMAL_FG_COLOR - end, - - gs:config(LineId, [{bg, BgColor}, - {fg, FgColor}, - {fg, {?NAME_COL, NameFgColor}}, - {click, true}, - {doubleclick, true}, - {data, {grid,Readable}} | - - lists:map( - fun({Elem,Col}) -> - case element(Elem, TabTuple) of - {notext} -> - {text, {Col, ""}}; - Other when Elem =:= ?NAME_ELEM -> - case NamedTable of - false -> - {text, {Col, " " ++ - lists:flatten( - io_lib:write( - Other)) ++ " "}}; - _AnyOther -> - {text, {Col, " " ++ lists:flatten( - io_lib:write( - Other))}} - end; - Other -> - {text, {Col, " " ++ lists:flatten( - io_lib:write( - Other))}} - end - end, - [{?NAME_ELEM, ?NAME_COL}, - {?ID_ELEM, ?ID_COL}, - {?PID_ELEM, ?PID_COL}, - {?PROCNAME_ELEM, ?PROCNAME_COL}, - {?INFO_ELEM, ?INFO_COL}] - ) - ]). - - - - - -update_gridlines([TabTuple | TT], [LineId | GT], CurrRow) -> - config_gridline(LineId, TabTuple), - [LineId | update_gridlines(TT, GT, CurrRow + 1)]; -update_gridlines([TabTuple | TT], [], CurrRow) -> - LineId = gs:gridline(grid, [{row, CurrRow}]), - config_gridline(LineId, TabTuple), - [LineId | update_gridlines(TT, [], CurrRow + 1)]; -update_gridlines([], [LineId | GT], _CurrRow) -> - gs:destroy(LineId), - update_gridlines([], GT, _CurrRow); -update_gridlines([], [], _CurrRow) -> - []. - - - - - - - - - diff --git a/lib/tv/src/tv_main.hrl b/lib/tv/src/tv_main.hrl deleted file mode 100644 index c9db1d9484..0000000000 --- a/lib/tv/src/tv_main.hrl +++ /dev/null @@ -1,285 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 1998-2013. 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% - --define(ERROR_MSG_MODE, normal). - --define(WIN_WIDTH, 745). % 779 --define(WIN_HEIGHT, 380). --define(MIN_WIN_WIDTH, 524). --define(MIN_WIN_HEIGHT, 150). - --define(FONT, {screen, 12}). --define(HEADER_FONT, {screen, [bold,italic], 12}). - --define(GRID_XPOS, 3). --define(GRID_YPOS, 68). - - -%% Unreadable tables are indicated by the background color. -%% Unnamed tables are indicated by the foreground color. - --define(NORMAL_FG_COLOR, {0,0,0}). --define(READABLE_BG_COLOR, {255,255,255}). --define(UNREADABLE_FG_COLOR, ?NORMAL_FG_COLOR). --define(UNREADABLE_BG_COLOR, {240,240,240}). -%-define(UNREADABLE_BG_COLOR, {255,250,230}). -%-define(UNREADABLE_BG_COLOR, {242,242,242}). --define(UNNAMED_FG_COLOR, {175,175,175}). -%-define(UNNAMED_FG_COLOR, {140,35,35}). - - --define(DISABLED_COLOR, {160,160,160}). - --define(NAME_ELEM, 1). --define(NAMED_TABLE_ELEM, 2). --define(ID_ELEM, 3). --define(READABLE_ELEM, 4). --define(PID_ELEM, 5). --define(PROCNAME_ELEM, 6). --define(INFO_ELEM, 7). - --define(NAME_COL, 1). --define(ID_COL, 2). --define(PID_COL, 3). --define(PROCNAME_COL, 4). --define(INFO_COL, 5). - --define(POSSIBLE_MARK_COLS, [?NAME_COL, ?ID_COL, ?PID_COL, ?PROCNAME_COL, ?INFO_COL]). --define(COL_WIDTHS, [205,131,91,197,90]). % [140,95,125,75,85,140,90]). --define(FIX_WIDTH_COLS, [2,3,5]). - - --define(HEADER_LABELS, [{label1, " Table Name"}, - % {label2, " Named Table"}, - {label2, " Table Id"}, - % {label4, " Readable"}, - {label3, " Owner Pid"}, - {label4, " Owner Name"}, - {label5, " Table Size"} - ]). - - - -%% TABLES_TO_HIDE shall contain both Mnesia and ETS tables that we want to hide. :-) - --define(SYSTEM_TABLES, [ac_tab, - asn1, - cdv_dump_index_table, - cdv_menu_table, - cdv_decode_heap_table, - cell_id, - cell_pos, - clist, - cover_internal_data_table, - cover_collected_remote_data_table, - cover_binary_code_table, - code, - code_names, - cookies, - corba_policy, - corba_policy_associations, - dets, - dets_owners, - dets_registry, - disk_log_names, - disk_log_pids, - eprof, - erl_atom_cache, - erl_epmd_nodes, - etop_accum_tab, - etop_tr, - ets_coverage_data, - file_io_servers, - global, - global_locks, - global_names, - global_names_ext, - gs_mapping, - gs_names, - gstk_db, - gstk_grid_cellid, - gstk_grid_cellpos, - gstk_grid_id, - gvar, - httpd, - id, - ig, - ign_req_index, - ign_requests, - index, - inet_cache, - inet_db, - inet_hosts, - 'InitialReferences', - int_db, - interpreter_includedirs_macros, - ir_WstringDef, - lmcounter, - locks, - pg2_table, - queue, - snmp_agent_table, - snmp_local_db2, - snmp_mib_data, - snmp_note_store, - snmp_symbolic_ets, - sticky, - sys_dist, - tid_locks, - tkFun, - tkLink, - tkPriv, - ttb, - ttb_history_table, - udp_fds, - udp_pids - ]). - - --define(MNESIA_TABLES, [alarm, - alarmTable, - evaLogDiscriminatorTable, - eva_snmp_map, - eventTable, - group, - imprec, - ir_AliasDef, - ir_ArrayDef, - ir_AttributeDef, - ir_ConstantDef, - ir_Contained, - ir_Container, - ir_EnumDef, - ir_ExceptionDef, - ir_IDLType, - ir_IRObject, - ir_InterfaceDef, - ir_ModuleDef, - ir_ORB, - ir_OperationDef, - ir_PrimitiveDef, - ir_Repository, - ir_SequenceDef, - ir_StringDef, - ir_StructDef, - ir_TypedefDef, - ir_UnionDef, - logTable, - logTransferTable, - mesh_meas, - mesh_type, - mnesia_clist, - mnesia_decision, - mnesia_transient_decision, - orber_CosNaming, - orber_objkeys, - schema, - user - ]). - - --define(UNREADABLE_MNESIA_TABLES, [schema]). - - --define(SYSTEM_OWNERS, [alarm_handler, - application_controller, - auth, - coast_server, - code_server, - cover_server_001, - dbg, - dets, - dets_sup, - disk_log_server, - disk_log_sup, - erl_epmd, - erl_prim_loader, - error_logger, - eva_log_sup, - eva_server, - eva_sup, - file_server, - file_server_2, - global_group, - global_group_check, - global_name_server, - gs_frontend, - heart, - help_main, - inet_db, - inet_gethost_native, - init, - int_db, - interpret, - jive_server, - kernel_safe_sup, - kernel_sup, - log_server, - mandel_server, - mesh_sup, - mesh_server, - mnesia_checkpoint_sup, - mnesia_dumper, - mnesia_event, - mnesia_fallback, - mnesia_init, - mnesia_kernel_sup, - mnesia_late_loader, - mnesia_locker, - mnesia_monitor, - mnesia_recover, - mnesia_snmp_sup, - mnesia_subscr, - mnesia_sup, - mnesia_tm, - net_kernel, - net_sup, - overload, - perfmon_sampler, - pxw_server, - release_handler, - %% rex, %% Otherwise we won't see tables we've created on other nodes! - rsh_starter, - sasl_safe_sup, - sasl_sup, - snmp_agent_sup, - snmp_local_db, - snmp_master_agent, - snmp_misc_sup, - snmp_note_store, - snmp_supervisor, - snmp_symbolic_store, - socket, - sounder, - ssl_socket, - take_over_monitor, - timer_server, - tk, - udp_server, - user, - winshell_controller, - xerl_copy, - xerl_monitor - ]). - - - - - - - diff --git a/lib/tv/src/tv_mnesia_rpc.erl b/lib/tv/src/tv_mnesia_rpc.erl deleted file mode 100644 index b2434fcdd3..0000000000 --- a/lib/tv/src/tv_mnesia_rpc.erl +++ /dev/null @@ -1,106 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 1998-2011. 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% --module(tv_mnesia_rpc). - - - --export([system_info/3, - table_info/4, - transaction/3 - ]). - - - - - - -system_info(_Node, true, Key) -> - chk(catch mnesia:system_info(Key)); -system_info(Node, false, Key) -> - chk(catch rpc:block_call(Node, mnesia, system_info, [Key])). - - - - -table_info(_Node, true, Tab, Item) -> - chk(catch mnesia:table_info(Tab, Item)); -table_info(Node, false, Tab, Item) -> - chk(catch rpc:block_call(Node, mnesia, table_info, [Tab, Item])). - - - - -transaction(_Node, true, Fun) -> - chk(catch mnesia:transaction(Fun)); -transaction(Node, false, Fun) -> - chk(catch rpc:block_call(Node, mnesia, transaction, [Fun])). - - - - -chk(Result) -> - case Result of - _Anything when is_list(Result) -> - Result; - _Anything when is_atom(Result) -> - Result; - _Anything when is_integer(Result) -> - Result; - _Anything when is_pid(Result) -> - Result; - - {aborted, {bad_type, _Rec}} -> - throw(bad_format); - - {badrpc,nodedown} -> - throw(nodedown); - {'EXIT', nodedown} -> - throw(nodedown); - - {'EXIT', {aborted, {no_exists, _Table, _Arg}}} -> - throw(no_table); - - {'EXIT', {aborted, {node_not_running, _Node}}} -> - throw(mnesia_not_started); - {'EXIT', {{badarg, {gen, set_monitor_mode, _Data}}, _Info}} -> - throw(mnesia_not_started); - {'EXIT', {'EXIT', {aborted, {node_not_running,_Node}}}} -> - throw(mnesia_not_started); - {badrpc, {'EXIT', {aborted, {node_not_running,_Node}}}} -> - throw(mnesia_not_started); - {badrpc, {'EXIT', {aborted, {no_exists,_Table,_Args}}}} -> - throw(mnesia_not_started); - {badrpc, _Reason} -> - throw(mnesia_not_started); - {'EXIT', {undef, {mnesia,_Fcn,_Args,_}}} -> - throw(mnesia_not_started); - {'EXIT', {undef, {mnesia,_Fcn,_Args}}} -> - throw(mnesia_not_started); - - {'EXIT', Reason} -> - throw({unexpected_error, Reason}); - - Other when is_tuple(Other) -> - %% For example wild_pattern requests return a tuple! - Other; - - Other -> - io:format("Unexpected return value: ~p~n", [Other]) - end. - - diff --git a/lib/tv/src/tv_new_table.erl b/lib/tv/src/tv_new_table.erl deleted file mode 100644 index 779835d78a..0000000000 --- a/lib/tv/src/tv_new_table.erl +++ /dev/null @@ -1,666 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 1998-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%k --module(tv_new_table). --compile([{nowarn_deprecated_function,{gs,button,3}}, - {nowarn_deprecated_function,{gs,checkbutton,3}}, - {nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,entry,3}}, - {nowarn_deprecated_function,{gs,frame,3}}, - {nowarn_deprecated_function,{gs,label,2}}, - {nowarn_deprecated_function,{gs,radiobutton,3}}, - {nowarn_deprecated_function,{gs,read,2}}, - {nowarn_deprecated_function,{gs,start,0}}, - {nowarn_deprecated_function,{gs,window,3}}]). - - - --export([start/2, - init/3 - ]). - - - --define(DEFAULT_BG_COLOR, {217, 217, 217}). --define(FONT, {screen, 12}). - --define(WIN_WIDTH, 400). --define(WIN_HEIGHT, 555). %% 510 - --define(FRAME_WIDTH, 400). --define(FRAME1_HEIGHT, 170). --define(FRAME2_HEIGHT, 260). --define(FRAME3_HEIGHT, 125). %% 80 --define(BW, 2). - --define(FRAME_X, 0). --define(FRAME1_Y, 0). --define(FRAME2_Y, 170). --define(FRAME3_Y, 430). - - --define(LBL_HEIGHT, 30). --define(NODE_LBL_WIDTH, 45). --define(NAME_LBL_WIDTH, 85). --define(TYPE_LBL_WIDTH, 45). --define(PROT_LBL_WIDTH, 85). --define(KEYPOS_LBL_WIDTH, 95). - --define(LBL_X, 10). --define(NODE_LBL_Y, 20). --define(NAME_LBL_Y, 80). --define(TYPE_LBL_Y, 10). --define(PROT_LBL_Y, 100). --define(KEYPOS_LBL_Y, 200). - - --define(ENTRY_HEIGHT, 30). --define(NODE_ENTRY_WIDTH, 275). --define(NAME_ENTRY_WIDTH, 275). --define(KEYPOS_ENTRY_WIDTH, 50). - --define(ENTRY_X1, 110). --define(ENTRY_X2, 110). --define(NODE_ENTRY_Y, 20). --define(NAME_ENTRY_Y, 80). --define(KEYPOS_ENTRY_Y, 200). - --define(RBTN_HEIGHT, 30). --define(RBTN_WIDTH1, 105). --define(RBTN_WIDTH2, 115). - --define(RBTN_X1, 60). --define(RBTN_X2, 165). --define(RBTN_X3, 270). --define(RBTN_Y1, 40). --define(RBTN_Y1PLUS, 70). --define(RBTN_Y2, 130). - - --define(CBTN_HEIGHT, 30). --define(NAMED_TABLE_CBTN_WIDTH, 100). --define(OPEN_BROWSER_CBTN_WIDTH, 105). - --define(NAMED_TABLE_CBTN_X, 110). --define(NAMED_TABLE_CBTN_Y, 120). - --define(OPEN_BROWSER_CBTN_X, 85). %% 215 --define(OPEN_BROWSER_CBTN_Y, 10). %% 200 - - --define(BTN_WIDTH, 100). --define(BTN_HEIGHT, 30). - --define(BTN_X1, 85). --define(BTN_X2, 225). --define(BTN_Y, 65). %% 30 - - --define(VLINE_LBL_WIDTH, (380 - 2 * ?BW)). --define(VLINE_LBL_HEIGHT, 1). --define(HLINE_LBL_WIDTH, 1). --define(HLINE_LBL_HEIGHT, 70). - --define(VLINE_LBL_X, (10 - ?BW)). --define(VLINE_LBL_Y1, 85). --define(VLINE_LBL_Y2, 180). --define(HLINE_LBL_X, 188). --define(HLINE_LBL_Y, 180). - - --define(DEFAULT_NAME, my_table). --define(DEFAULT_TYPE, set). --define(DEFAULT_PROT, public). --define(DEFAULT_KEYPOS, 1). - - - - -start(Node, ErrMsgMode) -> - spawn_link(?MODULE, init, [Node, ErrMsgMode, self()]). - - - - - -init(Node, ErrMsgMode, MPid) -> - process_flag(trap_exit, true), - put(error_msg_mode, ErrMsgMode), - create_window(Node), - loop(false, ?DEFAULT_TYPE, ?DEFAULT_PROT, true, MPid). - - - - - -loop(NamedTab, Type, Prot, OpenBrowser, MPid) -> - receive - - {gs, ok, click, _Data, _Args} -> - gs:config(win, [{cursor, busy}]), - case create_table(NamedTab, Type, Prot, OpenBrowser, MPid) of - ok -> - exit(normal); - error -> - gs:config(win, [{cursor, arrow}]), - loop(NamedTab, Type, Prot, OpenBrowser, MPid) - end; - - - {gs, cancel, click, _Data, _Args} -> - exit(normal); - - - {gs, set, click, _Data, _Args} -> - loop(NamedTab, set, Prot, OpenBrowser, MPid); - - - {gs, ordered_set, click, _Data, _Args} -> - loop(NamedTab, ordered_set, Prot, OpenBrowser, MPid); - - - {gs, bag, click, _Data, _Args} -> - loop(NamedTab, bag, Prot, OpenBrowser, MPid); - - - {gs, duplicate_bag, click, _Data, _Args} -> - loop(NamedTab, duplicate_bag, Prot, OpenBrowser, MPid); - - - {gs, public, click, _Data, _Args} -> - gs:config(open_browser, [{enable, true}, {select, OpenBrowser}]), - loop(NamedTab, Type, public, OpenBrowser, MPid); - - - {gs, protected, click, _Data, _Args} -> - gs:config(open_browser, [{enable, true}, {select, OpenBrowser}]), - loop(NamedTab, Type, protected, OpenBrowser, MPid); - - - {gs, private, click, _Data, _Args} -> - gs:config(open_browser, [{select, false}, {enable, false}]), - loop(NamedTab, Type, private, OpenBrowser, MPid); - - - {gs, named_table, click, Data, _Args} -> - gs:config(named_table, [{data, not(Data)}]), - loop(Data, Type, Prot, OpenBrowser, MPid); - - - {gs, open_browser, click, Data, _Args} -> - gs:config(open_browser, [{data, not(Data)}]), - loop(Data, Type, Prot, Data, MPid); - - - {gs, EntryId, keypress, _Data, ['Tab', _No, 0 | _T]} -> - case get_entry_term(EntryId) of - {ok, _Term} -> - gs:config(next_entry(EntryId, forward), [{setfocus, true}, - {select, {0, 100000000}}]); - error -> - done - end, - loop(NamedTab, Type, Prot, OpenBrowser, MPid); - - - {gs, EntryId, keypress, _Data, ['Tab', _No, 1 | _T]} -> - case get_entry_term(EntryId) of - {ok, _Term} -> - gs:config(next_entry(EntryId, backward), [{setfocus, true}, - {select, {0, 100000000}}]); - error -> - done - end, - loop(NamedTab, Type, Prot, OpenBrowser, MPid); - - - {gs, EntryId, keypress, _Data, ['Down' | _T]} -> - case get_entry_term(EntryId) of - {ok, _Term} -> - gs:config(next_entry(EntryId, forward), [{setfocus, true}, - {select, {0, 100000000}}]); - error -> - done - end, - loop(NamedTab, Type, Prot, OpenBrowser, MPid); - - - {gs, EntryId, keypress, _Data, ['Up' | _T]} -> - case get_entry_term(EntryId) of - {ok, _Term} -> - gs:config(next_entry(EntryId, backward), [{setfocus, true}, - {select, {0, 100000000}}]); - error -> - done - end, - loop(NamedTab, Type, Prot, OpenBrowser, MPid); - - - {gs, _EntryId, keypress, _Data, ['Return' | _T]} -> - gs:config(win, [{cursor, busy}]), - case create_table(NamedTab, Type, Prot, OpenBrowser, MPid) of - ok -> - exit(normal); - error -> - gs:config(win, [{cursor, arrow}]), - loop(NamedTab, Type, Prot, OpenBrowser, MPid) - end; - - - {gs, win, configure, _Data, _Args} -> - gs:config(win, [{width, ?WIN_WIDTH}, - {height, ?WIN_HEIGHT}]), - loop(NamedTab, Type, Prot, OpenBrowser, MPid); - - - {gs, win, destroy, _Data, _Args} -> - exit(normal); - - - raise -> - gs:config(win, [raise]), - loop(NamedTab, Type, Prot, OpenBrowser, MPid); - - - {error_msg_mode, ErrMsgMode} -> - put(error_msg_mode, ErrMsgMode), - loop(NamedTab, Type, Prot, OpenBrowser, MPid); - - - {'EXIT', _Pid, _Reason} -> - exit(normal); - - - _Other -> - loop(NamedTab, Type, Prot, OpenBrowser, MPid) - - end. - - - - -create_table(NamedTab, Type, Prot, OpenBrowser, MPid) -> - case get_entry_term(node_entry) of - error -> - error; - {ok, Node} -> - case get_entry_term(name_entry) of - error -> - error; - {ok, TabName} -> - case get_entry_term(keypos_entry) of - error -> - error; - {ok, KeyPos} -> - Options = - [Type, Prot, {keypos, KeyPos}] ++ - case NamedTab of - true -> - [named_table]; - false -> - [] - end, - {Readable, NewOpenBrowser} = - case Prot of - private -> - {false, false}; - _Other -> - {true, OpenBrowser} - end, - MPid ! {tv_new_table, self(), Node, TabName, Options, ets, - Readable, NewOpenBrowser}, - receive - ok -> - ok; - error -> - show_error_msg(), - error - after - 5000 -> - show_error_msg(), - error - end - end - end - end. - - - - - -show_error_msg() -> - Msg = - case get(error_msg_mode) of - normal -> - ["Couldn't create a table using", - "the specified settings!"]; - haiku -> - ["The table you want", - "Could maybe be created.", - "But I don't know how."] - end, - tv_utils:notify(win, "TV Notification", Msg). - - - - - - - -get_entry_term(Id) -> - EditedStr = gs:read(Id, text), - case tv_db_search:string_to_term(EditedStr) of - {ok, NewTerm} when Id =:= node_entry, is_atom(NewTerm) -> - {ok,NewTerm}; - {ok, NewTerm} when Id =:= name_entry, is_atom(NewTerm) -> - {ok,NewTerm}; - {ok, NewTerm} when Id =:= keypos_entry, is_integer(NewTerm), NewTerm > 0 -> - {ok,NewTerm}; - _Other -> - NewMsg = - case get(error_msg_mode) of - normal -> - case Id of - node_entry -> - ["Please enter a valid node name!"]; - name_entry -> - ["Please enter a valid table name!"]; - keypos_entry -> - ["Please enter a valid key position!"] - end; - haiku -> - E1 = "Aborted effort", - L = - case Id of - node_entry -> - ["Reflect, repent and retype:", - "Enter valid node."]; - name_entry -> - ["Reflect, repent and retype:", - "Enter valid name."]; - keypos_entry -> - ["Reflect, repent and retype", - "Key position, please."] - end, - [E1 | L] - end, - gs:config(Id, [beep, {select, {0, 100000000}}, {setfocus, true}]), - tv_utils:notify(win, "TV Notification", NewMsg), - error - end. - - - - - -next_entry(node_entry, forward) -> - name_entry; -next_entry(node_entry, backward) -> - keypos_entry; -next_entry(name_entry, forward) -> - keypos_entry; -next_entry(name_entry, backward) -> - node_entry; -next_entry(keypos_entry, forward) -> - node_entry; -next_entry(keypos_entry, backward) -> - name_entry. - - - - -create_window(Node) -> - gs:window(win, gs:start(), [{width, ?WIN_WIDTH}, - {height, ?WIN_HEIGHT}, - {bg, ?DEFAULT_BG_COLOR}, - {title, "[TV] Create New ETS Table"}, - {configure, true}, - {destroy, true}, - {cursor, arrow} - ]), - - gs:frame(frame1, win, [{width, ?FRAME_WIDTH}, - {height, ?FRAME1_HEIGHT}, - {x, ?FRAME_X}, - {y, ?FRAME1_Y}, - {bg, ?DEFAULT_BG_COLOR}, - {bw, ?BW}]), - gs:frame(frame2, win, [{width, ?FRAME_WIDTH}, - {height, ?FRAME2_HEIGHT}, - {x, ?FRAME_X}, - {y, ?FRAME2_Y}, - {bg, ?DEFAULT_BG_COLOR}, - {bw, ?BW}]), - gs:frame(frame3, win, [{width, ?FRAME_WIDTH}, - {height, ?FRAME3_HEIGHT}, - {x, ?FRAME_X}, - {y, ?FRAME3_Y}, - {bg, ?DEFAULT_BG_COLOR}, - {bw, ?BW}]), - - gs:label(frame1, [{width, ?NODE_LBL_WIDTH}, - {height, ?LBL_HEIGHT}, - {x, ?LBL_X}, - {y, ?NODE_LBL_Y}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0,0,0}}, - {align, w}, - {font, ?FONT}, - {label, {text, "Node:"}} - ]), - gs:label(frame1, [{width, ?NAME_LBL_WIDTH}, - {height, ?LBL_HEIGHT}, - {x, ?LBL_X}, - {y, ?NAME_LBL_Y}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0,0,0}}, - {align, w}, - {font, ?FONT}, - {label, {text, "Table name:"}} - ]), - gs:label(frame2, [{width, ?TYPE_LBL_WIDTH}, - {height, ?LBL_HEIGHT}, - {x, ?LBL_X}, - {y, ?TYPE_LBL_Y}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0,0,0}}, - {align, w}, - {font, ?FONT}, - {label, {text, "Type:"}} - ]), - gs:label(frame2, [{width, ?PROT_LBL_WIDTH}, - {height, ?LBL_HEIGHT}, - {x, ?LBL_X}, - {y, ?PROT_LBL_Y}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0,0,0}}, - {align, w}, - {font, ?FONT}, - {label, {text, "Protection:"}} - ]), - gs:label(frame2, [{width, ?KEYPOS_LBL_WIDTH}, - {height, ?LBL_HEIGHT}, - {x, ?LBL_X}, - {y, ?KEYPOS_LBL_Y}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0,0,0}}, - {align, w}, - {font, ?FONT}, - {label, {text, "Key position:"}} - ]), - - gs:entry(node_entry, frame1, [{width, ?NODE_ENTRY_WIDTH}, - {height, ?ENTRY_HEIGHT}, - {x, ?ENTRY_X1}, - {y, ?NODE_ENTRY_Y}, - {bg, {255,255,255}}, - {fg, {0,0,0}}, - {font, ?FONT}, - {enable, true}, - {text, "'" ++ atom_to_list(Node) ++ "'"}, - {keypress, true} - ]), - gs:entry(name_entry, frame1, [{width, ?NAME_ENTRY_WIDTH}, - {height, ?ENTRY_HEIGHT}, - {x, ?ENTRY_X1}, - {y, ?NAME_ENTRY_Y}, - {bg, {255,255,255}}, - {fg, {0,0,0}}, - {font, ?FONT}, - {enable, true}, - {text, atom_to_list(?DEFAULT_NAME)}, - {keypress, true}, - {setfocus, true}, - {select, {0,100000000}} - ]), - gs:entry(keypos_entry, frame2, [{width, ?KEYPOS_ENTRY_WIDTH}, - {height, ?ENTRY_HEIGHT}, - {x, ?ENTRY_X2}, - {y, ?KEYPOS_ENTRY_Y}, - {bg, {255,255,255}}, - {fg, {0,0,0}}, - {font, ?FONT}, - {enable, true}, - {keypress, true}, - {text, integer_to_list(?DEFAULT_KEYPOS)} - ]), - - gs:radiobutton(set, frame2, [{width, ?RBTN_WIDTH1}, - {height, ?RBTN_HEIGHT}, - {x, ?RBTN_X1}, - {y, ?RBTN_Y1}, - {align, w}, - {label, {text, "set"}}, - {group, type} - ]), - gs:radiobutton(ordered_set, frame2, [{width, ?RBTN_WIDTH1}, - {height, ?RBTN_HEIGHT}, - {x, ?RBTN_X2}, - {y, ?RBTN_Y1}, - {align, w}, - {label, {text, "ordered_set"}}, - {group, type} - ]), - gs:radiobutton(bag, frame2, [{width, ?RBTN_WIDTH1}, - {height, ?RBTN_HEIGHT}, - {x, ?RBTN_X1}, - {y, ?RBTN_Y1PLUS}, - {align, w}, - {label, {text, "bag"}}, - {group, type} - ]), - gs:radiobutton(duplicate_bag, frame2, [{width, ?RBTN_WIDTH2}, - {height, ?RBTN_HEIGHT}, - {x, ?RBTN_X2}, - {y, ?RBTN_Y1PLUS}, - {align, w}, - {label, {text, "duplicate_bag"}}, - {group, type} - ]), - - gs:radiobutton(public, frame2, [{width, ?RBTN_WIDTH1}, - {height, ?RBTN_HEIGHT}, - {x, ?RBTN_X1}, - {y, ?RBTN_Y2}, - {align, w}, - {label, {text, "public"}}, - {group, protection} - ]), - gs:radiobutton(protected, frame2, [{width, ?RBTN_WIDTH1}, - {height, ?RBTN_HEIGHT}, - {x, ?RBTN_X2}, - {y, ?RBTN_Y2}, - {align, w}, - {label, {text, "protected"}}, - {group, protection} - ]), - gs:radiobutton(private, frame2, [{width, ?RBTN_WIDTH2}, - {height, ?RBTN_HEIGHT}, - {x, ?RBTN_X3}, - {y, ?RBTN_Y2}, - {align, w}, - {label, {text, "private"}}, - {group, protection} - ]), - - gs:checkbutton(named_table, frame1, [{width, ?NAMED_TABLE_CBTN_WIDTH}, - {height, ?CBTN_HEIGHT}, - {x, ?NAMED_TABLE_CBTN_X}, - {y, ?NAMED_TABLE_CBTN_Y}, - {align, w}, - {label, {text, "Named table"}}, - {select, false}, - {data, true} - ]), - - gs:checkbutton(open_browser, frame3, [{width, ?OPEN_BROWSER_CBTN_WIDTH}, - {height, ?CBTN_HEIGHT}, - {x, ?OPEN_BROWSER_CBTN_X}, - {y, ?OPEN_BROWSER_CBTN_Y}, - {align, w}, - {label, {text, "Open browser"}}, - {select, true}, - {data, false} - ]), - -%% gs:label(frame2, [{width, ?VLINE_LBL_WIDTH}, -%% {height, ?VLINE_LBL_HEIGHT}, -%% {x, ?VLINE_LBL_X}, -%% {y, ?VLINE_LBL_Y1}, -%% {bg, {0,0,0}} -%% ]), -%% gs:label(frame2, [{width, ?VLINE_LBL_WIDTH}, -%% {height, ?VLINE_LBL_HEIGHT}, -%% {x, ?VLINE_LBL_X}, -%% {y, ?VLINE_LBL_Y2}, -%% {bg, {0,0,0}} -%% ]), -%% gs:label(frame2, [{width, ?HLINE_LBL_WIDTH}, -%% {height, ?HLINE_LBL_HEIGHT}, -%% {x, ?HLINE_LBL_X}, -%% {y, ?HLINE_LBL_Y}, -%% {bg, {0,0,0}} -%% ]), -%% - gs:button(ok, frame3, [{width, ?BTN_WIDTH}, - {height, ?BTN_HEIGHT}, - {x, ?BTN_X1}, - {y, ?BTN_Y}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0,0,0}}, - {label, {text, "OK"}} - ]), - gs:button(cancel, frame3, [{width, ?BTN_WIDTH}, - {height, ?BTN_HEIGHT}, - {x, ?BTN_X2}, - {y, ?BTN_Y}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0,0,0}}, - {label, {text, "Cancel"}} - ]), - - gs:config(?DEFAULT_TYPE, [{select, true}]), - gs:config(?DEFAULT_PROT, [{select, true}]), - - gs:config(win, [{map, true}]). - - - - - - - diff --git a/lib/tv/src/tv_nodewin.erl b/lib/tv/src/tv_nodewin.erl deleted file mode 100644 index 8376c4a7aa..0000000000 --- a/lib/tv/src/tv_nodewin.erl +++ /dev/null @@ -1,412 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 1998-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% --module(tv_nodewin). --compile([{nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,destroy,1}}, - {nowarn_deprecated_function,{gs,listbox,3}}, - {nowarn_deprecated_function,{gs,menu,3}}, - {nowarn_deprecated_function,{gs,menubar,3}}, - {nowarn_deprecated_function,{gs,menubutton,3}}, - {nowarn_deprecated_function,{gs,menuitem,2}}, - {nowarn_deprecated_function,{gs,start,0}}, - {nowarn_deprecated_function,{gs,window,3}}]). - - - --export([start/2, init/3]). - - --include("tv_int_msg.hrl"). - - - --define(WINDOW_WIDTH, 230). --define(WINDOW_HEIGHT, 260). --define(DEFAULT_BG_COLOR, {217,217,217}). --define(POLL_INTERVAL, 5000). - - - -%%%********************************************************************* -%%% EXTERNAL FUNCTIONS -%%%********************************************************************* - - - - -start(CurrNode, ErrMsgMode) -> - spawn_link(?MODULE, init, [self(), CurrNode, ErrMsgMode]). - - - - - -init(Pid, CurrNode, ErrMsgMode) -> - process_flag(trap_exit, true), - net_kernel:monitor_nodes(true), - put(error_msg_mode, ErrMsgMode), - gs:start(), - NewCurrNode = update_node_listbox(CurrNode, false), - tell_master(NewCurrNode, CurrNode, Pid), - loop(Pid, NewCurrNode, node(), false). - - - - -%%%********************************************************************* -%%% INTERNAL FUNCTIONS -%%%********************************************************************* - - - -init_window(CurrNode, Pid) -> - create_window(), - NewCurrNode = update_node_listbox(CurrNode, true), - tell_master(NewCurrNode, CurrNode, Pid), - gs:config(win, [{map,true}]), - NewCurrNode. - - - - -handle_error(nodedown) -> - gs:window(errorwin, gs:start(), []), - gs:config(errorwin, [beep]), - case get(error_msg_mode) of - normal -> - tv_utils:notify(errorwin, "TV Notification", ["The selected node is down!"]); - haiku -> - Msg = ["With searching comes loss", - "And the presence of absence:", - "Node is down."], - tv_utils:notify(errorwin, "TV Notification", Msg) - end, - gs:destroy(errorwin); -handle_error(distributed) -> - gs:window(errorwin, gs:start(), []), - gs:config(errorwin, [beep]), - case get(error_msg_mode) of - normal -> - tv_utils:notify(errorwin, "TV Notification", - ["The system has become distributed!"]); - haiku -> - Msg = [], - tv_utils:notify(errorwin, "TV Notification", Msg) - end, - gs:destroy(errorwin); -handle_error(undistributed) -> - gs:window(errorwin, gs:start(), []), - gs:config(errorwin, [beep]), - case get(error_msg_mode) of - normal -> - tv_utils:notify(errorwin, "TV Notification", - ["The system is no longer distributed!"]); - haiku -> - Msg = ["The system you see", - "Is not a distributed", - "system anymore."], - tv_utils:notify(errorwin, "TV Notification", Msg) - end, - gs:destroy(errorwin). - -get_node_lists(CurrNode) -> - NodeDataList = lists:sort([node() | nodes()]), - NodeTextList = lists:map(fun(Item) -> - " " ++ atom_to_list(Item) - end, - NodeDataList), - - %% It *may* be possible that CurrNode has disappeared! - %% If this is the case, use the node where TV resides - %% as new current node. - %% This also covers the case when our own node (or some - %% other node) suddenly goes distributed. - - NewCurrNode = case lists:member(CurrNode, NodeDataList) of - true -> - CurrNode; - false -> - node() - end, - - %% Now get the index that shall be marked in the node listbox. - %% Remember that the first item has number 0 (zero)! - NodeMarkIndex = get_node_mark_index(NewCurrNode, NodeDataList, 0), - - {NewCurrNode, NodeDataList, NodeTextList, NodeMarkIndex}. - - - - -%% We know that CurrNode is *somewhere* in the list, since we have checked. -%% If the original CurrNode wasn't there, then we are using node() instead, -%% which definitely is in the list. (node() may have gone distributed in the -%% meantime, but it *IS* in the list!) :-) - -get_node_mark_index(CurrNode, [H | T], Acc) when CurrNode =/= H -> - get_node_mark_index(CurrNode, T, Acc + 1); -get_node_mark_index(CurrNode, [CurrNode | _], Acc) -> - Acc. %% Acc tells the index of the current head. :-) - - - - - -check_selected_node('nonode@nohost', _OldNode, _WinCreated) when node() =:= 'nonode@nohost' -> - %% Not distributed, OK! - 'nonode@nohost'; -check_selected_node(_Node, _OldNode, WinCreated) when node() =:= 'nonode@nohost' -> - %% No longer distributed, but previously was! - handle_error(undistributed), - update_node_listbox('nonode@nohost', WinCreated); -check_selected_node(Node, _OldNode, _WinCreated) when Node =:= node() -> - %% We are distributed, but on - %% our own node! Since we - % still are running, the node - %% is up. - Node; -check_selected_node(Node, 'nonode@nohost', WinCreated) -> - %% The system has been distributed! - net_kernel:monitor_nodes(true), - handle_error(distributed), - update_node_listbox(Node, WinCreated); -check_selected_node(Node, _OldNode, WinCreated) -> - %% We are distributed, and a new node has been chosen! - %% We better check this node! - case net_adm:ping(Node) of - pong -> - Node; - _Other -> - handle_error(nodedown), - update_node_listbox(Node, WinCreated) - end. - - - -available_nodes() -> - lists:sort([node() | nodes()]). - - - -loop(Pid, CurrNode, HomeNode, WinCreated) -> - receive - - {nodedown, _Node} -> - flush_nodedown_messages(), - flush_nodeup_messages(), - case lists:member(CurrNode, available_nodes()) of - true -> - done; - false when node() =:= 'nonode@nohost', CurrNode =/= 'nonode@nohost' -> - handle_error(undistributed); - false -> - handle_error(nodedown) - end, - NewCurrNode = update_node_listbox(CurrNode, WinCreated), - tell_master(NewCurrNode, CurrNode, Pid), - loop(Pid, NewCurrNode, node(), WinCreated); - - - {nodeup, _Node} -> - flush_nodeup_messages(), - flush_nodedown_messages(), - case lists:member(CurrNode, available_nodes()) of - true -> - done; - false when node() =:= 'nonode@nohost', CurrNode =/= 'nonode@nohost' -> - handle_error(undistributed); - false when CurrNode =:= 'nonode@nohost' -> - net_kernel:monitor_nodes(true), - handle_error(distributed); - false -> - handle_error(nodedown) - end, - NewCurrNode = update_node_listbox(CurrNode, WinCreated), - tell_master(NewCurrNode, CurrNode, Pid), - loop(Pid, NewCurrNode, node(), WinCreated); - - - {gs, node_listbox, click, Data, [Idx, _Txt | _]} -> - NewCurrNode = check_selected_node(lists:nth(Idx + 1, Data), CurrNode, WinCreated), - tell_master(NewCurrNode, CurrNode, Pid), - loop(Pid, NewCurrNode, node(), WinCreated); - - - {gs, win, configure, _, _} -> - gs:config(win, [{width, ?WINDOW_WIDTH}, {height, ?WINDOW_HEIGHT}]), - loop(Pid, CurrNode, HomeNode, WinCreated); - - - show_window when WinCreated-> - gs:config(win, [raise]), - loop(Pid, CurrNode, HomeNode, WinCreated); - - show_window when not WinCreated -> - init_window(CurrNode, Pid), - loop(Pid, CurrNode, HomeNode, true); - - {gs, _Id, click, close_menu, _Args} -> - gs:destroy(win), - loop(Pid, CurrNode, HomeNode, false); - - - {gs, _Id, keypress, _Data, [c, _, 0, 1 | _]} -> - gs:destroy(win), - loop(Pid, CurrNode, HomeNode, false); - - - {gs, _Id, keypress, _Data, ['C', _, 1, 1 | _]} -> - gs:destroy(win), - loop(Pid, CurrNode, HomeNode, false); - - - {gs, _Id, keypress, _Data, _Args} -> - loop(Pid, CurrNode, HomeNode, WinCreated); - - - {gs, _, destroy, _, _} -> - loop(Pid, CurrNode, HomeNode, false); - - - {error_msg_mode, Mode} -> - put(error_msg_mode, Mode), - loop(Pid, CurrNode, HomeNode, WinCreated); - - {'EXIT', Pid, _Reason} -> - net_kernel:monitor_nodes(false), - exit(normal); - - - {'EXIT', _OtherPid, _Reason} -> - loop(Pid, CurrNode, HomeNode, WinCreated); - - - _Other -> - io:format("Node window received message ~p ~n", [_Other]), - loop(Pid, CurrNode, HomeNode, WinCreated) - - after - 1000 -> - NewHomeNode = case node() of - HomeNode -> - HomeNode; - Other -> - self() ! {nodeup, Other} - end, - loop(Pid, CurrNode, NewHomeNode, WinCreated) - end. - - - - -tell_master(NewNode, NewNode, _Pid) -> - done; -tell_master(NewNode, _OldNode, Pid) -> - Pid ! {tv_new_node, self(), NewNode}. - - - - -flush_nodedown_messages() -> - receive - {nodedown,_Node} -> - flush_nodedown_messages() - after - 0 -> - done - end. - - - - -flush_nodeup_messages() -> - receive - {nodeup,_Node} -> - flush_nodeup_messages() - after - 0 -> - done - end. - - - - -update_node_listbox(Node, WinCreated) -> - {NewNode, NodeDataList, NodeTextList, MarkIndex} = get_node_lists(Node), - case WinCreated of - false -> - done; - true -> - catch gs:config(node_listbox, [{data, NodeDataList}, - {items, NodeTextList}, - {selection, MarkIndex} - ]) - end, - NewNode. - - - - - -create_window() -> - gs:window(win, gs:start(), [{width, ?WINDOW_WIDTH}, - {height, ?WINDOW_HEIGHT}, - {bg, ?DEFAULT_BG_COLOR}, - {title, "[TV] Connected nodes"}, - {configure, true}, - {destroy, true}, - {cursor, arrow}, - {keypress, true} - ]), - gs:menubar(menubar, win, [{bg, ?DEFAULT_BG_COLOR} - ]), - gs:menubutton(mbutt, menubar, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {178, 34, 34}}, % firebrick - {label, {text, " File "}}, - {underline, 1} - ]), - - % Create the actual menu! - gs:menu(menu, mbutt, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {178, 34, 34}}]), - gs:menuitem(menu, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {178, 34, 34}}, - {label, {text, " Close Ctrl-C "}}, - {data, close_menu}, - {underline, 1} - ]), - - Xpos = 4, - Ypos = 40, - gs:listbox(node_listbox, win, [{x, Xpos}, - {y, Ypos}, - {width, ?WINDOW_WIDTH - 2 * Xpos}, - {height, ?WINDOW_HEIGHT - Ypos - Xpos}, - {bg, {255,255,255}}, - {vscroll, right}, - {hscroll, true}, - {click, true} - ]). - - - - - - - - diff --git a/lib/tv/src/tv_pb.erl b/lib/tv/src/tv_pb.erl deleted file mode 100644 index 81e7e7e2d1..0000000000 --- a/lib/tv/src/tv_pb.erl +++ /dev/null @@ -1,663 +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% --module(tv_pb). --compile([{nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,destroy,1}}, - {nowarn_deprecated_function,{gs,frame,2}}]). - - - --export([pb/1]). - - --include("tv_int_def.hrl"). --include("tv_pd_int_msg.hrl"). --include("tv_pb_int_def.hrl"). - - - - - - - - -%%%********************************************************************* -%%% EXTERNAL FUNCTIONS -%%%********************************************************************* - - - - -%%====================================================================== -%% Function: pb. -%% -%% Return Value: None. -%% -%% Description: Process controlling the grid buttons on the display. -%% -%% Parameters: None. -%%====================================================================== - - -pb(ParentPid) -> - process_flag(trap_exit, true), - ProcVars = #process_variables{parent_pid = ParentPid}, - loop(ProcVars). - - - - - - - - -%%%******************************************************************** -%%% INTERNAL FUNCTIONS -%%%******************************************************************** - - - - - -%%====================================================================== -%% Function: loop. -%% -%% Return Value: None. -%% -%% Description: Eternal (well, almost) loop, receiving messages and -%% handling them. -%% -%% Parameters: -%%====================================================================== - - -loop(ProcVars) -> - receive - Msg -> - case Msg of - - #pb_update_vbtns{} -> - NewProcVars = update_vbtns(Msg, ProcVars), - loop(NewProcVars); - - #pb_key_info{} -> - NewProcVars = update_keys(Msg, ProcVars), - loop(NewProcVars); - - #pb_update_hbtns{} -> - NewProcVars = update_hbtns(Msg, ProcVars), - loop(NewProcVars); - - #pb_set_sort_col{} -> - NewProcVars = set_sort_col(Msg, ProcVars), - loop(NewProcVars); - - #pb_remove_marks{} -> - NewProcVars = remove_marks(ProcVars), - loop(NewProcVars); - - #pb_init_btns{} -> - NewProcVars = init_btns(Msg, ProcVars), - loop(NewProcVars); - - {gs, Id, Event, Data, Args} -> - NewProcVars = gs_messages({Id, Event, Data, Args}, ProcVars), - loop(NewProcVars); - - - {'EXIT', Pid, Reason} -> - ParentPid = ProcVars#process_variables.parent_pid, - exit_signals({Pid, Reason}, ParentPid, ProcVars), - loop(ProcVars); - - _Other -> - loop(ProcVars) - end - end. - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -exit_signals(ExitInfo, ParentPid, _ProcVars) -> - case ExitInfo of - {ParentPid, _Reason} -> - exit(normal); - _Other -> - done - end. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -gs_messages(Msg, ProcVars) -> - - case Msg of - - {Id, click, {hbtn, RealCol, VirtualCol}, _Args} -> - handle_col_marking(Id, RealCol, VirtualCol, ProcVars); - - {Id, buttonpress, {resbtn, RealCol, VirtualCol, Xpos}, [1 | _Tail]} -> - handle_col_resizing(Id, RealCol, VirtualCol, Xpos, ProcVars), - ProcVars; - - {_Id, click, {vbtn, RealRow, VirtualRow}, _Args} -> - handle_row_marking(RealRow, VirtualRow, ProcVars); - - _OtherMessage -> - ProcVars - - end. - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -remove_marks(ProcVars) -> - #process_variables{col_mark_params = ColMarkP, - row_mark_params = RowMarkP} = ProcVars, - - #col_mark_params{col_btn_id = BtnId, - virtual_col_marked = VirtualCol, - virtual_sort_col = SortCol} = ColMarkP, - - case BtnId of - undefined -> - done; - _AnyId -> - case VirtualCol of - SortCol -> - gs:config(BtnId, [{bg, ?SORT_MARK_COLOR}, - {fg, {0, 0, 0}} - ]); - _Other -> - gs:config(BtnId, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}} - ]) - end - end, - - NewRowMarkP = RowMarkP#row_mark_params{virtual_row_marked = undefined, - real_row_marked = undefined - }, - NewColMarkP = ColMarkP#col_mark_params{col_btn_id = undefined, - virtual_col_marked = undefined - }, - ProcVars#process_variables{col_mark_params = NewColMarkP, - row_mark_params = NewRowMarkP - }. - - - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -handle_col_marking(BtnId, RealCol, VirtualCol, ProcVars) -> - #process_variables{parent_pid = PdPid, - col_mark_params = ColMarkP, - row_mark_params = RowMarkP} = ProcVars, - - #col_mark_params{col_btn_id = OldBtnId, - virtual_col_marked = OldVirtualCol, - virtual_sort_col = SortCol} = ColMarkP, - - {ColMarked, NewColMarkP} = mark_col_btn(BtnId, OldBtnId, VirtualCol, - OldVirtualCol, RealCol, SortCol, - ColMarkP), - - PdPid ! #pb_col_marked{sender = self(), - col_marked = ColMarked, - real_col = RealCol, - virtual_col = VirtualCol - }, - - NewRowMarkP = RowMarkP#row_mark_params{virtual_row_marked = undefined, - real_row_marked = undefined - }, - ProcVars#process_variables{col_mark_params = NewColMarkP, - row_mark_params = NewRowMarkP - }. - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -handle_row_marking(RealRow, VirtualRow, ProcVars) -> - #process_variables{parent_pid = PdPid, - col_mark_params = ColMarkP, - row_mark_params = RowMarkP} = ProcVars, - - #col_mark_params{col_btn_id = OldBtnId, - virtual_col_marked = OldVirtualCol, - virtual_sort_col = SortCol} = ColMarkP, - - {_ColMarked, NewColMarkP} = mark_col_btn(OldBtnId, OldBtnId, OldVirtualCol, - OldVirtualCol, undefined, SortCol, - ColMarkP), - - #row_mark_params{virtual_row_marked = OldVirtualRow} = RowMarkP, - - % Check if row shall be marked or unmarked! - {RowMarked, NewRowMarkP} = check_marked_row(VirtualRow, OldVirtualRow, RealRow, - RowMarkP), - - PdPid ! #pb_row_marked{sender = self(), - row_marked = RowMarked, - real_row = RealRow, - virtual_row = VirtualRow - }, - - ProcVars#process_variables{row_mark_params = NewRowMarkP, - col_mark_params = NewColMarkP}. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -%% Three cases: no button previously clicked, or same button clicked, -%% or some other button clicked. - -check_marked_row(NewVirtRow, undefined, RealRow, RowMarkP) -> - % No btn already pressed! - {true, RowMarkP#row_mark_params{virtual_row_marked = NewVirtRow, - real_row_marked = RealRow}}; -check_marked_row(NewVirtRow, OldVirtRow, _RealRow, RowMarkP) when NewVirtRow =:= OldVirtRow -> - % The button previously pressed has been pressed again! - {false, RowMarkP#row_mark_params{virtual_row_marked = undefined, - real_row_marked = undefined}}; -check_marked_row(NewVirtRow, _OldVirtRow, RealRow, RowMarkP) -> - % A new btn has been pressed! - {true, RowMarkP#row_mark_params{virtual_row_marked = NewVirtRow, - real_row_marked = RealRow}}. - - - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -set_sort_col(Msg, ProcVars) -> - #pb_set_sort_col{virtual_col = SortCol} = Msg, - tv_pb_funcs:set_new_sort_col(SortCol, ProcVars). - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -%% Three cases: no button previously clicked, or same button clicked, -%% or some other button clicked. - -mark_col_btn(NewId, undefined, NewVirtCol, _OldVirtCol, _RealCol, _SortCol, ColMarkP) -> - % No btn already pressed! - gs:config(NewId, [{bg, ?COL_MARK_COLOR}, - {fg, {255, 255, 255}} - ]), - {true, ColMarkP#col_mark_params{col_btn_id = NewId, - virtual_col_marked = NewVirtCol}}; -mark_col_btn(NewId, _OldId, NewVirtCol, OldVirtCol, _RealCol, SortCol, ColMarkP) when NewVirtCol =:= OldVirtCol, NewVirtCol =:= SortCol -> - % The button previously pressed has been pressed again! - gs:config(NewId, [{bg, ?SORT_MARK_COLOR}, - {fg, {0, 0, 0}} - ]), - {false, ColMarkP#col_mark_params{col_btn_id = undefined, - virtual_col_marked = undefined}}; -mark_col_btn(NewId, _OldId, NewVirtCol, OldVirtCol, _RealCol, _SortCol, ColMarkP) when NewVirtCol =:= OldVirtCol -> - % The button previously pressed has been pressed again! - gs:config(NewId, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}} - ]), - {false, ColMarkP#col_mark_params{col_btn_id = undefined, - virtual_col_marked = undefined}}; -mark_col_btn(NewId, OldId, NewVirtCol, _OldVirtCol, _RealCol, _SortCol, ColMarkP) -> - % A new btn has been pressed! - gs:config(OldId, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}} - ]), - gs:config(NewId, [{bg, ?COL_MARK_COLOR}, - {fg, {255, 255, 255}} - ]), - {true, ColMarkP#col_mark_params{col_btn_id = NewId, - virtual_col_marked = NewVirtCol}}. - - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -handle_col_resizing(RbtnId, RealCol, VirtualCol, Xpos, ProcVars) -> - gs:config(RbtnId, [{motion, true}]), - #process_variables{parent_pid = ParentPid, - grid_frame_id = GrFrId, - grid_frame_height = Height, - hbtn_height = HbtnH, - resbtn_width = RbtnW, - cols_shown = ColsShown} = ProcVars, - - LineId = gs:frame(GrFrId, [{width, 1}, - {height, Height - HbtnH}, - {x, Xpos}, - {y, HbtnH - 1}, - {bg, ?DEFAULT_BG_COLOR} - ]), - MinColWidth = RbtnW, - - OldColWidth = lists:nth(RealCol, ColsShown), - Xdiff = get_xdiff(RbtnId, 1, 0, LineId, Xpos, MinColWidth - OldColWidth), - - ParentPid ! #pb_new_colwidth{sender = self(), - real_col = RealCol, - virtual_col = VirtualCol, - xdiff = Xdiff}, - - gs:config(RbtnId, [{motion, false}]), - gs:destroy(LineId). - - - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -get_xdiff(Id, Btn, LastXdiff, LineId, LineXpos, MinAllowedXdiff) -> - receive - {gs, Id, motion, {resbtn, _RealCol, _VirtCol, _OldXpos}, [NewXdiff | _T]} -> - UsedXdiff = erlang:max(MinAllowedXdiff, NewXdiff), - gs:config(LineId, [{x, LineXpos + UsedXdiff}]), - get_xdiff(Id, Btn, UsedXdiff, LineId, LineXpos, MinAllowedXdiff); - {gs, Id, buttonrelease, _Data, [Btn | _T]} -> - LastXdiff; - {gs, Id, buttonrelease, _Data, _Args} -> - get_xdiff(Id, Btn, LastXdiff, LineId, LineXpos, MinAllowedXdiff); - {gs, Id, buttonpress, _Data, _Args} -> - get_xdiff(Id, Btn, LastXdiff, LineId, LineXpos, MinAllowedXdiff) - end. - - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -init_btns(Msg, ProcVars) -> - #pb_init_btns{parent_id = ParentId, - parent_width = Width, - parent_height = Height, - ypos = Ypos, - hbtn_height = HbtnH, - resbtn_width = RbtnW, - vbtn_width = VbtnW, - nof_rows = NofRows, - row_height = RowHeight, - first_col_shown = FirstColShown, - cols_shown = ColsShown} = Msg, - - NewProcVars = tv_pb_funcs:init_btns(ParentId, Ypos, HbtnH, VbtnW, RbtnW, - FirstColShown, ColsShown, NofRows, - RowHeight, ProcVars), - - gs:frame(ParentId, [{bg, {0, 0, 0}}, - {bw, 0}, - {width, 1300}, - {height, 1}, - {x, 0}, - {y, Ypos - 1} - ]), - NewProcVars#process_variables{grid_frame_width = Width, - grid_frame_height = Height - }. - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -update_hbtns(Msg, ProcVars) -> - #pb_update_hbtns{parent_width = Width, - parent_height = Height, - first_col_shown = FirstColShown, - cols_shown = ColsShown} = Msg, - - NewProcVars = tv_pb_funcs:update_hbtns(FirstColShown, ColsShown, ProcVars), - - NewProcVars#process_variables{grid_frame_width = Width, - grid_frame_height = Height - }. - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -update_vbtns(Msg, ProcVars) -> - #pb_update_vbtns{color_list = Colors, - first_row_shown = FirstRowShown, - nof_rows_shown = NofRowsShown, - blinking_enabled = BlinkEnabled} = Msg, - - tv_pb_funcs:update_vbtns(NofRowsShown, FirstRowShown, Colors, BlinkEnabled, - ProcVars). - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -update_keys(Msg, ProcVars) -> - #pb_key_info{list_of_keys = KeyList} = Msg, - tv_pb_funcs:update_keys(KeyList, ProcVars). diff --git a/lib/tv/src/tv_pb_funcs.erl b/lib/tv/src/tv_pb_funcs.erl deleted file mode 100644 index 24d1120597..0000000000 --- a/lib/tv/src/tv_pb_funcs.erl +++ /dev/null @@ -1,1056 +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% --module(tv_pb_funcs). --compile([{nowarn_deprecated_function,{gs,button,2}}, - {nowarn_deprecated_function,{gs,canvas,2}}, - {nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,create,3}}, - {nowarn_deprecated_function,{gs,destroy,1}}, - {nowarn_deprecated_function,{gs,read,2}}]). - - - --export([init_btns/10, - update_hbtns/3, - update_vbtns/5, - update_keys/2, - set_new_sort_col/2]). - - --include("tv_int_def.hrl"). --include("tv_pb_int_def.hrl"). - - - - - - - -%%%********************************************************************* -%%% EXTERNAL FUNCTIONS -%%%********************************************************************* - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - - -init_btns(ParentId, Ypos, HbtnH, - VbtnW, ResbtnW, FirstColShown, ColsShown, NofRows, RowH, ProcVars) -> - - #process_variables{key_numbers = KeyNos, - key_ids = KeyIds} = ProcVars, - -% C = gs:canvas(ParentId, [{width, VbtnW - 1}, -% {height, HbtnH}, -% {x, 0}, -% {y, HbtnH + 1}, -% {bg, white} -% ]), -% gs:create(image, C, [{load_gif, "erlang.gif"}]), - - {HbtnsShown, ResBtnsShown} = update_hbtns(ColsShown, [], [], - FirstColShown, ParentId, Ypos, - HbtnH, ResbtnW, VbtnW), - - NewKeyIds = update_keys(KeyNos, KeyIds, FirstColShown, - FirstColShown + length(ColsShown) - 1, HbtnsShown, - ParentId, []), - - VbtnsShown = create_vbtns(ParentId, Ypos, NofRows, RowH, VbtnW, HbtnH), - ProcVars#process_variables{grid_frame_id = ParentId, - ypos = Ypos, - hbtn_height = HbtnH, - vbtn_width = VbtnW, - resbtn_width = ResbtnW, - first_col_shown = FirstColShown, - hbtns_shown = HbtnsShown, - resbtns_shown = ResBtnsShown, - vbtns_shown = VbtnsShown, - cols_shown = ColsShown, - key_ids = NewKeyIds - }. - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -update_hbtns(FirstColShown, ColsShown, ProcVars) -> - #process_variables{grid_frame_id = ParentId, - first_col_shown = OldFirstColShown, - cols_shown = OldColsShown, - ypos = Ypos, - hbtn_height = HbtnH, - vbtn_width = VbtnW, - resbtn_width = ResbtnW, - hbtns_shown = HbtnsShown, - resbtns_shown = ResbtnsShown, - key_numbers = KeyNos, - key_ids = KeyIds, - col_mark_params = ColMarkP} = ProcVars, - - % Only if the grid has been scrolled horizontally need we move the - % col mark! - case FirstColShown of - OldFirstColShown -> - done; - _NewValue -> - #col_mark_params{col_btn_id = MarkedBtnId, - virtual_col_marked = ColMarked, - sort_btn_id = SortBtnId, - virtual_sort_col = SortCol} = ColMarkP, - unmark_marked_col(MarkedBtnId, ColMarked, SortCol), - unmark_sort_col(SortBtnId, ColMarked, SortCol) - end, - - {NewHbtns, NewResbtns, NewKeys} = - case {FirstColShown, ColsShown} of - {OldFirstColShown, OldColsShown} -> - {HbtnsShown, ResbtnsShown, KeyIds}; - _Other -> - {NewHbtnsShown, NewResbtnsShown} = update_hbtns(ColsShown, - HbtnsShown, - ResbtnsShown, - FirstColShown, - ParentId, - Ypos, - HbtnH, - ResbtnW, - VbtnW), - NewKeyIds = update_keys(KeyNos, KeyIds, FirstColShown, - FirstColShown + length(ColsShown) - 1, - NewHbtnsShown, ParentId, []), - {NewHbtnsShown, NewResbtnsShown, NewKeyIds} - end, - - % Now mark the marked column again! - NewColMarkP = mark_marked_col(NewHbtns, FirstColShown, ColMarkP), - - ProcVars#process_variables{first_col_shown = FirstColShown, - hbtns_shown = NewHbtns, - resbtns_shown = NewResbtns, - cols_shown = ColsShown, - key_ids = NewKeys, - col_mark_params = NewColMarkP - }. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -update_vbtns(NofRowsShown, FirstRowShown, Colors, BlinkEnabled, ProcVars) -> - #process_variables{vbtns_shown = Vbtns, - blink_color_list = BlinkList} = ProcVars, - - update_vbtns(1, NofRowsShown, FirstRowShown, Vbtns, Colors, BlinkEnabled, BlinkList), - NewProcVars = update_sort_btn_mark(ProcVars), - NewProcVars. - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -set_new_sort_col(SortCol, ProcVars) -> - #process_variables{hbtns_shown = HbtnsShown, - col_mark_params = ColMarkP} = ProcVars, - - #col_mark_params{col_btn_id = MarkedColBtnId, - sort_btn_id = OldSortBtnId} = ColMarkP, - - % Set the new color of the sort btn, and remove the mark, if it is the same - % column! - - case MarkedColBtnId of - undefined -> - done; - _AnyId -> - gs:config(MarkedColBtnId, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}} - ]) - end, - - SortBtnId = get_btn_id(SortCol, HbtnsShown), - case SortBtnId of - undefined -> - % The btn isn't visible, or no sorting shall be performed! - gs:config(OldSortBtnId, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}} - ]); - _Other -> - % Unmark the old sort btn id! - gs:config(OldSortBtnId, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}} - ]), - gs:config(SortBtnId, [{bg, ?SORT_MARK_COLOR}, - {fg, {0, 0, 0}} - ]) - end, - - NewColMarkP = ColMarkP#col_mark_params{col_btn_id = undefined, - virtual_col_marked = undefined, - sort_btn_id = SortBtnId, - virtual_sort_col = SortCol - }, - ProcVars#process_variables{col_mark_params = NewColMarkP}. - - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -update_keys(KeyList, ProcVars) -> - #process_variables{key_numbers = OldKeyList, - key_ids = KeyIds, - first_col_shown = FirstColShown, - cols_shown = ColsShown, - hbtns_shown = HbtnsShown, - grid_frame_id = ParentId} = ProcVars, - - NewKeyIds = case KeyList of - OldKeyList -> - KeyIds; - NewKeyList -> - update_keys(NewKeyList, KeyIds, FirstColShown, - FirstColShown + length(ColsShown) - 1, - HbtnsShown, ParentId, []) - end, - - ProcVars#process_variables{key_numbers = KeyList, - key_ids = NewKeyIds - }. - - - - - - - - -%%%********************************************************************* -%%% INTERNAL FUNCTIONS -%%%********************************************************************* - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -unmark_sort_col(undefined, _ColMarked, _SortCol) -> - done; -unmark_sort_col(SortBtnId, _ColMarked, _SortCol) -> - gs:config(SortBtnId, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}} - ]). - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -mark_marked_col(HbtnsShown, _FirstColShown, ColMarkP) -> - #col_mark_params{virtual_col_marked = VirtualCol, - virtual_sort_col = SortCol} = ColMarkP, - - {NewMarkBtnId, NewSortBtnId} = - case VirtualCol of - SortCol -> - % Same btn! - BtnId = get_btn_id(VirtualCol, - HbtnsShown), - gs:config(BtnId, [{bg, ?SORT_MARK_COLOR}, - {fg, {0, 0, 0}} - ]), - {BtnId, BtnId}; - _OtherCol -> - MarkBtnId = get_btn_id(VirtualCol, HbtnsShown), - case MarkBtnId of - undefined -> - done; - _Else -> - gs:config(MarkBtnId, [{bg, ?COL_MARK_COLOR}, - {fg, {255, 255, 255}} - ]) - end, - - SortBtnId = get_btn_id(SortCol, HbtnsShown), - case SortBtnId of - undefined -> - done; - _OtherId -> - gs:config(SortBtnId, [{bg, ?SORT_MARK_COLOR}, - {fg, {0, 0, 0}} - ]) - end, - - {MarkBtnId, SortBtnId} - end, - - ColMarkP#col_mark_params{col_btn_id = NewMarkBtnId, - sort_btn_id = NewSortBtnId}. - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -unmark_marked_col(undefined, _ColMarked, _SortCol) -> - done; -unmark_marked_col(BtnId, _ColMarked, _SortCol) -> - gs:config(BtnId, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {0,0,0}} - ]). - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -update_sort_btn_mark(ProcVars) -> - #process_variables{hbtns_shown = HbtnsShown, - col_mark_params = ColMarkP} = ProcVars, - - #col_mark_params{col_btn_id = MarkedColBtnId, - virtual_col_marked = ColMarked, - sort_btn_id = OldSortBtnId, - virtual_sort_col = SortCol} = ColMarkP, - - {NewMarkedColBtnId, NewColMarked} = case ColMarked of - SortCol -> - {undefined, undefined}; - _Other -> - {MarkedColBtnId, ColMarked} - end, - - NewSortBtnId = set_sort_btn_color(OldSortBtnId, SortCol, HbtnsShown), - - NewColMarkP = ColMarkP#col_mark_params{col_btn_id = NewMarkedColBtnId, - virtual_col_marked = NewColMarked, - sort_btn_id = NewSortBtnId}, - - ProcVars#process_variables{col_mark_params = NewColMarkP}. - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -get_btn_id(VirtualCol, HbtnsShown) -> - case lists:keysearch(VirtualCol, #hbtn.virtual_col, HbtnsShown) of - false -> - undefined; - {value, HbtnRec} -> - HbtnRec#hbtn.id - end. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -set_sort_btn_color(undefined, SortCol, HbtnsShown) -> - case lists:keysearch(SortCol, #hbtn.virtual_col, HbtnsShown) of - false -> - undefined; - {value, HbtnRec} -> - BtnId = HbtnRec#hbtn.id, - gs:config(BtnId, [{bg, ?SORT_MARK_COLOR}]), - BtnId - end; -set_sort_btn_color(BtnId, undefined, _HbtnsShown) -> - gs:config(BtnId, [{bg, ?DEFAULT_BG_COLOR}]); -set_sort_btn_color(OldSortBtnId, SortCol, HbtnsShown) -> - case gs:read(OldSortBtnId, bg) of - SortCol -> - % Btn is already marked! - OldSortBtnId; - _OtherColor -> - % Unmark old btn, mark new btn, if visible. - gs:config(OldSortBtnId, [{bg, ?DEFAULT_BG_COLOR}]), - case lists:keysearch(SortCol, #hbtn.virtual_col, HbtnsShown) of - false -> - undefined; - {value, HbtnRec} -> - BtnId = HbtnRec#hbtn.id, - gs:config(BtnId, [{bg, ?SORT_MARK_COLOR}]), - BtnId - end - end. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -update_vbtns(N, NofRowsShown, _VirtualRowNo, - _Vbtns, _Colors, _BlinkEnabled, _BlinkList) when N > NofRowsShown -> - done; -update_vbtns(_N, _NofRowsShown, _VirtualRowNo, [], [], _BlinkEnabled, _BlinkList) -> - done; -update_vbtns(_N, _NofRowsShown, _VirtualRowNo, [], _Colors, _BlinkEnabled, _BlinkList) -> - % Right now we don't bother with dynamically creating row buttons: - % we ought too know in advance the maximum number of rows that can - % be visible. - io:format("Configuration error: too few rows in grid.~n"), - done; -update_vbtns(N, NofRowsShown, - VirtualRowNo, [VbtnRec | VT], [], BlinkEnabled, BlinkList) -> - VbtnId = VbtnRec#vbtn.id, - gs:config(VbtnId, [{bg, ?DEFAULT_BG_COLOR}, - {fg, ?BLACK}, - {label, {text, integer_to_list(VirtualRowNo)}}, - {data, {vbtn, N, VirtualRowNo}} % Real row + virtual row - ]), - update_vbtns(N + 1, NofRowsShown, VirtualRowNo + 1,VT, [], BlinkEnabled, - BlinkList); -update_vbtns(N, NofRowsShown, - VirtualRowNo, [VbtnRec | VT], [Color | CT], true, BlinkList) -> - VbtnId = VbtnRec#vbtn.id, - {Text, TextColor} = get_vbtn_text_and_textcolor(Color, VirtualRowNo), - case lists:member(Color, BlinkList) of - true -> - gs:config(VbtnId, [{bg, Color}, - {fg, TextColor}, - {label, {text, Text}}, - {data, {vbtn, N, VirtualRowNo}}, % Real + virtual row - flash - ]); - false -> - gs:config(VbtnId, [{bg, Color}, - {fg, TextColor}, - {label, {text, Text}}, - {data, {vbtn, N, VirtualRowNo}} % Real + virtual row - ]) - end, - update_vbtns(N + 1, NofRowsShown, VirtualRowNo + 1, VT, CT, true, BlinkList); -update_vbtns(N, NofRowsShown, - VirtualRowNo, [VbtnRec | VT], [Color | CT], false, BlinkList) -> - VbtnId = VbtnRec#vbtn.id, - {Text, TextColor} = get_vbtn_text_and_textcolor(Color, VirtualRowNo), - gs:config(VbtnId, [{bg, Color}, - {fg, TextColor}, - {label, {text, Text}}, - {data, {vbtn, N, VirtualRowNo}} % Real row + virtual row - ]), - update_vbtns(N + 1, NofRowsShown, VirtualRowNo + 1, VT, CT, false, BlinkList). - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -get_vbtn_text_and_textcolor(?BLACK, N) -> - {integer_to_list(N), ?WHITE}; -get_vbtn_text_and_textcolor(?RED1, N) -> - {integer_to_list(N), ?BLACK}; -get_vbtn_text_and_textcolor(?RED2, N) -> - {integer_to_list(N), ?BLACK}; -get_vbtn_text_and_textcolor(?RED3, N) -> - {integer_to_list(N), ?BLACK}; -get_vbtn_text_and_textcolor(?RED4, N) -> - {integer_to_list(N), ?BLACK}; -get_vbtn_text_and_textcolor(?RED5, N) -> - {integer_to_list(N), ?BLACK}; -get_vbtn_text_and_textcolor(?GREEN1, N) -> - {integer_to_list(N), ?BLACK}; -get_vbtn_text_and_textcolor(?GREEN2, N) -> - {integer_to_list(N), ?BLACK}; -get_vbtn_text_and_textcolor(?GREEN3, N) -> - {integer_to_list(N), ?BLACK}; -get_vbtn_text_and_textcolor(?GREEN4, N) -> - {integer_to_list(N), ?BLACK}; -get_vbtn_text_and_textcolor(?GREEN5, N) -> - {integer_to_list(N), ?BLACK}; -get_vbtn_text_and_textcolor(_AnyOtherColor, N) -> - {integer_to_list(N), ?BLACK}. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -create_vbtns(ParentId, Ypos, NofRows, RowHeight, VbtnW, HbtnH) -> - create_vbtns(1, NofRows, RowHeight, ParentId, VbtnW, Ypos + HbtnH, []). - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -create_vbtns(N, NofRows, _RowHeight, _ParId, _VbtnW, _Ypos, VAcc) when N > NofRows -> - lists:reverse(VAcc); -create_vbtns(N, NofRows, RowHeight, ParId, VbtnW, Ypos, VAcc) -> - VHeight = RowHeight + 1, - VInfo = create_one_vbtn(ParId, VHeight, VbtnW, Ypos, N), - create_vbtns(N + 1, NofRows, RowHeight, ParId, VbtnW, Ypos + VHeight, - [VInfo | VAcc]). - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -create_one_vbtn(ParentId, Height, VbtnW, Ypos, N) -> - Id = gs:button(ParentId, [{width, VbtnW}, - {height, Height}, - {x, 0}, - {y, Ypos}, - {font, ?BTN_FONT}, - {bg, ?DEFAULT_BG_COLOR}, - {align, center}, - {label, {text,integer_to_list(N)}}, - {data, {vbtn, N, N}} % Real row + virtual row - ]), - #vbtn{virtual_row = N, - real_row = N, - id = Id, - height = Height, - ypos = Ypos}. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -update_hbtns([], _HBtnsShown, - _ResBtns, _VirtualColNo, _FrId, _Ypos, _HbtnH, _ResBtnW, _VbtnW) -> - {[], []}; -update_hbtns(ColsShown, HBtns, - ResBtns, VirtualColNo, FrId, Ypos, HbtnH, ResBtnW, VbtnW) -> - update_hbtns(1, ColsShown, HBtns, ResBtns, HbtnH, ResBtnW, VbtnW, - VirtualColNo, FrId, 0, Ypos, [], []). - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -update_hbtns(_N, [], - [], [], _HbtnH, _ResBtnW, _VbtnW, _ColNo, _FrId, _Xpos, _Ypos, HAcc, RAcc) -> - {lists:reverse(HAcc), lists:reverse(RAcc)}; - -update_hbtns(N, [], [HInfo | HT], [RInfo | RT], - HbtnH, ResBtnW, VbtnW, ColNo, FrId, Xpos, Ypos, HAcc, RAcc) -> - % If too many buttons, i.e., if the ColsShown list - % has become empty. - gs:destroy(HInfo#hbtn.id), - gs:destroy(RInfo#resbtn.id), - update_hbtns(N, [], HT, RT, HbtnH, ResBtnW, VbtnW, ColNo, FrId, - Xpos, Ypos, HAcc, RAcc); - -update_hbtns(1, [ColW | T], [], [], - HbtnH, ResBtnW, VbtnW, ColNo, FrId, _Xpos, Ypos, HAcc, RAcc) -> - % The first button has to be bigger than the others. - {HInfo, RInfo} = create_one_hbtn_and_resbtn(FrId, ColW - 2, - HbtnH, VbtnW - 1, - Ypos, ResBtnW, 1, ColNo), - update_hbtns(2, T, [], [], HbtnH, ResBtnW, VbtnW, ColNo + 1, - FrId, VbtnW - 1 + ColW - 2 + ResBtnW, Ypos, [HInfo | HAcc], - [RInfo | RAcc]); - -update_hbtns(N, [ColW | T], [], [], - HbtnH, ResBtnW, VbtnW, ColNo, FrId, Xpos, Ypos, HAcc, RAcc) -> - {HInfo, RInfo} = create_one_hbtn_and_resbtn(FrId, ColW - 4, - HbtnH, Xpos, - Ypos, ResBtnW, N, ColNo), - update_hbtns(N + 1, T, [], [], HbtnH, ResBtnW, VbtnW, ColNo + 1, - FrId, Xpos + ColW - 4 + ResBtnW, Ypos, [HInfo | HAcc], - [RInfo | RAcc]); - -update_hbtns(1, [ColW | T], [HInfo | HT], [RInfo | RT], - HbtnH, ResBtnW, VbtnW, ColNo, FrId, _Xpos, Ypos, HAcc, RAcc) -> - {NewHInfo, NewRInfo} = config_one_hbtn_and_resbtn(HInfo, RInfo, - ColW - 2, - VbtnW - 1, - 1, ColNo), - update_hbtns(2, T, HT, RT, HbtnH, ResBtnW, VbtnW, ColNo + 1, - FrId, VbtnW - 1 + ColW - 2 + ResBtnW, Ypos, - [NewHInfo | HAcc], [NewRInfo | RAcc]); - -update_hbtns(N, [ColW | T], [HInfo | HT], [RInfo | RT], - HbtnH, ResBtnW, VbtnW, ColNo, FrId, Xpos, Ypos, HAcc, RAcc) -> - {NewHInfo, NewRInfo} = config_one_hbtn_and_resbtn(HInfo, RInfo, - ColW - 4, - Xpos, N, - ColNo), - update_hbtns(N + 1, T, HT, RT, HbtnH, ResBtnW, VbtnW, ColNo + 1, - FrId, Xpos + ColW - 4 + ResBtnW, Ypos, [NewHInfo | HAcc], - [NewRInfo | RAcc]). - - - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -create_one_hbtn_and_resbtn(ParId, HWidth, HHeight, HXpos, Ypos, RWidth, N, ColNo) -> - HId = gs:button(ParId, [{width, HWidth}, - {height, HHeight}, - {x, HXpos}, - {y, Ypos}, - {font, ?BTN_FONT}, - {bg, ?DEFAULT_BG_COLOR}, - {data, {hbtn, N, ColNo}}, - {label, {text, integer_to_list(ColNo)}} - ]), - RId = gs:button(ParId, [{width, RWidth}, - {height, HHeight}, - {x, HXpos + HWidth}, - {y, Ypos}, - {cursor, resize}, - {buttonpress, true}, - {buttonrelease, true}, - {data, {resbtn, N, ColNo, (HXpos + HWidth + RWidth div 2)}}, - {bg, ?BLACK} - ]), - HInfo = #hbtn{virtual_col = ColNo, - real_col = N, - id = HId, - width = HWidth, - xpos = HXpos}, - RInfo = #resbtn{virtual_col = ColNo, - real_col = N, - id = RId, - width = RWidth, - xpos = HXpos + HWidth}, - {HInfo, RInfo}. - - - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -config_one_hbtn_and_resbtn(HInfo, RInfo, HWidth, HXpos, N, ColNo) -> - gs:config(HInfo#hbtn.id, [{width, HWidth}, - {x, HXpos}, - {data, {hbtn, N, ColNo}}, - {label, {text, integer_to_list(ColNo)}} - ]), - gs:config(RInfo#resbtn.id, [{x, HXpos + HWidth}, - {data, {resbtn, N, ColNo, - (HXpos + HWidth + RInfo#resbtn.width div 2)}} - ]), - NewHInfo = HInfo#hbtn{virtual_col = ColNo, - width = HWidth, - xpos = HXpos}, - NewRInfo = RInfo#resbtn{virtual_col = ColNo, - xpos = HXpos + HWidth}, - {NewHInfo, NewRInfo}. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -update_keys([], [], _FirstCol, _LastCol, _HBtns, _ParentId, KeyIdsAcc) -> - lists:reverse(KeyIdsAcc); - -update_keys([], [KeyId | IdT], FirstCol, LastCol, HBtns, ParentId, KeyIdsAcc) -> - gs:config(KeyId, [{x, 1200}]), - update_keys([], IdT, FirstCol, LastCol, HBtns, ParentId, - [KeyId | KeyIdsAcc]); - -update_keys([KeyNo | KT], [], FirstCol, LastCol, - HBtns,ParentId, KeyIdsAcc) when KeyNo >= FirstCol, KeyNo =< LastCol -> - {_Width, Xpos} = get_keywidth_and_pos(KeyNo, FirstCol, HBtns), - NewKeyId = create_key(ParentId, Xpos, 1), - update_keys(KT, [], FirstCol, LastCol, HBtns, ParentId, - [NewKeyId | KeyIdsAcc]); - -update_keys([_KeyNo | KT], [], FirstCol, LastCol, HBtns, ParentId, KeyIdsAcc) -> - update_keys(KT, [], FirstCol, LastCol, HBtns, ParentId, - KeyIdsAcc); - -update_keys([KeyNo | KT], [KeyId | IdT], FirstCol, LastCol, - HBtns, ParentId, KeyIdsAcc) when KeyNo >= FirstCol, KeyNo =< LastCol -> - {Width, Xpos} = get_keywidth_and_pos(KeyNo, FirstCol, HBtns), - gs:config(KeyId, [{width, Width}, - {x, Xpos} - ]), - update_keys(KT, IdT, FirstCol, LastCol, HBtns, ParentId, - [KeyId | KeyIdsAcc]); - -update_keys([_KeyNo | KT], - [KeyId | IdT], FirstCol, LastCol, HBtns, ParentId, KeyIdsAcc) -> - update_keys(KT, [KeyId | IdT], FirstCol, LastCol, HBtns, ParentId, - KeyIdsAcc). - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -get_keywidth_and_pos(VirtualCol, FirstCol, HBtns) -> - RealColNo = VirtualCol - FirstCol + 1, - HBtnR = lists:nth(RealColNo, HBtns), - #hbtn{width = Width, - xpos = Xpos} = HBtnR, - KeyWidth = 10, - % Compute the x position for the key! - KeyXpos = (Xpos + (Width div 2) - (KeyWidth div 2)), - {KeyWidth, KeyXpos}. - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -create_key(ParentId, Xpos, Ypos) -> - PicDir = code:priv_dir(tv), - C = gs:canvas(ParentId, [{width, 10}, - {height, 18}, - {x, Xpos}, - {y, Ypos}, - {bg, ?DEFAULT_BG_COLOR} - ]), - gs:create(image, C, [{bitmap, PicDir ++ "/key.xbm"}]), - C. - - - - - - - - - - - - - - - - - - - - - diff --git a/lib/tv/src/tv_pb_int_def.hrl b/lib/tv/src/tv_pb_int_def.hrl deleted file mode 100644 index 0fe9df193a..0000000000 --- a/lib/tv/src/tv_pb_int_def.hrl +++ /dev/null @@ -1,99 +0,0 @@ -%% -%% %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% - --define(WHITE, {255,255,255}). - --define(DEFAULT_BG_COLOR, {217,217,217}). - --define(COL_MARK_COLOR, {0, 0, 0}). --define(SORT_MARK_COLOR, {255,215,0}). - --define(BLINK_COLOR1, {255,0,0}). --define(BLINK_COLOR2, {0,255,0}). --define(BLINK_COLOR3, {0,0,0}). --define(BTN_FONT, {courier,12}). - - - - --record(col_mark_params, {col_btn_id, - virtual_col_marked, - sort_btn_id, - virtual_sort_col - }). - - - --record(row_mark_params, {virtual_row_marked, - real_row_marked - }). - - - - --record(process_variables, {parent_pid, - grid_frame_id, - grid_frame_width, - grid_frame_height, - ypos, - hbtn_height, - vbtn_width, - resbtn_width, - first_col_shown, - hbtns_shown = [], - vbtns_shown = [], - resbtns_shown = [], - cols_shown = [], - key_numbers = [], - key_ids = [], - blink_color_list = [?BLINK_COLOR1, - ?BLINK_COLOR2, - ?BLINK_COLOR3], - col_mark_params = #col_mark_params{}, - row_mark_params = #row_mark_params{} - }). - - - --record(hbtn, {virtual_col, - real_col, - id, - width, - xpos - }). - - - --record(resbtn, {virtual_col, - real_col, - id, - width, - xpos - }). - - - --record(vbtn, {virtual_row, - real_row, - id, - height, - ypos - }). - - - diff --git a/lib/tv/src/tv_pc.erl b/lib/tv/src/tv_pc.erl deleted file mode 100644 index e0612e13eb..0000000000 --- a/lib/tv/src/tv_pc.erl +++ /dev/null @@ -1,795 +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: pc part of the table tool, i.e., the process -%%% controlling all other processes, and managing -%%% the actions to take. -%%% -%%%********************************************************************* - - --module(tv_pc). --compile([{nowarn_deprecated_function,{gs,config,2}}]). - - - --export([pc/7, - send_data/2 - ]). - - - --include("tv_int_def.hrl"). --include("tv_int_msg.hrl"). --include("tv_pc_int_def.hrl"). - - - - -%%%********************************************************************* -%%% EXTERNAL FUNCTIONS -%%%********************************************************************* - - - -%%====================================================================== -%% Function: pc. -%% -%% Return Value: None. -%% -%% Description: Process controlling the processes 'pd', 'pw', 'dbs' and 'etsread'. -%% After necessary initialisations, an eternal loop is -%% entered, where window created messages are received and -%% handled, as well as user input. -%% -%% Parameters: -%%====================================================================== - - -pc(Master, Node, LocalNode, TableId, KindOfTable, TableName, ErrMsgMode) -> - process_flag(trap_exit, true), - put(error_msg_mode, ErrMsgMode), - ProcVars = prepare_and_open_table(Node, LocalNode, TableId, KindOfTable, TableName, - false, #process_variables{parent_pid=Master}), - loop(ProcVars). - - - - - - - -%%%******************************************************************** -%%% INTERNAL FUNCTIONS -%%%******************************************************************** - - - - - -prepare_and_open_table(Node, LocalNode, TabId, TabType, TabName, Raise, ProcVars) -> - IpPid = spawn(tv_ip, ip, [self()]), - show_progress(IpPid, 5, "Initializing graphics..."), - - TmpProcVars = start_procs(IpPid, ProcVars), - - show_progress(IpPid, 5, "Loading table..."), - NewProcVars = ?MENU_FUNC_FILE:open_table(Node, LocalNode, TabId, TabType, TabName, - Raise, TmpProcVars), - - IpPid ! #ip_quit{sender = self()}, - % Now make window visible! - WinP = NewProcVars#process_variables.window_params, - gs:config(WinP#window_params.window_id, [{map, true}]), - NewProcVars. - - - - - -start_procs(IpPid, ProcVars) -> - ErrorMsgMode = get(error_msg_mode), - PwPid = spawn_link(tv_pw, pw, [self()]), - PdPid = spawn_link(tv_pd, pd, [self(), ErrorMsgMode]), - DbsPid = spawn_link(tv_db, dbs, [self(), ErrorMsgMode]), - EtsreadPid = spawn_link(tv_etsread, etsread, [self(), ErrorMsgMode]), - - show_progress(IpPid, 5, "Initializing graphics..."), - NewWinP = init_pw(PwPid, ProcVars), - - show_progress(IpPid, 5, "Initializing graphics..."), - init_pd(PdPid, NewWinP), - ProcVars#process_variables{pw_pid = PwPid, - pd_pid = PdPid, - dbs_pid = DbsPid, - etsread_pid = EtsreadPid, - current_node = node(), %% Will be replaced, when table opened. - local_node = true, - window_params = NewWinP - }. - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -show_progress(IpPid, NofElements, Text) -> - IpPid ! #ip_update{sender = self(), - nof_elements_to_mark = NofElements, - text = Text - }. - - - - - - - -%%====================================================================== -%% Function: loop. -%% -%% Return Value: None. -%% -%% Description: Eternal (well, almost) loop, receiving messages and -%% handling them. -%% -%% Parameters: None. -%%====================================================================== - - -loop(ProcVars) -> - receive - Msg -> - case Msg of - - % Normal messages! - #dbs_subset{} -> - NewProcVars1 = send_data(Msg, ProcVars), - NewProcVars2 = check_time_to_poll_table(Msg, NewProcVars1), - loop(NewProcVars2); - - #pc_poll_table{} -> - TmpProcVars = check_node(ProcVars), - NewProcVars = ?MENU_FUNC_FILE:poll_table(TmpProcVars), - loop(NewProcVars); - - #pc_search_req{} -> - DbsPid = ProcVars#process_variables.dbs_pid, - DbsPid ! #dbs_search_req{sender=self()}, - loop(ProcVars); - - #pc_set_sorting_mode{} -> - set_sorting_mode(Msg, ProcVars), - loop(ProcVars); - - - #pc_data_req{element = Pos, nof_elements = Length} -> - DbsPid = ProcVars#process_variables.dbs_pid, - DbsPid ! #dbs_subset_req{sender = self(), - subset_pos = Pos, - subset_length = Length - }, - loop(ProcVars); - - - #pc_marked_row{row_no=RowNo, object=Obj, color=Color} -> - DbsPid = ProcVars#process_variables.dbs_pid, - DbsPid ! #dbs_marked_row{sender = self(), - row_no = RowNo - }, - NewProcVars = ProcVars#process_variables{marked_row = RowNo, - marked_object = Obj, - marked_color = Color}, - loop(NewProcVars); - - - #pc_menu_msg{} -> - Fcn = Msg#pc_menu_msg.data, - NewProcVars = ?MENU_FUNC_FILE:Fcn(ProcVars), - loop(NewProcVars); - - - #pd_updated_object{object=Obj,old_object=OldObj,old_color=Color,obj_no=ObjNo} -> - DbsPid = ProcVars#process_variables.dbs_pid, - DbsPid ! #dbs_updated_object{sender = self(), - object = Obj, - old_object = OldObj, - old_color = Color, - obj_no = ObjNo}, - loop(ProcVars); - - - #pd_new_object{object=Obj} -> - DbsPid = ProcVars#process_variables.dbs_pid, - DbsPid ! #dbs_new_object{sender = self(), - object = Obj}, - loop(ProcVars); - - - #pc_show_table_info{} -> - NewProcVars = ?MENU_FUNC_FILE:table_info(ProcVars), - loop(NewProcVars); - - #pc_win_conf{} -> - NewProcVars = ?GRAPH_FUNC_FILE:win_conf(Msg, ProcVars), - loop(NewProcVars); - - #pc_help{} -> - NewProcVars = ?MENU_FUNC_FILE:help_button(ProcVars), - loop(NewProcVars); - - #pc_dead_table{automatic_polling = AutoPoll} -> - WinP = ProcVars#process_variables.window_params, - WinId = WinP#window_params.window_id, - gs:config(WinId, [beep]), - case get(error_msg_mode) of - normal -> - tv_utils:notify(WinId, "TV Notification", - ["The table no longer exists!"]); - haiku -> - ErrMsg1 = ["A table that big?", - "It might be very useful.", - "But now it is gone."], - tv_utils:notify(WinId, "TV Notification", ErrMsg1) - end, - NewProcVars = - case AutoPoll of - true -> - gs:config(WinId, [beep]), - case get(error_msg_mode) of - normal -> - tv_utils:notify(WinId, "TV Notification", - ["The automatic polling is turned off!"]); - haiku -> - ErrMsg2 = ["Previously on", - "The polling is now idled.", - "That's the way it is."], - tv_utils:notify(WinId, "TV Notification", ErrMsg2) - end, - ProcVars#process_variables{poll_interval = infinity}; - false -> - ProcVars - end, - loop(NewProcVars); - - #pc_nodedown{automatic_polling = AutoPoll} -> - WinP = ProcVars#process_variables.window_params, - WinId = WinP#window_params.window_id, - gs:config(WinId, [beep]), - case get(error_msg_mode) of - normal -> - tv_utils:notify(WinId, "TV Notification", - ["The node is down, and the", - "table cannot be reached."]); - haiku -> - ErrMsg1 = ["With searching comes loss", - "And the presence of absence:", - "Node is down."], - tv_utils:notify(WinId, "TV Notification", ErrMsg1) - end, - NewProcVars = - case AutoPoll of - true -> - gs:config(WinId, [beep]), - case get(error_msg_mode) of - normal -> - tv_utils:notify(WinId, "TV Notification", - ["The automatic polling is turned off!"]); - haiku -> - ErrMsg = ["Previously on,", - "The polling is now idled.", - "That's the way it is."], - tv_utils:notify(WinId, "TV Notification", ErrMsg) - end, - ProcVars#process_variables{poll_interval = infinity}; - false -> - ProcVars - end, - loop(NewProcVars); - - - {pc_edit_object, _Sender} -> - NewProcVars = ?MENU_FUNC_FILE:insert_object(ProcVars), - loop(NewProcVars); - - - check_node -> - NewProcVars = check_node(ProcVars), - loop(NewProcVars); - - - raise -> - WinP = ProcVars#process_variables.window_params, - gs:config(WinP#window_params.window_id, [raise]), - loop(ProcVars); - - - {error_msg_mode, Mode} -> - ProcVars#process_variables.dbs_pid ! {error_msg_mode, Mode}, - ProcVars#process_variables.etsread_pid ! {error_msg_mode, Mode}, - ProcVars#process_variables.pd_pid ! {error_msg_mode, Mode}, - put(error_msg_mode, Mode), - loop(ProcVars); - - % Exit messages! - {'EXIT', Sender, Reason} -> - exit_signals({Sender, Reason}, ProcVars); - - - _Other -> - loop(ProcVars) - - end - end. - - - - - - -check_node(ProcVars) -> - #process_variables{pw_pid = PwPid, - current_node = OldCurrNode, - local_node = LocalNode, - table_id = TableId, - table_type = TableType, - table_name = TableName} = ProcVars, - - HomeNode = node(), - case net_adm:ping(OldCurrNode) of - pong -> - ProcVars; - pang when not LocalNode -> - ProcVars; - pang when LocalNode -> - %% XXX [siri] Will this ever happen? I thought local_node - %% indicated if current_node was the node where tv was - %% started. If so, we are pinging ourselves here, and - %% a pang can never happen?? - WinTitle = ?MENU_FUNC_FILE:get_window_title(TableType,HomeNode,TableId,TableName), - PwPid ! #pw_set_window_title{sender = self(), - win_title = WinTitle}, - ProcVars#process_variables{current_node = HomeNode} - end. - - - - - - - -send_data(Msg, ProcVars) -> - #process_variables{pd_pid = PdPid, - parent_pid = ParentPid, - table_id = Table, - table_type = Type, - current_node = Node} = ProcVars, - - ParentPid ! {tv_update_infowin, Table, Node, Type}, - - #dbs_subset{data = DbData, - subset_pos = ScalePos, - db_length = DbLength, - list_of_keys = ListOfKeys, - max_elem_size = MaxElemSize, - requested_row = ReqRowData} = Msg, - - Range = case ScalePos of - 0 -> - {0, 0}; - _Other -> - {1, DbLength} - end, - - PdPid ! #pc_data{sender = self(), - scale_pos = ScalePos, - scale_range = Range, - elementlist = DbData, - list_of_keys = ListOfKeys, - max_elem_size = MaxElemSize, - marked_row = ReqRowData - }, - - {MarkedObject, MarkedColor} = - case ReqRowData of - [] -> - {undefined, undefined}; - [Data] -> - Data - end, - ProcVars#process_variables{marked_object = MarkedObject, - marked_color = MarkedColor}. - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -set_sorting_mode(Msg, ProcVars) -> - #pc_set_sorting_mode{sorting = Sorting, - reverse = Reverse, - sort_key_no = SortKeyNo} = Msg, - - DbsPid = ProcVars#process_variables.dbs_pid, - PdPid = ProcVars#process_variables.pd_pid, - PwPid = ProcVars#process_variables.pw_pid, - TableType = ProcVars#process_variables.table_type, - - NewSortKeyNo = - case SortKeyNo of - undefined -> - if - TableType =:= mnesia -> - 2; - true -> - 1 - end; - _Other -> - SortKeyNo - end, - - Menu = - case Sorting of - true -> - case Reverse of - true -> - sort_falling_order; - false -> - sort_rising_order - end; - false -> - no_sorting - end, - - PwPid ! #pw_select_menu{sender = self(), - menu = Menu}, - - DbsPid ! #dbs_sorting_mode{sender = self(), - sorting = Sorting, - reverse = Reverse, - sort_key_no = NewSortKeyNo - }, - - PdPid ! #pc_set_sorting_mode_cfm{sender = self(), - sort_key_no = NewSortKeyNo - }. - - - - - - - -%%====================================================================== -%% Function: init_pw. -%% -%% Return Value: Tuple containing the Pid of the pw process, and the id of -%% the window created by the pw process. -%% -%% Description: Starts the pw process, and orders it to create a window. -%% (The size of the window may be given as option.) -%% -%% Parameters: None. -%%====================================================================== - - - -init_pw(PwPid, ProcVars) -> - #process_variables{window_params = WinP} = ProcVars, - - % Now deblock pw, and order it to create a window! - PwPid ! #pw_deblock{sender = self(), - win_title = ?APPLICATION_NAME, - win_width = ?DEFAULT_WINDOW_WIDTH, - win_height = ?DEFAULT_WINDOW_HEIGHT, - min_win_width = ?DEFAULT_MIN_WINDOW_WIDTH, - min_win_height = ?DEFAULT_MIN_WINDOW_HEIGHT - }, - - - receive - #pw_deblock_cfm{win_id = WindowId} -> - ?MENU_FUNC_FILE:create_menus(PwPid), - - % Store the window id as well as the size of it. - WinP#window_params{window_id = WindowId, - window_width = ?DEFAULT_WINDOW_WIDTH, - window_height = ?DEFAULT_WINDOW_HEIGHT - } - - - after 180000 -> % A timeout of 1000 ms is too short, at least the first - % time the system is started! - exit(error) - end. - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -init_pd(PdPid, WinP) -> - #window_params{window_id = WindowId, - window_width = WindowWidth, - window_height = WindowHeight} = WinP, - - % Now deblock pd, and order it to create a canvas and a scale! - PdPid ! #pd_deblock{sender = self(), - win = WindowId, - win_width = WindowWidth, - win_height = WindowHeight, - scale = true - }, - - receive - #pd_deblock_cfm{} -> - done - after 180000 -> - exit(error) - end. - - - - - - - - - - -%%====================================================================== -%% Function: exit_signals. -%% -%% Return Value: None. -%% -%% Description: Decides, given an error message, action to take, i.e., whether -%% operation shall procede, any process shall be restarted, or -%% the table tool terminated. -%% -%% Parameters: Exit_info: tuple containing sender of the error message, and the -%% reason. -%%====================================================================== - - -exit_signals(ExitInfo, ProcVars) -> - #process_variables{parent_pid = ParentPid, - pd_pid = PdPid, - pw_pid = PwPid, - dbs_pid = DbsPid, - etsread_pid = EtsreadPid, - table_id = TabId, - table_type = TabType, - table_name = TabName, - current_node = Node, - local_node = LocalNode - } = ProcVars, - - case ExitInfo of - {ParentPid, Reason} -> - exit(Reason); - - {PwPid, normal} -> - exit(normal); - - {PwPid, error} -> - io:format("Internal error... restarting. ~n"), - kill_procs(normal, [PdPid, EtsreadPid, DbsPid]), - NewProcVars = pc(ParentPid, Node, LocalNode, TabId, TabType, TabName, - get(error_msg_mode)), - loop(NewProcVars); - - {PdPid, _Reason} -> - io:format("Internal error... restarting. ~n"), - kill_procs(normal, [PwPid, EtsreadPid, DbsPid]), - NewProcVars = pc(ParentPid, Node, LocalNode, TabId, TabType, TabName, - get(error_msg_mode)), - loop(NewProcVars); - - {DbsPid, _Reason} -> - io:format("Internal error... restarting. ~n"), - kill_procs(normal, [PdPid, PwPid, EtsreadPid]), - NewProcVars = pc(ParentPid, Node, LocalNode, TabId, TabType, TabName, - get(error_msg_mode)), - loop(NewProcVars); - - {EtsreadPid, _Reason} -> - io:format("Internal error... restarting. ~n"), - kill_procs(normal, [PdPid, PwPid, DbsPid]), - NewProcVars = pc(ParentPid, Node, LocalNode, TabId, TabType, TabName, - get(error_msg_mode)), - loop(NewProcVars); - - {_Sender, _OtherReason} -> - loop(ProcVars) - end. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -kill_procs(_Status, []) -> - done; -kill_procs(Status, [Pid | Tail]) -> - exit(Pid, Status), - kill_procs(Status, Tail). - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -check_time_to_poll_table(Msg, ProcVars) -> - #dbs_subset{required_time_etsread = EtsreadTime, - required_time_dbs = DbsTime} = Msg, - - UserSetPollInterval = ProcVars#process_variables.poll_interval, - WinP = ProcVars#process_variables.window_params, - WinId = WinP#window_params.window_id, - - case too_short_pollinterval_chosen(UserSetPollInterval, EtsreadTime, DbsTime) of - true -> - EtsreadPid = ProcVars#process_variables.etsread_pid, - EtsreadPid ! #etsread_set_poll_interval{sender = self(), - interval = infinity}, - - TimeRequired = trunc(max_time_required(EtsreadTime, DbsTime) / 10 + 0.5) * 10 + 20, - - gs:config(WinId, [beep]), - case get(error_msg_mode) of - normal -> - tv_utils:notify(WinId, "TV Notification", - ["The current poll interval is too short!"]), - Str = "to " ++ lists:flatten(io_lib:write(TimeRequired)) ++ " seconds!", - tv_utils:notify(WinId, "TV Notification", ["Setting the poll interval", Str]); - haiku -> - ErrMsg = ["Being way too short", - "The interval of polling", - "Is simply increased."], - tv_utils:notify(WinId, "TV Notification", ErrMsg) - end, - clear_message_buffer(), - EtsreadPid ! #etsread_set_poll_interval{sender = self(), - interval = TimeRequired}, - - ProcVars#process_variables{poll_interval = TimeRequired}; - false -> - ProcVars - end. - - - - - - -clear_message_buffer() -> - receive - #dbs_subset{} -> - clear_message_buffer() - after 100 -> - done - end. - - - - - -max_time_required(T1, T2) when is_number(T1), is_number(T2) -> - if - T1 > T2 -> - T1; - true -> - T2 - end; -max_time_required(T1, _T2) when is_number(T1) -> - T1; -max_time_required(_T1, T2) -> - T2. - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -too_short_pollinterval_chosen(infinity, _EtsreadTime, _DbsTime) -> - false; -too_short_pollinterval_chosen(undefined, _EtsreadTime, _DbsTime) -> - false; -too_short_pollinterval_chosen(PollInt, EtsreadTime, _DbsTime) when EtsreadTime >= PollInt, is_number(EtsreadTime) -> - true; -too_short_pollinterval_chosen(PollInt, _EtsreadTime, DbsTime) when DbsTime >= PollInt, is_number(DbsTime) -> - true; -too_short_pollinterval_chosen(_PollInt, _EtsreadTime, _DbsTime) -> - false. diff --git a/lib/tv/src/tv_pc_graph_ctrl.erl b/lib/tv/src/tv_pc_graph_ctrl.erl deleted file mode 100644 index 3fc3ded565..0000000000 --- a/lib/tv/src/tv_pc_graph_ctrl.erl +++ /dev/null @@ -1,120 +0,0 @@ -%% -%% %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% --module(tv_pc_graph_ctrl). - - - --export([create_menu/4, win_conf/2]). - - --include("tv_int_msg.hrl"). --include("tv_pc_int_def.hrl"). - - - - - - - - -%%%********************************************************************* -%%% EXTERNAL FUNCTIONS -%%%********************************************************************* - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -create_menu(PwPid, MenuTitle, TitleAccPos, MenuList) -> - PwPid ! #pw_create_menu{sender = self(), - menutitle = MenuTitle, - title_acc_pos = TitleAccPos, - menulist = MenuList - }, - receive - #pw_create_menu_cfm{} -> - done - after 10000 -> - exit(error) - end. - - - - - - - - - -%%====================================================================== -%% Function: win_conf. -%% -%% Return Value: None. -%% -%% Description: Configures all objects in the window according to new coordinates. -%% -%% Parameters: -%%====================================================================== - - -win_conf(Msg, ProcVars) -> - #pc_win_conf{width = NewWidth, - height = NewHeight} = Msg, - - #process_variables{pd_pid = PdPid, - window_params = WinP} = ProcVars, - - #window_params{window_width = OldWindowWidth, - window_height = OldWindowHeight} = WinP, - - - case {NewWidth, NewHeight} of - {OldWindowWidth, OldWindowHeight} -> - ProcVars; - _Other -> - PdPid ! #pd_win_conf{sender = self(), - width = NewWidth, - height = NewHeight - }, - NewWinP = WinP#window_params{window_width = NewWidth, - window_height = NewHeight}, - - ProcVars#process_variables{window_params = NewWinP} - end. - - - - - - - - - - - - diff --git a/lib/tv/src/tv_pc_int_def.hrl b/lib/tv/src/tv_pc_int_def.hrl deleted file mode 100644 index 22f8dcd5d8..0000000000 --- a/lib/tv/src/tv_pc_int_def.hrl +++ /dev/null @@ -1,62 +0,0 @@ -%% -%% %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: Include file for the pc parts of the table tool. -%%% -%%%********************************************************************* - - --define(HEAD_FILE, pc). --define(GRAPH_FUNC_FILE, tv_pc_graph_ctrl). --define(MENU_FUNC_FILE, tv_pc_menu_handling). - - - --define(APPLICATION_NAME, "Table Visualizer"). --define(DEFAULT_WINDOW_WIDTH, 750). --define(DEFAULT_WINDOW_HEIGHT, 600). --define(DEFAULT_MIN_WINDOW_WIDTH, 300). --define(DEFAULT_MIN_WINDOW_HEIGHT, 250). - - --record(window_params, {window_id, - window_width, - window_height - }). - - - --record(process_variables, {parent_pid, - pw_pid, - pd_pid, - dbs_pid, - etsread_pid, - current_node, - local_node, - table_id = undefined, - table_type = ets, - table_name, - table_protection, - marked_row, - marked_object, - marked_color, - lists_as_strings = true, - poll_interval = infinity, % seconds or 'infinity' - window_params = #window_params{} - }). diff --git a/lib/tv/src/tv_pc_menu_handling.erl b/lib/tv/src/tv_pc_menu_handling.erl deleted file mode 100644 index 64a06743b7..0000000000 --- a/lib/tv/src/tv_pc_menu_handling.erl +++ /dev/null @@ -1,489 +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 pc handling the creation of menus, as well as -%%% treating the signals these menus results in, -%%% when chosen. -%%% -%%%********************************************************************* - - --module(tv_pc_menu_handling). --compile([{nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,destroy,1}}, - {nowarn_deprecated_function,{gs,start,0}}, - {nowarn_deprecated_function,{gs,window,3}}]). - - - --export([create_menus/1, - exit_button/1, - insert_object/1, - delete_object/1, - search_object/1, - open_table/7, - set_poll_interval/1, - poll_table/1, - sort_rising_order/1, - sort_falling_order/1, - no_sorting/1, - lists_as_strings/1, - lists_as_lists/1, - table_info/1, - help_button/1, - otp_help_button/1, - get_window_title/4]). - - - - - --include("tv_int_def.hrl"). --include("tv_int_msg.hrl"). --include("tv_pc_int_def.hrl"). - - - - - - - - -%%%********************************************************************* -%%% EXTERNAL FUNCTIONS -%%%********************************************************************* - - -%% Shortcuts currently used, in alphabetical order: -%% -%% c -> "Exit" -%% d -> "Delete Object" -%% f -> "Sort Falling Order" -%% h -> "Help" -%% i -> "Table Info" -%% n -> "No Sorting" -%% o -> "Edit Object" -%% p -> "Poll Table" -%% r -> "Sort Rising Order" -%% s -> "Search Object" -%% v -> "Set Poll Interval" -%% x -> "Exit" - - -create_menus(PwPid) -> - %% Due to a bug (or some other reason), only one of the radiobuttons belonging - %% to a specified group can be selected, even if different processes have created - %% the radiobuttons! This means that, if we have started more than one tv_main - %% process, selecting one radiobutton will affect the radiobuttons in the other - %% tv_main process(es)!!! Since this is a highly undesirable bahaviour, we have to - %% create unique group names (i.e., atoms). - %% (We need to group the radiobuttons, since otherwise all created by one process - %% belongs to the same group, which also is undesirable...) - SelfStr = pid_to_list(self()), - SortGroup = list_to_atom("sorting" ++ SelfStr), - ListGroup = list_to_atom("lists" ++ SelfStr), - - % Order pw to create the 'File' menu. - ?GRAPH_FUNC_FILE:create_menu(PwPid, - " File ", - 1, - [{" Table Info ", normal, table_info, 7, i}, - separator, - {" Close ", normal, exit_button, 1, c} - ]), - ?GRAPH_FUNC_FILE:create_menu(PwPid, - " Edit ", - 1, - [{" Edit Object... ", normal, insert_object, 1, o}, - {" Delete Object ", normal, delete_object, 1, d} - ]), - ?GRAPH_FUNC_FILE:create_menu(PwPid, - " View ", - 1, - [{" Lists as Lists ",{radio,false,ListGroup},lists_as_lists,10,no_char}, - {" Lists as Strings ",{radio,true,ListGroup},lists_as_strings,10,no_char} - ]), - % Order pw to create the 'Options' menu. - ?GRAPH_FUNC_FILE:create_menu(PwPid, - " Options ", - 1, - [{" Poll Table ", normal, poll_table, 1, p}, - {" Poll Interval... ",normal,set_poll_interval,6,no_char}, - separator, - {" Search Object ", normal, search_object, 1, s}, - separator, - {" Sort Ascending Order ",{radio,false,SortGroup},sort_rising_order,6,no_char}, - {" Sort Descending Order ",{radio,false,SortGroup},sort_falling_order,6,no_char}, - {" No Sorting ",{radio,true,SortGroup},no_sorting,1,no_char} - ]). - - - - - -exit_button(_ProcVars) -> - exit(normal). - - - -help_button(ProcVars) -> - WinP = ProcVars#process_variables.window_params, - HelpFile = filename:join([code:lib_dir(tv), "doc", "html", "index.html"]), - tool_utils:open_help(WinP#window_params.window_id, HelpFile), - ProcVars. - - - - -otp_help_button(ProcVars) -> - WinP = ProcVars#process_variables.window_params, - IndexFile = filename:join([code:root_dir(), "doc", "index.html"]), - - tool_utils:open_help(WinP#window_params.window_id, IndexFile), - ProcVars. - - - - -table_info(ProcVars) -> - #process_variables{table_id = TableId, - current_node = Node, - local_node = LocalNode, - table_type = Type, - parent_pid = ParentPid} = ProcVars, - - case TableId of - undefined -> - done; - _OtherValue -> - ParentPid ! {tv_start_infowin, TableId, Node, LocalNode, Type} - end, - ProcVars. - - - -sort_rising_order(ProcVars) -> - request_sort_settings(ProcVars#process_variables.pd_pid, true, false), - ProcVars. - - -sort_falling_order(ProcVars) -> - request_sort_settings(ProcVars#process_variables.pd_pid, true, true), - ProcVars. - - -no_sorting(ProcVars) -> - request_sort_settings(ProcVars#process_variables.pd_pid, false, false), - ProcVars. - - -set_poll_interval(ProcVars) -> - #process_variables{etsread_pid = EtsreadPid, - poll_interval = PollInterval} = ProcVars, - - case tv_poll_dialog:start(PollInterval) of - cancel -> - ProcVars; - NewPollInterval -> - EtsreadPid ! #etsread_set_poll_interval{sender = self(), - interval = NewPollInterval}, - ProcVars#process_variables{poll_interval = NewPollInterval} - end. - - - -poll_table(ProcVars) -> - EtsreadPid = ProcVars#process_variables.etsread_pid, - EtsreadPid ! #etsread_poll_table{sender = self()}, - ProcVars. - - -search_object(ProcVars) -> - DbsPid = ProcVars#process_variables.dbs_pid, - DbsPid ! #dbs_search_req{sender=self()}, - ProcVars. - - - -lists_as_strings(ProcVars) -> - PdPid = ProcVars#process_variables.pd_pid, - PdPid ! #pc_list_info{sender=self(), lists_as_strings=true}, - DbsPid = ProcVars#process_variables.dbs_pid, - DbsPid ! #pc_list_info{sender=self(), lists_as_strings=true}, - ProcVars#process_variables{lists_as_strings=true}. - - - - -lists_as_lists(ProcVars) -> - PdPid = ProcVars#process_variables.pd_pid, - PdPid ! #pc_list_info{sender=self(), lists_as_strings=false}, - DbsPid = ProcVars#process_variables.dbs_pid, - DbsPid ! #pc_list_info{sender=self(), lists_as_strings=false}, - ProcVars#process_variables{lists_as_strings=false}. - - - - - - -insert_object(ProcVars) -> - #process_variables{pd_pid = PdPid, - current_node = Node, - local_node = LocalNode, - table_type = TabType, - table_name = TabName, - table_protection = Protection, - window_params = WinP} = ProcVars, - - case Protection of - public -> - case TabType of - mnesia -> - case catch tv_mnesia_rpc:table_info(Node, LocalNode, TabName, attributes) of - nodedown -> - handle_error(nodedown); - no_table -> - handle_error(nodedown); - mnesia_not_started -> - handle_error(mnesia_not_started); - {unexpected_error,Reason} -> - handle_error({unexpected_error,Reason}); - AttrList -> - PdPid ! #pd_rec_edit{sender = self(), - attributes = AttrList - } - end; - ets -> - PdPid ! #pd_rec_edit{sender = self(), - attributes = [tuple] - } - end; - _OtherProtection -> - WinId = WinP#window_params.window_id, - gs:config(WinId, [beep]), - ErrMsg = - case get(error_msg_mode) of - normal -> - ["The table is protected and", - " cannot be edited."]; - haiku -> - ["The table you see", - "Is cunningly protected:", - "You can only watch."] - end, - tv_utils:notify(WinId, "TV Notification", ErrMsg) - end, - ProcVars. - - - - - - -delete_object(ProcVars) -> - #process_variables{dbs_pid = DbsPid, - table_protection = Protection, - marked_row = MarkedRow, - marked_object = MarkedObject, - marked_color = MarkedColor, - window_params = WinP} = ProcVars, - - case MarkedRow of - undefined -> - done; - _AnyRow -> - case Protection of - public -> - DbsPid ! #dbs_delete_object{sender = self(), - object = MarkedObject, - color = MarkedColor, - obj_no = MarkedRow}; - _OtherProtection -> - WinId = WinP#window_params.window_id, - gs:config(WinId, [beep]), - ErrMsg = - case get(error_msg_mode) of - normal -> - ["The table is protected and", - " cannot be edited."]; - haiku -> - ["The table you see", - "Is cunningly protected:", - "You can only watch."] - end, - tv_utils:notify(WinId, "TV Notification", ErrMsg) - end - end, - ProcVars. - - - - - - -open_table(CurrNode, LocalNode, TableId, TableType, TableName, Raise, ProcVars) -> - #process_variables{dbs_pid = DbsPid, - etsread_pid = EtsreadPid, - pw_pid = PwPid, - pd_pid = PdPid, - poll_interval = PollInterval, - window_params = WinP} = ProcVars, - - case Raise of - true -> - gs:config(WinP#window_params.window_id, [raise]); - false -> - done - end, - - {Type, KeyPos, Protection} = init_etsread(EtsreadPid, DbsPid, CurrNode, LocalNode, TableId, - TableType, PollInterval), - WinTitle = get_window_title(TableType, CurrNode, TableId, TableName), - PwPid ! #pw_set_window_title{sender = self(), - win_title = WinTitle}, - Writable = - case Protection of - public -> - true; - _Other -> - false - end, - RecordName = - case TableType of - mnesia -> - tv_mnesia_rpc:table_info(CurrNode, LocalNode, TableId, record_name); - ets -> - undefined - end, - PdPid ! #pd_new_table{sender = self(), - table_type = TableType, - table_name = TableName, - record_name = RecordName, - writable = Writable}, - init_dbs(DbsPid, Type, KeyPos, EtsreadPid), - ProcVars#process_variables{current_node = CurrNode, - local_node = LocalNode, - table_id = TableId, - table_type = TableType, - table_name = TableName, - table_protection = Protection}. - - - - - - -get_window_title(ets, Node, TableId, TableName) -> - NameStr = lists:flatten(io_lib:write(TableName)), - TableStr = case TableId of - {TableName, _Pid} -> - NameStr; - TableName -> - NameStr; - _Other -> - lists:flatten(io_lib:write(TableId)) ++ " (" ++ NameStr ++ ")" - end, - - WinTitleSuffix = " Node: " ++ atom_to_list(Node), - "ETS: " ++ TableStr ++ WinTitleSuffix; -get_window_title(mnesia, Node, _TableId, TableName) -> - TableNameStr = lists:flatten(io_lib:write(TableName)), - WinTitleSuffix = " Node: " ++ atom_to_list(Node), - "Mnesia: " ++ TableNameStr ++ WinTitleSuffix. - - - - -%%%********************************************************************* -%%% INTERNAL FUNCTIONS -%%%********************************************************************* - - - -init_etsread(EtsreadPid, DbsPid, Node, LocalNode, TableId, TableType, PollInterval) -> - EtsreadPid ! #etsread_deblock{sender = self(), - dbs_pid = DbsPid, - node = Node, - local_node = LocalNode, - table_id = TableId, - table_type = TableType, - poll_interval = PollInterval - }, - receive - #etsread_deblock_cfm{type=Type, keypos=KeyPos, protection=Protection} -> - {Type, KeyPos, Protection} - after 10000 -> - exit(error) - end. - - - - -init_dbs(DbsPid, Type, KeyPos, EtsreadPid) -> - DbsPid ! #dbs_deblock{sender = self(), - etsread_pid = EtsreadPid, - type = Type, - keypos = KeyPos, - sublist_length = ?ITEMS_TO_DISPLAY - }, - receive - #dbs_deblock_cfm{} -> - done - after 10000 -> - exit(error) - end. - - - - - - -request_sort_settings(PdPid, Sorting, Reverse) -> - PdPid ! #pd_get_sort_settings{sender = self(), - sorting = Sorting, - reverse = Reverse - }. - - - - - - -handle_error(mnesia_not_started) -> - gs:window(errorwin, gs:start(), []), - gs:config(errorwin, [beep]), - case get(error_msg_mode) of - normal -> - tv_utils:notify(errorwin, "TV Notification", ["Mnesia not started!"]); - haiku -> - tv_utils:notify(errorwin, "TV Notification", ["Mnesia is stopped.", - "We wish to reach all data", - "But we never will."]) - end, - gs:destroy(errorwin); -handle_error(nodedown) -> - done; %% Main process handles this! -handle_error({unexpected_error,Cause}) -> - gs:window(errorwin, gs:start(), []), - io:format("Unexpected error: ~p~n", [Cause]), - gs:config(errorwin, [beep]), - gs:destroy(errorwin). - - diff --git a/lib/tv/src/tv_pd.erl b/lib/tv/src/tv_pd.erl deleted file mode 100644 index 6c38148fdd..0000000000 --- a/lib/tv/src/tv_pd.erl +++ /dev/null @@ -1,1127 +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: Code for pd, i.e., the data displaying part of the table -%%% tool. -%%% -%%%********************************************************************* - - --module(tv_pd). --compile([{nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,destroy,1}}, - {nowarn_deprecated_function,{gs,read,2}}, - {nowarn_deprecated_function,{gs,start,0}}, - {nowarn_deprecated_function,{gs,window,3}}]). - - - --export([pd/2]). - - - - --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: pd. -%% -%% Return Value: None. -%% -%% Description: Process controlling the display part of the window, -%% i.e., showing diagrams and handling the scale used for scrolling. -%% -%% Parameters: None. -%%====================================================================== - - -pd(Master, ErrMsgMode) -> - process_flag(trap_exit, true), - put(error_msg_mode, ErrMsgMode), - PgPid = spawn_link(tv_pg, pg, [self()]), - PbPid = spawn_link(tv_pb, pb, [self()]), - - ProcVars = #process_variables{master_pid = Master, - pg_pid = PgPid, - pb_pid = PbPid}, - blocked(ProcVars). - - - - - - - -%%%******************************************************************** -%%% INTERNAL FUNCTIONS -%%%******************************************************************** - - - - - -%%====================================================================== -%% Function: blocked. -%% -%% Return Value: None. -%% -%% Description: When started or explicitly blocked, pd enters this state, -%% where nothing is performed until the module explicitly is -%% deblocked. -%% -%% Parameters: -%%====================================================================== - - -blocked(ProcVars) -> - receive - Msg -> - case Msg of - - #pd_deblock{} -> - deblock(Msg, ProcVars); - - - {error_msg_mode, Mode} -> - put(error_msg_mode, Mode), - blocked(ProcVars); - - - _Other -> - blocked(ProcVars) - end - end. - - - - - - - - - -%%====================================================================== -%% Function: deblock. -%% -%% Return Value: None. -%% -%% Description: When deblocked, a canvas and scale shall be created according to -%% specification received in pd_deblock message. -%% -%% Parameters: Rec: received pd_deblock message. -%%====================================================================== - - - -deblock(Msg, ProcVars) -> - #pd_deblock{win = WindowId, - win_width = WindowWidth, - win_height = WindowHeight} = Msg, - - NewProcVars = ?DISP_FUNC_FILE:init_display(WindowId, WindowWidth, WindowHeight, - ProcVars), - receive - - #pg_ready{} -> - Sender = Msg#pd_deblock.sender, - Sender ! #pd_deblock_cfm{sender = self()}, - deblocked_loop(NewProcVars) - - end. - - - - - - - - -%%====================================================================== -%% Function: deblocked_loop. -%% -%% Return Value: None. -%% -%% Description: Eternal (well, almost) loop, receiving messages and -%% handling them. -%% -%% Parameters: Master: Pid to the 'pc' process. -%% Win: Id of the window created. -%%====================================================================== - - - -deblocked_loop(ProcVars) -> - receive - Msg -> - case Msg of - - {gs, Id, Event, Data, Args} -> - NewProcVars = gs_messages({Id, Event, Data, Args}, ProcVars), - deblocked_loop(NewProcVars); - - _Other -> - NewProcVars = tv_messages(Msg, ProcVars), - deblocked_loop(NewProcVars) - end - end. - - - - - -tv_messages(Msg, ProcVars) -> - WinId = ProcVars#process_variables.window_id, - - case Msg of - #pg_cell_marked{} -> - mark_busy(WinId), - NewProcVars = handle_cell_marked(Msg, ProcVars), - mark_nonbusy(WinId), - NewProcVars; - - #pc_data{} -> - mark_busy(WinId), - NewProcVars = show_data(Msg, ProcVars), - mark_nonbusy(WinId), - NewProcVars; - - #pc_list_info{} -> - handle_list_info(Msg, ProcVars); - - #pb_col_marked{} -> - mark_busy(WinId), - NewProcVars = handle_col_marked(Msg, ProcVars), - mark_nonbusy(WinId), - NewProcVars; - - #pb_row_marked{} -> - mark_busy(WinId), - NewProcVars = handle_row_marked(Msg, ProcVars), - mark_nonbusy(WinId), - NewProcVars; - - #pb_new_colwidth{} -> - mark_busy(WinId), - NewProcVars = resize_column(Msg, ProcVars), - mark_nonbusy(WinId), - NewProcVars; - - #pd_get_sort_settings{sorting = Sorting, reverse = Reverse} -> - mark_busy(WinId), - NewProcVars = - case send_sort_info_signal(Sorting, Reverse, ProcVars) of - ignore -> - ProcVars; - TempNewProcVars -> - set_sort_col(Sorting, TempNewProcVars) - end, - mark_nonbusy(WinId), - NewProcVars; - - #pd_new_table{table_type=TabType,table_name=TabName, - record_name=RecName,writable=Writable} -> - mark_busy(WinId), - ToolP = ProcVars#process_variables.toolbar_params, - ?DISP_FUNC_FILE:update_toolbar_label(notext, ToolP, undefined, undefined, Writable), - mark_nonbusy(WinId), - ProcVars#process_variables{table_type = TabType, - table_name = TabName, - record_name = RecName, - writable = Writable}; - - #pd_win_conf{} -> - mark_busy(WinId), - NewProcVars = resize_window(Msg, ProcVars), - mark_nonbusy(WinId), - NewProcVars; - - #pd_rec_edit{} -> - mark_busy(WinId), - NewProcVars = open_rec_edit(Msg, ProcVars), - mark_nonbusy(WinId), - NewProcVars; - - - {updated_object, UpdObj} -> - get_updated_elem2(true, UpdObj, ProcVars), - ProcVars; - - {new_object, NewObj} -> - get_updated_elem2(true, NewObj, ProcVars), - ProcVars; - - {error_msg_mode, Mode} -> - put(error_msg_mode, Mode), - ProcVars; - - {'EXIT', Pid, Reason} -> - exit_signals({Pid, Reason}, ProcVars); - - _Other -> - ProcVars - end. - - - - - - -exit_signals(ExitInfo, ProcVars) -> - #process_variables{master_pid = MasterPid, - pg_pid = PgPid, - pb_pid = PbPid, - rec_pid = RecPid} = ProcVars, - - case ExitInfo of - {MasterPid, _Reason} -> - exit(normal); - {PgPid, _Reason} -> - exit(normal); - {PbPid, _Reason} -> - exit(normal); - {RecPid, _Reason} -> - ProcVars#process_variables{rec_pid = undefined}; - _Other -> - ProcVars - end. - - - - -open_rec_edit(Msg, ProcVars) -> - #pd_rec_edit{attributes = AttrList} = Msg, - - #process_variables{rec_pid = RecPid, - table_type = TabType, - table_name = TabName, - record_name = RecordName, - lists_as_strings = ListsAsStr, - mark_params = MarkP} = ProcVars, - - #mark_params{marked_object = MarkedObject} = MarkP, - - TabOrRecName = - case TabType of - mnesia -> - RecordName; - ets -> - TabName - end, - - case RecPid of - undefined -> - NewRecPid = - case MarkedObject of - undefined -> - tv_rec_edit:start(TabType, TabOrRecName, AttrList, ListsAsStr, - get(error_msg_mode)); - _Other -> - AttrVals = - case TabType of - mnesia -> - tl(tuple_to_list(MarkedObject)); - ets -> - [MarkedObject] - end, - tv_rec_edit:start(TabType, TabOrRecName, AttrList, AttrVals, ListsAsStr, - get(error_msg_mode)) - end, - ProcVars#process_variables{rec_pid = NewRecPid}; - _AnyPid -> - RecPid ! raise, - ProcVars - end. - - - - - - - -gs_messages(Msg, ProcVars) -> - - case Msg of - - {editentry, keypress, _Data, ['Tab' | _T]} -> - gs:config(editentry, [{select, {0,100000000}}]), - ProcVars; - - {editentry, keypress, _Data, ['Return' | _T]} -> - get_updated_elem(ProcVars), - ProcVars; - - {Id, enter, {toolbar, Btn, Str}, _} -> - gs:config(Id, [{motion, true}]), - NewProcVars = handle_toolbar_buttons(Id, Btn, Str, false, 0, 0, - ProcVars), - NewProcVars; - - - {_Id, buttonpress, _Data, [3 | _Rest]} -> - ProcVars; - - - {_Id, buttonpress, vscale, [MouseBtn | _Tail]} -> - WinId = ProcVars#process_variables.window_id, - mark_busy(WinId), - NewProcVars = ?DISP_FUNC_FILE:scroll_vertically(MouseBtn, ProcVars), - mark_nonbusy(WinId), - NewProcVars; - - - % The order of messages from gs ought to be - % 1. 'buttonpress' - % 2. 'click' and - % 3. 'buttonrelease' - % However, quite often the 'click' message comes last, meaning we have - % to check for this. :-( - - {_Id, click, vscale, [NewScalePos | _Tail]} -> - WinId = ProcVars#process_variables.window_id, - mark_busy(WinId), - NewProcVars = ?DISP_FUNC_FILE:perform_vertical_scroll(NewScalePos, - ProcVars), - mark_nonbusy(WinId), - NewProcVars; - - - {_Id, buttonpress, hscale, [MouseBtn | _Tail]} -> - WinId = ProcVars#process_variables.window_id, - mark_busy(WinId), - NewProcVars = ?DISP_FUNC_FILE:scroll_horizontally(MouseBtn, ProcVars), - mark_nonbusy(WinId), - NewProcVars; - - - {_Id, click, hscale, [NewScalePos | _Tail]} -> - WinId = ProcVars#process_variables.window_id, - mark_busy(WinId), - NewProcVars = ?DISP_FUNC_FILE:perform_horizontal_scroll(NewScalePos, - ProcVars), - mark_nonbusy(WinId), - NewProcVars; - - - {_Id, click, {toolbar, poll_table, _Str}, _Arg} -> - WinId = ProcVars#process_variables.window_id, - mark_busy(WinId), - PcPid = ProcVars#process_variables.master_pid, - PcPid ! #pc_poll_table{sender = self()}, - mark_nonbusy(WinId), - ProcVars; - - - {_Id, click, {toolbar, select_browser, _Str}, _Arg} -> - PcPid = ProcVars#process_variables.master_pid, - PcPid ! #pc_select{sender = self()}, - ProcVars; - - - {_Id, click, {toolbar, help_button, _Str}, _Arg} -> - PcPid = ProcVars#process_variables.master_pid, - PcPid ! #pc_help{sender = self()}, - ProcVars; - - - - {_Id, click, {toolbar, insert_object, _Str}, _Arg} -> - WinId = ProcVars#process_variables.window_id, - mark_busy(WinId), - PcPid = ProcVars#process_variables.master_pid, - PcPid ! {pc_edit_object, self()}, - mark_nonbusy(WinId), - ProcVars; - - - {_Id, click, {toolbar, search_object, _Str}, _Arg} -> - WinId = ProcVars#process_variables.window_id, - mark_busy(WinId), - PcPid = ProcVars#process_variables.master_pid, - PcPid ! #pc_search_req{sender = self()}, - mark_nonbusy(WinId), - ProcVars; - - - {_Id, click, {toolbar, sort_rising_order, _Str}, _Arg} -> - WinId = ProcVars#process_variables.window_id, - mark_busy(WinId), - NewProcVars = case send_sort_info_signal(true, false, ProcVars) of - ignore -> - ProcVars; - TempNewProcVars -> - set_sort_col(true, TempNewProcVars) - end, - mark_nonbusy(WinId), - NewProcVars; - - - {_Id, click, {toolbar, sort_falling_order, _Str}, _Arg} -> - WinId = ProcVars#process_variables.window_id, - mark_busy(WinId), - NewProcVars = case send_sort_info_signal(true, true, ProcVars) of - ignore -> - ProcVars; - TempNewProcVars -> - set_sort_col(true, TempNewProcVars) - end, - mark_nonbusy(WinId), - NewProcVars; - - - {_Id, click, {toolbar, no_sorting, _Str}, _Arg} -> - NewProcVars = case send_sort_info_signal(false, false, ProcVars) of - ignore -> - ProcVars; - TempNewProcVars -> - set_sort_col(false, TempNewProcVars) - end, - NewProcVars; - - - {Id, click, {toolbar, table_info, _Str}, _Arg} -> - ToolP = ProcVars#process_variables.toolbar_params, - F = ToolP#toolbar_params.pop_up_frame_id, - gs:config(F, [{y, -30}]), - gs:config(Id, [{motion, false}]), - PcPid = ProcVars#process_variables.master_pid, - PcPid ! #pc_show_table_info{sender = self()}, - ProcVars; - - - {Id, click, {labelbtn, pop_up}, _Arg} -> - gs:config(Id, [{data, {labelbtn, pop_down}}]), - NewProcVars = ?DISP_FUNC_FILE:show_toolbar_editor(ProcVars), - NewProcVars; - - - {Id, click, {labelbtn, pop_down}, _Arg} -> - gs:config(Id, [{data, {labelbtn, pop_up}}]), - NewProcVars = ?DISP_FUNC_FILE:hide_toolbar_editor(ProcVars), - NewProcVars; - - - _OtherMessage -> - ProcVars - - end. - - - - - -get_updated_elem(ProcVars) -> - EditedStr = gs:read(editentry, text), - case tv_db_search:string_to_term(EditedStr) of - {error, {_Reason, Msg}} -> - gs:config(editentry, [beep]), - gs:window(pdwin, gs:start(), []), - tv_utils:notify(pdwin, "TV Notification", Msg), - gs:destroy(pdwin), - ProcVars; - {ok, NewTerm} -> - get_updated_elem2(false, NewTerm, ProcVars) - end. - - - - - -get_updated_elem2(FromRecEdit, NewTerm, ProcVars) -> - #process_variables{table_type = TableType, - record_name = RecordName, - mark_params = MarkP, - master_pid = PcPid} = ProcVars, - - #mark_params{marked_object = ObjToUpdate, - marked_color = ObjColor, - virtual_row_no = VirtualRow, - cell_col_no = VirtualCol} = MarkP, - - case ObjToUpdate of - undefined -> - case new_object_ok(TableType, RecordName, NewTerm) of - true -> - PcPid ! #pd_new_object{sender = self(), - object = NewTerm}, - ProcVars; - {false, Msg} -> - gs:window(pdwin, gs:start(), []), - tv_utils:notify(pdwin, "TV Notification", Msg), - gs:destroy(pdwin), - ProcVars - end; - _AnyObj -> - %% We need to know if the object has been deleted! - NewObj = - case VirtualCol of - undefined -> - NewTerm; - _AnyCol when FromRecEdit -> - NewTerm; - _AnyCol -> - if - is_tuple(ObjToUpdate) -> - erlang:setelement(VirtualCol, ObjToUpdate, NewTerm); - true -> - NewTerm - end - end, - %% Is the update OK? - case update_ok(TableType, ObjToUpdate, NewObj) of - true -> - PcPid ! #pd_updated_object{sender = self(), - object = NewObj, - old_object = ObjToUpdate, - old_color = ObjColor, - obj_no = VirtualRow}, - ProcVars; - false -> - gs:window(pdwin, gs:start(), []), - case get(error_msg_mode) of - normal -> - tv_utils:notify(pdwin, "TV Notification", - ["The record name cannot be changed!"]); - haiku -> - tv_utils:notify(pdwin, "TV Notification", - ["The attempt to change", - "The permanent record name", - "Is simply ignored."]) - end, - gs:destroy(pdwin), - ProcVars - end - end. - - - - -new_object_ok(ets, _RecordName, NewTerm) when is_tuple(NewTerm) -> - true; -new_object_ok(ets, _RecordName, _NewTerm) -> - Msg = case get(error_msg_mode) of - normal -> - ["Object is not a tuple!"]; - haiku -> - ["Yes, it is a term.", - "It is pretty, but it's not", - "A proper tuple."] - end, - {false, Msg}; -new_object_ok(mnesia, RecordName, NewTerm) when is_tuple(NewTerm) -> - NewRecName = element(1, NewTerm), - case NewRecName of - RecordName -> - true; - _OtherName -> - Msg = case get(error_msg_mode) of - normal -> - ["Erroneous record name!"]; - haiku -> - ["The attempt to use", - "An invalid record name", - "Is simply ignored."] - end, - {false, Msg} - end; -new_object_ok(mnesia, _RecordName, _NewTerm) -> - Msg = case get(error_msg_mode) of - normal -> - ["Object is not a record!"]; - haiku -> - ["Yes, it is a term.", - "It is pretty, but it's not", - "The proper record."] - end, - {false, Msg}. - - - - -update_ok(ets, _ObjectToUpdate, _NewObject) -> - true; -update_ok(mnesia, ObjectToUpdate, NewObject) -> - OldRecName = element(1, ObjectToUpdate), - NewRecName = element(1, NewObject), - case NewRecName of - OldRecName -> - true; - _Other -> - false - end. - - - - -handle_toolbar_buttons(Id, Btn, Str, LabelShown, X, Y, ProcVars) -> - WinId = ProcVars#process_variables.window_id, - ToolP = ProcVars#process_variables.toolbar_params, - F = ToolP#toolbar_params.pop_up_frame_id, - - receive - - {gs, Id, motion, _Data, [NewX, NewY | _]} -> - handle_toolbar_buttons(Id, Btn, Str, LabelShown, NewX, NewY, - ProcVars); - - {gs, editentry, keypress, _Data, ['Tab' | _T]} -> - gs:config(editentry, [{select, {0,100000000}}]), - handle_toolbar_buttons(Id, Btn, Str, LabelShown, X, Y, ProcVars); - - {gs, editentry, keypress, _Data, ['Return' | _T]} -> - get_updated_elem(ProcVars), - handle_toolbar_buttons(Id, Btn, Str, LabelShown, X, Y, ProcVars); - - {gs, Id, leave, {toolbar, Btn, Str}, _Arg} -> - gs:config(F, [{y, -30}]), - gs:config(Id, [{motion, false}]), - ProcVars; - - {gs, Id, click, {toolbar, poll_table, _Str}, _Arg} -> - mark_busy(WinId), - gs:config(F, [{y, -30}]), - gs:config(Id, [{motion, false}]), - PcPid = ProcVars#process_variables.master_pid, - PcPid ! #pc_poll_table{sender = self()}, - mark_nonbusy(WinId), - ProcVars; - - {gs, Id, click, {toolbar, select_browser, _Str}, _Arg} -> - gs:config(F, [{y, -30}]), - gs:config(Id, [{motion, false}]), - PcPid = ProcVars#process_variables.master_pid, - PcPid ! #pc_select{sender = self()}, - ProcVars; - - {gs, Id, click, {toolbar, help_button, _Str}, _Arg} -> - gs:config(F, [{y, -30}]), - gs:config(Id, [{motion, false}]), - PcPid = ProcVars#process_variables.master_pid, - PcPid ! #pc_help{sender = self()}, - ProcVars; - - {gs, Id, click, {toolbar, insert_object, _Str}, _Arg} -> - mark_busy(WinId), - gs:config(F, [{y, -30}]), - gs:config(Id, [{motion, false}]), - PcPid = ProcVars#process_variables.master_pid, - PcPid ! {pc_edit_object, self()}, - mark_nonbusy(WinId), - ProcVars; - - - {gs, Id, click, {toolbar, search_object, _Str}, _Arg} -> - mark_busy(WinId), - gs:config(F, [{y, -30}]), - gs:config(Id, [{motion, false}]), - PcPid = ProcVars#process_variables.master_pid, - PcPid ! #pc_search_req{sender = self()}, - mark_nonbusy(WinId), - ProcVars; - - {gs, Id, click, {toolbar, sort_rising_order, _Str}, _Arg} -> - mark_busy(WinId), - gs:config(F, [{y, -30}]), - gs:config(Id, [{motion, false}]), - NewProcVars = - case send_sort_info_signal(true, false, ProcVars) of - ignore -> - ProcVars; - TempNewProcVars -> - set_sort_col(true, TempNewProcVars) - end, - mark_nonbusy(WinId), - NewProcVars; - - {gs, Id, click, {toolbar, sort_falling_order, _Str}, _Arg} -> - mark_busy(WinId), - gs:config(F, [{y, -30}]), - gs:config(Id, [{motion, false}]), - NewProcVars = - case send_sort_info_signal(true, true, ProcVars) of - ignore -> - ProcVars; - TempNewProcVars -> - set_sort_col(true, TempNewProcVars) - end, - mark_nonbusy(WinId), - NewProcVars; - - {gs, Id, click, {toolbar, no_sorting, _Str}, _Arg} -> - gs:config(F, [{y, -30}]), - gs:config(Id, [{motion, false}]), - NewProcVars = - case send_sort_info_signal(false, false, ProcVars) of - ignore -> - ProcVars; - TempNewProcVars -> - set_sort_col(false, TempNewProcVars) - end, - NewProcVars; - - {gs, Id, click, {toolbar, table_info, _Str}, _Arg} -> - gs:config(F, [{y, -30}]), - gs:config(Id, [{motion, false}]), - PcPid = ProcVars#process_variables.master_pid, - PcPid ! #pc_show_table_info{sender = self()}, - ProcVars; - - {'EXIT', Pid, Reason} -> - exit_signals({Pid, Reason}, ProcVars), - handle_toolbar_buttons(Id, Btn, Str, LabelShown, X, Y, ProcVars); - - OtherMsg -> - NewProcVars = tv_messages(OtherMsg, ProcVars), - handle_toolbar_buttons(Id, Btn, Str, LabelShown, X, Y, NewProcVars) - - after 600 -> - case LabelShown of - false -> - FrameP = ProcVars#process_variables.frame_params, - L = ToolP#toolbar_params.pop_up_label_id, - - #frame_params{toolbar_frame_width = TWidth, - toolbar_frame_height = THeight} = FrameP, - - BtnHeight = gs:read(Id, height), - BtnXpos = gs:read(Id, x), - BtnYpos = gs:read(Id, y), - FrameHeight = gs:read(F, height), - FontUsed = gs:read(L, font), - {StringWidth, _H} = gs:read(L, {font_wh, {FontUsed, Str}}), - - Width = StringWidth + 6, - Xpos = BtnXpos + X, - LblXpos = if - Xpos + Width > TWidth -> - Xpos - Width; - true -> - Xpos - end, - % Ypos = BtnYpos + Y + 15, - Ypos = BtnYpos + BtnHeight + 6, - LblYpos = if - Ypos + FrameHeight > THeight -> - Ypos - FrameHeight - 25; - true -> - Ypos - end, - gs:config(L, [{width, Width - 2}, - {label, {text, Str}}]), - gs:config(F, [{width, Width}, - {x, LblXpos}, - {y, LblYpos} - ]); - true -> - done - end, - handle_toolbar_buttons(Id, Btn, Str, true, X, Y, ProcVars) - end. - - - - - - -set_sort_col(SortingOn, ProcVars) -> - #process_variables{pb_pid = PbPid, - mark_params = MarkP} = ProcVars, - - SortCol = case SortingOn of - true -> - MarkP#mark_params.col_no; - false -> - undefined - end, - PbPid ! #pb_set_sort_col{sender = self(), - virtual_col = SortCol - }, - remove_all_marks(SortCol, ProcVars). - - - - - -send_sort_info_signal(Sorting, Reverse, ProcVars) -> - #process_variables{master_pid = PcPid, - mark_params = MarkP} = ProcVars, - - SortColNo = MarkP#mark_params.col_no, - - PcPid ! #pc_set_sorting_mode{sender = self(), - sorting = Sorting, - reverse = Reverse, - sort_key_no = SortColNo - }, - receive - #pc_set_sorting_mode_cfm{sort_key_no = FinalSortColNo} -> - NewMarkP = MarkP#mark_params{col_no = FinalSortColNo}, - ProcVars#process_variables{mark_params = NewMarkP}; - - #pd_ignore{} -> - ignore - - end. - - - - - -show_data(Msg, ProcVars) -> - #pc_data{scale_pos = Pos, - scale_range = Range, - list_range = MaxValue, - elementlist = List, - list_of_keys = KeyList, - max_elem_size = MaxElemSize, - marked_row = MarkedRowData} = Msg, - - ?DISP_FUNC_FILE:display_data(Pos, Range, MaxValue, List, KeyList, MaxElemSize, - MarkedRowData, ProcVars). - - - - - - -handle_list_info(Msg, ProcVars) -> - ListAsStr = Msg#pc_list_info.lists_as_strings, - PgPid = ProcVars#process_variables.pg_pid, - PgPid ! #pg_list_info{sender = self(), - lists_as_strings = ListAsStr}, - ProcVars#process_variables{lists_as_strings = ListAsStr}. - - - - - -handle_col_marked(Msg, ProcVars) -> - #pb_col_marked{col_marked = ColMarked, - virtual_col = VirtualCol} = Msg, - - #process_variables{master_pid = MasterPid, - pg_pid = PgPid, - rec_pid = RecPid, - writable = Writable, - toolbar_params = ToolP, - mark_params = MarkP} = ProcVars, - SortCol = MarkP#mark_params.sort_col_no, - - PgPid ! #pg_remove_marks{sender = self()}, - - case ColMarked of - true -> - PgPid ! #pg_col_marked{sender = self(), - virtual_col = VirtualCol}; - false -> - done - end, - - MasterPid ! #pc_marked_row{sender = self(), - row_no = undefined, - object = undefined, - color = undefined - }, - - ?DISP_FUNC_FILE:update_toolbar_label(notext, ToolP, undefined, undefined, Writable), - send_to_rec_edit(RecPid, insert_mode), - - NewMarkP = - if - ColMarked -> - MarkP#mark_params{col_no = VirtualCol}; - true -> - if - SortCol =:= undefined -> - MarkP; - true -> - MarkP#mark_params{col_no = SortCol} - end - end, - ProcVars#process_variables{mark_params = NewMarkP}. - - - - - - -remove_all_marks(SortCol, ProcVars) -> - #process_variables{master_pid = MasterPid, - pb_pid = PbPid, - pg_pid = PgPid, - toolbar_params = ToolP} = ProcVars, - - PgPid ! #pg_remove_marks{sender = self()}, - PbPid ! #pb_remove_marks{sender = self()}, - MasterPid ! #pc_marked_row{sender = self(), - row_no = undefined, - object = undefined, - color = undefined - }, -%% ?DISP_FUNC_FILE:update_toolbar_label(notext, ToolP, undefined, undefined, Writable), - ?DISP_FUNC_FILE:update_toolbar_editor(ToolP#toolbar_params.editor_id, notext), -%% send_to_rec_edit(RecPid, insert_mode), - ProcVars#process_variables{mark_params = #mark_params{sort_col_no = SortCol, - cell_col_no = undefined, - row_no = undefined, - virtual_row_no = undefined, - marked_object = undefined, - marked_color = undefined} - }. - - - - - - -handle_row_marked(Msg, ProcVars) -> - #pb_row_marked{row_marked = RowMarked, - virtual_row = VirtualRow, - real_row = RealRow} = Msg, - - #process_variables{master_pid = MasterPid, - rec_pid = RecPid, - pg_pid = PgPid, - data_list = DataList, - color_list = ColorList, - writable = Writable, - toolbar_params = ToolP, - mark_params = MarkP} = ProcVars, - - PgPid ! #pg_remove_marks{sender = self()}, - - case RowMarked of - true -> - PgPid ! #pg_row_marked{sender = self(), - virtual_row = VirtualRow}; - false -> - done - end, - - {DataElement, NewMarkP} = - if - RowMarked -> - {MarkedRowOrCol, RowObj} = - ?DISP_FUNC_FILE:get_data_element(row, DataList, RealRow, undefined), - - MarkedRowColor = - case MarkedRowOrCol of - notext -> - undefined; - _OtherObject -> - lists:nth(RealRow, ColorList) - end, - MasterPid ! #pc_marked_row{sender = self(), - row_no = VirtualRow, - object = RowObj, - color = MarkedRowColor - }, - send_to_rec_edit(RecPid, {update_mode,RowObj}), - {MarkedRowOrCol, MarkP#mark_params{virtual_row_no = VirtualRow, - row_no = RealRow, - cell_col_no = undefined, - col_no = undefined, - marked_object = RowObj, - marked_color = MarkedRowColor}}; - true -> - MasterPid ! #pc_marked_row{sender = self(), - row_no = undefined, - object = undefined, - color = undefined - }, - send_to_rec_edit(RecPid, insert_mode), - {notext, MarkP#mark_params{virtual_row_no = undefined, - row_no = undefined, - cell_col_no = undefined, - col_no = undefined, - marked_object = undefined, - marked_color = undefined}} - end, - - ?DISP_FUNC_FILE:update_toolbar_label(DataElement, ToolP, VirtualRow, - undefined, Writable), - ProcVars#process_variables{mark_params = NewMarkP}. - - - - - -handle_cell_marked(Msg, ProcVars) -> - #pg_cell_marked{cell_marked = CellMarked, - virtual_col = VirtualCol, - real_row = RealRow, - virtual_row = VirtualRow} = Msg, - - % We are interested in the real row number, since we only have a sublist - % stored in pd. - ?DISP_FUNC_FILE:marked_cell(CellMarked, VirtualCol, RealRow, VirtualRow, - ProcVars). - - - - -resize_window(Msg, ProcVars) -> - #pd_win_conf{width = NewWindowWidth, - height = NewWindowHeight} = Msg, - - ?DISP_FUNC_FILE:resize_display(NewWindowWidth, NewWindowHeight, ProcVars). - - - - -resize_column(Msg, ProcVars) -> - #pb_new_colwidth{real_col = RealCol, - virtual_col = VirtualCol, - xdiff = Xdiff} = Msg, - - ?DISP_FUNC_FILE:resize_column(RealCol, VirtualCol, Xdiff, ProcVars). - - - - -mark_busy(Id) -> - gs:config(Id, [{cursor, busy}]). - - - - -mark_nonbusy(Id) -> - gs:config(Id, [{cursor, arrow}]). - - - - -send_to_rec_edit(undefined, _Msg) -> - done; -send_to_rec_edit(RecPid, Msg) -> - RecPid ! Msg. - 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. - - - - diff --git a/lib/tv/src/tv_pd_frames.erl b/lib/tv/src/tv_pd_frames.erl deleted file mode 100644 index aab40e2bba..0000000000 --- a/lib/tv/src/tv_pd_frames.erl +++ /dev/null @@ -1,482 +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% --module(tv_pd_frames). --compile([{nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,frame,2}}]). - - - --export([create_display_frames/4, resize_display_frames/3]). - - - - --include("tv_int_def.hrl"). --include("tv_pd_int_def.hrl"). - - - - - - - -%%%********************************************************************* -%%% EXTERNAL FUNCTIONS -%%%********************************************************************* - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -create_display_frames(WindowId, WindowWidth, WindowHeight, FrameP) -> - {DisplayId, DisplayWidth, DisplayHeight} = - create_frame(WindowId, - get_display_coords(WindowWidth, WindowHeight), - ?DEFAULT_BG_COLOR, - 0), - - {ToolbarId, ToolbarWidth, ToolbarHeight} = create_toolbar_frame(DisplayId, - DisplayWidth), - - {SheetFrameId, SheetBgFrameId, SheetFrameWidth, SheetFrameHeight} = - create_sheet_frames(DisplayId, - DisplayWidth, - DisplayHeight), - - {GridFrameId, GridBgFrameId, GridFrameWidth, GridFrameHeight} = - create_grid_frames(SheetFrameId, - SheetFrameWidth, - SheetFrameHeight), - - - FrameP#frame_params{display_id = DisplayId, - toolbar_frame_id = ToolbarId, - toolbar_frame_width = ToolbarWidth, - toolbar_frame_height = ToolbarHeight, - sheet_frame_id = SheetFrameId, - sheet_frame_width = SheetFrameWidth, - sheet_frame_height = SheetFrameHeight, - sheet_bgframe_id = SheetBgFrameId, - grid_frame_id = GridFrameId, - grid_frame_width = GridFrameWidth, - grid_frame_height = GridFrameHeight, - grid_bgframe_id = GridBgFrameId - }. - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -resize_display_frames(NewW, NewH, FrameP) -> - #frame_params{display_id = DispId, - toolbar_frame_id = ToolbarId, - sheet_frame_id = SheetFgId, - sheet_bgframe_id = SheetBgId, - grid_frame_id = GridFgId, - grid_bgframe_id = GridBgId} = FrameP, - - {NewDispW, NewDispH} = config_frame(DispId, get_display_coords(NewW, NewH)), - {NewToolW, NewToolH} = resize_toolbar(ToolbarId, NewDispW), - {NewSheetFgW, NewSheetFgH} = resize_sheet_frames(SheetFgId, SheetBgId, NewDispW, - NewDispH), - - {NewGridFgW, NewGridFgH} = resize_grid_frames(GridFgId, GridBgId, NewSheetFgW, - NewSheetFgH), - - FrameP#frame_params{toolbar_frame_width = NewToolW, - toolbar_frame_height = NewToolH, - sheet_frame_width = NewSheetFgW, - sheet_frame_height = NewSheetFgH, - grid_frame_width = NewGridFgW, - grid_frame_height = NewGridFgH - }. - - - - - - - - -%%%******************************************************************** -%%% INTERNAL FUNCTIONS -%%%******************************************************************** - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -config_frame(Id, {Width, Height, Xpos, Ypos}) -> - gs:config(Id, [{width, Width}, - {height, Height}, - {x, Xpos}, - {y, Ypos} - ]), - {Width, Height}. - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -create_frame(ParentId, {Width, Height, Xpos, Ypos}, Color, BorderWidth) -> - Id = gs:frame(ParentId, [{width, Width}, - {height, Height}, - {x, Xpos}, - {y, Ypos}, - {bw, BorderWidth}, - {bg, Color} - ]), - {Id, Width, Height}. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -create_grid_frames(SheetFrameId, SheetFrameWidth, SheetFrameHeight) -> - {BgId, _W, _H} = - create_frame(SheetFrameId, - get_grid_frame_coords(bg, SheetFrameWidth, SheetFrameHeight), - ?BLACK, - 0), - {FgId, FgWidth, FgHeight} = - create_frame(SheetFrameId, - get_grid_frame_coords(fg, SheetFrameWidth, SheetFrameHeight), - ?DEFAULT_BG_COLOR, - 0), - {FgId, BgId, FgWidth, FgHeight}. - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -create_sheet_frames(DispId, DispWidth, DispHeight) -> - {BgId, _W, _H} = create_frame(DispId, - get_sheet_frame_coords(bg, DispWidth, DispHeight), - ?BLACK, - 0), - {FgId, FgWidth, FgHeight} = - create_frame(DispId, - get_sheet_frame_coords(fg, DispWidth, DispHeight), - ?DEFAULT_BG_COLOR, - 0), - {FgId, BgId, FgWidth, FgHeight}. - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -create_toolbar_frame(DispId, DispWidth) -> - create_frame(DispId, get_toolbar_coords(DispWidth), ?DEFAULT_BG_COLOR, 0). - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -get_display_coords(WindowWidth, WindowHeight) -> - Xpos = 4, - {WindowWidth - 2 * Xpos, WindowHeight - ?MENUBAR_HEIGHT - Xpos, Xpos, ?MENUBAR_HEIGHT}. - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -get_grid_frame_coords(bg, FrameWidth, FrameHeight) -> - get_grid_frame_coords2(FrameWidth, FrameHeight, 0); -get_grid_frame_coords(fg, FrameWidth, FrameHeight) -> - get_grid_frame_coords2(FrameWidth, FrameHeight, 1). - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -get_grid_frame_coords2(FrameWidth, FrameHeight, BorderWidth) -> - Xpos = 0, - Ypos = 0, - Width = FrameWidth - ?VSCALE_WIDTH - Xpos - BorderWidth, - Height = FrameHeight - ?HSCALE_HEIGHT - Ypos - BorderWidth, - {Width, Height, Xpos, Ypos}. - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -get_sheet_frame_coords(bg, FrameWidth, FrameHeight) -> - get_sheet_frame_coords2(FrameWidth, FrameHeight, 0); -get_sheet_frame_coords(fg, FrameWidth, FrameHeight) -> - get_sheet_frame_coords2(FrameWidth, FrameHeight, 1). - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -get_sheet_frame_coords2(FrameWidth, FrameHeight, BorderWidth) -> - Xpos = BorderWidth, - Ypos = ?TOOLBAR_HEIGHT + BorderWidth, - Width = FrameWidth - 2 * BorderWidth, - Height = FrameHeight - Ypos - ?MISC_AREA_HEIGHT - BorderWidth, - {Width, Height, Xpos, Ypos}. - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -get_toolbar_coords(DispWidth) -> - Xpos = 0, - {DispWidth - 2 * Xpos, ?TOOLBAR_HEIGHT, Xpos, 0}. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -resize_grid_frames(FgId, BgId, ParentWidth, ParentHeight) -> - config_frame(BgId, get_grid_frame_coords(bg, ParentWidth, ParentHeight)), - config_frame(FgId, get_grid_frame_coords(fg, ParentWidth, ParentHeight)). - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -resize_sheet_frames(FgId, BgId, ParentWidth, ParentHeight) -> - config_frame(BgId, get_sheet_frame_coords(bg, ParentWidth, ParentHeight)), - config_frame(FgId, get_sheet_frame_coords(fg, ParentWidth, ParentHeight)). - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -resize_toolbar(Id, DispWidth) -> - config_frame(Id, get_toolbar_coords(DispWidth)). - - - diff --git a/lib/tv/src/tv_pd_int_def.hrl b/lib/tv/src/tv_pd_int_def.hrl deleted file mode 100644 index 2c76bef892..0000000000 --- a/lib/tv/src/tv_pd_int_def.hrl +++ /dev/null @@ -1,139 +0,0 @@ -%% -%% %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: Internal definitions for the pd part of the table tool. -%%% -%%%********************************************************************* - --define(SCALE_FUNC_FILE, tv_pd_scale). --define(DISP_FUNC_FILE, tv_pd_display). - - --define(SCALE_WIDTH, 75). --define(VSCALE_WIDTH, 75). --define(HSCALE_HEIGHT, 75). --define(MENUBAR_HEIGHT, 30). --define(TOOLBAR_HEIGHT, 84). %% 97 --define(DISPLAY_HEIGHT, 849). --define(MISC_AREA_HEIGHT, 0). --define(GRID_HEIGHT, 849). --define(NOF_GRIDROWS, 35). %% 29 --define(NOF_GRIDCOLS, 10). --define(DEFAULT_COLWIDTH, 100). --define(ROW_HEIGHT, 20). %% 24 --define(VBTN_WIDTH, 55). %% 18 --define(HBTN_HEIGHT, 20). --define(RESBTN_WIDTH, 5). --define(DEFAULT_GRID_BGCOLOR, {255,255,255}). --define(DEFAULT_GRID_FGCOLOR, {0,0,0}). --define(GRID_MARK_COLOR, {0,255,255}). --define(GRID_FONT, {courier,12}). - --define(ROW_COL_LBL_WIDTH, 140). --define(ROW_COL_LBL_HEIGHT, 14). - - - --define(KEY_MARK_AREA_HEIGHT, 21). - - --define(DEFAULT_BG_COLOR, {217,217,217}). --define(DEFAULT_ROW_COLOR, {178,34,34}). % Firebrick! --define(DEFAULT_GRID_COLOR, {0,0,0}). --define(LIGHT_GRAY, {226,226,226}). --define(DARK_VIOLET, {148,0,211}). --define(FIREBRICK, {178,34,34}). --define(ANTIQUE_WHITE, {255,255,235}). - - --record(frame_params, {display_id, - toolbar_frame_id, - toolbar_frame_width, - toolbar_frame_height, - sheet_frame_id, - sheet_frame_width, - sheet_frame_height, - sheet_bgframe_id, - grid_frame_id, - grid_frame_width, - grid_frame_height, - grid_bgframe_id - }). - - - - --record(scale_params, {vscale_id, - vscale_pos = 0, - hscale_id, - hscale_pos = 0 - }). - - - - --record(mark_params, {cell_id, - cell_col_no, % Virtual number! - row_no, % Real number! - virtual_row_no, - col_no, % Virtual number! - sort_col_no, - marked_object, - marked_color - }). - - - --record(toolbar_params, {parent_id, - row_col_label_id, - bg_label_id, - fg_label_id, - label_btn_id, - pop_up_frame_id, - pop_up_label_id, - editor_frame_id, - editor_id - }). - - --record(process_variables, {master_pid, - pg_pid, - pb_pid, - rec_pid, - window_id, - window_width, - window_height, - initialising = true, - table_type, - table_name, - record_name, - writable = false, - lists_as_strings = true, - sorting_on = false, - first_col_shown = 1, - first_row_shown = 1, - nof_rows_shown, - cols_shown = [], - data_list = [], - color_list = [], - frame_params = #frame_params{}, - scale_params = #scale_params{}, - mark_params = #mark_params{}, - toolbar_params = #toolbar_params{} - }). diff --git a/lib/tv/src/tv_pd_int_msg.hrl b/lib/tv/src/tv_pd_int_msg.hrl deleted file mode 100644 index faf23a9376..0000000000 --- a/lib/tv/src/tv_pd_int_msg.hrl +++ /dev/null @@ -1,433 +0,0 @@ -%% -%% %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% - - -%%%********************************************************************* -%%% MESSAGES OWNED BY PG -%%%********************************************************************* - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - - --record(pg_init_grid, {sender, - parent_id, - width, - height, - xpos, - ypos, - nof_rows, - row_height - }). - - - --record(pg_list_info, {sender, - lists_as_strings}). - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - - --record(pg_col_info, {sender, - first_col_shown, - width_of_cols_shown, - nof_rows_shown - }). - - - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - - --record(pg_col_marked, {sender, - virtual_col - }). - - - - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - - --record(pg_row_marked, {sender, - virtual_row - }). - - - - - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - --record(pg_data, {sender, - data, - first_row_shown - }). - - - - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - --record(pg_cell_marked, {sender, - cell_marked, % true or false - real_col, - real_row, - virtual_col, - virtual_row, - cell_text - }). - - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - --record(pg_resize_grid, {sender, - width, - height - }). - - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - --record(pg_resize_grid_col, {sender, - real_col_no, - virtual_col_no, - xdiff - }). - - - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - --record(pg_horizontal_scroll, {sender, - leftmost_virtual_col - }). - - - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - - --record(pg_ready, {sender}). - - - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - - --record(pg_remove_marks, {sender}). - - - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - - --record(pg_mark_col, {sender, - virtual_col, - real_col - }). - - - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - - --record(pg_mark_row, {sender, - virtual_row, - real_row - }). - - - - - - -%%%********************************************************************* -%%% MESSAGES OWNED BY PB -%%%********************************************************************* - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - --record(pb_init_btns, {sender, - parent_id, - parent_width, - parent_height, - ypos, - hbtn_height, - resbtn_width, - vbtn_width, - nof_rows, - row_height, - first_col_shown, - cols_shown - }). - - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - - --record(pb_remove_marks, {sender}). - - - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - - --record(pb_update_hbtns, {sender, - parent_width, - parent_height, - first_col_shown, - cols_shown - }). - - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - - --record(pb_update_vbtns, {sender, - color_list, - first_row_shown, - nof_rows_shown, - blinking_enabled - }). - - - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - - --record(pb_key_info, {sender, - list_of_keys - }). - - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - - --record(pb_new_colwidth, {sender, - real_col, - virtual_col, - xdiff - }). - - - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - - --record(pb_col_marked, {sender, - col_marked, % 'true' or 'false' - real_col, - virtual_col - }). - - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - - --record(pb_row_marked, {sender, - row_marked, % 'true' or 'false' - real_row, - virtual_row - }). - - - - -%%====================================================================== -%% Message: -%% -%% Function: -%% -%% Data: -%%====================================================================== - - --record(pb_set_sort_col, {sender, - virtual_col - }). - - - - diff --git a/lib/tv/src/tv_pd_scale.erl b/lib/tv/src/tv_pd_scale.erl deleted file mode 100644 index 04af2bb981..0000000000 --- a/lib/tv/src/tv_pd_scale.erl +++ /dev/null @@ -1,305 +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 scale, i.e., the scrollbar -%%% imitation. -%%% -%%%********************************************************************* - - --module(tv_pd_scale). --compile([{nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,scale,2}}]). - - - --export([init_scale/2, - resize_scale/2, - set_scale_range/3, - set_scale_pos/3]). - - - --include("tv_int_def.hrl"). --include("tv_pd_int_def.hrl"). - - - - - - -%%%********************************************************************* -%%% EXTERNAL FUNCTIONS -%%%********************************************************************* - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -init_scale(FrameP, ScaleP) -> - #frame_params{sheet_frame_id = SheetFrameId, - sheet_frame_width = SheetFrameWidth, - sheet_frame_height = SheetFrameHeight, - grid_frame_width = GridFrameWidth, - grid_frame_height = GridFrameHeight} = FrameP, - - VScaleId = create_scale(vscale, SheetFrameId, SheetFrameWidth, GridFrameHeight), - HScaleId = create_scale(hscale, SheetFrameId, GridFrameWidth, SheetFrameHeight), - - ScaleP#scale_params{vscale_id = VScaleId, - vscale_pos = 0, - hscale_id = HScaleId, - hscale_pos = 0 - }. - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -resize_scale(FrameP, ScaleP) -> - #frame_params{sheet_frame_width = SheetFrameWidth, - sheet_frame_height = SheetFrameHeight, - grid_frame_width = GridFrameWidth, - grid_frame_height = GridFrameHeight} = FrameP, - - #scale_params{vscale_id = VScaleId, - hscale_id = HScaleId} = ScaleP, - - config_scale(vscale, VScaleId, SheetFrameWidth, GridFrameHeight), - config_scale(hscale, HScaleId, GridFrameWidth, SheetFrameHeight), - ScaleP. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -set_scale_range(vscale, Range, ScaleP) -> - {Lo, Hi} = Range, - NewRange = if - Lo > Hi -> - {Hi, Hi}; - true -> - Range - end, - VScaleId = ScaleP#scale_params.vscale_id, - gs:config(VScaleId, [{range, NewRange}]); -set_scale_range(hscale, Range, ScaleP) -> - {Lo, Hi} = Range, - NewRange = if - Lo > Hi -> - {Hi, Hi}; - true -> - Range - end, - HScaleId = ScaleP#scale_params.hscale_id, - gs:config(HScaleId, [{range, NewRange}]). - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -set_scale_pos(_ScaleName, undefined, ScaleP) -> - ScaleP; -set_scale_pos(vscale, NewPos, ScaleP) -> - ScaleId = ScaleP#scale_params.vscale_id, - gs:config(ScaleId, [{pos, NewPos}]), - ScaleP#scale_params{vscale_pos = NewPos}; -set_scale_pos(hscale, NewPos, ScaleP) -> - ScaleId = ScaleP#scale_params.hscale_id, - gs:config(ScaleId, [{pos, NewPos}]), - ScaleP#scale_params{hscale_pos = NewPos}. - - - - - - - -%%%******************************************************************** -%%% INTERNAL FUNCTIONS -%%%******************************************************************** - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -config_scale(ScaleName, ScaleId, FrameWidth, FrameHeight) -> - {Width, Height, Xpos, Ypos} = get_scale_coords(ScaleName, - FrameWidth, - FrameHeight), - gs:config(ScaleId, [{height, Height}, - {width, Width}, - {x, Xpos}, - {y, Ypos} - ]). - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -create_scale(ScaleName, FrameId, FrameWidth, FrameHeight) -> - {Width, Height, Xpos, Ypos} = get_scale_coords(ScaleName, - FrameWidth, - FrameHeight), - {Orientation, Range} = case ScaleName of - vscale -> - {vertical, {1, 1}}; - hscale -> - {horizontal, {1, 1}} - end, - gs:scale(FrameId, [{data, ScaleName}, - {orient, Orientation}, - {buttonpress, true}, - {buttonrelease, true}, - {height, Height}, - {width, Width}, - {x, Xpos}, - {y, Ypos}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}}, - {range, Range} - ]). - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -get_scale_coords(hscale, FrameWidth, FrameHeight) -> - Height = ?HSCALE_HEIGHT, - Xpos = ?VBTN_WIDTH - 3, % Subtracting 3 makes it look better! - Ypos = FrameHeight - Height, - Width = FrameWidth - Xpos + 5, % Adding 5 for better look! - {Width, Height, Xpos, Ypos}; -get_scale_coords(vscale, FrameWidth, FrameHeight) -> - Width = ?VSCALE_WIDTH, - Xpos = (FrameWidth - Width), - Ypos = ?HBTN_HEIGHT - 3, % Subtracting 3 makes it look better! - Height = FrameHeight - Ypos + 5, % Adding 5 for better look! - {Width, Height, Xpos, Ypos}. - - - - - - - - - - - - - - - - - - - diff --git a/lib/tv/src/tv_pg.erl b/lib/tv/src/tv_pg.erl deleted file mode 100644 index 7194cfb756..0000000000 --- a/lib/tv/src/tv_pg.erl +++ /dev/null @@ -1,430 +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% --module(tv_pg). --compile([{nowarn_deprecated_function,{gs,config,2}}]). - - - --export([pg/1]). - - --include("tv_int_def.hrl"). --include("tv_pg_int_def.hrl"). --include("tv_pd_int_msg.hrl"). - - - - - - - - -%%%********************************************************************* -%%% EXTERNAL FUNCTIONS -%%%********************************************************************* - - - - -%%====================================================================== -%% Function: pg. -%% -%% Return Value: None. -%% -%% Description: Process controlling the grid part of the display. -%% -%% Parameters: None. -%%====================================================================== - - -pg(ParentPid) -> - process_flag(trap_exit, true), - ProcVars = #process_variables{parent_pid = ParentPid}, - loop(ProcVars). - - - - - - - -%%%******************************************************************** -%%% INTERNAL FUNCTIONS -%%%******************************************************************** - - - - - -%%====================================================================== -%% Function: loop. -%% -%% Return Value: None. -%% -%% Description: Eternal (well, almost) loop, receiving messages and -%% handling them. -%% -%% Parameters: -%%====================================================================== - - - -loop(ProcVars) -> - receive - Msg -> - case Msg of - - - #pg_data{} -> - GridId = mark_busy(ProcVars), - NewProcVars = update_grid_data(Msg, ProcVars), - mark_nonbusy(GridId), - loop(NewProcVars); - - #pg_list_info{lists_as_strings=ListAsStr} -> - NewProcVars = tv_pg_gridfcns:handle_list_info(ListAsStr, ProcVars), - loop(NewProcVars); - - #pg_horizontal_scroll{} -> - GridId = mark_busy(ProcVars), - NewProcVars = scroll_grid_horizontally(Msg, ProcVars), - mark_nonbusy(GridId), - loop(NewProcVars); - - #pg_remove_marks{} -> - GridId = mark_busy(ProcVars), - NewProcVars = tv_pg_gridfcns:remove_marks(ProcVars), - mark_nonbusy(GridId), - loop(NewProcVars); - - #pg_col_marked{} -> - GridId = mark_busy(ProcVars), - NewProcVars = mark_grid_col(Msg, ProcVars), - mark_nonbusy(GridId), - loop(NewProcVars); - - #pg_row_marked{} -> - GridId = mark_busy(ProcVars), - NewProcVars = mark_grid_row(Msg, ProcVars), - mark_nonbusy(GridId), - loop(NewProcVars); - - #pg_resize_grid_col{} -> - GridId = mark_busy(ProcVars), - NewProcVars = resize_grid_column(Msg, ProcVars), - mark_nonbusy(GridId), - loop(NewProcVars); - - #pg_resize_grid{} -> - GridId = mark_busy(ProcVars), - NewProcVars = resize_grid(Msg, ProcVars), - mark_nonbusy(GridId), - loop(NewProcVars); - - #pg_init_grid{} -> - GridId = mark_busy(ProcVars), - NewProcVars = init_grid(Msg, ProcVars), - mark_nonbusy(GridId), - PdPid = ProcVars#process_variables.parent_pid, - PdPid ! #pg_ready{sender = self()}, - loop(NewProcVars); - - {gs, Id, Event, Data, Args} -> - GridId = mark_busy(ProcVars), - NewProcVars = gs_messages({Id, Event, Data, Args}, ProcVars), - mark_nonbusy(GridId), - loop(NewProcVars); - - - {'EXIT', Pid, Reason} -> - ParentPid = ProcVars#process_variables.parent_pid, - exit_signals({Pid, Reason}, ParentPid, ProcVars), - loop(ProcVars); - - _Other -> - loop(ProcVars) - end - end. - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -exit_signals(ExitInfo, ParentPid, _ProcVars) -> - case ExitInfo of - {ParentPid, _Reason} -> - exit(normal); - _Other -> - done - end. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -gs_messages(Msg, ProcVars) -> - - case Msg of - - {Id, buttonpress, {gridcell, RealCol, RealRow, _FrameId}, [1 | _]} -> - NewProcVars = tv_pg_gridfcns:mark_cell_and_notify(Id, RealCol, - RealRow, ProcVars), - NewProcVars; - - - _OtherMessage -> - ProcVars - - end. - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -init_grid(Msg, ProcVars) -> - #pg_init_grid{parent_id = ParentId, - width = Width, - height = Height, - xpos = Xpos, - ypos = Ypos, - nof_rows = NofRows, - row_height = RowHeight} = Msg, - tv_pg_gridfcns:init_grid(ParentId, Width, Height, Xpos, Ypos, NofRows, - RowHeight, ProcVars). - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -resize_grid(Msg, ProcVars) -> - #pg_resize_grid{width = Width, - height = Height} = Msg, - tv_pg_gridfcns:resize_grid(Width, Height, ProcVars). - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -resize_grid_column(Msg, ProcVars) -> - #pg_resize_grid_col{real_col_no = RealCol, - virtual_col_no = VirtualCol, - xdiff = Xdiff} = Msg, - tv_pg_gridfcns:resize_grid_column(RealCol, VirtualCol, Xdiff, ProcVars). - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -scroll_grid_horizontally(Msg, ProcVars) -> - FirstColShown = ?COMM_FUNC_FILE:max(1, Msg#pg_horizontal_scroll.leftmost_virtual_col), - tv_pg_gridfcns:scroll_grid_horizontally(FirstColShown, ProcVars). - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -update_grid_data(Msg, ProcVars) -> - #pg_data{data = Data, - first_row_shown = FirstRowShown} = Msg, - tv_pg_gridfcns:update_grid_data(Data, FirstRowShown, ProcVars). - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -mark_grid_col(Msg, ProcVars) -> - #pg_col_marked{virtual_col = VirtualCol} = Msg, - tv_pg_gridfcns:mark_col(VirtualCol, ProcVars). - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -mark_grid_row(Msg, ProcVars) -> - #pg_row_marked{virtual_row = VirtualRow} = Msg, - tv_pg_gridfcns:mark_row(VirtualRow, ProcVars). - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -mark_busy(ProcVars) -> - GridP = ProcVars#process_variables.grid_params, - GridId = GridP#grid_params.fg_frame, - gs:config(GridId, [{cursor, busy}]), - GridId. - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -mark_nonbusy(GridId) -> - gs:config(GridId, [{cursor, arrow}]). - diff --git a/lib/tv/src/tv_pg_gridfcns.erl b/lib/tv/src/tv_pg_gridfcns.erl deleted file mode 100644 index d037b42294..0000000000 --- a/lib/tv/src/tv_pg_gridfcns.erl +++ /dev/null @@ -1,1918 +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% --module(tv_pg_gridfcns). --compile([{nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,frame,2}}, - {nowarn_deprecated_function,{gs,label,2}}, - {nowarn_deprecated_function,{gs,read,2}}]). - - - - --export([init_grid/8, - resize_grid/3, - resize_grid_column/4, - update_grid_data/3, - scroll_grid_horizontally/2, - mark_cell_and_notify/4, - remove_marks/1, - mark_col/2, - mark_row/2, - handle_list_info/2 - ]). - - - - - --include("tv_pd_int_msg.hrl"). --include("tv_pg_int_def.hrl"). - - - - - - - -%%%********************************************************************* -%%% EXTERNAL FUNCTIONS -%%%********************************************************************* - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -init_grid(GridParentId, GridWidth, - GridHeight, GridXpos, GridYpos, NofRows, RowHeight, ProcVars) -> - - % Get the size and ID of the grid-parent frame, i.e., the - % grid-frame! Do not confuse the base-frames below with - % the grid-frame! - - #process_variables{parent_pid = ParentPid, - grid_params = GridP} = ProcVars, - - #grid_params{fg_color = GridFgColor, - nof_cols = NofCols, - col_width = DefaultColWidth, - first_col_shown = FirstColShown, - col_widths = ColWidths} = GridP, - - % Create the two frames the column frames are placed on! - % These two frames defines the size of the grid. - BgFrame = create_base_frame(GridParentId, GridWidth, GridHeight, - GridXpos, GridYpos, GridFgColor), - FgFrame = create_base_frame(BgFrame, GridWidth - 1, GridHeight - 1, - 0, 0, GridFgColor), - - % Compute the the colwidths necessary to cover the grid. - ColsShown = compute_cols_shown(FirstColShown, ColWidths, GridWidth, NofCols, - DefaultColWidth), - NofRowsShown = compute_rows_shown(GridHeight, RowHeight), - - % Tell parent about the width of columns shown! - ParentPid ! #pg_col_info{sender = self(), - first_col_shown = FirstColShown, - width_of_cols_shown = ColsShown, - nof_rows_shown = NofRowsShown - }, - - NewNofCols = erlang:max(length(ColsShown), NofCols), - - % The GridColWidths list shall contain the current width of each frame. - NewColWidths = update_col_widths(ColsShown, ColWidths, FirstColShown, - DefaultColWidth), - - % Create column frames, one for each column, and rows (labels) on each frame. - {FrameIdList, ColLabelList} = create_col_frames(NewNofCols, NofRows, RowHeight, - FgFrame, GridP, [], []), - - % Get lists of label-ID's for each row. (When we created the column frames, - % we got the id's of labels placed on each column, i.e., vertically. - % However, most often we want the id's for one row, i.e., label id's - % horisontally.) - RowIdList = get_row_ids(NofRows, ColLabelList, []), - - % Update the grid_params record with the new values! - NewGridP = GridP#grid_params{bg_frame = BgFrame, - fg_frame = FgFrame, - grid_width = GridWidth, - grid_height = GridHeight, - grid_xpos = GridXpos, - grid_ypos = GridYpos, - nof_cols = NewNofCols, - col_widths = NewColWidths, - cols_shown = ColsShown, - nof_rows = NofRows, - row_height = RowHeight, - nof_rows_shown = NofRowsShown, - col_frame_ids = FrameIdList, - col_ids = ColLabelList, - row_ids = RowIdList, - row_data_list = lists:duplicate(NofRows, notext) - }, - - ProcVars#process_variables{grid_parent_id = GridParentId, - grid_params = NewGridP}. - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -resize_grid(NewWidth, NewHeight, ProcVars) -> - #process_variables{parent_pid = ParentPid, - grid_params = GridP, - mark_params = MarkP} = ProcVars, - - #grid_params{bg_frame = BgFrame, - fg_frame = FgFrame, - nof_cols = NofCols, - nof_rows = NofRows, - col_width = DefaultColWidth, - first_col_shown = FirstColShown, - col_widths = ColWidths, - row_height = RowHeight, - col_frame_ids = ColFrameIds, - col_ids = ColIds, - row_ids = RowIds, - bg_color = BgColor, - fg_color = FgColor, - row_data_list = RowDataList, - lists_as_strings = ListAsStr} = GridP, - - gs:config(BgFrame, [{width, NewWidth}, - {height, NewHeight} - ]), - gs:config(FgFrame, [{width, NewWidth - 1}, - {height, NewHeight - 1} - ]), - - ColsShown = compute_cols_shown(FirstColShown, ColWidths, NewWidth, NofCols, - DefaultColWidth), - - NofRowsShown = compute_rows_shown(NewHeight, RowHeight), - - - % Tell parent about the width of columns shown! - ParentPid ! #pg_col_info{sender = self(), - first_col_shown = FirstColShown, - width_of_cols_shown = ColsShown, - nof_rows_shown = NofRowsShown - }, - - NewColWidths = update_col_widths(ColsShown, ColWidths, FirstColShown, - DefaultColWidth), - - NofColsShown = length(ColsShown), - {NewNofCols, NewColFrameIds, NewColIds, NewRowIds} = - check_nof_cols(ColsShown, (NofColsShown - NofCols), ColFrameIds, ColIds, - RowIds, NofRows, RowHeight, FgColor, BgColor ), - - clear_fields(safe_nthtail(NofColsShown, NewColIds), - safe_nthtail(NofRowsShown, NewRowIds)), - - RowsToUpdate = lists:sublist(NewRowIds, NofRowsShown), - - refresh_visible_rows(RowsToUpdate, FirstColShown, NofColsShown, RowDataList, ListAsStr), - - NewGridP = GridP#grid_params{grid_width = NewWidth, - grid_height = NewHeight, - nof_cols = NewNofCols, - nof_rows_shown = NofRowsShown, - cols_shown = ColsShown, - col_widths = NewColWidths, - col_frame_ids = NewColFrameIds, - col_ids = NewColIds, - row_ids = NewRowIds - }, - - refresh_marks(NewGridP, MarkP), - - ProcVars#process_variables{grid_params = NewGridP}. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -resize_grid_column(RealCol, VirtualCol, Xdiff, ProcVars) -> - #process_variables{parent_pid = ParentPid, - grid_params = GridP, - mark_params = MarkP} = ProcVars, - - #grid_params{grid_width = GridWidth, - first_col_shown = FirstColShown, - nof_cols = NofCols, - col_widths = ColWidths, - col_frame_ids = ColFrameIds, - col_ids = ColIds, - col_width = DefaultColWidth, - row_ids = RowIds, - max_col_width = MaxColWidth, - min_col_width = MinColWidth, - nof_rows = NofRows, - nof_rows_shown = NofRowsShown, - row_height = RowHeight, - bg_color = BgColor, - fg_color = FgColor, - row_data_list = RowDataList, - lists_as_strings = ListAsStr} = GridP, - - % Get new width! - Width = erlang:min(MaxColWidth, erlang:max((lists:nth(VirtualCol, ColWidths) + Xdiff), - MinColWidth)), - - % Resize the column. - NewWidthOfCol = resize_one_column(RealCol, Width, ColFrameIds, MaxColWidth, - MinColWidth), - - % Update the ColWidths list. - TempColWidths = lists:sublist(ColWidths, VirtualCol - 1) ++ - [NewWidthOfCol | safe_nthtail(VirtualCol, ColWidths)], - - % Check the other columns, whether a new column has to be created. - ColsShown = compute_cols_shown(FirstColShown, TempColWidths, GridWidth, - NofCols, DefaultColWidth), - - % Get the final ColWidths list, after all updates! - NewColWidths = update_col_widths(ColsShown, TempColWidths, FirstColShown, - DefaultColWidth), - - % Tell parent about the width of columns shown! - ParentPid ! #pg_col_info{sender = self(), - first_col_shown = FirstColShown, - width_of_cols_shown = ColsShown, - nof_rows_shown = NofRowsShown - }, - - % Get the new number of columns (may have changed). - NofColsShown = length(ColsShown), - {NewNofCols, NewColFrameIds, NewColIds, NewRowIds} = - check_nof_cols(ColsShown, (NofColsShown - NofCols), ColFrameIds, ColIds, - RowIds, NofRows, RowHeight, FgColor, BgColor ), - - RowsToUpdate = lists:sublist(NewRowIds, NofRowsShown), - refresh_visible_rows(RowsToUpdate, FirstColShown, NofColsShown, RowDataList, ListAsStr), - - NewGridP = GridP#grid_params{nof_cols = NewNofCols, - cols_shown = ColsShown, - col_widths = NewColWidths, - col_frame_ids = NewColFrameIds, - col_ids = NewColIds, - row_ids = NewRowIds - }, - - refresh_marks(NewGridP, MarkP), - - ProcVars#process_variables{grid_params = NewGridP}. - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -handle_list_info(ListAsStr, ProcVars) -> - #process_variables{grid_params = GridP} = ProcVars, - - #grid_params{first_col_shown = FirstColShown, - cols_shown = ColsShown, - nof_rows_shown = NofRowsShown, - row_data_list = RowDataList, - row_ids = RowIds, - lists_as_strings = OldListAsStr} = GridP, - - case ListAsStr of - OldListAsStr -> - ProcVars; - _NewValue -> - NofColsShown = length(ColsShown), - RowsToUpdate = lists:sublist(RowIds, NofRowsShown), - refresh_visible_rows(RowsToUpdate, FirstColShown, NofColsShown, - RowDataList, ListAsStr), - NewGridP = GridP#grid_params{lists_as_strings = ListAsStr}, - ProcVars#process_variables{grid_params = NewGridP} - end. - - - - -update_grid_data(Data, FirstRowShown, ProcVars) -> - #process_variables{grid_params = GridP, - mark_params = MarkP} = ProcVars, - - #grid_params{first_col_shown = FirstColShown, - cols_shown = ColsShown, - nof_rows = NofRows, - nof_rows_shown = NofRowsShown, - row_ids = RowIds, - lists_as_strings = ListAsStr} = GridP, - - NofColsShown = length(ColsShown), - RowsToUpdate = lists:sublist(RowIds, NofRowsShown), - - NewMarkP = move_marks(FirstColShown, FirstRowShown, GridP, MarkP), - - update_visible_rows(RowsToUpdate, FirstColShown, NofColsShown, Data, ListAsStr), - NewRowDataList = make_row_data_list(1, NofRows, Data), - - NewGridP = GridP#grid_params{first_row_shown = FirstRowShown, - row_data_list = NewRowDataList}, - - ProcVars#process_variables{grid_params = NewGridP, - mark_params = NewMarkP}. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -scroll_grid_horizontally(NewFirstColShown, ProcVars) -> - #process_variables{parent_pid = ParentPid, - grid_params = GridP, - mark_params = MarkP} = ProcVars, - - #grid_params{grid_width = Width, - nof_cols = NofCols, - nof_rows = NofRows, - nof_rows_shown = NofRowsShown, - first_row_shown = FirstRowShown, - col_width = DefaultColWidth, - max_col_width = MaxColWidth, - min_col_width = MinColWidth, - col_widths = ColWidths, - row_height = RowHeight, - col_frame_ids = ColFrameIds, - col_ids = ColIds, - row_ids = RowIds, - bg_color = BgColor, - fg_color = FgColor, - row_data_list = RowDataList, - lists_as_strings = ListAsStr} = GridP, - - % Probably it is unnecessary to check whether any new columns shall be - % created or not, but what the heck, we don't want to crash... - ColsShown = compute_cols_shown(NewFirstColShown, ColWidths, Width, NofCols, - DefaultColWidth), - NofColsShown = length(ColsShown), - - ParentPid ! #pg_col_info{sender = self(), - first_col_shown = NewFirstColShown, - width_of_cols_shown = ColsShown, - nof_rows_shown = NofRowsShown - }, - - NewMarkP = move_marks(NewFirstColShown, FirstRowShown, GridP, MarkP), - - NewColWidths = update_col_widths(ColsShown, ColWidths, NewFirstColShown, - DefaultColWidth), - - {NewNofCols, NewColFrameIds, NewColIds, NewRowIds} = - check_nof_cols(ColsShown, (NofColsShown - NofCols), ColFrameIds, ColIds, - RowIds, NofRows, RowHeight, FgColor, BgColor ), - - - RowsToUpdate = lists:sublist(NewRowIds, NofRowsShown), - resize_all_grid_columns(1, ColsShown, NewColFrameIds, MaxColWidth, MinColWidth), - - refresh_visible_rows(RowsToUpdate, NewFirstColShown, NofColsShown, RowDataList, ListAsStr), - - % Clear fields currently not visible. - clear_fields(safe_nthtail(NofColsShown, NewColIds), - safe_nthtail(NofRowsShown, NewRowIds)), - - - NewGridP = GridP#grid_params{nof_cols = NewNofCols, - cols_shown = ColsShown, - col_widths = NewColWidths, - col_frame_ids = NewColFrameIds, - col_ids = NewColIds, - row_ids = NewRowIds, - first_col_shown = NewFirstColShown - }, - - ProcVars#process_variables{grid_params = NewGridP, - mark_params = NewMarkP}. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -mark_row(VirtualRow, ProcVars) -> - #process_variables{grid_params = GridP, - mark_params = MarkP} = ProcVars, - - #grid_params{first_row_shown = FirstRowShown, - nof_rows_shown = NofRowsShown, - row_ids = RowIds} = GridP, - - mark_row(VirtualRow, FirstRowShown, FirstRowShown + NofRowsShown - 1, RowIds, - ?GRID_MARK_COLOR), - - NewMarkP = MarkP#mark_params{cell_id = undefined, - virtual_col = undefined, - virtual_row = VirtualRow - }, - - ProcVars#process_variables{mark_params = NewMarkP}. - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -mark_col(VirtualCol, ProcVars) -> - #process_variables{grid_params = GridP, - mark_params = MarkP} = ProcVars, - - #grid_params{first_col_shown = FirstColShown, - cols_shown = ColsShown, - col_ids = ColIds} = GridP, - - NofColsShown = length(ColsShown), - mark_col(VirtualCol, FirstColShown, FirstColShown + NofColsShown - 1, ColIds, - ?GRID_MARK_COLOR), - - NewMarkP = MarkP#mark_params{cell_id = undefined, - virtual_col = VirtualCol, - virtual_row = undefined - }, - - ProcVars#process_variables{mark_params = NewMarkP}. - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -mark_cell_and_notify(CellId, RealCol, RealRow, ProcVars) -> - #process_variables{parent_pid = ParentPid, - grid_params = GridP, - mark_params = MarkP} = ProcVars, - - #grid_params{first_col_shown = FirstColShown, - first_row_shown = FirstRowShown} = GridP, - - OldCellId = MarkP#mark_params.cell_id, - - VirtualCol = FirstColShown + RealCol - 1, - VirtualRow = FirstRowShown + RealRow - 1, - - %% Right now, when the table tool only is passive, i.e., we cannot edit - %% the table content, we don't want to be able to mark empty cells. - - {text, CellText} = gs:read(CellId, label), - - CellMarked = case CellText of - "" -> false; - _AnyText when CellId=:=OldCellId -> false; - _AnyText -> true - end, - - remove_marks(ProcVars), - update_marked_cells(CellId, OldCellId, CellMarked), - - notify_about_cell_marked(ParentPid, CellMarked, RealCol, RealRow, - VirtualCol, VirtualRow, CellText), - - NewMarkP = case CellMarked of - true -> - MarkP#mark_params{cell_id = CellId, - virtual_col = VirtualCol, - virtual_row = VirtualRow - }; - false -> - MarkP#mark_params{cell_id = undefined, - virtual_col = 0, - virtual_row = undefined - } - end, - - ProcVars#process_variables{mark_params = NewMarkP}. - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -remove_marks(ProcVars) -> - #process_variables{mark_params = MarkP, - grid_params = GridP} = ProcVars, - - #grid_params{first_col_shown = FirstColShown, - cols_shown = ColsShown, - col_ids = ColIds, - first_row_shown = FirstRowShown, - nof_rows_shown = NofRowsShown, - row_ids = RowIds} = GridP, - - - #mark_params{cell_id = CellId, - virtual_col = VirtualCol, - virtual_row = VirtualRow} = MarkP, - - case {VirtualCol, VirtualRow} of - {undefined, undefined} -> - update_marked_cells(CellId, CellId, false); - {_AnyCol, undefined} -> - NofColsShown = length(ColsShown), - unmark_col(VirtualCol, FirstColShown, FirstColShown + NofColsShown - 1, - ColIds); - {undefined, _AnyRow} -> - unmark_row(VirtualRow, FirstRowShown, FirstRowShown + NofRowsShown - 1, - RowIds); - _Other -> - update_marked_cells(CellId, CellId, false) - end, - - NewMarkP = MarkP#mark_params{cell_id = undefined, - virtual_col = 0, - virtual_row = undefined - }, - ProcVars#process_variables{mark_params = NewMarkP}. - - - - - - - - - -%%%********************************************************************* -%%% INTERNAL FUNCTIONS -%%%********************************************************************* - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -move_marks(FirstCol, FirstRow, GridP, MarkP) -> - #grid_params{first_col_shown = OldFirstCol, - cols_shown = ColsShown, - first_row_shown = OldFirstRow, - nof_rows_shown = NofRowsShown, - col_ids = ColIds, - row_ids = RowIds} = GridP, - - #mark_params{virtual_col = VirtualCol, - virtual_row = VirtualRow} = MarkP, - - - case {VirtualCol, VirtualRow} of - {undefined, undefined} -> - NofColsShown = length(ColsShown), - move_marked_cell(FirstCol, FirstRow, NofColsShown, - NofRowsShown, RowIds, MarkP); - {_AnyCol, undefined} -> - NofColsShown = length(ColsShown), - OldLastCol = OldFirstCol + NofColsShown - 1, - LastCol = FirstCol + NofColsShown - 1, - move_marked_col(VirtualCol, OldFirstCol, OldLastCol, - FirstCol, LastCol, ColIds, MarkP); - {undefined, _AnyRow} -> - OldLastRow = OldFirstRow + NofRowsShown - 1, - LastRow = FirstRow + NofRowsShown - 1, - move_marked_row(VirtualRow, OldFirstRow, OldLastRow, - FirstRow, LastRow, RowIds, MarkP); - {_CellCol, _CellRow} -> - NofColsShown = length(ColsShown), - move_marked_cell(FirstCol, FirstRow, NofColsShown, - NofRowsShown, RowIds, MarkP) - end. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -refresh_marks(GridP, MarkP) -> - #grid_params{first_col_shown = FirstCol, - cols_shown = ColsShown, - first_row_shown = FirstRow, - nof_rows_shown = NofRowsShown, - col_ids = ColIds, - row_ids = RowIds} = GridP, - - #mark_params{virtual_col = VirtualCol, - virtual_row = VirtualRow} = MarkP, - - - case {VirtualCol, VirtualRow} of - {undefined, undefined} -> - NofColsShown = length(ColsShown), - move_marked_cell(FirstCol, FirstRow, NofColsShown, NofRowsShown, - RowIds, MarkP); - {_AnyCol, undefined} -> - NofColsShown = length(ColsShown), - LastCol = FirstCol + NofColsShown - 1, - mark_col(VirtualCol, FirstCol, LastCol, ColIds, ?GRID_MARK_COLOR); - {undefined, _AnyRow} -> - LastRow = FirstRow + NofRowsShown - 1, - mark_row(VirtualRow, FirstRow, LastRow, RowIds, ?GRID_MARK_COLOR); - {_CellCol, _CellRow} -> - NofColsShown = length(ColsShown), - move_marked_cell(FirstCol, FirstRow, NofColsShown, NofRowsShown, - RowIds, MarkP) - end. - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -move_marked_col(VirtualCol, - OldFirstCol, OldLastCol, FirstCol, LastCol, ColIds, MarkP) -> - unmark_col(VirtualCol, OldFirstCol, OldLastCol, ColIds), - mark_col(VirtualCol, FirstCol, LastCol, ColIds, ?GRID_MARK_COLOR), - MarkP#mark_params{cell_id = undefined}. - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -mark_col(VirtualCol, FirstCol, _LastCol, _ColIds, _Color) when VirtualCol < FirstCol -> - done; -mark_col(VirtualCol, _FirstCol, LastCol, _ColIds, _Color) when VirtualCol > LastCol -> - done; -mark_col(VirtualCol, FirstCol, _LastCol, ColIds, Color) -> - RealCol = VirtualCol - FirstCol + 1, - MarkedColIds = lists:nth(RealCol, ColIds), - mark_all_cells(MarkedColIds, Color). - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -unmark_col(VirtualCol, FirstCol, LastCol, ColIds) -> - mark_col(VirtualCol, FirstCol, LastCol, ColIds, ?DEFAULT_GRID_BGCOLOR). - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -mark_all_cells([], _Color) -> - done; -mark_all_cells([CellId | T], Color) -> - gs:config(CellId, [{bg, Color}]), - mark_all_cells(T, Color). - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -mark_row(VirtualRow, FirstRow, _LastRow, _RowIds, _Color) when VirtualRow < FirstRow -> - done; -mark_row(VirtualRow, _FirstRow, LastRow, _RowIds, _Color) when VirtualRow > LastRow -> - done; -mark_row(VirtualRow, FirstRow, _LastRow, RowIds, Color) -> - RealRow = VirtualRow - FirstRow + 1, - MarkedRowIds = lists:nth(RealRow, RowIds), - mark_all_cells(MarkedRowIds, Color). - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -unmark_row(VirtualRow, FirstRow, LastRow, RowIds) -> - mark_row(VirtualRow, FirstRow, LastRow, RowIds, ?DEFAULT_GRID_BGCOLOR). - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -move_marked_row(VirtualRow, - OldFirstRow, OldLastRow, FirstRow, LastRow, RowIds, MarkP) -> - unmark_row(VirtualRow, OldFirstRow, OldLastRow, RowIds), - mark_row(VirtualRow, FirstRow, LastRow, RowIds, ?GRID_MARK_COLOR), - MarkP#mark_params{cell_id = undefined}. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -move_marked_cell(FirstColShown, - FirstRowShown, NofColsShown, NofRowsShown, RowIds, MarkP) -> - #mark_params{cell_id = OldCellId, - virtual_col = VirtualCol, - virtual_row = VirtualRow} = MarkP, - - case OldCellId of - undefined -> - MarkP; - _OtherId -> - NewRealCol = VirtualCol - FirstColShown + 1, - NewRealRow = VirtualRow - FirstRowShown + 1, - update_marked_cells(undefined, OldCellId, false), - case check_if_new_mark_visible(NewRealCol, NewRealRow, - NofColsShown, NofRowsShown) of - false -> - MarkP; - true -> - NewCellId = lists:nth(NewRealCol, - lists:nth(NewRealRow, RowIds)), - update_marked_cells(NewCellId, undefined, true), - MarkP#mark_params{cell_id = NewCellId} - end - end. - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -check_if_new_mark_visible(Col, _Row, NofCols, _NofRows) when Col > NofCols -> - false; -check_if_new_mark_visible(Col, _Row, _NofCols, _NofRows) when Col =< 0 -> - false; -check_if_new_mark_visible(_Col, Row, _NofCols, NofRows) when Row > NofRows -> - false; -check_if_new_mark_visible(_Col, Row, _NofCols, _NofRows) when Row =< 0 -> - false; -check_if_new_mark_visible(_Col, _Row, _NofCols, _NofRows) -> - true. - - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -update_marked_cells(CellId, OldCellId, _MarkedCell) when CellId =:= OldCellId -> - gs:config(CellId, [{bg, ?DEFAULT_GRID_BGCOLOR}]); -update_marked_cells(_CellId, undefined, false) -> - done; -update_marked_cells(CellId, undefined, true) -> - gs:config(CellId, [{bg, ?GRID_MARK_COLOR}]); -update_marked_cells(CellId, OldCellId, true) -> - gs:config(OldCellId, [{bg, ?DEFAULT_GRID_BGCOLOR}]), - gs:config(CellId, [{bg, ?GRID_MARK_COLOR}]); -update_marked_cells(_CellId, OldCellId, false) -> - gs:config(OldCellId, [{bg, ?DEFAULT_GRID_BGCOLOR}]). - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -notify_about_cell_marked(Pid, Marked, RealCol, RealRow, VirtCol, VirtRow, Text) -> - Pid ! #pg_cell_marked{sender = self(), - cell_marked = Marked, - real_col = RealCol, - real_row = RealRow, - virtual_col = VirtCol, - virtual_row = VirtRow, - cell_text = Text - }. - - - - - - - - -%%%--------------------------------------------------------------------- -%%% START of functions used to print data in the grid fields. -%%%--------------------------------------------------------------------- - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -refresh_visible_rows([], _FirstColShown, _NofColsShown, _DataList, _ListAsStr) -> - done; -refresh_visible_rows(RowIds, _FirstColShown, _NofColsShown, [], _ListAsStr) -> - clear_cols_or_rows(RowIds); -refresh_visible_rows([OneRowIds | RemRowIds], FirstColShown, NofColsShown, - [DataItemList | RemDataItemLists], ListAsStr) -> - NewDataItemList = get_data_sublist(DataItemList, FirstColShown, NofColsShown), - update_one_row(lists:sublist(OneRowIds, NofColsShown), NewDataItemList, ListAsStr), - refresh_visible_rows(RemRowIds, FirstColShown, NofColsShown, RemDataItemLists, ListAsStr). - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -update_visible_rows([], _FirstColShown, _NofColsShown, _DataList, _ListAsStr) -> - done; -update_visible_rows(RowIds, _FirstColShown, _NofColsShown, [], _ListAsStr) -> - clear_cols_or_rows(RowIds); -update_visible_rows([OneRowIds | RemRowIds], FirstColShown, NofColsShown, - [DataItem | RemData], ListAsStr) -> - % We convert the received item to a list! This way we know that - % '[notext]' shall be printed as 'notext', while 'notext' shall - % be printed as ''. - TempDataItemList = item_to_list(DataItem), - DataItemList = get_data_sublist(TempDataItemList, FirstColShown, - NofColsShown), - update_one_row(lists:sublist(OneRowIds, NofColsShown), DataItemList, ListAsStr), - update_visible_rows(RemRowIds, FirstColShown, NofColsShown, RemData, ListAsStr). - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -update_one_row(OneRowIds, [], _ListAsStr) -> - clear_one_col_or_row(OneRowIds); -update_one_row([], _DataItemList, _ListAsStr) -> - done; -update_one_row([LabelId | RemLabelIds], [notext | T], ListAsStr) -> - gs:config(LabelId, [{label, {text, ""}} - ]), - update_one_row(RemLabelIds, T, ListAsStr); -update_one_row([LabelId | RemLabelIds], [DataElem | T], ListAsStr) -> - Str = case ListAsStr of - true -> - tv_io_lib:format(" ~p", [DataElem]); - false -> - " " ++ lists:flatten(tv_io_lib:write(DataElem)) - end, - gs:config(LabelId, [{label, {text, Str}} - ]), - update_one_row(RemLabelIds, T, ListAsStr). - - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -make_row_data_list(N, NofRows, []) when N > NofRows -> - []; -make_row_data_list(N, NofRows, []) -> - % If NofRows == N, we get the empty list here! - lists:duplicate(NofRows- N, notext); -make_row_data_list(N, NofRows, [_DataItem | _RemData]) when N > NofRows -> - []; -make_row_data_list(N, NofRows, [DataItem | RemData]) -> - % We convert the received item to a list! This way we know that - % '[notext]' shall be printed as 'notext', while 'notext' shall - % be printed as ''. - [item_to_list(DataItem) | make_row_data_list(N + 1, NofRows, RemData)]. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -item_to_list(Item) when is_tuple(Item) -> - tuple_to_list(Item); -item_to_list(Item) -> - [Item]. - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -get_data_sublist(DataList, StartPos, Length) -> - case catch lists:sublist(DataList, StartPos, Length) of - {'EXIT', _Reason} -> - []; - Sublist -> - Sublist - end. - - - - - - - -%%%--------------------------------------------------------------------- -%%% END of functions used to print data in the grid fields. -%%%--------------------------------------------------------------------- - - - - - -%%%--------------------------------------------------------------------- -%%% START of functions used to resize the grid columns. -%%%--------------------------------------------------------------------- - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -resize_all_grid_columns(_RealCol, [], _ColFrameIds, _MaxColWidth, _MinColWidth) -> - done; -resize_all_grid_columns(RealCol, [ColWidth | Tail], ColFrameIds, MaxColWidth, MinColWidth) -> - - resize_one_column(RealCol, ColWidth, ColFrameIds, MaxColWidth, MinColWidth), - resize_all_grid_columns(RealCol + 1, Tail, ColFrameIds, MaxColWidth, - MinColWidth). - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -resize_one_column(RealCol, Width, ColFrameIds, MaxW, MinW) -> - NewWidthOfCol = erlang:min(MaxW, erlang:max(Width, MinW)), - case length(ColFrameIds) of - RealCol -> - done; - _Other -> - FrameId = lists:nth(RealCol + 1, ColFrameIds), - gs:config(FrameId, [{x, NewWidthOfCol + 1}]) - end, - NewWidthOfCol. - - - - -%%%--------------------------------------------------------------------- -%%% END of functions used to resize the grid columns. -%%%--------------------------------------------------------------------- - - - - - - -%%%--------------------------------------------------------------------- -%%% START of functions used to update the grid. -%%%--------------------------------------------------------------------- - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -clear_fields(ColIds, RowIds) -> - clear_cols_or_rows(ColIds), - clear_cols_or_rows(RowIds). - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -clear_cols_or_rows([]) -> - done; -clear_cols_or_rows([IdList | RemIdLists]) -> - clear_one_col_or_row(IdList), - clear_cols_or_rows(RemIdLists). - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -clear_one_col_or_row([]) -> - done; -clear_one_col_or_row([LabelId | RemLabelIds]) -> - gs:config(LabelId, [{label, {text, ""}} - ]), - clear_one_col_or_row(RemLabelIds). - - - - - -%%%--------------------------------------------------------------------- -%%% END of functions used to update the grid. -%%%--------------------------------------------------------------------- - - - - - - -%%%--------------------------------------------------------------------- -%%% START of functions used to compute the part of the grid that has to -%%% be updated, as well as deciding whether a new column has to be added. -%%% Old columns (i.e., columns not visible) are not removed, but they -%%% shall not be updated until they once again becomes visible. -%%%--------------------------------------------------------------------- - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -check_nof_cols(_ColsShown, NofNewCols, ColFrameIds, ColIds, RowIds, - _NofRows, _RowHeight, _FgColor, _BgColor) when NofNewCols =< 0 -> - {length(ColFrameIds), ColFrameIds, ColIds, RowIds}; -check_nof_cols(ColsShown, NofNewCols, ColFrameIds, ColIds, - RowIds, NofRows, RowHeight, FgColor, BgColor) -> - NewColNo = length(ColFrameIds) + 1, - % We don't care about the pathological case where no columns have been - % created. If the gridwidth, or the columnwidth, was set to =< 0 during - % initialisation, then no columns will have been created. The program - % will probably also have crashed. If any smart jackass has set invalid - % values on these important parameters, then he can only blame himself. - ParentId = lists:nth((NewColNo - 1), ColFrameIds), - ParentColWidth = lists:nth((NewColNo - 1), ColsShown), - Xpos = ParentColWidth + 1, - - {ColFrameId, LabelIds} = add_one_col_frame(ParentId, NewColNo, Xpos, FgColor, - BgColor, NofRows, RowHeight), - - NewColFrameIds = ColFrameIds ++ [ColFrameId], - NewColIds = ColIds ++ [LabelIds], - NewRowIds = update_row_ids(RowIds, LabelIds), - - check_nof_cols(ColsShown, NofNewCols - 1, NewColFrameIds, NewColIds, NewRowIds, - NofRows, RowHeight, FgColor, BgColor). - - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -update_row_ids([], _LabelIds) -> - []; -update_row_ids([OneRowIds | RemainingRows], [NewElemId | RemainingElemIds]) -> - [OneRowIds ++ [NewElemId] | update_row_ids(RemainingRows, RemainingElemIds)]. - - - - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -update_col_widths(ColsShown, ColWidths, FirstColShown, DefaultColWidth) -> - % What we do here is that we first (if necessary) add default - % column widths to the ColWidth list until it reaches to where - % ColsShown starts (vitually seen). - % In the second step we take the appropriate elements from the - % ColsShown list and add them to the ColWidths list, until it is - % of sufficient length. - % Of course this may seem unnecessary - it would suffice to just - % add default widths to the ColWidths list until it is long enough, - % since the compute_cols_shown function right now just adds default - % width columns to the ColsShown list, when the ColWidths list is empty. - % However, this could change (maybe we some other time want the last - % column to carry all remaining width, instead of adding new columns). - % Besides, we don't like hidden dependencies between functions!!! - - NofColsShown = length(ColsShown), - NewColWidths = set_necessary_col_widths_length(FirstColShown, ColWidths, - DefaultColWidth), - % Now NofVirtualCols will always be equal to, or greater - % than, FirstColShown - 1. - - NofVirtualCols = length(NewColWidths), - NecessaryNofVirtualCols = FirstColShown + (NofColsShown - 1), - if - NecessaryNofVirtualCols > NofVirtualCols -> - TailNo = NofVirtualCols - FirstColShown + 1, % Always >= 0 !!! - NewColWidths ++ safe_nthtail(TailNo, ColsShown); - true -> - NewColWidths - end. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -set_necessary_col_widths_length(FirstColShown, ColWidths, DefaultColWidth) -> - % First check that (length(ColWidths) - FirstColShown) >= -1. - % If not, add elements so the relation holds true! - MissingDefaultWidthElems = FirstColShown - length(ColWidths), - if - MissingDefaultWidthElems > 1 -> - ColWidths ++ lists:duplicate(MissingDefaultWidthElems - 1, - DefaultColWidth); - true -> - ColWidths - end. - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -compute_rows_shown(GridHeight, RowHeight) -> - (GridHeight div RowHeight) + 1. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -compute_cols_shown(FirstColShown, ColWidths, GridWidth, _NofCols, DefaultColWidth) -> - ColWidthsLength = length(ColWidths), - % Normally ColWidths shall be long enough, but just to make sure... - % (We could have chosen to update ColWidths here to, but right now - % we do it instead explicitly when resizeing the grid, changing the - % column size(s), and scrolling horizontally.) - UsedColWidths = if - ColWidthsLength < FirstColShown -> - []; - true -> - safe_nthtail(FirstColShown - 1, ColWidths) - end, - compute_cols_shown(UsedColWidths, GridWidth, DefaultColWidth). - - - - - - -compute_cols_shown(_ColWidths, RemainingWidth, _DefColW) when RemainingWidth =< 0 -> - []; -compute_cols_shown([], RemainingWidth, DefaultColWidth) -> - [DefaultColWidth | compute_cols_shown([], RemainingWidth - DefaultColWidth, - DefaultColWidth)]; -compute_cols_shown([VirtualColWidth | T], RemainingWidth, DefaultColWidth) -> - [VirtualColWidth | compute_cols_shown(T, RemainingWidth - VirtualColWidth, - DefaultColWidth)]. - - - - - -%%%--------------------------------------------------------------------- -%%% END of functions used to compute the part of the grid that has to -%%% be updated, as well as deciding whether a new column has to be added. -%%%--------------------------------------------------------------------- - - - - - - - -%%%--------------------------------------------------------------------- -%%% START of functions used to create the grid (baseframes, columns -%%% and rows), as well as sorting the ID's appropriately. -%%%--------------------------------------------------------------------- - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -create_base_frame(ParentId, Width, Height, Xpos, Ypos, BgColor) -> - gs:frame(ParentId, [{width, Width}, - {height, Height}, - {x, Xpos}, - {y, Ypos}, - {bg, BgColor} - ]). - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -create_col_frames(0, _NofRows, _RowHeight, _ParentId, _GridP, ColFrameAcc, LabelAcc) -> - {lists:reverse(ColFrameAcc), lists:reverse(LabelAcc)}; -create_col_frames(N, NofRows, RowHeight, ParentId, GridP, ColFrameAcc, LabelAcc) -> - % Yes, it *IS* inefficient to copy GridP for each loop. - % However, it is only done once, and for a limited number of times, - % and we avoid having a lot of parameters! - #grid_params{bg_color = BgColor, - fg_color = FgColor, - nof_cols = NofCols, - col_width = ColWidth} = GridP, - Xpos = if - N =:= NofCols -> - 0; - true -> - ColWidth + 1 - end, - - ColNo = NofCols - N + 1, - {ColFrameId, LabelIds} = add_one_col_frame(ParentId, ColNo, Xpos, FgColor, - BgColor, NofRows, RowHeight), - create_col_frames(N - 1, NofRows, RowHeight, ColFrameId, GridP, - [ColFrameId | ColFrameAcc], [LabelIds | LabelAcc]). - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -add_one_col_frame(ParentId, ColNo, Xpos, FgColor, BgColor, NofRows, RowHeight) -> - ColFrameId = create_one_col_frame(ParentId, Xpos, FgColor), - FirstRowYpos = 1, - FirstRowNo = 1, - LabelIds = create_rows_on_frame(ColFrameId, FirstRowNo, NofRows, RowHeight, - FirstRowYpos, FgColor, BgColor, ColNo, []), - {ColFrameId, LabelIds}. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -create_one_col_frame(ParentId, Xpos, BgColor) -> - ColFrameWidth = 1200, - ColFrameHeight = 900, - Ypos = 0, - gs:frame(ParentId, [{width, ColFrameWidth}, - {height, ColFrameHeight}, - {x, Xpos}, - {y, Ypos}, - {bg, BgColor} - ]). - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -create_rows_on_frame(_FrameId, RowNo, NofRows, _H, _Y, _Fg, _Bg, _ColNo, Acc) when RowNo > NofRows -> - lists:reverse(Acc); -create_rows_on_frame(FrameId, RowNo, NofRows, H, Y, Fg, Bg, ColNo, RAcc) -> - Width = 1200, - R = gs:label(FrameId, [{width, Width}, - {height, H}, - {x, 1}, - {y, Y}, - {bg, Bg}, - {fg, Fg}, - {align, w}, - {buttonpress, true}, - {data, {gridcell, ColNo, RowNo, FrameId}} - ]), - NextRowNo = RowNo + 1, - NextY = Y + H +1, - create_rows_on_frame(FrameId, NextRowNo, NofRows, H, NextY, Fg, Bg, ColNo, - [R | RAcc]). - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -get_row_ids(0, _Cols, RowAcc) -> - RowAcc; -get_row_ids(RowNo, Cols, RowAcc) -> - Row = extract_ids_for_one_row(RowNo, Cols), - get_row_ids(RowNo - 1, Cols, [Row | RowAcc]). - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -extract_ids_for_one_row(_N, []) -> - []; -extract_ids_for_one_row(N, [ColIds | Tail]) -> - [lists:nth(N, ColIds) | extract_ids_for_one_row(N, Tail)]. - - - -%%%--------------------------------------------------------------------- -%%% END of functions used to create the grid. -%%%--------------------------------------------------------------------- - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -safe_nthtail(_, []) -> []; -safe_nthtail(1, [_|T]) -> T; -safe_nthtail(N, [_|T]) when N > 1 -> - safe_nthtail(N - 1, T); -safe_nthtail(0, L) when is_list(L) -> L. diff --git a/lib/tv/src/tv_pg_int_def.hrl b/lib/tv/src/tv_pg_int_def.hrl deleted file mode 100644 index 6f88053d47..0000000000 --- a/lib/tv/src/tv_pg_int_def.hrl +++ /dev/null @@ -1,92 +0,0 @@ -%% -%% %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: Internal definitions for the pd part of the table tool. -%%% -%%%********************************************************************* - - --define(GRIDFUNCS, tv_pg_gridfcns). - - - --define(DEFAULT_COLFRAME_HEIGHT, 870). --define(DEFAULT_COLWIDTH, 100). --define(DEFAULT_GRID_BGCOLOR, {255, 255, 255}). % white --define(DEFAULT_GRID_FGCOLOR, {0, 0, 0}). % black --define(GRID_MARK_COLOR, {200, 255, 255}). --define(GRID_FONT, {courier, 12}). - - - --define(DEFAULT_BG_COLOR, {217, 217, 217}). --define(DEFAULT_ROW_COLOR, {178, 34, 34}). % Firebrick! --define(DEFAULT_GRID_COLOR, {0, 0, 0}). --define(LIGHT_GRAY, {226, 226, 226}). --define(DARK_VIOLET, {148, 0, 211}). --define(FIREBRICK, {178, 34, 34}). --define(ANTIQUE_WHITE, {255, 255, 235}). - - - - --record(grid_params, {bg_frame, - fg_frame, - grid_width, - grid_height = ?DEFAULT_COLFRAME_HEIGHT, % Actual height, - % not the height - % shown! - grid_xpos, - grid_ypos, - bg_color = ?DEFAULT_GRID_BGCOLOR, - fg_color = ?DEFAULT_GRID_FGCOLOR, - nof_cols = 10, - nof_rows, - nof_rows_shown, - row_height, - col_width = ?DEFAULT_COLWIDTH, - first_col_shown = 1, - first_row_shown = 1, - max_col_width = 1200, - min_col_width = 5, - col_widths = [], - cols_shown = [], - col_frame_ids = [], - col_ids = [], - row_ids = [], - row_data_list = [], - current_max_value, - lists_as_strings = true - }). - - - --record(mark_params, {cell_id, - virtual_col, - virtual_row - }). - - - - --record(process_variables, {parent_pid, - grid_parent_id, - grid_params = #grid_params{}, - mark_params = #mark_params{} - }). diff --git a/lib/tv/src/tv_poll_dialog.erl b/lib/tv/src/tv_poll_dialog.erl deleted file mode 100644 index e33d398898..0000000000 --- a/lib/tv/src/tv_poll_dialog.erl +++ /dev/null @@ -1,363 +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: Code for the "set poll interval" dialog with the user. -%%% -%%%********************************************************************* - --module(tv_poll_dialog). --compile([{nowarn_deprecated_function,{gs,button,2}}, - {nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,label,2}}, - {nowarn_deprecated_function,{gs,radiobutton,2}}, - {nowarn_deprecated_function,{gs,scale,2}}, - {nowarn_deprecated_function,{gs,start,0}}, - {nowarn_deprecated_function,{gs,window,2}}]). - - --export([start/1, init/2]). - - - --include("tv_int_msg.hrl"). - - - --define(WINDOW_WIDTH, 305). --define(WINDOW_HEIGHT, 185). - --define(DEFAULT_BG_COLOR, {217, 217, 217}). - - - - - - -%%%********************************************************************* -%%% EXTERNAL FUNCTIONS -%%%********************************************************************* - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -start(Pos) -> - Pid = self(), - ProcPid = spawn_link(?MODULE, init, [Pid, Pos]), - receive_answer(ProcPid). - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -init(Pid, Pos) -> - process_flag(trap_exit, true), - {ScalePos, ScaleRange, Poll, Color} = case Pos of - infinity -> - {0, {20, 20}, false, {255, 255, 255}}; - _Other -> - {Pos, {20, 300}, true, {0, 0, 0}} - end, - S = gs:start(), - Win = gs:window(S, [{width, ?WINDOW_WIDTH}, - {height, ?WINDOW_HEIGHT}, - {bg, ?DEFAULT_BG_COLOR}, - {title, "[TV] Set Poll Interval"}, - {configure, true}, - {destroy, true} - ]), - - NoPollBtn = gs:radiobutton(Win, [{height, 30}, - {width, 143}, - {x, 10}, - {y, 10}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}}, - {value, no_poll}, - {label, {text, "Manual Polling"}}, - {select, not(Poll)} - ]), - - PollBtn = gs:radiobutton(Win, [{height, 30}, - {width, 163}, - {x, 10}, - {y, 60}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}}, - {value, poll}, - {label, {text, "Automatic Polling"}}, - {select, Poll} - ]), - - Lbl = gs:label(Win, [{label, {text, "Poll Interval (seconds):"}}, - {align, center}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, Color}, - {width, 183}, - {height, 30}, - {x, 10}, - {y, 100} - ]), - - Scale = gs:scale(Win, [{bg, ?DEFAULT_BG_COLOR}, - {fg, Color}, - {orient, horizontal}, - {range, ScaleRange}, - {pos, ScalePos}, - {width, 285}, - {height, 50}, - {x, 10}, - {y, 130} - ]), - - OkBtn = gs:button(Win, [{label, {text, "OK"}}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}}, - {align, center}, - {width, 60}, - {height, 30}, - {x, 230}, - {y, 10} - ]), - - CancelBtn = gs:button(Win, [{label, {text, "Cancel"}}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0, 0, 0}}, - {align, center}, - {width, 60}, - {height, 30}, - {x, 230}, - {y, 60} - ]), - - gs:config(Win, {map, true}), - browser_loop(Pid, Win, NoPollBtn, PollBtn, Lbl, Scale, OkBtn, CancelBtn, Poll, Pos). - - - - - - - -%%%********************************************************************* -%%% INTERNAL FUNCTIONS -%%%********************************************************************* - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -receive_answer(ProcPid) -> - receive_answer(ProcPid, undefined, undefined, undefined, undefined). - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -receive_answer(ProcPid, DataReqMsg, WinConfMsg, MarkedRowMsg, SubsetMsg) -> - receive Msg -> - case Msg of - - {browser, ProcPid, cancel} -> - PcPid = self(), - PcPid ! DataReqMsg, - PcPid ! WinConfMsg, - PcPid ! MarkedRowMsg, - PcPid ! SubsetMsg, - cancel; - - {browser, ProcPid, {true, PollInterval}} -> - PcPid = self(), - PcPid ! DataReqMsg, - PcPid ! WinConfMsg, - PcPid ! MarkedRowMsg, - PcPid ! SubsetMsg, - PollInterval; - - {browser, ProcPid, {false, _Pollinterval}} -> - PcPid = self(), - PcPid ! DataReqMsg, - PcPid ! WinConfMsg, - PcPid ! MarkedRowMsg, - PcPid ! SubsetMsg, - infinity; - - #pc_data_req{} -> - receive_answer(ProcPid, Msg, WinConfMsg, MarkedRowMsg, SubsetMsg); - - #pc_win_conf{} -> - receive_answer(ProcPid, DataReqMsg, Msg, MarkedRowMsg, SubsetMsg); - - #pc_marked_row{} -> - receive_answer(ProcPid, DataReqMsg, WinConfMsg, Msg, SubsetMsg); - - #dbs_subset{} -> - receive_answer(ProcPid, DataReqMsg, WinConfMsg, MarkedRowMsg, Msg); - - #pc_menu_msg{data = exit_button} -> - self() ! Msg, - cancel; - - #pc_set_sorting_mode{sender = Sender} -> - Sender ! #pd_ignore{sender = self()}, - ProcPid ! raise_and_beep, - receive_answer(ProcPid, DataReqMsg, WinConfMsg, MarkedRowMsg, SubsetMsg); - - {'EXIT', _Sender, _Reason} -> - self() ! Msg, - cancel; - - _Other -> - ProcPid ! raise_and_beep, - receive_answer(ProcPid, DataReqMsg, WinConfMsg, MarkedRowMsg, SubsetMsg) - end - end. - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -browser_loop(Pid, Win, NoPollBtn, PollBtn, Lbl, Scale, OkBtn, CancelBtn, Poll, Pos) -> - receive - {gs, Scale, click, _, [NewPos | _]} -> - browser_loop(Pid, Win, NoPollBtn, PollBtn, Lbl, Scale, OkBtn, - CancelBtn, Poll, NewPos); - - {gs, NoPollBtn, click, _, _} -> - gs:config(Lbl, [{fg, {255, 255, 255}}]), - gs:config(Scale, [{fg, {255, 255, 255}}, {pos, 0}, {range, {20, 20}}]), - receive - {gs, Scale, click, _, _} -> - done - after 500 -> - done - end, - browser_loop(Pid, Win, NoPollBtn, PollBtn, Lbl, Scale, OkBtn, - CancelBtn, false, Pos); - - {gs, PollBtn, click, _, _} -> - gs:config(Lbl, [{fg, {0, 0, 0}}]), - gs:config(Scale, [{fg, {0, 0, 0}}, {pos, Pos}, {range, {20, 300}}]), - receive - {gs, Scale, click, _, _} -> - done - after 500 -> - done - end, - browser_loop(Pid, Win, NoPollBtn, PollBtn, Lbl, Scale, OkBtn, - CancelBtn, true, Pos); - - {gs, OkBtn, click, _, _} -> - Pid ! {browser, self(), {Poll, Pos}}; - - {gs, CancelBtn, click, _, _} -> - Pid ! {browser, self(), cancel}; - - {gs, _, destroy, _, _} -> - Pid ! {browser, self(), cancel}; - - - {gs, Win, configure, _, _} -> - gs:config(Win, [{width, ?WINDOW_WIDTH}, - {height, ?WINDOW_HEIGHT} - ]), - browser_loop(Pid, Win, NoPollBtn, PollBtn, Lbl, Scale, OkBtn, - CancelBtn, Poll, Pos); - - - raise_and_beep -> - gs:config(Win, [raise, - beep]), - browser_loop(Pid, Win, NoPollBtn, PollBtn, Lbl, Scale, OkBtn, - CancelBtn, Poll, Pos); - - - {'EXIT', _Sender, _Reason} -> - Pid ! {browser, self(), cancel}; - - - _Other -> - io:format("Poll dialog received message ~w ~n", [_Other]), - browser_loop(Pid, Win, NoPollBtn, PollBtn, Lbl, Scale, OkBtn, - CancelBtn, Poll, Pos) - - end. - diff --git a/lib/tv/src/tv_pw.erl b/lib/tv/src/tv_pw.erl deleted file mode 100644 index 5f88c9f1fd..0000000000 --- a/lib/tv/src/tv_pw.erl +++ /dev/null @@ -1,328 +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: Code for pw, the window controlling part of the table tool. -%%% -%%%********************************************************************* - - --module(tv_pw). --compile([{nowarn_deprecated_function,{gs,config,2}}]). - - - --export([pw/1]). - - - - --include("tv_int_def.hrl"). --include("tv_int_msg.hrl"). --include("tv_pw_int_def.hrl"). - - - - - - - -%%%********************************************************************* -%%% EXTERNAL FUNCTIONS -%%%********************************************************************* - - - - -%%====================================================================== -%% Function: pw. -%% -%% Return Value: None. -%% -%% Description: Process controlling the graphical window, as well as the -%% menubuttons. -%% -%% Parameters: None. -%%====================================================================== - - - -pw(Master) -> - process_flag(trap_exit, true), - ProcVars = #process_variables{master_pid = Master}, - blocked(ProcVars). - - - - - - - - - -%%%******************************************************************** -%%% INTERNAL FUNCTIONS -%%%******************************************************************** - - - - - -%%====================================================================== -%% Function: blocked. -%% -%% Return Value: None. -%% -%% Description: When started or explicitly blocked, pw enters this state, -%% where nothing is performed until the module explicitly is -%% deblocked. -%% -%% Parameters: -%%====================================================================== - - -blocked(ProcVars) -> - receive - Msg -> - case Msg of - #pw_deblock{} -> - deblock(Msg, ProcVars); - _Other -> - blocked(ProcVars) - end - end. - - - - - - - - - -%%====================================================================== -%% Function: deblocked. -%% -%% Return Value: None. -%% -%% Description: When deblocked, a window shall be created according to -%% specification received in pw_deblock message. -%% -%% Parameters: Rec: received pw_deblock message. -%%====================================================================== - - - -deblock(Msg, ProcVars) -> - #process_variables{window_params = WinP, - menu_params = MenuP} = ProcVars, - - NewWinP = ?WIN_FUNC_FILE:create_window(Msg, WinP), - NewMenuP = ?WIN_FUNC_FILE:create_menubar(NewWinP, MenuP), - - Sender = Msg#pw_deblock.sender, - Sender ! #pw_deblock_cfm{sender = self(), - win_id = NewWinP#window_params.window_id - }, - - NewProcVars = ProcVars#process_variables{window_params = NewWinP, - menu_params = NewMenuP - }, - deblocked_loop(NewProcVars). - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -deblocked_loop(ProcVars) -> - receive - Msg -> - case Msg of - - {gs, Id, Event, Data, Args} -> - NewProcVars = gs_messages({Id, Event, Data, Args}, ProcVars), - deblocked_loop(NewProcVars); - - % Messages from pc! - #pw_select_menu{menu=Menu} -> - gs:config(Menu, [{select,true}]), - deblocked_loop(ProcVars); - - #pw_create_menu{} -> - NewProcVars = ?WIN_FUNC_FILE:create_menu(Msg, ProcVars), - % Send confirmation... - Sender = Msg#pw_create_menu.sender, - Sender ! #pw_create_menu_cfm{sender = self()}, - deblocked_loop(NewProcVars); - - #pw_set_window_title{win_title = WinTitle} -> - WinP = ProcVars#process_variables.window_params, - gs:config(WinP#window_params.window_id, [{title, "[TV] " ++ WinTitle}]), - NewWinP = WinP#window_params{window_title = WinTitle}, - NewProcVars = ProcVars#process_variables{window_params = NewWinP}, - deblocked_loop(NewProcVars); - - #pw_deblock{} -> - deblock(Msg, ProcVars); - - % Exit signals! - {'EXIT', Pid, Reason} -> - MasterPid = ProcVars#process_variables.master_pid, - exit_signals({Pid, Reason}, MasterPid), - deblocked_loop(ProcVars); - - _Other -> - deblocked_loop(ProcVars) - - end - end. - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -exit_signals(Exit_info, MasterPid) -> - case Exit_info of - {MasterPid, _Reason} -> % When from master, just quit! - exit(normal); - _Other -> - done - end. - - - - - - - - - - -%%====================================================================== -%% Function: -%% -%% Return Value: -%% -%% Description: -%% -%% Parameters: -%%====================================================================== - - -gs_messages(Msg, ProcVars) -> - MasterPid = ProcVars#process_variables.master_pid, - case Msg of - - {_Id, click, Data, _Args} -> - MasterPid ! #pc_menu_msg{sender = self(), - data = Data}, - ProcVars; - - {_Win, keypress, _Data, [Key, _ , _, 1 | _T]} -> - MenuP = ProcVars#process_variables.menu_params, - ShortcutList = MenuP#menu_params.shortcuts, - send_shortcut_data(Key, ShortcutList, MasterPid), - ProcVars; - - Msg0 = {Win, configure, _, _} -> - {Win, configure, _, [W, H | _T]} = flush_msgs(Msg0), - WinP = ProcVars#process_variables.window_params, - #window_params{window_id = WindowId, - min_window_width = MinAllowedWidth, - min_window_height = MinAllowedHeight} = WinP, - FinalWidth = ?COMM_FUNC_FILE:max(W, MinAllowedWidth), - FinalHeight = ?COMM_FUNC_FILE:max(H, MinAllowedHeight), - ?WIN_FUNC_FILE:resize_window(WindowId, FinalWidth, FinalHeight), - MasterPid ! #pc_win_conf{sender = self(), - width = FinalWidth, - height = FinalHeight}, - NewWinP = WinP#window_params{window_width = FinalWidth, - window_height = FinalHeight - }, - ProcVars#process_variables{window_params = NewWinP}; - - {_Win, destroy, _Data, _Args} -> - exit(normal); - - _Other -> - ProcVars - end. - -flush_msgs(Msg0 = {Win, Op, _, _}) -> - receive {gs, Win,Op,D,P} -> - flush_msgs({Win,Op,D,P}) - after 200 -> - Msg0 - end. - -send_shortcut_data(_Key, [], _MasterPid) -> - done; -send_shortcut_data(Key, ShortcutList, MasterPid) -> - case lists:keysearch(Key, 1, ShortcutList) of - {value, {Key, Data}} -> - MasterPid ! #pc_menu_msg{sender = self(), - data = Data}; - false -> - done - end. - - - - - - - - - - - - - - - diff --git a/lib/tv/src/tv_pw_int_def.hrl b/lib/tv/src/tv_pw_int_def.hrl deleted file mode 100644 index fabfbc2762..0000000000 --- a/lib/tv/src/tv_pw_int_def.hrl +++ /dev/null @@ -1,55 +0,0 @@ -%% -%% %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: Internal definitions for the pw part of the table tool. -%%% -%%%********************************************************************* - --define(WIN_FUNC_FILE, tv_pw_window). - - - --define(DEFAULT_WINDOW_WIDTH, 1000). --define(DEFAULT_WINDOW_HEIGHT, 800). --define(DEFAULT_MIN_WINDOW_WIDTH, 50). --define(DEFAULT_MIN_WINDOW_HEIGHT, 50). - - - --record(window_params, {window_id, - window_title, - window_width, - window_height, - min_window_width, - min_window_height - }). - - --record(menu_params, {menubar_id, - shortcuts - }). - - - - - --record(process_variables, {master_pid, - window_params = #window_params{}, - menu_params = #menu_params{} - }). diff --git a/lib/tv/src/tv_pw_window.erl b/lib/tv/src/tv_pw_window.erl deleted file mode 100644 index 81f29dc41c..0000000000 --- a/lib/tv/src/tv_pw_window.erl +++ /dev/null @@ -1,277 +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 the pw component controlling the graphics. -%%% -%%%********************************************************************* - - --module(tv_pw_window). --compile([{nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,create,3}}, - {nowarn_deprecated_function,{gs,menuitem,3}}, - {nowarn_deprecated_function,{gs,start,0}}]). - - - --export([create_window/2, - resize_window/3, - create_menubar/2, - create_menu/2]). - - - - --include("tv_int_def.hrl"). --include("tv_int_msg.hrl"). --include("tv_pw_int_def.hrl"). - - - --define(DEFAULT_BG_COLOR, {217, 217, 217}). - - - - -%%%********************************************************************* -%%% EXTERNAL FUNCTIONS -%%%********************************************************************* - - - - -%%====================================================================== -%% Function: create_menu. -%% -%% Return Value: Identifier to the menu created. -%% -%% Description: Creates a menu in the window. -%% -%% Parameters: Win: ID of parent window. -%%====================================================================== - - -create_menu(Msg, ProcVars) -> - MenuP = ProcVars#process_variables.menu_params, - MenubarId = MenuP#menu_params.menubar_id, - ShortcutList = MenuP#menu_params.shortcuts, - - #pw_create_menu{menutitle = MenuTitle, - title_acc_pos = TitleAccPos, - menulist = MenuList} = Msg, - - % Create the menubutton! - Label = def_or_param(MenuTitle, "NoName"), - Mbutt = gs:create(menubutton, MenubarId, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {178, 34, 34}}, % firebrick - % {font, {helvetica, bold, 14}}, - {label, {text, Label}}, - {underline, TitleAccPos} - ]), - - % Create the actual menu! - Menu = gs:create(menu, Mbutt, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {178, 34, 34}} - ]), - - NewMenuP = MenuP#menu_params{shortcuts = ShortcutList ++ create_menulist(MenuList, Menu)}, - - ProcVars#process_variables{menu_params = NewMenuP}. - - - - - - - -create_menubar(WinP, MenuP) -> - WindowId = WinP#window_params.window_id, - MenubarId = gs:create(menubar, WindowId, [{bg, ?DEFAULT_BG_COLOR} - ]), - Mbutt = gs:create(menubutton, MenubarId, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {178, 34, 34}}, % firebrick - % {font, {helvetica, bold, 14}}, - {label, {text, " Help "}}, - {underline, 1}, - {side, right} - ]), - - % Create the actual menu! - Menu = gs:create(menu, Mbutt, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {178, 34, 34}} - ]), - MenuP#menu_params{menubar_id = MenubarId, - shortcuts = create_menulist([{" Help ", normal, help_button, 1, h}, - separator, - {" OTP Documentation ",normal,otp_help_button,1,no_char}], - Menu) ++ [{x,exit_button}, {'X',exit_button}] - }. - - - - - -create_window(Msg, WinP) -> - #pw_deblock{win_title = Title, - win_width = Width, - win_height = Height, - min_win_width = MinWidth} = Msg, - - - S = gs:start(), - WindowTitle = def_or_param(Title, "NoName"), - WindowMinWidth = def_or_param(MinWidth, ?DEFAULT_MIN_WINDOW_WIDTH), - WindowMinHeight = def_or_param(MinWidth, ?DEFAULT_MIN_WINDOW_HEIGHT), - WindowWidth = ?COMM_FUNC_FILE:max(def_or_param(Width, - ?DEFAULT_WINDOW_WIDTH), - WindowMinWidth), - WindowHeight = ?COMM_FUNC_FILE:max(def_or_param(Height, - ?DEFAULT_WINDOW_HEIGHT), - WindowMinHeight), - - - WindowId = gs:create(window, S, [{title, WindowTitle}, - {width, WindowWidth}, - {height, WindowHeight}, - {bg, ?DEFAULT_BG_COLOR}, - {configure, true}, - {destroy, true}, - {keypress, true}, - {cursor, arrow} - ]), - - WinP#window_params{window_id = WindowId, - window_title = WindowTitle, - window_width = WindowWidth, - window_height = WindowHeight, - min_window_width = WindowMinWidth, - min_window_height = WindowMinHeight - }. - - - - - - - -resize_window(WindowId, NewWidth, NewHeight) -> - gs:config(WindowId, [{width, NewWidth}, - {height, NewHeight} - ]). - - - - -%%%******************************************************************** -%%% INTERNAL FUNCTIONS -%%%******************************************************************** - - - -create_menulist([], _Menu) -> - []; -create_menulist(List, Menu) -> - MaxLength = get_length_of_longest_menu_text(List, 0), - create_menulist(List, Menu, MaxLength). - - - - -create_menulist([], _Menu, _MaxLength) -> - []; -create_menulist([{Text, Type, Data, AccCharPos, ShortcutChar} | Rest], Menu, MaxLength) -> - ShortcutCapitalChar = - if - ShortcutChar =:= no_char -> - no_char; - true -> - CharAsciiValue = lists:nth(1, atom_to_list(ShortcutChar)), - CapitalCharValue = CharAsciiValue - ($a - $A), - list_to_atom([CapitalCharValue]) - end, - - FinalText = if - ShortcutChar =:= no_char -> - Text; - true -> - Text ++ lists:duplicate(MaxLength - length(Text), " ") ++ - " Ctrl+" ++ atom_to_list(ShortcutCapitalChar) ++ " " - end, - TypeAndSel = - case Type of - normal -> - [{itemtype, normal}]; - {radio, Selected, Group} -> - [{itemtype, radio}, - {select, Selected}, - {group, Group}]; - {check, Selected} -> - [{itemtype, check}, - {select, Selected}] - end, - gs:menuitem(Data, Menu, [{bg, ?DEFAULT_BG_COLOR}, - {fg, {178, 34, 34}}, - {label, {text, FinalText}}, - {underline, AccCharPos}, - {data, Data} | - TypeAndSel - ]), - [{ShortcutChar, Data}, {ShortcutCapitalChar, Data} | create_menulist(Rest, Menu, MaxLength)]; -create_menulist([separator | Rest], Menu, MaxLength) -> - gs:create(menuitem, Menu, [{itemtype, separator} - ]), - create_menulist(Rest, Menu, MaxLength). - - - - - - - -get_length_of_longest_menu_text([], MaxLength) -> - MaxLength; -get_length_of_longest_menu_text([{Text, _Type, _Data, _APos, _SChar} | Rest], CurrMax) -> - L = length(Text), - if - L > CurrMax -> - get_length_of_longest_menu_text(Rest, L); - true -> - get_length_of_longest_menu_text(Rest, CurrMax) - end; -get_length_of_longest_menu_text([separator | Rest], CurrMax) -> - get_length_of_longest_menu_text(Rest, CurrMax). - - - - - -def_or_param(undefined, DefaultValue) -> - DefaultValue; -def_or_param(Param, _Default) -> - Param. - - - - - - - - - - diff --git a/lib/tv/src/tv_rec_edit.erl b/lib/tv/src/tv_rec_edit.erl deleted file mode 100644 index 3f9ea8b5f5..0000000000 --- a/lib/tv/src/tv_rec_edit.erl +++ /dev/null @@ -1,754 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 1998-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% --module(tv_rec_edit). --compile([{nowarn_deprecated_function,{gs,button,2}}, - {nowarn_deprecated_function,{gs,button,3}}, - {nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,entry,3}}, - {nowarn_deprecated_function,{gs,frame,2}}, - {nowarn_deprecated_function,{gs,frame,3}}, - {nowarn_deprecated_function,{gs,label,2}}, - {nowarn_deprecated_function,{gs,read,2}}, - {nowarn_deprecated_function,{gs,start,0}}, - {nowarn_deprecated_function,{gs,window,3}}]). - - - --export([start/5, - start/6, - init/8 - ]). - - --include("tv_int_def.hrl"). - - - --define(DEFAULT_BG_COLOR, {217,217,217}). - --define(WIN_WIDTH, 375). --define(WIN_HEIGHT, 341). --define(ETS_WIN_HEIGHT, 154). - --define(FRAME_WIDTH, 375). --define(FRAME_HEIGHT, 265). --define(ETS_FRAME_HEIGHT, 74). - --define(MAX_LABEL_WIDTH, 165). --define(X0, 15). --define(Y0, 20). --define(LABEL_HEIGHT, 30). --define(ENTRY_HEIGHT, 30). --define(FONT, {screen,12}). --define(NEXT_BTN_WIDTH, 57). --define(NEXT_BTN_HEIGHT, 22). --define(NEXT_BTN_FG, {178,34,34}). --define(INSERT_BTN_WIDTH, 80). --define(INSERT_BTN_HEIGHT, 30). --define(INSERT_BTN_DIST_BETWEEN, 23). --define(INSERT_BTN_DIST_FROM_BOTTOM, 23). - - - - - -start(TableType, TableName, AttributeList, ListsAsStr, ErrMsgMode) -> - AttributeValues = lists:duplicate(length(AttributeList), undefined), - spawn_link(?MODULE, init, [TableType, TableName, AttributeList, - AttributeValues, ListsAsStr, ErrMsgMode, self(), true]). - - - -start(TableType, TableName, AttributeList, AttributeValues, ListsAsStr, ErrMsgMode) -> - spawn_link(?MODULE, init, [TableType, TableName, AttributeList, - AttributeValues, ListsAsStr, ErrMsgMode, self(), false]). - - - - -init(TableType,TableName,AttributeList,AttributeValues,ListsAsStr,ErrMsgMode,MasterPid,Insert) -> - process_flag(trap_exit, true), - put(error_msg_mode, ErrMsgMode), - Frames = create_window(TableType, TableName, AttributeList, AttributeValues, - ListsAsStr, Insert), - loop(TableType, TableName, Frames, AttributeList, AttributeValues, MasterPid, ListsAsStr). - - - - - -loop(TabType, TabName, Frames, AttrList, AttrVals, MPid, ListsAsStr) -> - receive - - {gs, insert, click, Insert, _Args} -> - gs:config(win, [{cursor, busy}]), - case get_record(TabType, TabName, AttrList, AttrList, Frames) of - {ok, NewRec} -> - case Insert of - insert -> - MPid ! {new_object, NewRec}; - change -> - MPid ! {updated_object, NewRec} - end; - error -> - done - end, - gs:config(win, [{cursor, arrow}]), - loop(TabType, TabName, Frames, AttrList, AttrVals, MPid, ListsAsStr); - - - {gs, cancel, click, _Data, _Args} -> - exit(normal); - - - {gs, reset, click, _Data, _Args} -> - gs:config(win, [{cursor, busy}]), - set_entry_values(TabType, AttrList, AttrVals, ListsAsStr), - gs:config(win, [{cursor, arrow}]), - loop(TabType, TabName, Frames, AttrList, AttrVals, MPid, ListsAsStr); - - - - {gs, EntryId, keypress, _Data, ['Tab', _No, 0 | _T]} -> - {_Term, {NextEntry, NextFrame}} = - check_entry_content(EntryId, AttrList, Frames, forward), - case NextEntry of - EntryId -> - gs:config(NextEntry, [{setfocus, true}]); - _OtherId -> - gs:config(NextFrame, [raise]), - gs:config(NextEntry, [{setfocus, true}, - {select, {0,100000000}}]) - end, - loop(TabType, TabName, Frames, AttrList, AttrVals, MPid, ListsAsStr); - - - {gs, EntryId, keypress, _Data, ['Down' | _T]} -> - {_Term, {NextEntry, NextFrame}} = - check_entry_content(EntryId, AttrList, Frames, forward), - case NextEntry of - EntryId -> - gs:config(NextEntry, [{setfocus, true}]); - _OtherId -> - gs:config(NextFrame, [raise]), - gs:config(NextEntry, [{setfocus, true}, - {select, {0,100000000}}]) - end, - loop(TabType, TabName, Frames, AttrList, AttrVals, MPid, ListsAsStr); - - - {gs, EntryId, keypress, _Data, ['Tab', _No, 1 | _T]} -> - {_Term, {NextEntry, NextFrame}} = - check_entry_content(EntryId, AttrList, Frames, backward), - gs:config(NextFrame, [raise]), - case NextEntry of - EntryId -> - gs:config(NextEntry, [{setfocus, true}]); - _OtherId -> - gs:config(NextFrame, [raise]), - gs:config(NextEntry, [{setfocus, true}, - {select, {0,100000000}}]) - end, - loop(TabType, TabName, Frames, AttrList, AttrVals, MPid, ListsAsStr); - - - {gs, EntryId, keypress, _Data, ['Up' | _T]} -> - {_Term, {NextEntry, NextFrame}} = - check_entry_content(EntryId, AttrList, Frames, backward), - gs:config(NextFrame, [raise]), - case NextEntry of - EntryId -> - gs:config(NextEntry, [{setfocus, true}]); - _OtherId -> - gs:config(NextFrame, [raise]), - gs:config(NextEntry, [{setfocus, true}, - {select, {0,100000000}}]) - end, - loop(TabType, TabName, Frames, AttrList, AttrVals, MPid, ListsAsStr); - - - {gs, Id, keypress, _Data, ['Return' | _T]} -> - OldCursor = gs:read(Id, cursor), - gs:config(Id, [{cursor, busy}]), - gs:config(win, [{cursor, busy}]), - Insert = gs:read(insert, data), - case get_record(TabType, TabName, AttrList, AttrList, Frames) of - {ok, NewRec} -> - case Insert of - insert -> - MPid ! {new_object, NewRec}; - change -> - MPid ! {updated_object, NewRec} - end; - error -> - done - end, - gs:config(win, [{cursor, arrow}]), - gs:config(Id, [{cursor, OldCursor}]), - loop(TabType, TabName, Frames, AttrList, AttrVals, MPid, ListsAsStr); - - - - {gs, _Id, click, FrameNo, _Args} -> - gs:config(lists:nth(FrameNo, Frames), [raise]), - loop(TabType, TabName, Frames, AttrList, AttrVals, MPid, ListsAsStr); - - - {gs, win, configure, _Data, [Width | _T]} -> - resize_window(TabType, lists:max([Width, ?WIN_WIDTH]), Frames, AttrList), - loop(TabType, TabName, Frames, AttrList, AttrVals, MPid, ListsAsStr); - - - {gs, win, destroy, _Data, _Args} -> - exit(normal); - - - insert_mode -> - NewAttrVals = lists:duplicate(length(AttrList), undefined), - set_entry_values(TabType, AttrList, NewAttrVals, ListsAsStr), - loop(TabType, TabName, Frames, AttrList, NewAttrVals, MPid, ListsAsStr); - - - {update_mode, Obj} -> - NewAttrVals = - case TabType of - mnesia -> - case Obj of - undefined -> - lists:duplicate(length(AttrList), undefined); - _AnyRec -> - tl(tuple_to_list(Obj)) - end; - ets -> - [Obj] - end, - set_entry_values(TabType, AttrList, NewAttrVals, ListsAsStr), - loop(TabType, TabName, Frames, AttrList, NewAttrVals, MPid, ListsAsStr); - - - {reset_info, Obj} -> - %% Info to use, instead of old info, when reset button is pressed. - NewAttrVals = - case TabType of - mnesia -> - case Obj of - undefined -> - lists:duplicate(length(AttrList), undefined); - _AnyRec -> - tl(tuple_to_list(Obj)) - end; - ets -> - [Obj] - end, - loop(TabType, TabName, Frames, AttrList, NewAttrVals, MPid, ListsAsStr); - - - raise -> - gs:config(win, [raise]), - loop(TabType, TabName, Frames, AttrList,AttrVals, MPid, ListsAsStr); - - - {'EXIT', _Pid, _Reason} -> - exit(normal); - - - _Other -> - loop(TabType, TabName, Frames, AttrList,AttrVals, MPid, ListsAsStr) - end. - - - - -resize_window(TabType, WinWidth, Frames, AttrList) -> - WinHeight = - case TabType of - mnesia -> - get_window_height(length(AttrList)); - ets -> - ?ETS_WIN_HEIGHT - end, - gs:config(win, [{width, WinWidth}, - {height, WinHeight} - ]), - FrameWidth = WinWidth, - LblL = lists:map(fun(H) -> - gs:config(H, [{width, FrameWidth}]), - {LblW, BId, NId} = gs:read(H, data), - XNext = get_next_btn_xpos(FrameWidth), - XBack = XNext - ?NEXT_BTN_WIDTH, - gs:config(BId, [{x, XBack}]), - gs:config(NId, [{x, XNext}]), - LblW - end, - Frames), - LblW = hd(LblL), - EntryW = get_entry_width(TabType, FrameWidth, LblW), - lists:foreach(fun(H) -> - gs:config(H, [{width, EntryW}]) - end, - AttrList), - gs:config(btnframe, [{width, FrameWidth}]), - {XInsert, XCancel, XReset} = get_insert_btn_coords(WinWidth), - gs:config(insert, [{x, XInsert}]), - gs:config(cancel, [{x, XCancel}]), - gs:config(reset, [{x, XReset}]). - - - - -check_entry_content(EntryId, AttributeList, Frames, Direction) -> - EditedStr = gs:read(EntryId, text), - case tv_db_search:string_to_term(EditedStr) of - {error, {_Reason, Msg}} -> - gs:config(EntryId, [beep]), - tv_utils:notify(gs:start(), "TV Notification", Msg), - {error, {EntryId, no_matter}}; - {ok, NewTerm} -> - {{ok,NewTerm}, get_next_entry_id(EntryId, AttributeList, Frames, Direction)} - end. - - - - -get_next_entry_id(EntryId, AttributeList, Frames, Direction) -> - OldPos = get_pos(EntryId, AttributeList), - MaxPos = length(AttributeList), - NewPos = case Direction of - forward when OldPos < MaxPos -> - OldPos + 1; - forward -> - 1; - backward when OldPos > 1 -> - OldPos - 1; - backward -> - MaxPos; - stationary -> - OldPos - end, - FramePos = get_next_frame_id(NewPos), - {lists:nth(NewPos, AttributeList), lists:nth(FramePos, Frames)}. - - - - -get_next_frame_id(Pos) -> - case Pos rem 5 of - 0 -> - Pos div 5; - _Other -> - (Pos div 5) + 1 - end. - - - - -get_record(TabType, TabName, AttrList, AttrList, Frames) -> - case get_record(AttrList, AttrList, Frames, []) of - {ok, RecList} -> - case TabType of - mnesia -> - NewRecList = [TabName | RecList], - {ok, list_to_tuple(NewRecList)}; - ets -> - {ok, hd(RecList)} %% Only one element, a tuple! - end; - error -> - error - end. - - - - -get_record([H | T], AttrList, Frames, Acc) -> - case check_entry_content(H, AttrList, Frames, forward) of - {{ok, NewTerm}, _PosTuple} -> - get_record(T, AttrList, Frames, [NewTerm | Acc]); - {error, _PosTuple} -> - {EntryId, FrameId} = get_next_entry_id(H, AttrList, Frames, stationary), - gs:config(FrameId, [raise]), - gs:config(EntryId, [{setfocus, true}]), - error - end; -get_record([], _AttrList, _Frames, Acc) -> - {ok, lists:reverse(Acc)}. - - - - - - -get_pos(Elem, L) -> - get_pos(Elem, L, 1). - - -get_pos(Elem, [Elem | _T], N) -> - N; -get_pos(Elem, [_H | T], N) -> - get_pos(Elem, T, N + 1). - - - - -create_window(mnesia, TableName, AttrList, AttrValues, ListsAsStr, Insert) -> - NofAttr = length(AttrList), - NofFrames = - case NofAttr rem 5 of - 0 -> - NofAttr div 5; - _Rem -> - (NofAttr div 5) + 1 - end, - - WinHeight = get_window_height(NofAttr), - FrameHeight = get_frame_height(NofAttr), - - Attr = get_longest_attribute_name(AttrList), - LabelWidth = lists:min([?MAX_LABEL_WIDTH, - element(1, gs:read(gs:start(), - {font_wh, {?FONT, atom_to_list(Attr)}}))]), - - gs:window(win, gs:start(), [{width, ?WIN_WIDTH}, - {height, WinHeight}, - {title, "[TV] Record Editor: '" ++ - atom_to_list(TableName) ++ "'"}, - {bg, ?DEFAULT_BG_COLOR}, - {configure, true}, - {destroy, true}, - {cursor, arrow} - ]), - - create_insert_and_cancel_btns(Insert, WinHeight, FrameHeight), - FrameList = create_frames(NofFrames, LabelWidth, AttrList, AttrValues, NofFrames, - ListsAsStr, FrameHeight), - gs:config(hd(FrameList), [raise]), - gs:config(hd(AttrList), [{setfocus, true}, - {select, {0,100000000}}]), - gs:config(win, [{map,true}]), - FrameList; -create_window(ets, TableName, [Attr], [AttrVal], ListsAsStr, Insert) -> - gs:window(win, gs:start(), [{width, ?WIN_WIDTH}, - {height, ?ETS_WIN_HEIGHT}, - {title, "[TV] Tuple Editor, table '" ++ - atom_to_list(TableName) ++ "'"}, - {bg, ?DEFAULT_BG_COLOR}, - {configure, true}, - {destroy, true}, - {cursor, arrow} - ]), - - F = gs:frame(win, [{width, ?FRAME_WIDTH}, - {height, ?ETS_FRAME_HEIGHT}, - {x, 0}, - {y, 0}, - {bg, ?DEFAULT_BG_COLOR}, - {bw,2}, - {data, {0, undefined, undefined}} - ]), - - create_insert_and_cancel_btns(Insert, ?ETS_WIN_HEIGHT, ?ETS_FRAME_HEIGHT), - - EntryW = get_entry_width(ets, ?FRAME_WIDTH, 0), - EntryX = ?X0 - 2, - - EntryText = - case AttrVal of - undefined -> - ""; - _OtherVal -> - case ListsAsStr of - true -> - tv_io_lib:format("~p", [AttrVal]); - false -> - lists:flatten(io_lib:write(AttrVal)) - end - end, - gs:entry(Attr, F, [{width, EntryW}, - {height, ?LABEL_HEIGHT}, - {x, EntryX}, - {y, ?Y0}, - {bg, {255,255,255}}, - {fg, {0,0,0}}, - {bw, 1}, - {font, ?FONT}, - {justify, left}, - {text, EntryText}, - {cursor, text}, - {setfocus, true}, - {enable, true}, - {keypress,true}, - {select, {0,100000000}} - ]), - gs:config(win, [{map,true}]), - [F]. - - - - -get_insert_btn_coords(WinWidth) -> - Middle = round(WinWidth / 2), - XInsert = Middle - round(1.5 * ?INSERT_BTN_WIDTH) - ?INSERT_BTN_DIST_BETWEEN, - XCancel = Middle - round(0.5 * ?INSERT_BTN_WIDTH), - XReset = Middle + round(0.5 * ?INSERT_BTN_WIDTH) + ?INSERT_BTN_DIST_BETWEEN, - {XInsert, XCancel, XReset}. - - - - -create_insert_and_cancel_btns(Insert, WinHeight, FrameHeight) -> - LowerFrameHeight = WinHeight - FrameHeight, - Y = ?INSERT_BTN_DIST_FROM_BOTTOM, - {XInsert, XCancel, XReset} = get_insert_btn_coords(?WIN_WIDTH), - - {InsertBtnText, InsertBtnData} = - case Insert of - true -> - {"Insert", insert}; - false -> - {"Change", change} - end, - - gs:frame(btnframe, win, [{width, ?FRAME_WIDTH}, - {height, LowerFrameHeight}, - {x, 0}, - {y, FrameHeight}, - {bg, ?DEFAULT_BG_COLOR}, - {bw,2} - ]), - gs:button(insert, btnframe, [{width, ?INSERT_BTN_WIDTH}, - {height, ?INSERT_BTN_HEIGHT}, - {x, XInsert}, - {y, Y}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0,0,0}}, - {font, ?FONT}, - {label, {text, InsertBtnText}}, - {align, center}, - {data, InsertBtnData} - ]), - gs:button(cancel, btnframe, [{width, ?INSERT_BTN_WIDTH}, - {height, ?INSERT_BTN_HEIGHT}, - {x, XCancel}, - {y, Y}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0,0,0}}, - {font, ?FONT}, - {label, {text, "Cancel"}}, - {align, center} - ]), - gs:button(reset, btnframe, [{width, ?INSERT_BTN_WIDTH}, - {height, ?INSERT_BTN_HEIGHT}, - {x, XReset}, - {y, Y}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0,0,0}}, - {font, ?FONT}, - {label, {text, "Reset"}}, - {align, center} - ]). - - - - - -create_frames(0, _LblW, _AttrList, _AttrValues, _NofFrames, _ListsAsStr, _FrameHeight) -> - []; -create_frames(N, LblW, AttrList, AttrValues, NofFrames, ListsAsStr, FrameHeight) -> - F = gs:frame(win, [{width, ?FRAME_WIDTH}, - {height, FrameHeight}, - {x, 0}, - {y, 0}, - {bg, ?DEFAULT_BG_COLOR}, - {bw,2} - ]), - {BId, NId} = create_back_and_next_btns(F, 5, N, NofFrames), - gs:config(F, [{data, {LblW, BId, NId}}]), - {RemAttrList, RemAttrValues} = - create_labels_and_entries(5, AttrList, AttrValues, LblW, F, ListsAsStr), - [F | create_frames(N - 1,LblW,RemAttrList,RemAttrValues,NofFrames,ListsAsStr,FrameHeight)]. - - - - - - -create_back_and_next_btns(FrameId, NofEntries, FrameNo, NofFrames) -> - Y = ?Y0 + NofEntries * (?LABEL_HEIGHT + 10) + 8, - XNext = get_next_btn_xpos(?FRAME_WIDTH), - XBack = XNext - ?NEXT_BTN_WIDTH, - DataNext = (NofFrames - FrameNo + 1) + 1, - DataBack = (NofFrames - FrameNo + 1) - 1, - BId = - if - DataBack =< 0 -> - undefined; - true -> - gs:button(FrameId, [{width, ?NEXT_BTN_WIDTH}, - {height, ?NEXT_BTN_HEIGHT}, - {x, XBack}, - {y, Y}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, ?NEXT_BTN_FG}, - {font, ?FONT}, - {align, center}, - {label, {text, "< Back"}}, - %% {underline, 2}, - {data, DataBack} - ]) - end, - NId = - if - DataNext > NofFrames -> - undefined; - true -> - gs:button(FrameId, [{width, ?NEXT_BTN_WIDTH}, - {height, ?NEXT_BTN_HEIGHT}, - {x, XNext}, - {y, Y}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, ?NEXT_BTN_FG}, - {font, ?FONT}, - {align, center}, - {label, {text, " Next >"}}, - %% {underline, 1}, - {data, DataNext} - ]) - end, - {BId, NId}. - - - - -get_next_btn_xpos(FrameWidth) -> - FrameWidth - ?X0 - ?NEXT_BTN_WIDTH. - - - -get_entry_width(TableType, FrameWidth, LblWidth) -> - HorizontalSpacing = - case TableType of - mnesia -> - 10; - ets -> - 0 - end, - FrameWidth - LblWidth - 2 * ?X0 - HorizontalSpacing. - - - -create_labels_and_entries(N, [H | T], [VH | VT], LblW, F, ListsAsStr) when N > 0 -> - Y = ?Y0 + (5 - N) * (?LABEL_HEIGHT + 10), - EntryW = get_entry_width(mnesia, ?FRAME_WIDTH, LblW), - EntryX = ?FRAME_WIDTH - EntryW - ?X0 - 2, - - EntryText = - case ListsAsStr of - true -> - tv_io_lib:format("~p", [VH]); - false -> - lists:flatten(io_lib:write(VH)) - end, - gs:label(F, [{width, LblW}, - {height, ?LABEL_HEIGHT}, - {x, ?X0}, - {y, Y}, - {bg, ?DEFAULT_BG_COLOR}, - {fg, {0,0,0}}, - {align,w}, - {font, ?FONT}, - {label, {text, atom_to_list(H)}} - ]), - gs:entry(H, F, [{width, EntryW}, - {height, ?LABEL_HEIGHT}, - {x, EntryX}, - {y, Y}, - {bg, {255,255,255}}, - {fg, {0,0,0}}, - {bw, 1}, - {font, ?FONT}, - {justify, left}, - {text, EntryText}, - {cursor, text}, - {setfocus, false}, - {enable, true}, - {keypress,true} - ]), - create_labels_and_entries(N - 1, T, VT, LblW, F, ListsAsStr); -create_labels_and_entries(0, RemAttrList, RemAttrValues, _LblW, _F, _ListsAsStr) -> - {RemAttrList, RemAttrValues}; -create_labels_and_entries(_N, [], [], _LblW, _F, _ListsAsStr) -> - {[], []}. - - - - -get_longest_attribute_name(AttrList) -> - get_longest_attribute_name(AttrList, 0, undefined). - - -get_longest_attribute_name([H | T], Max, Attr) -> - CurrLength = length(atom_to_list(H)), - if - CurrLength >= Max -> - get_longest_attribute_name(T, CurrLength, H); - true -> - get_longest_attribute_name(T, Max, Attr) - end; -get_longest_attribute_name([], _Max, Attr) -> - Attr. - - - - -get_window_height(N) -> - if - N >= 5 -> - ?WIN_HEIGHT; - true -> - ?WIN_HEIGHT - ((5 - N) * (?LABEL_HEIGHT + 10) + ?NEXT_BTN_HEIGHT + 8) - end. - - - -get_frame_height(N) -> - if - N >= 5 -> - ?FRAME_HEIGHT; - true -> - ?FRAME_HEIGHT - ((5 - N) * (?LABEL_HEIGHT + 10) + ?NEXT_BTN_HEIGHT + 8) - end. - - - - -set_entry_values(TabType, [H | T], [VH | VT], ListsAsStr) -> - EntryText = - case VH of - undefined when TabType =:= ets -> - ""; - _AnyValue -> - case ListsAsStr of - true -> - tv_io_lib:format("~p", [VH]); - false -> - lists:flatten(io_lib:write(VH)) - end - end, - gs:config(H, [{text, EntryText}]), - set_entry_values(TabType, T, VT, ListsAsStr); -set_entry_values(_TabType, [], [], _ListsAsStr) -> - done. diff --git a/lib/tv/src/tv_table_owner.erl b/lib/tv/src/tv_table_owner.erl deleted file mode 100644 index bccac6c236..0000000000 --- a/lib/tv/src/tv_table_owner.erl +++ /dev/null @@ -1,122 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 1998-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% --module(tv_table_owner). - - - --export([create/5 - ]). - - --export([internal_create/3, - start/0, - init/0 - ]). - - - --define(REGISTERED_NAME, tv_table_owner). - - - -create(mnesia, _Node, _LocalNode, _TableName, _Options) -> - error; -create(ets, _Node, true, TabName, Options) -> - case catch internal_create(ets, TabName, Options) of - {TabName, Pid} when is_pid(Pid) -> - {ok, {TabName,Pid}}; - {TabNo, Pid} when is_pid(Pid) -> - {ok, {TabNo,Pid}}; - _OtherResult -> - error - end; -create(ets, Node, false, TabName, Options) -> - case catch rpc:block_call(Node, ?MODULE, internal_create, [ets, TabName, Options]) of - {TabName, Pid} when is_pid(Pid) -> - {ok, {TabName,Pid}}; - {TabNo, Pid} when is_pid(Pid) -> - {ok, {TabNo,Pid}}; - _OtherResult -> - error - end. - - - - - -internal_create(ets, TabName, Options) -> - ?MODULE:start(), - ?REGISTERED_NAME ! {create, self(), ets, TabName, Options}, - receive - {?REGISTERED_NAME, Result} -> - Result - after - 5000 -> - error - end. - - - - - - -start() -> - case whereis(?REGISTERED_NAME) of - undefined -> - ServerPid = spawn(?MODULE, init, []), - case catch register(?REGISTERED_NAME, ServerPid) of - true -> - ok; - {'EXIT', _Reason} -> - exit(ServerPid, kill), - timer:sleep(500), - start() - end; - Pid when is_pid(Pid) -> - ok - end. - - - - - - - - -init() -> - %% Currently no initialisations! - loop(). - - - - - - -loop() -> - receive - - {create, Sender, ets, TabName, Options} -> - Sender ! {?REGISTERED_NAME, (catch ets:new(TabName, Options))}, - loop(); - - - _Other -> - loop() - - end. - diff --git a/lib/tv/src/tv_utils.erl b/lib/tv/src/tv_utils.erl deleted file mode 100644 index 799e3994cb..0000000000 --- a/lib/tv/src/tv_utils.erl +++ /dev/null @@ -1,179 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 1998-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% --module(tv_utils). --compile([{nowarn_deprecated_function,{gs,config,2}}, - {nowarn_deprecated_function,{gs,create,3}}, - {nowarn_deprecated_function,{gs,destroy,1}}]). - - - --export([notify/3]). - - - - %% Minimum size of help windows --define(wwin, 300). --define(hwin, 180). - - %% Button sizes --define(wbut, 60). --define(hbut, 30). - --define(pad, 10). - - -%---------------------------------------- -% notify(S,Strings) -> ok -% S = pid() GS -% Strings = string() | [string()] -% A notification window contains a message to the user. -% Will lock the GUI until the user confirms the message by -% pressing the 'Ok' button. -%---------------------------------------- -notify(S,Title,Strings) -> - W = required_width(Strings, ?wwin), - Htop = round(2 * ?hwin / 3), - Hbot = ?hwin - Htop, - - %% Open a new window - Win = gs:create(window,S,[{width, W}, - {height, ?hwin}, - {title, Title}, - {data, notifywin} - ]), - - %% Top frame containing a label - Top = gs:create(frame,Win,[{width, W}, - {height, Htop}, - {x, 0}, - {y, 0}, - {data, notifywin}, - {keypress, true} - ]), - - Lbl = gs:create(label,Top,[{width,W}, - {height, Htop - 2 * ?pad}, - {x, 0}, - {y, ?pad}, - {align, c}, - {justify, center}, - {data, notifywin}, - {keypress, true} - ]), - - gs:config(Lbl, {label, {text, insert_newlines(Strings)}}), - - %% Bottom frame containing an 'Ok' button - Bot = gs:create(frame,Win,[{width, W}, - {height, Hbot}, - {x, 0}, - {y, Htop} - ]), - gs:create(button,Bot,[{width, ?wbut}, - {height, ?hbut}, - {x, W / 2 - ?wbut/2}, - {y, Hbot / 2 - ?hbut / 2}, - {label, {text, "OK"}}, - {data, notifywin}, - {keypress, true}]), - - gs:config(Win, [{map,true}]), - - event_loop(Win,null). - - - - -insert_newlines([String|Rest]) when is_list(String), Rest=/=[]-> - String ++ "\n" ++ insert_newlines(Rest); -insert_newlines([Last]) -> - [Last]; -insert_newlines(Other) -> - Other. - - - - -event_loop(Win,Entry) -> - receive - - %% - %% Notify window - %% - - %% 'Ok' pressed in notify window - {gs,_Obj,_Event,notifywin,["OK"|_]} -> - gs:destroy(Win), - ok; - - %% 'Window manager destroy' received in notify window - {gs,_Obj,destroy,notifywin,_} -> - gs:destroy(Win), - ok; - - %% 'Return' pressed in notify or confirm window - {gs,_Obj,_Event,helpwin,['Return'|_]} -> - gs:destroy(Win), - ok; - - - %% - %% Common or partly common events - %% - - %% 'Window manager destroy' received in notify, - %% confirm,confirm_exit or request window - {gs,_Obj,destroy,_,_} -> - gs:destroy(Win), - cancel; - - %% Flush any other GS events - {gs,_Obj,_Event,_Data,_Arg} -> - event_loop(Win,Entry) - end. - - - - -%---------------------------------------- -% required_width(Strings,Min) -> Req -% Strings = string() | [string()] -% Min = Req = integer() -% Returns the minimum required width in pixels for a help window, -% which is the maximum of Min and the required width for Strings. -% NOTE: Font dependant really! -%---------------------------------------- -required_width([First|Rest],Min) when is_list(First) -> - Req = 7*length(First), % 7 pixels per character - if - Req>Min -> - required_width(Rest,Req); - true -> - required_width(Rest,Min) - end; -required_width([],Min) -> - Min; -required_width(String,Min) -> - Req = 7*length(String), - if - Req>Min -> - Req; - true -> - Min - end. - |