Changeset 11994

Timestamp:

07/24/10 21:56:09 (19 months ago)

Author:

adamk

Message:

Added Yes/No? dialog

File:

• trunk/Padre/lib/Padre/Wx/Role/Dialog.pm (modified) (2 diffs)

trunk/Padre/lib/Padre/Wx/Role/Dialog.pm

@@ -89 +89 @@
 
 sub error {
-    my $self = shift;
+    my $self    = shift;
     my $message = shift || Wx::gettext('Unknown error from ') . caller;
     Wx::MessageBox(
@@ -119 +119 @@
         $result = $dialog->GetValue;
     }
+    $dialog->Destroy;
+    return $result;
+}
+
+=pod
+
+=head3 C<yes_no>
+
+  my $boolean = $parent->yes_no(
+      $message,
+      $title,
+  );
+
+Generates a standard L<Wx> Yes/No dialog.
+
+=cut
+
+sub yes_no {
+    my $self    = shift;
+    my $message = shift;
+    my $title   = shift || Wx::gettext('Message');
+    my $dialog  = Wx::MessageDialog->new(
+        $self,
+        $message,
+        $title,
+        Wx::wxYES_NO | Wx::wxYES_DEFAULT | Wx::wxICON_QUESTION,
+    );
+    $dialog->CenterOnParent;
+    my $result = ($dialog->ShowModal == Wx::wxYES) ? 1 : 0;
     $dialog->Destroy;
     return $result;