diff --git a/tcl/startup/visibility.tcl b/tcl/startup/visibility.tcl
new file mode 100644
index 0000000..96c3a9e
--- /dev/null
+++ b/tcl/startup/visibility.tcl
@@ -0,0 +1,17 @@
+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
+}
+