builat has asked for the wisdom of the Perl Monks concerning the following question:
Anyway it simple hello world in android api.#!/usr/bin/perl use strict; use warnings; use Android; my $droid = Android -> new(); my $Out = 'try data for ever looop'; $droid -> makeToast ('event invfo');# done $droid -> vibrate(); # done $droid -> dialogCreateAlert ('d.title','d.data'); $droid -> dialogSetPositiveButtonText ('da'); $droid -> dialogShow(); $Out = $droid -> dialogGetResponse() -> {'result'}; if ($Out -> {'which'} eq 'positive'){ $droid -> makeToast ('have positivee response');} $droid -> dialogCreateSpinnerProgress('test title','data'); $droid -> dialogShow(); sleep 3; $droid -> dialogDismiss();
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: perl 4 android & modules.
by taint (Chaplain) on Nov 16, 2013 at 07:14 UTC | |
|
Re: perl 4 android & modules.
by sam_bakki (Pilgrim) on Nov 18, 2013 at 06:16 UTC |