diff options
Diffstat (limited to 'gdb/gdbtk/plugins/rhabout')
| -rw-r--r-- | gdb/gdbtk/plugins/rhabout/ChangeLog | 17 | ||||
| -rw-r--r-- | gdb/gdbtk/plugins/rhabout/Makefile.in | 9 | ||||
| -rw-r--r-- | gdb/gdbtk/plugins/rhabout/pkgIndex.tcl | 2 | ||||
| -rw-r--r-- | gdb/gdbtk/plugins/rhabout/rhabout.c | 57 | ||||
| -rw-r--r-- | gdb/gdbtk/plugins/rhabout/rhabout.itcl | 87 | ||||
| -rw-r--r-- | gdb/gdbtk/plugins/rhabout/rhabout.tcl.in | 5 | ||||
| -rw-r--r-- | gdb/gdbtk/plugins/rhabout/tclIndex | 9 |
7 files changed, 0 insertions, 186 deletions
diff --git a/gdb/gdbtk/plugins/rhabout/ChangeLog b/gdb/gdbtk/plugins/rhabout/ChangeLog deleted file mode 100644 index 8f5ec3a0402..00000000000 --- a/gdb/gdbtk/plugins/rhabout/ChangeLog +++ /dev/null @@ -1,17 +0,0 @@ -2003-03-12 Martin M. Hunt <hunt@redhat.com> - - * rhabout.itcl (RHAbout): Fix call - to open_help. We no longer use HTMLViewer. - -2002-08-14 Keith Seitz <keiths@redhat.com> - - Merged from Red Hat internal branch: - 2001-11-30 Keith Seitz <keiths@redhat.com> - * rhabout.c: Update for building a DLL on cygwin. - (DllMain): New function. - * rhabout.tcl: Moved from ../ and renamed to - rhabout.tcl.in: configure needs to tweak the shared library name. - * rhabout.tcl.in: "New" file. - * Makefile.in: New (template) file. - * Makefile: Remove. - * pkgIndex.tcl: Moved from ../ here. diff --git a/gdb/gdbtk/plugins/rhabout/Makefile.in b/gdb/gdbtk/plugins/rhabout/Makefile.in deleted file mode 100644 index e63e568d6f4..00000000000 --- a/gdb/gdbtk/plugins/rhabout/Makefile.in +++ /dev/null @@ -1,9 +0,0 @@ -# Plugin definitions -PLUGIN = rhabout -PLUGIN_OBJS = rhabout.$(OBJEXT) -PLUGIN_IMAGE_BASE = 0x65000000 -PLUGIN_INSTALL_SRCDIR = rhabout.itcl -# Comment out this to install the example plugin -PLUGIN_INSTALL_TARGET = nothing - -nothing: diff --git a/gdb/gdbtk/plugins/rhabout/pkgIndex.tcl b/gdb/gdbtk/plugins/rhabout/pkgIndex.tcl deleted file mode 100644 index b56e703e31f..00000000000 --- a/gdb/gdbtk/plugins/rhabout/pkgIndex.tcl +++ /dev/null @@ -1,2 +0,0 @@ -package ifneeded RHABOUT 1.0 [list source [file join $dir rhabout.tcl]] - diff --git a/gdb/gdbtk/plugins/rhabout/rhabout.c b/gdb/gdbtk/plugins/rhabout/rhabout.c deleted file mode 100644 index fd6cc87eb4a..00000000000 --- a/gdb/gdbtk/plugins/rhabout/rhabout.c +++ /dev/null @@ -1,57 +0,0 @@ -/* Sample command procedure library for a plug-in. */ - -/* You have to include the Tcl headers, of course. */ -#include <tcl.h> - -/* Define the functions that implement your commands as required by Tcl */ -#ifdef __CYGWIN__ -# define EXPORT __declspec(dllexport) -#else -# define EXPORT /* nothing */ -#endif - -int extra_text (ClientData clientData, - Tcl_Interp *interp, - int argc, char *argv[]); - -/* Here you actually do whatever you want, like calling your target - libraries etc. Here we just return a string. */ - -int -extra_text (ClientData clientData, - Tcl_Interp *interp, - int argc, char *argv[]) -{ - interp->result = "\nThis is a sample plug-in\n"; - return TCL_OK; -} - -/* Initialization function required in Tcl libraries. */ - -int EXPORT -Rhabout_Init (Tcl_Interp *interp) -{ - /* Register your command as a Tcl command with this interpreter. */ - Tcl_CreateCommand (interp, "rhabout_extra_text", extra_text, - (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); - - /* Register this package */ - Tcl_PkgProvide (interp, "RHABOUT", "1.0"); - return TCL_OK; -} - -/* This is REQUIRED for cygwin */ -#ifdef __CYGWIN__ -#include <windows.h> -#include <tclInt.h> - -struct _reent *_impure_ptr; -extern struct _reent *_imp__reent_data; - -BOOL APIENTRY -DllMain (HINSTANCE hInstance, DWORD reason, LPVOID reserved) -{ - _impure_ptr = _imp__reent_data; - return TRUE; -} -#endif diff --git a/gdb/gdbtk/plugins/rhabout/rhabout.itcl b/gdb/gdbtk/plugins/rhabout/rhabout.itcl deleted file mode 100644 index 02a83517dfd..00000000000 --- a/gdb/gdbtk/plugins/rhabout/rhabout.itcl +++ /dev/null @@ -1,87 +0,0 @@ -class RHAbout { - inherit PluginWindow - constructor {args} { - global gdb_ImageDir - - # What about a menu? - $menubar add menubutton file "File" 0 - $menubar add command None "Close" \ - [code $this destroy_toplevel] \ - -underline 1 - $menubar add menubutton help "Help" 0 - $menubar add command Other "Help Topics" \ - {open_help index.html} \ - -underline 0 - $menubar add separator - $menubar add command Other "About GDB..." \ - {ManagedWin::open About -transient} \ - -underline 0 - - # The menu only shows up if you do this: - $menubar show - - # Do you want a toolbar? - $toolbar add button con Other {ManagedWin::open Console} \ - "Console (Ctrl+N)" -image console_img - - # The toolbar will only show up if you do this: - $toolbar show - - # Now, fill the childsite with some graphics and text - - # Remember to use the childsite, do not pack in the widget hull - set f [childsite] - - # Put in some graphics - label $f.image1 -bg white -image \ - [image create photo -file [file join $gdb_ImageDir insight.gif]] - - # Here we call an interface function provided by GDBTCL - set text [gdb_cmd {show version}] - - # Here we call a command procedure that we created, if it exists - catch {append text [rhabout_extra_text]} - - # Now add the text - message $f.m -bg white -fg black -text $text -aspect 500 -relief flat - - # Add a status bar so we can show some dynamic information - set _status [label $f.stat -relief sunken -bd 3 \ - -font global/status -height 1] - - # pack everything - pack $f.image1 $f.m -fill both -expand yes - pack $f.stat -expand 1 -fill both - pack $itk_interior - - # Give our sample window a name - window_name "About Red Hat Insight Plug-In" - } - - # You can overload the base class busy method, but make sure - # to call it as well or the menu and button status will not be updated - # (unless this is what you want) - public method busy {event} { - debug - # Call the baseclass version - PluginWindow::busy $event - - # Display something in the status area - $_status configure -text "Running..." - } - - # You can overload the base class idle method, but make sure - # to call it as well or the menu and button status will not be updated - # (unless this is what you want) - private method idle {} { - debug - # First call the baseclass version - PluginWindow::idle - - # Display something in the status area - $_status configure -text "Stopped." - } - - # Path to the status area - private variable _status -} diff --git a/gdb/gdbtk/plugins/rhabout/rhabout.tcl.in b/gdb/gdbtk/plugins/rhabout/rhabout.tcl.in deleted file mode 100644 index 61533da7501..00000000000 --- a/gdb/gdbtk/plugins/rhabout/rhabout.tcl.in +++ /dev/null @@ -1,5 +0,0 @@ -package provide RHABOUT 1.0 -set dirname [file dirname [info script]] -lappend auto_path $dirname -set TCL_DBGX "@TCL_DBGX@" ; # needed for cygwin -catch {load [file join $dirname rhabout@TCL_SHLIB_SUFFIX@]} diff --git a/gdb/gdbtk/plugins/rhabout/tclIndex b/gdb/gdbtk/plugins/rhabout/tclIndex deleted file mode 100644 index 6a7b8a87329..00000000000 --- a/gdb/gdbtk/plugins/rhabout/tclIndex +++ /dev/null @@ -1,9 +0,0 @@ -# Tcl autoload index file, version 2.0 -# This file is generated by the "auto_mkindex" command -# and sourced to set up indexing information for one or -# more commands. Typically each line is a command that -# sets an element in the auto_index array, where the -# element name is the name of a command and the value is -# a script that loads the command. - -set auto_index(RHAbout) [list source [file join $dir rhabout.itcl]] |