Select Code to Download

    OBJECTNAME_Eventname

    sub Button1_Click {
        # ...do something...
    }

sub Button1_Click { ... }

...
  -name => 'Button1',
  ...,
);

$main->AddButton(
  -name => 'Button1',
  -onClick => sub { ... },
  ...,
);