Select Code to Download

# MainWindow  $MW
# Frame         Frame1
...
# Frame             sourceoneFrame # Mutually exclusive
# Frame             sourcetwoFrame # Mutually exclusive
# Label             StringLabel

  -command  =>
    $typeframes{'source'}->{ $config{'sourcetype'} }->( \%tkobjects ),

    # $option_command will be an anon sub,
    # with sole access to %typeframes.
...
    # the OptionMenu was created!

    MainLoop;