Merge branch 'dgud/remove-gs-apps/OTP-10915'

1 files changed, 0 insertions, 884 deletions

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