}
}
+proc make-smashers {} {
+ make-radio-smasher subclass Subclass smash_subclass \
+ {Show Normal/LE Hide} 1 0
+
+ make-radio-smasher owner Owner smash_owner \
+ {Show Yours? {For you} Lock Hide} 2 3
+
+ global vc_codes vc_code2abbrev
+
+ set cw [make-smasher size "Size\nround down" frame]
+ populate-control-grid-tickboxes $cw 2 0 smash_size $vc_codes \
+ image val { return 0 } { return $vc_code2abbrev($val) }
+}
+
#---------- filtering ----------
set filters {}
frame .islands -pady 2
pack .cp .filter .islands .smash -side top
- label .smash.title -text Smash
+ label .smash.title -text {Display/combine details}
grid .smash.title -row 0 -column 0 -columnspan 2
- make-radio-smasher subclass Subclass smash_subclass \
- {Show Normal/LE Hide} 1 0
-
- make-radio-smasher owner Owner smash_owner \
- {Show Yours? {For you} Lock Hide} 2 3
-
set filterstyle 1
trace add variable filterstyle write filterstyle-changed
load-chart
widgets-setup
make-filters
+make-smashers
set notes_data {}
if {[catch { parse-clipboard } emsg]} {