Select Code to Download

#!/usr/bin/perl
# vi: set ts=8 sw=2 et:
...
    $mw->fontConfigure($which, $mw->fontActual($newfont)); 
  }
}