Dialog

source("/sdcard/com.googlecode.bshforandroid/extras/bsh/android.bsh");
droid = Android();
droid.call("dialogCreateAlert","Dialog", "with BeanShell");
droid.call("dialogSetPositiveButtonText","Yes");
droid.call("dialogSetNegativeButtonText","No");
droid.call("dialogSetNeutralButtonText","Cancel");
droid.call("dialogShow");
response = droid.call("dialogGetResponse");
result = response.get("result").get("which");
droid.call("dialogDismiss");
droid.call("makeToast",result);

Bex

include("/sdcard/com.googlecode.bexforandroid/extras/bex/android.bex")
droid = Android()
droid.call("dialogCreateAlert","Dialog", "with Bex")
droid.call("dialogSetPositiveButtonText","Yes")
droid.call("dialogSetNegativeButtonText","No")
droid.call("dialogSetNeutralButtonText","Cancel")
droid.call("dialogShow")
response = droid.call("dialogGetResponse")
result = response.get("result").get("which")
droid.call("dialogDismiss")
droid.call("makeToast",result)

Erlang

-module(dialog_Erlang).
-export([main/0]).
main()->
  android:dialogCreateAlert("Dialog", "with Erlang"),
  android:dialogSetPositiveButtonText("Yes"),
  android:dialogSetNegativeButtonText("No"),
  android:dialogSetNeutralButtonText("Cancel"),
  android:dialogShow(),
  Response = android:dialogGetResponse(),
  { struct,[{"which",Result}]} = Response,
  android:dialogDismiss(),
  android:makeToast(Result).

Html and JavaScript

<HTML><HEAD><SCRIPT>
var droid = new Android();
droid.dialogCreateAlert("Dialog", "with HTML and JavaScript");
droid.dialogSetPositiveButtonText("Yes");
droid.dialogSetNegativeButtonText("No");
droid.dialogSetNeutralButtonText("Cancel");
droid.dialogShow();
response = droid.dialogGetResponse().result;
result = response["which"];
droid.dialogDismiss();
droid.makeToast(result);
</SCRIPT></HEAD><BODY></BODY></HTML>

JRuby

droid = Android.new
droid.dialogCreateAlert "Dialog","with JRuby"
droid.dialogSetPositiveButtonText "Yes"
droid.dialogSetNegativeButtonText "No"
droid.dialogSetNeutralButtonText "Cancel"
droid.dialogShow
result = droid.dialogGetResponse()['result']['which']
droid.dialogDismiss
droid.makeToast result

JScheme

(import "com.googlecode.rpc.*")
(define droid (com.googlecode.rpc.Android.))
(.call droid "dialogCreateAlert" "Dialog" "with JScheme")
(.call droid "dialogSetPositiveButtonText" "Yes")
(.call droid "dialogSetNegativeButtonText" "No")
(.call droid "dialogSetNeutralButtonText" "Cancel")
(.call droid "dialogShow")
(define response (.call droid "dialogGetResponse"))
(define result (.get (.get response "result") "which") )
(.call droid "dialogDismiss")
(.call droid "makeToast" result)
(exit)

Jawk

import com.googlecode.rpc.*;
BEGIN{
  droid = new Android();
  droid.call("dialogCreateAlert","Dialog", "with Jawk");
  droid.call("dialogSetPositiveButtonText","Yes");
  droid.call("dialogSetNegativeButtonText","No");
  droid.call("dialogSetNeutralButtonText","Cancel");
  droid.call("dialogShow");
  response = droid.call("dialogGetResponse");
  result = response.get("result").get("which");
  droid.call("dialogDismiss");
  droid.call("makeToast",result);
}

Lua

require "android"
android.dialogCreateAlert("Dialog","with Lua")
android.dialogSetPositiveButtonText("Yes")
android.dialogSetNegativeButtonText("No")
android.dialogSetNeutralButtonText("Cancel")
android.dialogShow()
result = android.dialogGetResponse().result.which
android.dialogDismiss()
android.makeToast(result)

PHP

<?php 
require_once("Android.php");
$droid = new Android();
$droid->dialogCreateAlert("Dialog","with PHP");
$droid->dialogSetPositiveButtonText("Yes");
$droid->dialogSetNegativeButtonText("No");
$droid->dialogSetNeutralButtonText("Cancel");
$droid->dialogShow();
$response = $droid->dialogGetResponse();
$result=$response['result']->which;
$droid->dialogDismiss();
$droid->makeToast("".$result);
?>

Perl

use Android;
my $droid = Android->new();
$droid->dialogCreateAlert("Dialog","with Perl");
$droid->dialogSetPositiveButtonText("Yes");
$droid->dialogSetNegativeButtonText("No");
$droid->dialogSetNeutralButtonText("Cancel");
$droid->dialogShow();
my $response = $droid->dialogGetResponse();
my $result = $response->{'result'}->{'which'};
$droid->dialogDismiss();
$droid->makeToast($result);

Python

import android
droid = android.Android()
droid.dialogCreateAlert("Dialog","with Python")
droid.dialogSetPositiveButtonText("Yes")
droid.dialogSetNegativeButtonText("No")
droid.dialogSetNeutralButtonText("Cancel")
droid.dialogShow()
response = droid.dialogGetResponse()
result = response.result["which"]
droid.dialogDismiss()
droid.makeToast(result)

Rhino

load("/sdcard/com.googlecode.rhinoforandroid/extras/rhino/android.js");
var droid = new Android();
droid.dialogCreateAlert("Dialog","with Rhino");
droid.dialogSetPositiveButtonText("Yes");
droid.dialogSetNegativeButtonText("No");
droid.dialogSetNeutralButtonText("Cancel");
droid.dialogShow();
var response = droid.dialogGetResponse();
var result = response.which;
droid.dialogDismiss();
droid.makeToast(result);

Shell

Not solved. Please send me answers if you have.

Sleep

import com.googlecode.rpc.*;
$droid = [new Android];
[$droid call : "dialogCreateAlert","Dialog","with Sleep"];
[$droid call : "dialogSetPositiveButtonText","Yes"];
[$droid call : "dialogSetNegativeButtonText","No"];
[$droid call : "dialogSetNeutralButtonText","Cancel"];
[$droid call : "dialogShow"];
$response = [$droid call : "dialogGetResponse"];
$result = [[$response get : "result"] get :  "which"];
[$droid call : "dialogDismiss"];
[$droid call : "makeToast",$result];

Squirrel

android <- Android();
android.dialogCreateAlert("Dialog","with Squirrel");
android.dialogSetPositiveButtonText("Yes");
android.dialogSetNegativeButtonText("No");
android.dialogSetNeutralButtonText("Cancel");
android.dialogShow();
local response = android.dialogGetResponse();
local result = response.result.which;
android.dialogDismiss();
android.makeToast(result);

Tcl

source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
$droid dialogCreateAlert "Dialog" "with Tcl"
$droid dialogSetPositiveButtonText "Yes"
$droid dialogSetNegativeButtonText "No"
$droid dialogSetNeutralButtonText "Cancel"
$droid dialogShow
array set response [$droid dialogGetResponse]
set result $response(which)
$droid dialogDismiss
$droid makeToast $result

unset droid
array unset response