--- ltk-original.lisp	2010-10-03 14:57:02.000000000 +1300
+++ ltk.lisp	2010-10-03 14:57:50.000000000 +1300
@@ -2685,30 +2685,39 @@
 (defwrapper treeview (tktextvariable widget) () "ttk::treeview")
 
 (defgeneric children (tree item))
+#-:tk84
 (defmethod children ((tree treeview) item)
   (format-wish "~a children ~a" (widget-path tree) item))
 
 (defgeneric (setf children) (val tree item))
+
+#-:tk84
 (defmethod (setf children) (val (tree treeview) item)
   (format-wish "~a children ~a {~{~a~^ ~}}" (widget-path tree) item val))
 
 (defgeneric column-configure (tree column option value &rest rest))
+
+#-:tk84
 (defmethod column-configure ((tree treeview) column option value &rest rest)
   (format-wish "~a column ~a -~(~a~) {~a}~{ -~(~a~) {~(~a~)}~}" (widget-path tree) column
 	       option value rest))
 
 (defgeneric treeview-delete (tree items))
+#-:tk84
 (defmethod treeview-delete ((tree treeview) item)
   (format-wish "~a delete {~a}" (widget-path tree) item))
+#-:tk84
 (defmethod treeview-delete ((tree treeview) (items cons))
    (format-wish "~a delete {~{~a~^ ~}}" (widget-path tree) items))
 
 (defgeneric treeview-exists (tree item))
+#-:tk84
 (defmethod treeview-exists ((tree treeview) item)
   (format-wish "senddata [~a exists ~a]" (widget-path tree) item)
   (= (read-data) 1))
 
 (defgeneric treeview-focus (tree))
+#-:tk84
 (defmethod treeview-focus ((tree treeview))
   (format-wish "senddatastring [~a focus]" (widget-path tree))
   (read-data))