All Tcl Sample Scripts
HelloWorld
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
puts "Hello, world!"
CopySample
Not solved. Please send me answers if you have.
DatePicker
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
$droid makeToast "Input your birthday"
set year [clock format [clock seconds] -format {%Y}]
set month [clock format [clock seconds] -format {%m}]
set day [clock format [clock seconds] -format {%e}]
$droid dialogCreateDatePicker $year $month $day
$droid dialogShow
array set result [$droid dialogGetResponse]
$droid dialogDismiss
set age [expr $year-$result(year)]
if { [expr $month<$result(month)] ||
[expr { [expr $month==$result(month)] && [expr $day<$result(day)] } ] } {
incr age -1
}
$droid dialogCreateAlert "Dialog" "Age:$age"
$droid dialogSetPositiveButtonText "OK"
$droid dialogShow
$droid dialogGetResponse
$droid dialogDismiss
unset droid
unset year
unset month
unset day
array unset result
unset age
Dialog
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
DualToneMultiFrequency
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
set numbers "3 2 1233 3 22 2 39 9 3 2 1233 3 22 3 2 1"
set durations "384 128 256 512 256 512 256 512 384 128 256 512 256 384 128 1024"
proc gTone {number duration} {
global droid
$droid generateDtmfTones \\$number \\$duration
}
for {set i 0} {$i<[llength $numbers]} {incr i} {
puts "[lindex $numbers $i] "
gTone [lindex $numbers $i] [lindex $durations $i]
}
puts ""
unset droid
unset numbers
unset durations
GetInput
Not solved. Please send me answers if you have.
HorizontalProgress
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
proc sleep {msec} {
set msec [expr $msec + [clock clicks -milliseconds]]
while {true} {
if {$msec<=[clock clicks -milliseconds]} {
return
}
}
}
$droid dialogCreateHorizontalProgress "Horizontal" "using Tcl"
$droid dialogShow
set value 0
while {$value < 100} {
incr value 1
$droid dialogSetCurrentProgress $value
sleep 10
}
$droid dialogDismiss
unset droid
LaunchBrowser
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
$droid launch "com.android.browser.BrowserActivity"
LaunchCalculator
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
$droid launch "com.android.calculator2.Calculator"
LaunchCalendar
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
$droid launch "com.android.calendar.LaunchActivity"
LaunchGallery
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
$droid launch "com.cooliris.media.Gallery"
LaunchMusic
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
$droid launch "com.android.music.MediaPlaybackActivityStarter"
LaunchSetting
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
$droid launch "com.android.settings.Settings"
LaunchSoundRecorder
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
$droid launch "com.android.soundrecorder.SoundRecorder"
MediaVolume
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
set vol [$droid getMediaVolume]
set maxvol [$droid getMaxMediaVolume]
$droid dialogCreateSeekBar $vol $maxvol "Media volume" ""
$droid dialogSetPositiveButtonText "OK"
$droid dialogSetNegativeButtonText "Cancel"
$droid dialogShow
array set result [$droid dialogGetResponse]
$droid dialogDismiss
if {$result(which)=="positive"} {
$droid setMediaVolume $result(progress)
$droid makeToast "Volume:\\[$droid getMediaVolume]"
} else {
$droid makeToast "Cancel pressed"
}
unset droid
unset vol
unset maxvol
array unset result
Notify
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
$droid notify "Notify using Tcl" "Message"
unset droid
OptionsMenu
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
puts "Press Menu Button"
$droid addOptionsMenuItem "From Tcl" "menu" {\1} "ic_menu_info_details"
$droid addOptionsMenuItem "Exit Tcl" "menu" {\2} "ic_menu_close_clear_cancel"
while {true} {
array set event [$droid eventWaitFor "menu"]
if {$event(data)==1} {
$droid makeToast "Selected Add Menu"
} elseif {$event(data)==2} {
break
}
}
$droid clearOptionsMenu
$droid makeToast "$argv0 is done"
unset droid
array unset event
PackageCui
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
set pack [$droid getRunningPackages]
for {set i 0} {$i<[llength $pack]} {incr i 1} {
puts "[expr $i+1].[lindex $pack $i]/ver.[$droid getPackageVersion [lindex $pack $i] ]"
}
unset droid
unset pack
PhoneCall
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
$droid phoneCallNumber {\117}
unset droid
QR
Not solved. Please send me answers if you have.
RecognizeSpeech
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
set text [$droid recognizeSpeech]
$droid makeToast $text
$droid notify "Recognize Speech using Tcl" $text
puts $text
unset droid
unset text
Scancode
Not solved. Please send me answers if you have.
Search
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
$droid search "Tcl"
SendEmail
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
$droid sendEmail "sl4@email.fake" "sendEmail" "using Tcl"
unset droid
ShowFilename
auto_reset
puts "$argv0"
ShowThis
proc load_text {name} {
set text ""
set fih [open $name]
while {! [eof $fih] } {
set line [gets $fih]
append text $line "\n"
}
close $fih
return $text
}
set name [info script]
puts [load_text $name]
unset name
ShowWeb
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
$droid webViewShow "http://www.google.com"
unset droid
Speak
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
$droid ttsSpeak "Speak using Tool Command Language"
unset droid
SpinnerProgress
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
proc sleep {sec} {
incr sec [clock seconds]
while {true} {
if {$sec<=[clock seconds]} {
return
}
}
}
$droid dialogCreateSpinnerProgress "Spinner" "using Tcl"
$droid dialogShow
sleep 2
$droid dialogDismiss
unset droid
StartRingtone
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
$droid startActivity "android.intent.action.RINGTONE_PICKER"
unset droid
Toast
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
$droid makeToast "Toast using Tcl"
unset droid
Vibrate
source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
$droid makeToast "Vibrate using Tcl"
$droid vibrate
unset droid
return