Miscellany

    Window(
            VBox(FLEX,
                HBox(ALIGN_LEFT,
                    MenuList(selectedIndex => 1,
                        MenuPopup(
                            MenuItem(label => "Order ID", ),
                            MenuItem(label => "Last Name", ),
                            ),
                        ),
                    $ptrs->{search} = TextBox(),
                    Button(label => 'Find', tabindex => 1,
                        Click => sub { $self->findUser(); }
                        ),
                    Label( value => "Status"),
                    $ptrs->{status} = Label ( value=>"OK" ),
                    ),
                HBox(ALIGN_LEFT,
                    Label( value=> "Reports"),
                    MenuList(selectedIndex => -1,
                        MenuPopup(map { MenuItem(label => $_->[0] ) } @$reports),
                        Select => sub { $self->getReport( shift->selectedIndex ) }
                        ),
                    Label( value=> "Update Queries"),
                    MenuList(selectedIndex => -1,
                        MenuPopup(map { MenuItem(label => $_->[0] ) } @$queries),
                        Select => sub { $self->runQuery( shift->selectedIndex ) }
                        ),
                    Label( value=> "Applications"),
                    MenuList(selectedIndex => -1,
                        MenuPopup(map { MenuItem(label => $_->[0] ) } @$apps),
                        Select => sub { $self->runApp( $apps->[shift->selectedIndex]->[1] ) }
                        ),
                    ),
                $ptrs->{lencl} = VBox (FILL, style => 'overflow: auto',
                    )
                )
          );