Perl To Python Migration

DIALOG BOX SAMPLE

For one final example, here are two scripts which define functions for creating simple dialog boxes in Tk. The Perl version is shown below. The dialog box accepts a list of arguments which set the parent widget, dialog box title, lead-in text, bitmap, the default button selection (activated when you press Return), and a list of further button options. The return value is the number of the button that was pressed, or zero if the default was selected.

 #! /usr/local/bin/perl -w use Tk; sub dialog { my ($master, $title, $text, $bitmap, $default, @butdefs) = @_; $w = MainWindow->new(); $w->title($title); $w->iconname('Dialog'); $top = $w->Frame(relief => 'raised', borderwidth => 1); $top->pack(side => 'top', fill => 'both'); $bot ...