Permalink
Browse files

Remove some more old, unused code

  • Loading branch information...
1 parent cc097a4 commit 024311c49e928b1ed3a8c7c6b890a2bb783ed3a3 @igfoo igfoo committed Mar 21, 2013
Showing with 2 additions and 1,051 deletions.
  1. +0 −75 rts/VisCallbacks.c
  2. +0 −30 rts/VisCallbacks.h
  3. +0 −144 rts/VisSupport.c
  4. +0 −44 rts/VisSupport.h
  5. +0 −747 rts/VisWindow.c
  6. +0 −5 rts/VisWindow.h
  7. +2 −6 rts/ghc.mk
View
@@ -1,75 +0,0 @@
-/* -----------------------------------------------------------------------------
- *
- * (c) The GHC Team 2000
- *
- * RTS GTK Front Panel (callbacks)
- *
- * ---------------------------------------------------------------------------*/
-
-#ifdef RTS_GTK_FRONTPANEL
-
-#include "Rts.h"
-
-#include <gtk/gtk.h>
-
-#include "VisCallbacks.h"
-#include "VisWindow.h"
-#include "VisSupport.h"
-#include "FrontPanel.h"
-
-void
-on_cont_radio_clicked (GtkButton *button,
- gpointer user_data)
-{
- update_mode = Continuous;
-}
-
-
-void
-on_stop_before_radio_clicked (GtkButton *button,
- gpointer user_data)
-{
- update_mode = BeforeGC;
-}
-
-
-void
-on_stop_after_radio_clicked (GtkButton *button,
- gpointer user_data)
-{
- update_mode = AfterGC;
-}
-
-
-void
-on_stop_both_radio_clicked (GtkButton *button,
- gpointer user_data)
-{
- update_mode = BeforeAfterGC;
-}
-
-
-void
-on_stop_but_clicked (GtkButton *button,
- gpointer user_data)
-{
- stop_now = TRUE;
-}
-
-
-void
-on_continue_but_clicked (GtkButton *button,
- gpointer user_data)
-{
- continue_now = TRUE;
-}
-
-
-void
-on_quit_but_clicked (GtkButton *button,
- gpointer user_data)
-{
- quit = TRUE;
-}
-
-#endif /* RTS_GTK_FRONTPANEL */
View
@@ -1,30 +0,0 @@
-#include <gtk/gtk.h>
-
-
-void
-on_cont_radio_clicked (GtkButton *button,
- gpointer user_data);
-
-void
-on_stop_before_radio_clicked (GtkButton *button,
- gpointer user_data);
-
-void
-on_stop_after_radio_clicked (GtkButton *button,
- gpointer user_data);
-
-void
-on_stop_both_radio_clicked (GtkButton *button,
- gpointer user_data);
-
-void
-on_stop_but_clicked (GtkButton *button,
- gpointer user_data);
-
-void
-on_continue_but_clicked (GtkButton *button,
- gpointer user_data);
-
-void
-on_quit_but_clicked (GtkButton *button,
- gpointer user_data);
View
@@ -1,144 +0,0 @@
-/*
- * DO NOT EDIT THIS FILE - it is generated by Glade.
- */
-
-#ifdef HAVE_CONFIG_H
-# include <config.h>
-#endif
-
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <unistd.h>
-#include <string.h>
-#include <stdio.h>
-
-#include <gtk/gtk.h>
-
-#include "VisSupport.h"
-
-GtkWidget*
-lookup_widget (GtkWidget *widget,
- const gchar *widget_name)
-{
- GtkWidget *parent, *found_widget;
-
- for (;;)
- {
- if (GTK_IS_MENU (widget))
- parent = gtk_menu_get_attach_widget (GTK_MENU (widget));
- else
- parent = widget->parent;
- if (!parent)
- parent = (GtkWidget*) g_object_get_data (G_OBJECT (widget), "GladeParentKey");
- if (parent == NULL)
- break;
- widget = parent;
- }
-
- found_widget = (GtkWidget*) g_object_get_data (G_OBJECT (widget),
- widget_name);
- if (!found_widget)
- g_warning ("Widget not found: %s", widget_name);
- return found_widget;
-}
-
-static GList *pixmaps_directories = NULL;
-
-/* Use this function to set the directory containing installed pixmaps. */
-void
-add_pixmap_directory (const gchar *directory)
-{
- pixmaps_directories = g_list_prepend (pixmaps_directories,
- g_strdup (directory));
-}
-
-/* This is an internally used function to find pixmap files. */
-static gchar*
-find_pixmap_file (const gchar *filename)
-{
- GList *elem;
-
- /* We step through each of the pixmaps directory to find it. */
- elem = pixmaps_directories;
- while (elem)
- {
- gchar *pathname = g_strdup_printf ("%s%s%s", (gchar*)elem->data,
- G_DIR_SEPARATOR_S, filename);
- if (g_file_test (pathname, G_FILE_TEST_EXISTS))
- return pathname;
- g_free (pathname);
- elem = elem->next;
- }
- return NULL;
-}
-
-/* This is an internally used function to create pixmaps. */
-GtkWidget*
-create_pixmap (GtkWidget *widget,
- const gchar *filename)
-{
- gchar *pathname = NULL;
- GtkWidget *pixmap;
-
- if (!filename || !filename[0])
- return gtk_image_new ();
-
- pathname = find_pixmap_file (filename);
-
- if (!pathname)
- {
- g_warning ("Couldn't find pixmap file: %s", filename);
- return gtk_image_new ();
- }
-
- pixmap = gtk_image_new_from_file (pathname);
- g_free (pathname);
- return pixmap;
-}
-
-/* This is an internally used function to create pixmaps. */
-GdkPixbuf*
-create_pixbuf (const gchar *filename)
-{
- gchar *pathname = NULL;
- GdkPixbuf *pixbuf;
- GError *error = NULL;
-
- if (!filename || !filename[0])
- return NULL;
-
- pathname = find_pixmap_file (filename);
-
- if (!pathname)
- {
- g_warning ("Couldn't find pixmap file: %s", filename);
- return NULL;
- }
-
- pixbuf = gdk_pixbuf_new_from_file (pathname, &error);
- if (!pixbuf)
- {
- fprintf (stderr, "Failed to load pixbuf file: %s: %s\n",
- pathname, error->message);
- g_error_free (error);
- }
- g_free (pathname);
- return pixbuf;
-}
-
-/* This is used to set ATK action descriptions. */
-void
-glade_set_atk_action_description (AtkAction *action,
- const gchar *action_name,
- const gchar *description)
-{
- gint n_actions, i;
-
- n_actions = atk_action_get_n_actions (action);
- for (i = 0; i < n_actions; i++)
- {
- if (!strcmp (atk_action_get_name (action, i), action_name))
- atk_action_set_description (action, i, description);
- }
-}
-
View
@@ -1,44 +0,0 @@
-/*
- * DO NOT EDIT THIS FILE - it is generated by Glade.
- */
-
-#ifdef HAVE_CONFIG_H
-# include <config.h>
-#endif
-
-#include <gtk/gtk.h>
-
-/*
- * Public Functions.
- */
-
-/*
- * This function returns a widget in a component created by Glade.
- * Call it with the toplevel widget in the component (i.e. a window/dialog),
- * or alternatively any widget in the component, and the name of the widget
- * you want returned.
- */
-GtkWidget* lookup_widget (GtkWidget *widget,
- const gchar *widget_name);
-
-
-/* Use this function to set the directory containing installed pixmaps. */
-void add_pixmap_directory (const gchar *directory);
-
-
-/*
- * Private Functions.
- */
-
-/* This is used to create the pixmaps used in the interface. */
-GtkWidget* create_pixmap (GtkWidget *widget,
- const gchar *filename);
-
-/* This is used to create the pixbufs used in the interface. */
-GdkPixbuf* create_pixbuf (const gchar *filename);
-
-/* This is used to set ATK action descriptions. */
-void glade_set_atk_action_description (AtkAction *action,
- const gchar *action_name,
- const gchar *description);
-
Oops, something went wrong.

0 comments on commit 024311c

Please sign in to comment.