Lines Matching refs:class
32 set class $cname
41 return "$class: $total produced, $actives active, $accidents accidents"
43 protected class {}
52 set class [virtual info class]
53 if {![info exists recs($class)]} {
54 set recs($class) [HazardRec #auto $class]
56 $recs($class) change total +1
57 $recs($class) change actives +1
60 set class [virtual info class]
61 $recs($class) change actives -1
65 set class [virtual info class]
66 $recs($class) change accidents +1
70 proc report {class} {
71 if {[info exists recs($class)]} {
72 return [$recs($class) report]
74 error "no information for class \"$class\""