return [string length $notes_loc]
}
proc have-ownership {} {
+ global pirate
return [expr {[have-notes] && [string length $pirate]}]
}
glset smash_owner [expr {[have-ownership] ? 0 : 3}]
set cw [make-radio-smasher owner "Lock/\nowner" smash_owner \
{Show Yours? {For you} Lock Hide} 2 3]
+ if {![have-notes]} { $cw.0 configure -state disabled }
if {![have-ownership]} {
foreach ix {1 2} { $cw.$ix configure -state disabled }
}
frame .smash -relief groove -bd 2 -padx 1
frame .filter -relief groove -bd 2 -padx 1
frame .islands -pady 2
- pack .cp .filter .islands .smash -side top
+ pack .cp .filter .islands .smash -side top -fill x
label .smash.title -text {Display/combine details}
grid .smash.title -row 0 -column 0 -columnspan 2
#----- decoding etc. report -----
frame .cp.report
- pack .cp.report -side left -anchor n
+ pack .cp.report -side left -anchor n -fill both -expand y
label .cp.report.island -text { }
.cp.report.list .cp.report.abbrev1 -side top
bind .cp.report.list <<ListboxSelect>> show-report-abbrev1
- #pack .cp.report.code -side top
pack configure .cp.report.details -fill x
+ pack configure .cp.report.list -fill x
foreach sw {inport size subclass lock own xabbrev} {
label .cp.report.details.$sw -text { }