view release on metacpan or  search on metacpan

lib/App/Device/Chip/UI/UARTBox.pm  view on Meta::CPAN

   $gridbox->append_row(
      [
         Tickit::Widget::Static->new(
            text   => "Baud",
            valign => "middle",
         ),

         Tickit::Widget::Choice->new(
            choices => [
               map { [ $_, $_ ] } qw( 300 600 1200 2400 4800 9600 19200 38400 57600 115200 )
            ],
            on_changed => sub {
               my ( undef, $baud ) = @_;
               $_protocol->configure( baudrate => $baud )->get;
            },
         ),
      ]
   );

   # TODO: bits