projects / OpenSPARC-T2-DV / blame
| Commit | Line | Data |
|---|---|---|
| 86530b38 AT |
1 | # msgBox.pl |
| 2 | ||
| 3 | use vars qw/$TOP/; | |
| 4 | ||
| 5 | sub msgBox { | |
| 6 | my($demo) = @_; | |
| 7 | $TOP = $MW->WidgetDemo( | |
| 8 | -name => $demo, | |
| 9 | -text => 'Choose the icon and type option of the message box. Then press the "Message Box" button to see the message box.', | |
| 10 | -title => 'messageBox Demo', | |
| 11 | -iconname => 'messageBox', | |
| 12 | ); | |
| 13 | ||
| 14 | my $upper = $TOP->Frame->pack; | |
| 15 | my $left = $upper->Frame; | |
| 16 | my $right = $upper->Frame; | |
| 17 | $left->pack(qw/-side left -expand yes -fill y -pady .5c -padx .5c/); | |
| 18 | $right->pack(qw/-side left -expand yes -fill y -pady .5c -padx .5c/); | |
| 19 | ||
| 20 | my $icon = $left->Label(qw/-text Icon/); | |
| 21 | my $lsep = $left->Frame(qw/-relief ridge -bd 1 -height 2/); | |
| 22 | $icon->pack(qw/-side top/); | |
| 23 | $lsep->pack(qw/-side top -fill x -expand no/); | |
| 24 | ||
| 25 | my $iconvar = 'info'; | |
| 26 | foreach my $i (qw/error info question warning/) { | |
| 27 | $left->Radiobutton(-text => $i, -variable => \$iconvar, -value => $i, | |
| 28 | qw/-width 16 -anchor w -relief flat/)->pack( | |
| 29 | qw/-side top -pady 2 -anchor w -fill x/); | |
| 30 | } | |
| 31 | ||
| 32 | ||
| 33 | my $rl = $right->Label(qw/-text Type/); | |
| 34 | my $rsep = $right->Frame(qw/-relief ridge -bd 1 -height 2/); | |
| 35 | $rl->pack(qw/-side top/); | |
| 36 | $rsep->pack(qw/-side top -fill x -expand no/); | |
| 37 | ||
| 38 | my $typevar = 'OK'; | |
| 39 | foreach my $t (qw/AbortRetryIgnore OK OKCancel RetryCancel YesNo YesNoCancel/) { | |
| 40 | $right->Radiobutton(-text => $t, -variable => \$typevar, -value => $t, | |
| 41 | qw/-relief flat -width 16 -anchor w/)->pack( | |
| 42 | qw/-side top -pady 2 -anchor w -fill x/); | |
| 43 | } | |
| 44 | ||
| 45 | my $show = $TOP->Button(-text => "Message Box", | |
| 46 | -command => [\&show_messageBox, \$iconvar, \$typevar]); | |
| 47 | $show->pack; | |
| 48 | ||
| 49 | } # end msgBox | |
| 50 | ||
| 51 | sub show_messageBox { | |
| 52 | my($iconvar, $typevar) = @_; | |
| 53 | ||
| 54 | my $button = $TOP->messageBox('-icon' => $$iconvar, -type => $$typevar, | |
| 55 | -title => 'Message', | |
| 56 | -message => "This is a \"$$typevar\" type messagebox with the \"$$iconvar\" icon"); | |
| 57 | ||
| 58 | $TOP->messageBox(qw/-icon info -type OK -message/ => "You have selected \"$button\""); | |
| 59 | ||
| 60 | } # end show_messageBox | |
| 61 |