Select Code to Download

perl -MTk -e"print tkinit->messageBox(qw, -default ok -type okcancel ,
+)"
Cancel

perl -MTk -e"print tkinit->MsgBox(qw, -default ok -type okcancel ,)->S
+how"
Assuming 'require Tk::MsgBox;' at -e line 1
cancel

perl -MTk -e"print tkinit->DialogBox(qw, -buttons , , [qw, ok cancel ,
+])->Show"
...
perl -MTk -e"print tkinit->DialogBox(qw, -default_button ok -buttons ,
+ , [qw, ok cancel ,])->Show"
Assuming 'require Tk::DialogBox;' at -e line 1
ok

perl -MTk -e"print tkinit->DialogBox(qw, -default_button cancel -butto
+ns , , [qw, ok cancel ,])->Show"

perl -MWx=wxYES,wxNO -e"warn wxYES;warn wxNO; die Wx::MessageBox( 1 , 
+2, wxYES|wxNO )"
2 at -e line 1.
8 at -e line 1.
8 at -e line 1.