+ _Screens => {
+ item_type =>'<Branch>',
+ children => [
+ _Dx => {
+ item_type => '<CheckMenuItem>',
+ callback => sub { set_win(\$wantdx, $@)},
+ },
+ _Announce => {
+ item_type => '<CheckItem>',
+ callback => sub { set_win(\$wantann, $@)},
+ },
+ _Chat => {
+ item_type => '<CheckItem>',
+ callback => sub { set_win(\$wantchat, $@)},
+ },
+ _WWV => {
+ item_type => '<CheckItem>',
+ callback => sub { set_win(\$wantwwv, $@)},
+ },
+ _WCY => {
+ item_type => '<CheckItem>',
+ callback => sub { set_win(\$wantwcy, $@)},
+ },
+ ],
+ },