Changeset c8ef50b for perl

Timestamp:

Sep 21, 2011, 4:21:51 PM (13 years ago)

Author:

Jason Gross <jgross@mit.edu>

Children:

c162fd6

Parents:

8ad3964

git-author:

Jason Gross <jgross@mit.edu> (06/23/11 23:58:21)

git-committer:

Jason Gross <jgross@mit.edu> (09/21/11 16:21:51)

Message:

editwin callback for canceling the editwin

The code for editwin callbacks (called when the editwin is created) has
been extended so that callbacks are called when the editwin is canceled.
The old (perl) editwin callbacks still exist and have the same
functionality that they always have.  They are now deprecated.

File:

• perl/lib/BarnOwl.pm (modified) (3 diffs)

perl/lib/BarnOwl.pm

@@ -150 +150 @@
 
 A Perl subroutine that is called when the user closes the edit_win.
+C<CALLBACK> gets called with two parameters: the text the user entered,
+and a C<SUCCESS> boolean parameter which is false if the user canceled
+the edit_win and true otherwise.
 
 =back
@@ -159 +162 @@
 =head2 start_edit_win PROMPT CALLBACK
 
-Equivalent to C<start_edit> called with the appropriate parameters.
+Roughly equivalent to C<start_edit> called with the appropriate parameters.
+C<CALLBACK> is only called on success.
+
+These are deprecated wrappers around L<BarnOwl::start_edit>, and should not
+be uesd in new code.
 
 =cut
@@ -170 +177 @@
 sub start_question {
     my ($prompt, $callback) = @_;
-    BarnOwl::start_edit(type => 'question', prompt => $prompt, callback => $callback);
+    BarnOwl::start_edit(type => 'question', prompt => $prompt, callback => sub {
+            my ($text, $success) = @_;
+            $callback->($text) if $success;
+        });
 }
 
 sub start_password {
     my ($prompt, $callback) = @_;
-    BarnOwl::start_edit(type => 'password', prompt => $prompt, callback => $callback);
+    BarnOwl::start_edit(type => 'password', prompt => $prompt, callback => sub {
+            my ($text, $success) = @_;
+            $callback->($text) if $success;
+        });
 }
 
 sub start_edit_win {
     my ($prompt, $callback) = @_;
-    BarnOwl::start_edit(type => 'edit_win', prompt => $prompt, callback => $callback);
+    BarnOwl::start_edit(type => 'edit_win', prompt => $prompt, callback => sub {
+            my ($text, $success) = @_;
+            $callback->($text) if $success;
+        });
 }