This is an automated email from the git hooks/post-receive script. jame-guest pushed a commit to tag v0.02 in repository libweasel-perl.
commit 5fc83303e8aa999ace8e65db80fca5b462acefda Author: Erik Huelsmann <[email protected]> Date: Fri Jun 17 10:44:16 2016 +0200 * Set an API for select-type widgets (so I can implement the Dojo counterpart) --- lib/Weasel/Widgets/HTML/Select.pm | 24 +++++++++++++++++++++++- 1 file changed, 23 insertions(+), 1 deletion(-) diff --git a/lib/Weasel/Widgets/HTML/Select.pm b/lib/Weasel/Widgets/HTML/Select.pm index 4cebb1a..1812fad 100644 --- a/lib/Weasel/Widgets/HTML/Select.pm +++ b/lib/Weasel/Widgets/HTML/Select.pm @@ -41,9 +41,31 @@ Returns =cut + +# +sub _option_popup { + my ($self) = @_; + + return $self; +} + + sub find_option { - my ($self, $value) = @_; + my ($self, $text) = @_; + my $popup = $self->_option_popup; + + $popup->find('*option', text => $text); +} + + +=item select_option + +=cut + +sub select_option { + my ($self, $text) = @_; + $self->find_option($text)->click; } -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libweasel-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
