Removed code for deprecated tree widget

[clg] / gtk / gtktypes.lisp

diff --git a/gtk/gtktypes.lisp b/gtk/gtktypes.lisp
index 3195f97fabe3e402bc4825f25830cb8bbb173cae..6a03a44fbaf1ac24bdb7afec89149d499c3365ae 100644 (file)
--- a/gtk/gtktypes.lisp
+++ b/gtk/gtktypes.lisp
@@ -15,7 +15,7 @@
 ;; License along with this library; if not, write to the Free Software
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
-;; $Id: gtktypes.lisp,v 1.5 2001-01-28 14:21:04 espen Exp $
+;; $Id: gtktypes.lisp,v 1.6 2001-01-28 14:27:17 espen Exp $
 
 
 
@@ -710,20 +710,6 @@ (defclass list-item-child (item-child)
   (:metaclass child-class))
   
 
-;; deprecated
-(defclass tree-item (item)
-  ()
-;   :slots
-;   ;; slots not accessible through the arg mechanism
-;   ((subtree                :write-method :lisp :type tree-item)))
-  (:metaclass container-class)
-  (:alien-name "GtkTreeItem"))
-
-(defclass tree-item-child (item-child)
-  ()
-  (:metaclass child-class))
-
-
 (defclass window (bin)
   ((type
     :allocation :param
@@ -1642,19 +1628,6 @@ (defclass toolbar-child (container-child)
   (:metaclass child-class))
 
 
-;; Deprecated
-(defclass tree (container)
-  ()
-;   :slots
-;   ;; slots not accessible through the arg mechanism
-;   ((selection-mode         :type selection-mode)
-;    (view-mode              :type tree-view-mode)
-;    (view-lines             :type boolean)
-;    (root-tree              :read-only t :type tree)))
-  (:metaclass container-class)
-  (:alien-name "GtkTree"))
-
-
 (defclass calendar (widget)
   ()
   (:metaclass widget-class)