2002-11-11 Martin M. Hunt <hunt@redhat.com>
+ * library/data.ith: Deleted.
+ * library/data.itb: Deleted.
+
+2002-11-11 Martin M. Hunt <hunt@redhat.com>
+
+ * library/memwin.itb: Supply arg to _update_address.
+
+2002-11-11 Martin M. Hunt <hunt@redhat.com>
+
* library/toolbar.tcl: Deleted this obsolete file.
* library/tclIndex: Rebuilt.
+++ /dev/null
-# Data-type class implementations for GDBtk.
-# Copyright 1997, 1998, 1999 Cygnus Solutions
-#
-# This program is free software; you can redistribute it and/or modify it
-# under the terms of the GNU General Public License (GPL) as published by
-# the Free Software Foundation; either version 2 of the License, or (at
-# your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-
-# ------------------------------------------------------------------
-# Stack
-# ------------------------------------------------------------------
-itcl::body Stack::constructor {} {
- set _stack {}
-}
-
-itcl::body Stack::push {args} {
- set _stack [concat $_stack $args]
-}
-
-itcl::body Stack::destructor {} {
-}
-
-itcl::body Stack::pop {} {
- set thing [lindex $_stack end]
- set _stack [lreplace $_stack end end]
- return $thing
-}
-
-# ------------------------------------------------------------------
-# Queue
-# ------------------------------------------------------------------
-itcl::body Queue::constructor {} {
-}
-
-itcl::body Queue::destructor {} {
-}
-
-itcl::body Queue::pop {} {
- set thing [lindex $_stack 0]
- set _stack [lreplace $_stack 0 0]
- return $thing
-}
-
+++ /dev/null
-# Data-type class definitions for GDBtk.
-# Copyright 1997, 1998, 1999 Cygnus Solutions
-#
-# This program is free software; you can redistribute it and/or modify it
-# under the terms of the GNU General Public License (GPL) as published by
-# the Free Software Foundation; either version 2 of the License, or (at
-# your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-
-# Generic Stack
-itcl::class Stack {
-
- public {
- method constructor {}
- method destructor {}
-
- # Pop the stack. Empty string means empty stack.
- method pop {}
-
- # Push ARGS onto the stack.
- method push {args}
- }
-
- protected variable _stack
-}
-
-# Generic Queue
-itcl::class Queue {
- inherit Stack
-
- public {
- method constructor {}
- method destructor {}
-
- # Pop the queue. Empty string means empty queue.
- method pop {}
- }
-}