menu channel { 
  .$iif($group(#coltxt).status iswm on, Auto-color is on, Auto-Color is off) 
  ..Turn auto-color off:disable #coltxt
  ..Turn auto-color on:enable #coltxt
}

#coltxt on
on *:input:*:{
  if ($left($1,1) == /) || ($left($1,1) == !) { goto last }
  msg $active 4 $+ $1- 
  halt
  :last
}
#coltxt end