global notes_loc
return [string length $notes_loc]
}
+proc have-ownership {} {
+ return [expr {[have-notes] && [string length $pirate]}]
+}
proc argdefaults {} {
global ocean notes_loc pirate scraper
}
if {![info exists pirate]} {
set pirate {}
- glset filter_lockown_separate 1
}
if {![have-notes]} {
glset filter_lockown_separate 1
-command [list redraw-needed radio-smasher $sma] \
-text [lindex $descs $i]
}
+ return $w
}
proc make-smashers {} {
make-radio-smasher subclass Class smash_subclass \
{Show Normal/LE Hide} 1 0
- glset smash_owner [expr {[have-notes] ? 0 : 3}]
- make-radio-smasher owner "Lock/\nowner" smash_owner \
- {Show Yours? {For you} Lock Hide} 2 3
+ 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-ownership]} {
+ foreach ix {1 2} { $cw.$ix configure -state disabled }
+ }
set cw [make-smasher xabbrev "Flags" frame]
foreach ix {1 3} ab {a b} width {14 12} {
label .smash.title -text {Display/combine details}
grid .smash.title -row 0 -column 0 -columnspan 2
- set filterstyle 1
+ set filterstyle [expr {[have-ownership] ? 1 : 3}]
trace add variable filterstyle write filterstyle-changed
frame .filter.title
label .filter.title.title -text Show
pack .filter.title.title -side left
- for {set fing 0} {$fing < 4} {incr fing} {
+ foreach fing {0 1 2 3} {
radiobutton .filter.title.f$fing \
-variable filterstyle -value $fing \
-text [lindex {All Useable Mine These:} $fing]
pack .filter.title.f$fing -side left
}
+ if {![have-ownership]} {
+ foreach fing {1 2} { .filter.title.f$fing configure -state disabled }
+ }
grid configure .filter.title -row 0 -column 0 -columnspan 2