18 lines
319 B
Tcl
18 lines
319 B
Tcl
proc visibilityLayout args {
|
|
Group visibility "visibility"
|
|
}
|
|
|
|
proc visibilityGroup {} {
|
|
global shown_groups
|
|
if {[info exists shown_groups(expertMode)]} {
|
|
Group expertMode "expert mode is on"
|
|
} else {
|
|
Group expertMode "expert mode is off"
|
|
}
|
|
}
|
|
|
|
proc expertModeGroup {} {
|
|
Label expert items visible
|
|
}
|
|
|