[beast: 7/10] BST: remove procedure left overs

[Tim Janik <timj src gnome org>]

commit 478a44db43b822e49b01944c9096b847e09ec3f9
Author: Tim Janik <timj gnu org>
Date:   Sun Oct 8 01:08:57 2017 +0200

    BST: remove procedure left overs
    
    Signed-off-by: Tim Janik <timj gnu org>

 beast-gtk/bstapp.cc      |   53 ----------------------------------------------
 beast-gtk/bstbseutils.cc |   13 -----------
 beast-gtk/bstbseutils.hh |    1 -
 3 files changed, 0 insertions(+), 67 deletions(-)
---
diff --git a/beast-gtk/bstapp.cc b/beast-gtk/bstapp.cc
index 11c0147..9113c0a 100644
--- a/beast-gtk/bstapp.cc
+++ b/beast-gtk/bstapp.cc
@@ -31,7 +31,6 @@ enum {
   ACTION_INTERNALS = BST_ACTION_APP_LAST,
   /* dialogs */
   ACTION_SHOW_PREFERENCES,
-  ACTION_SHOW_PROC_BROWSER,
   ACTION_SHOW_PROFILER,
   ACTION_EXTRA_VIEW,
 #define ACTION_HELP_FIRST   ACTION_HELP_INDEX
@@ -98,8 +97,6 @@ static const GxkStockAction undo_dvl_actions[] = {
     BST_ACTION_CLEAR_UNDO,      BST_STOCK_CLEAR_UNDO, },
 };
 static const GxkStockAction dialog_actions[] = {
-  { N_("Procedure _Browser"),   NULL,           N_("Display an overview of all procedures"),
-    ACTION_SHOW_PROC_BROWSER, },
   { N_("Profiler"),             NULL,           N_("Display statistics and timing information"),
     ACTION_SHOW_PROFILER, },
   { N_("New View"),             NULL,           N_("Create an extra view of the project"),
@@ -897,54 +894,6 @@ app_action_exec (gpointer data,
       any = bst_profiler_window_get ();
       gxk_idle_show_widget (any);
       break;
-    case ACTION_SHOW_PROC_BROWSER:
-#if 0 // FIXME
-      if (!bst_proc_browser)
-        {
-          GtkWidget *widget;
-
-          widget = bst_proc_browser_new ();
-          gtk_widget_show (widget);
-          bst_proc_browser = gxk_dialog_new (&bst_proc_browser,
-                                             NULL,
-                                             GXK_DIALOG_HIDE_ON_DELETE,
-                                             _("Procedure Browser"),
-                                             widget);
-          bst_proc_browser_create_buttons (BST_PROC_BROWSER (widget), GXK_DIALOG (bst_proc_browser));
-        }
-      gxk_idle_show_widget (bst_proc_browser);
-#endif
-      sfi_alloc_report ();
-#if 0 // FIXME
-      {
-        GSList *slist, *olist = g_object_debug_list();
-        guint i, n_buckets = 257;
-        guint buckets[n_buckets];
-        guint max=0,min=0xffffffff,empty=0,avg=0;
-        memset(buckets,0,sizeof(buckets[0])*n_buckets);
-        for (slist = olist; slist; slist = slist->next)
-          {
-            guint hash, h = (guint) slist->data;
-            hash = (h & 0xffff) ^ (h >> 16);
-            hash = (hash & 0xff) ^ (hash >> 8);
-            hash = h % n_buckets;
-            buckets[hash]++;
-          }
-        for (i = 0; i < n_buckets; i++)
-          {
-            printerr ("bucket[%u] = %u\n", i, buckets[i]);
-            max = MAX (max, buckets[i]);
-            min = MIN (min, buckets[i]);
-            avg += buckets[i];
-            if (!buckets[i])
-              empty++;
-          }
-        printerr ("n_objects: %u, minbucket=%u, maxbucket=%u, empty=%u, avg=%u\n",
-                    avg, min, max, empty, avg / n_buckets);
-        g_slist_free (olist);
-      }
-#endif
-      break;
     case BST_ACTION_REBUILD:
       gtk_container_foreach (GTK_CONTAINER (self->notebook),
                              (GtkCallback) rebuild_super_shell,
@@ -1079,8 +1028,6 @@ app_action_check (gpointer data,
       if (self->project && self->project.is_playing())
         return TRUE;
       return FALSE;
-    case ACTION_SHOW_PROC_BROWSER:
-      return FALSE;
     case ACTION_SHOW_PREFERENCES:
     case ACTION_EXTRA_VIEW:
     case ACTION_SHOW_PROFILER:
diff --git a/beast-gtk/bstbseutils.cc b/beast-gtk/bstbseutils.cc
index aa6ca88..3e37565 100644
--- a/beast-gtk/bstbseutils.cc
+++ b/beast-gtk/bstbseutils.cc
@@ -55,19 +55,6 @@ bst_project_import_midi_file (Bse::ProjectH project, const gchar *file_name)
   return error;
 }
 
-const gchar*
-bst_procedure_get_title (const gchar *procedure)
-{
-  if (procedure)
-    {
-      Bse::CategorySeq cseq = bse_server.category_match_typed ("*", procedure);
-      if (cseq.size())
-        return cseq[0].category.c_str() + bst_path_leaf_index (cseq[0].category);
-    }
-  return NULL;
-}
-
-
 Bse::Category
 bst_category_find (const String &pattern)
 {
diff --git a/beast-gtk/bstbseutils.hh b/beast-gtk/bstbseutils.hh
index 96f9b91..2b00964 100644
--- a/beast-gtk/bstbseutils.hh
+++ b/beast-gtk/bstbseutils.hh
@@ -37,7 +37,6 @@ Bse::Error    bst_project_restore_from_file   (Bse::ProjectH   project,
                                                 bool            preserve_non_dirty);
 Bse::Error    bst_project_import_midi_file    (Bse::ProjectH   project,
                                                  const gchar    *file_name);
-const gchar*    bst_procedure_get_title         (const gchar    *procedure);
 uint            bst_path_leaf_index             (const String &path, char separator = '/');
 Bse::Category   bst_category_find               (const String &pattern);