From 8e0b5ea2d6a7c1ab0afdbfe9f7699d8231645824 Mon Sep 17 00:00:00 2001
From: Andry Ogorodnik <ogorodnik@adacore.com>
Date: Tue, 18 Sep 2018 20:11:22 +0300
Subject: [PATCH] R917-041 Unused data window preferences have been deleted.

Change-Id: I64f71f1a5958761fc22d00a7fe30a19d5623eced
---
 gvd/src/gvd-preferences.adb | 36 ------------------------------------
 gvd/src/gvd-preferences.ads |  6 ------
 2 files changed, 42 deletions(-)

diff --git a/gvd/src/gvd-preferences.adb b/gvd/src/gvd-preferences.adb
index ba4e5165fb..d9d0284fea 100644
--- a/gvd/src/gvd-preferences.adb
+++ b/gvd/src/gvd-preferences.adb
@@ -189,42 +189,6 @@ package body GVD.Preferences is
          Path      => -"Debugger:Memory",
          Default   => True);
 
-      Title_Font := Create
-        (Manager  => Prefs,
-         Name     => "Debugger-Title-Font",
-         Path     => -"Debugger:Data View",
-         Label    => -"Item name",
-         Doc      => -"Font used for variable names.",
-         Default  => "Sans Bold 9");
-
-      Type_Font := Create
-        (Manager  => Prefs,
-         Name     => "Debugger-Type-Font",
-         Path     => -"Debugger:Data View",
-         Label    => -"Item type",
-         Doc      => -"Font used for variable types.",
-         Default  => "Sans Oblique 9");
-
-      Max_Item_Width := Create
-        (Manager => Prefs,
-         Name    => "Browsers-Item-Max-Width",
-         Path    => -"Debugger:Data View",
-         Minimum => 1,
-         Maximum => Integer'Last,
-         Default => 1200,
-         Doc     => -"Maximum width of a box in Data view.",
-         Label   => -"Max item width");
-
-      Max_Item_Height := Create
-        (Manager => Prefs,
-         Name    => "Browsers-Item-Max-Height",
-         Path    => -"Debugger:Data View",
-         Minimum => 1,
-         Maximum => Integer'Last,
-         Default => 12000,
-         Doc     => -"Maximum height of a box in Data view.",
-         Label   => -"Max item height");
-
       Registers_Hexadecimal := Create_Invisible_Pref
         (Manager  => Prefs,
          Name     => "registers_view-hexadecimal",
diff --git a/gvd/src/gvd-preferences.ads b/gvd/src/gvd-preferences.ads
index 0693fa7142..ad43fa8d9b 100644
--- a/gvd/src/gvd-preferences.ads
+++ b/gvd/src/gvd-preferences.ads
@@ -61,12 +61,6 @@ package GVD.Preferences is
    Registers_Raw                 : Boolean_Preference;
    Registers_Natural             : Boolean_Preference;
 
-   -- Data Window --
-   Title_Font                    : Font_Preference;
-   Type_Font                     : Font_Preference;
-   Max_Item_Width                : Integer_Preference;
-   Max_Item_Height               : Integer_Preference;
-
    -- Memory Window --
    Memory_View_Color             : Color_Preference;
    Memory_Highlighted_Color      : Color_Preference;