--- ns-2.1b9a/tcl/lib/ns-lib.tcl	Fri Jun 21 01:26:18 2002+++ ns-2.1b9a-wfq/tcl/lib/ns-lib.tcl	Wed Nov 27 11:36:24 2002@@ -895,6 +895,10 @@ 		set qtype [lindex $args 0] 		set q [new Queue/$qtype] 	    }+            WFQ {+                 set q [new Queue/$qtype]+                 $q set bandwidth_ $bw+            } 	    default { 		if { [llength $args] == 0} { 		    set q [new Queue/$qtype]@@ -1323,6 +1327,11 @@ 	[$link_([$n1 id]:[$n2 id]) queue] set limit_ $limit } +Simulator instproc wfqclassifier-install { n1 n2 clssf } {+	$self instvar link_+	[$link_([$n1 id]:[$n2 id]) queue] install $clssf+}+ Simulator instproc drop-trace { n1 n2 trace } { 	$self instvar link_ 	[$link_([$n1 id]:[$n2 id]) queue] drop-target $trace