| … | … | ||
|---|---|---|---|
| 209 | } | 209 | } |
| 210 | 210 | ||
| 211 | sub do_n_dialog { | 211 | sub do_n_dialog { |
| 212 | my ($cb) = @_; | 212 | my ($cb) = @_; |
| 213 | 213 | ||
| 214 | my $w = new CFPlus::UI::FancyFrame | 214 | my $w = new CFPlus::UI::Toplevel |
| 215 | on_delete => sub { $_[0]->destroy; 1 }, | 215 | on_delete => sub { $_[0]->destroy; 1 }, |
| 216 | has_close_button => 1, | 216 | has_close_button => 1, |
| 217 | ; | 217 | ; |
| 218 | 218 | ||
| 219 | $w->add (my $vb = new CFPlus::UI::VBox x => "center", y => "center"); | 219 | $w->add (my $vb = new CFPlus::UI::VBox x => "center", y => "center"); |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |