Index: ltk.lisp
===================================================================
--- ltk.lisp	(revision 212)
+++ ltk.lisp	(working copy)
@@ -244,6 +244,7 @@
            #:labelframe
            #:listbox
            #:listbox-append
+           #:listbox-delete
            #:listbox-clear
            #:listbox-configure
            #:listbox-get-selection
@@ -2162,13 +2163,16 @@
           (format-wish "~a selection set ~a" (widget-path l) val)))
   l)
 
+(defgeneric listbox-delete (l start &optional end))
+(defmethod listbox-delete ((l listbox) start &optional end)
+  (format-wish "~a delete ~a ~@[~a~]" (widget-path l) start end)
+  l)
+
 (defgeneric listbox-clear (l))
-
 (defmethod listbox-clear ((l listbox))
   (format-wish "~a delete 0 end" (widget-path l))
   l)
 
-
 (defgeneric listbox-configure (l i &rest options))
 (defmethod listbox-configure ((l listbox) index &rest options)
   (format-wish "~a itemconfigure ~a ~{ -~(~a~) {~(~a~)}~}" (widget-path l) index options)