Skip to content

GitLab

A
appinventor-sources
Commit 41597f9b authored by Jeffrey I. Schiller's avatar Jeffrey I. Schiller Committed by Evan W. Patton
Browse files
Options

Have Companion Create a unique ID 

Have the Companion create a unique “InstallationId” which it reports to
the Rendezvous Server. This will help us keep track of how many
Companions are out there and what version of Android (and the Companion)
they are running on.

Note: The id is generated by the ACRA Library and is persistent across
upgrades of the Companion. However it will be re-created if the
Companion is uninstalled and then re-installed. It is not related in any
way to any Android provided identifier, which minimizes the privacy
impact of this identifier.

Change-Id: I7b85afe1451f4d44b4e0d412b3f37904425e3112
parent 3abb556f
Show whitespace changes
Inline Side-by-side
Showing with 67 additions and 28 deletions
appinventor/aiplayapp/src/edu/mit/appinventor/aicompanion3/Screen1.bky
View file @ 41597f9b
......@@ -90,7 +90,7 @@
<field name="COMPONENT_SELECTOR">Web1</field>
<value name="ARG0">
<block type="lists_create_with" id="17" inline="false">
<mutation items="7"></mutation>
<mutation items="8"></mutation>
<value name="ADD0">
<block type="lists_create_with" id="18" inline="false">
<mutation items="2"></mutation>
......@@ -206,6 +206,22 @@
</value>
</block>
</value>
<value name="ADD7">
<block type="lists_create_with" id="3?x|P8JB#okUP8#oa5~o">
<mutation items="2"></mutation>
<value name="ADD0">
<block type="text" id="dh=0y=Jn`kt,SG-ksVd[">
<field name="TEXT">aid</field>
</block>
</value>
<value name="ADD1">
<block type="component_method" id="`g:@(vs,TD%uU%D1d+q/">
<mutation component_type="PhoneStatus" method_name="InstallationId" is_generic="false" instance_name="PhoneStatus1"></mutation>
<field name="COMPONENT_SELECTOR">PhoneStatus1</field>
</block>
</value>
</block>
</value>
</block>
</value>
</block>
......@@ -215,7 +231,7 @@
</block>
</statement>
</block>
<block type="component_event" id="27" x="0" y="818">
<block type="component_event" id="27" x="0" y="870">
<mutation component_type="PhoneStatus" instance_name="PhoneStatus1" event_name="OnSettings"></mutation>
<field name="COMPONENT_SELECTOR">PhoneStatus1</field>
<statement name="DO">
......@@ -249,6 +265,19 @@
<field name="PROCNAME">getRendezvousServer</field>
</block>
</value>
<next>
<block type="component_set_get" id="DCo==NX_F-`kld}S2ug5">
<mutation component_type="Label" set_or_get="set" property_name="Text" is_generic="false" instance_name="aidLabel"></mutation>
<field name="COMPONENT_SELECTOR">aidLabel</field>
<field name="PROP">Text</field>
<value name="VALUE">
<block type="component_method" id="awb}a`]zKxjK^VB@~G$}">
<mutation component_type="PhoneStatus" method_name="InstallationId" is_generic="false" instance_name="PhoneStatus1"></mutation>
<field name="COMPONENT_SELECTOR">PhoneStatus1</field>
</block>
</value>
</block>
</next>
</block>
</next>
</block>
......@@ -256,7 +285,7 @@
</block>
</statement>
</block>
<block type="component_event" id="47" x="0" y="962">
<block type="component_event" id="47" x="0" y="1040">
<mutation component_type="Button" instance_name="ConnectButton" event_name="Click"></mutation>
<field name="COMPONENT_SELECTOR">ConnectButton</field>
<statement name="DO">
......@@ -281,7 +310,7 @@
</block>
</statement>
</block>
<block type="procedures_defnoreturn" id="34" x="0" y="1105">
<block type="procedures_defnoreturn" id="34" x="0" y="1183">
<field name="NAME">checkWiFi</field>
<statement name="STACK">
<block type="controls_if" id="35" inline="false">
......@@ -344,7 +373,7 @@
</block>
</statement>
</block>
<block type="procedures_defreturn" id="51" inline="false" x="0" y="1402">
<block type="procedures_defreturn" id="51" inline="false" x="0" y="1480">
<field name="NAME">getRendezvousServer</field>
<value name="RETURN">
<block type="component_method" id="52" inline="false">
......@@ -363,7 +392,7 @@
</block>
</value>
</block>
<block type="procedures_defreturn" id="55" inline="false" x="0" y="1542">
<block type="procedures_defreturn" id="55" inline="false" x="0" y="1620">
<mutation>
<arg name="input"></arg>
</mutation>
......@@ -394,7 +423,7 @@
</block>
</value>
</block>
<block type="component_event" id="61" x="0" y="1668">
<block type="component_event" id="61" x="0" y="1746">
<mutation component_type="Notifier" instance_name="Notifier1" event_name="AfterChoosing"></mutation>
<field name="COMPONENT_SELECTOR">Notifier1</field>
<statement name="DO">
......@@ -426,7 +455,7 @@
</block>
</statement>
</block>
<block type="procedures_defnoreturn" id="67" x="0" y="1835">
<block type="procedures_defnoreturn" id="67" x="0" y="1913">
<mutation>
<arg name="x"></arg>
</mutation>
......@@ -523,7 +552,7 @@
</block>
</statement>
</block>
<block type="component_event" id="S~hQs_KH8?5y90Ie^-Ok" x="0" y="2208">
<block type="component_event" id="S~hQs_KH8?5y90Ie^-Ok" x="0" y="2312">
<mutation component_type="CheckBox" instance_name="CheckBox1" event_name="Changed"></mutation>
<field name="COMPONENT_SELECTOR">CheckBox1</field>
<statement name="DO">
......@@ -545,7 +574,7 @@
</block>
</statement>
</block>
<block type="procedures_defreturn" id="79" inline="false" x="0" y="2300">
<block type="procedures_defreturn" id="79" inline="false" x="0" y="2404">
<mutation>
<arg name="code"></arg>
</mutation>
......@@ -645,7 +674,7 @@
</block>
</value>
</block>
<block type="procedures_defnoreturn" id="98" x="0" y="2673">
<block type="procedures_defnoreturn" id="98" x="0" y="2777">
<field name="NAME">resetRendezvousServer</field>
<statement name="STACK">
<block type="lexical_variable_set" id="99" inline="false">
......@@ -669,7 +698,7 @@
</block>
</statement>
</block>
<block type="component_event" id="103" x="0" y="2816">
<block type="component_event" id="103" x="0" y="2920">
<mutation component_type="Button" instance_name="ResetRendezvousServer" event_name="Click"></mutation>
<field name="COMPONENT_SELECTOR">ResetRendezvousServer</field>
<statement name="DO">
......@@ -703,7 +732,7 @@
</block>
</statement>
</block>
<block type="component_event" id="109" x="0" y="2960">
<block type="component_event" id="109" x="0" y="3064">
<mutation component_type="Button" instance_name="ScanButton" event_name="Click"></mutation>
<field name="COMPONENT_SELECTOR">ScanButton</field>
<statement name="DO">
......@@ -713,7 +742,7 @@
</block>
</statement>
</block>
<block type="component_event" id="111" x="0" y="3052">
<block type="component_event" id="111" x="0" y="3156">
<mutation component_type="Form" instance_name="Screen1" event_name="Initialize"></mutation>
<field name="COMPONENT_SELECTOR">Screen1</field>
<statement name="DO">
......@@ -893,7 +922,7 @@
</block>
</statement>
</block>
<block type="procedures_defnoreturn" id="139" x="0" y="3561">
<block type="procedures_defnoreturn" id="139" x="0" y="3665">
<mutation>
<arg name="value"></arg>
<arg name="permanent"></arg>
......@@ -937,7 +966,7 @@
</block>
</statement>
</block>
<block type="component_event" id="147" x="0" y="3769">
<block type="component_event" id="147" x="0" y="3873">
<mutation component_type="Button" instance_name="SetRenzvousServer" event_name="Click"></mutation>
<field name="COMPONENT_SELECTOR">SetRenzvousServer</field>
<statement name="DO">
......@@ -992,7 +1021,7 @@
</block>
</statement>
</block>
<block type="procedures_defnoreturn" id="156" x="0" y="3990">
<block type="procedures_defnoreturn" id="156" x="0" y="4094">
<field name="NAME">startdirectconnect</field>
<statement name="STACK">
<block type="local_declaration_statement" id="157" inline="false">
......@@ -1040,7 +1069,7 @@
</block>
</statement>
</block>
<block type="global_declaration" id="164" inline="false" x="0" y="4197">
<block type="global_declaration" id="164" inline="false" x="0" y="4327">
<field name="NAME">rendezvousServer</field>
<value name="VALUE">
<block type="text" id="165">
......@@ -1048,5 +1077,5 @@
</block>
</value>
</block>
<yacodeblocks ya-version="173" language-version="22"></yacodeblocks>
<yacodeblocks ya-version="176" language-version="23"></yacodeblocks>
</xml>
\ No newline at end of file
appinventor/aiplayapp/src/edu/mit/appinventor/aicompanion3/Screen1.scm
View file @ 41597f9b
#|
$JSON
{"authURL":["*UNKNOWN*","jis.qyv.net"],"YaVersion":"173","Source":"Form","Properties":{"$Name":"Screen1","$Type":"Form","$Version":"24","AccentColor":"&HFF128BA8","AlignHorizontal":"3","AppName":"repl","BackgroundColor":"&H00FFFFFF","BackgroundImage":"mooning.png","Icon":"AI2Companion-Icon.png","PrimaryColor":"&HFFA5CF47","PrimaryColorDark":"&HFF516623","Scrollable":"True","Title":"MIT App Inventor 2","Uuid":"0","$Components":[{"$Name":"SettingsPanel","$Type":"VerticalArrangement","$Version":"3","AlignHorizontal":"3","Width":"-2","Uuid":"850149444","Visible":"False","$Components":[{"$Name":"settingsintro","$Type":"Label","$Version":"4","HasMargins":"False","Text":"App Inventor Companion Settings","Uuid":"1903510378"},{"$Name":"HorizontalArrangement4","$Type":"HorizontalArrangement","$Version":"3","Uuid":"289079952","$Components":[{"$Name":"Label12","$Type":"Label","$Version":"4","HasMargins":"False","Text":"Set Rendezvous Server: ","Uuid":"-321156745"},{"$Name":"rendezvoustextbox","$Type":"TextBox","$Version":"5","Hint":"Hint for TextBox1","Uuid":"-1218562375"}]},{"$Name":"HorizontalArrangement5","$Type":"HorizontalArrangement","$Version":"3","Uuid":"808500704","$Components":[{"$Name":"SetRenzvousServer","$Type":"Button","$Version":"6","Text":"Set Rendezvous Server","Uuid":"1282830233"},{"$Name":"ResetRendezvousServer","$Type":"Button","$Version":"6","Text":"Reset to Default","Uuid":"-2110364096"}]}]},{"$Name":"MainPanel","$Type":"VerticalArrangement","$Version":"3","AlignHorizontal":"3","Width":"-2","Uuid":"-1725916419","$Components":[{"$Name":"EmulatorPanel","$Type":"VerticalArrangement","$Version":"3","AlignHorizontal":"3","Width":"-2","Uuid":"2041308688","$Components":[{"$Name":"Label5","$Type":"Label","$Version":"4","HasMargins":"False","Text":"Running using the emulator or USB,\nwaiting to get blocks...","Uuid":"-962295936"}]},{"$Name":"ErrorLabel","$Type":"Label","$Version":"4","HasMargins":"False","Width":"-2","TextAlignment":"1","TextColor":"&HFFFF0000","Uuid":"-799466554"},{"$Name":"PhonePanel","$Type":"VerticalArrangement","$Version":"3","AlignHorizontal":"3","Width":"-2","Uuid":"1543111896","$Components":[{"$Name":"Spacer1","$Type":"Label","$Version":"4","HasMargins":"False","Height":"8","Uuid":"-1762047873","Visible":"False"},{"$Name":"instructionContainer","$Type":"HorizontalArrangement","$Version":"3","AlignHorizontal":"3","Width":"-2","Uuid":"-775134396","$Components":[{"$Name":"Spacer2","$Type":"Label","$Version":"4","HasMargins":"False","Width":"8","Uuid":"567138142"},{"$Name":"Image2","$Type":"Image","$Version":"3","Picture":"Instructions.png","Uuid":"1124037216"},{"$Name":"Spacer3","$Type":"Label","$Version":"4","HasMargins":"False","Width":"8","Uuid":"-825438138"}]},{"$Name":"Label10","$Type":"Label","$Version":"4","HasMargins":"False","Height":"8","Uuid":"-1942717984"},{"$Name":"HorizontalArrangement2","$Type":"HorizontalArrangement","$Version":"3","AlignHorizontal":"3","Width":"-2","Uuid":"1345116128","$Components":[{"$Name":"Label7","$Type":"Label","$Version":"4","HasMargins":"False","Width":"16","Uuid":"-1172148075"},{"$Name":"CodeBox","$Type":"TextBox","$Version":"5","BackgroundColor":"&HFFFFFFFF","FontTypeface":"1","Width":"-2","Hint":"Six Character Code","MultiLine":"True","TextAlignment":"1","Uuid":"933834161"},{"$Name":"Label8","$Type":"Label","$Version":"4","HasMargins":"False","Width":"16","Uuid":"-198600942"}]},{"$Name":"Label9","$Type":"Label","$Version":"4","HasMargins":"False","Height":"4","Uuid":"-2012312374"},{"$Name":"ConnectButton","$Type":"Button","$Version":"6","BackgroundColor":"&HFFFFFF00","FontSize":"18","Image":"connectwCode.png","TextColor":"&HFF000000","Uuid":"-942061234"},{"$Name":"Spacer","$Type":"Label","$Version":"4","HasMargins":"False","Height":"8","Uuid":"-882888941"},{"$Name":"ScanButton","$Type":"Button","$Version":"6","BackgroundColor":"&HFF00FF00","FontSize":"18","Image":"connectwQR.png","TextColor":"&HFFFFFFFF","Uuid":"875036558"}]},{"$Name":"IPContainer","$Type":"HorizontalArrangement","$Version":"3","AlignHorizontal":"3","Width":"-2","Uuid":"-907976471","$Components":[{"$Name":"Label4","$Type":"Label","$Version":"4","HasMargins":"False","Text":"Your IP Address is: ","Uuid":"-955739485"},{"$Name":"ipaddrlabel","$Type":"Label","$Version":"4","HasMargins":"False","Text":"Unknown","Uuid":"-1112644181"}]},{"$Name":"HorizontalArrangement3","$Type":"HorizontalArrangement","$Version":"3","AlignHorizontal":"3","Width":"-2","Uuid":"-2066763735","$Components":[{"$Name":"Label11","$Type":"Label","$Version":"4","HasMargins":"False","Text":"Version: ","Uuid":"-905541901"},{"$Name":"versionlabel","$Type":"Label","$Version":"4","HasMargins":"False","Text":"Unknown","Uuid":"1289286712"}]},{"$Name":"CheckBox1","$Type":"CheckBox","$Version":"2","Text":"Use Legacy Connection","Uuid":"-1087572524"},{"$Name":"PhoneStatus1","$Type":"PhoneStatus","$Version":"1","Uuid":"849809400"},{"$Name":"Web1","$Type":"Web","$Version":"5","Uuid":"-1876664126"},{"$Name":"BarcodeScanner1","$Type":"BarcodeScanner","$Version":"2","Uuid":"1874783275"},{"$Name":"Notifier1","$Type":"Notifier","$Version":"5","Uuid":"-30695151"}]},{"$Name":"TinyDB1","$Type":"TinyDB","$Version":"2","Uuid":"288495309"}]}}
{"authURL":["*UNKNOWN*","jis.qyv.net"],"YaVersion":"176","Source":"Form","Properties":{"$Name":"Screen1","$Type":"Form","$Version":"24","AccentColor":"&HFF128BA8","AlignHorizontal":"3","AppName":"repl","BackgroundColor":"&H00FFFFFF","BackgroundImage":"mooning.png","Icon":"AI2Companion-Icon.png","PrimaryColor":"&HFFA5CF47","PrimaryColorDark":"&HFF516623","Scrollable":"True","Title":"MIT App Inventor 2","Uuid":"0","$Components":[{"$Name":"SettingsPanel","$Type":"VerticalArrangement","$Version":"3","AlignHorizontal":"3","Width":"-2","Uuid":"850149444","Visible":"False","$Components":[{"$Name":"settingsintro","$Type":"Label","$Version":"4","HasMargins":"False","Text":"App Inventor Companion Settings","Uuid":"1903510378"},{"$Name":"HorizontalArrangement4","$Type":"HorizontalArrangement","$Version":"3","Uuid":"289079952","$Components":[{"$Name":"Label12","$Type":"Label","$Version":"4","HasMargins":"False","Text":"Set Rendezvous Server: ","Uuid":"-321156745"},{"$Name":"rendezvoustextbox","$Type":"TextBox","$Version":"5","Hint":"Hint for TextBox1","Uuid":"-1218562375"}]},{"$Name":"HorizontalArrangement5","$Type":"HorizontalArrangement","$Version":"3","Uuid":"808500704","$Components":[{"$Name":"SetRenzvousServer","$Type":"Button","$Version":"6","Text":"Set Rendezvous Server","Uuid":"1282830233"},{"$Name":"ResetRendezvousServer","$Type":"Button","$Version":"6","Text":"Reset to Default","Uuid":"-2110364096"}]},{"$Name":"aidLabel","$Type":"Label","$Version":"4","Uuid":"-1496954497"}]},{"$Name":"MainPanel","$Type":"VerticalArrangement","$Version":"3","AlignHorizontal":"3","Width":"-2","Uuid":"-1725916419","$Components":[{"$Name":"EmulatorPanel","$Type":"VerticalArrangement","$Version":"3","AlignHorizontal":"3","Width":"-2","Uuid":"2041308688","$Components":[{"$Name":"Label5","$Type":"Label","$Version":"4","HasMargins":"False","Text":"Running using the emulator or USB,\nwaiting to get blocks...","Uuid":"-962295936"}]},{"$Name":"ErrorLabel","$Type":"Label","$Version":"4","HasMargins":"False","Width":"-2","TextAlignment":"1","TextColor":"&HFFFF0000","Uuid":"-799466554"},{"$Name":"PhonePanel","$Type":"VerticalArrangement","$Version":"3","AlignHorizontal":"3","Width":"-2","Uuid":"1543111896","$Components":[{"$Name":"Spacer1","$Type":"Label","$Version":"4","HasMargins":"False","Height":"8","Uuid":"-1762047873","Visible":"False"},{"$Name":"instructionContainer","$Type":"HorizontalArrangement","$Version":"3","AlignHorizontal":"3","Width":"-2","Uuid":"-775134396","$Components":[{"$Name":"Spacer2","$Type":"Label","$Version":"4","HasMargins":"False","Width":"8","Uuid":"567138142"},{"$Name":"Image2","$Type":"Image","$Version":"3","Picture":"Instructions.png","Uuid":"1124037216"},{"$Name":"Spacer3","$Type":"Label","$Version":"4","HasMargins":"False","Width":"8","Uuid":"-825438138"}]},{"$Name":"Label10","$Type":"Label","$Version":"4","HasMargins":"False","Height":"8","Uuid":"-1942717984"},{"$Name":"HorizontalArrangement2","$Type":"HorizontalArrangement","$Version":"3","AlignHorizontal":"3","Width":"-2","Uuid":"1345116128","$Components":[{"$Name":"Label7","$Type":"Label","$Version":"4","HasMargins":"False","Width":"16","Uuid":"-1172148075"},{"$Name":"CodeBox","$Type":"TextBox","$Version":"5","BackgroundColor":"&HFFFFFFFF","FontTypeface":"1","Width":"-2","Hint":"Six Character Code","MultiLine":"True","TextAlignment":"1","Uuid":"933834161"},{"$Name":"Label8","$Type":"Label","$Version":"4","HasMargins":"False","Width":"16","Uuid":"-198600942"}]},{"$Name":"Label9","$Type":"Label","$Version":"4","HasMargins":"False","Height":"4","Uuid":"-2012312374"},{"$Name":"ConnectButton","$Type":"Button","$Version":"6","BackgroundColor":"&HFFFFFF00","FontSize":"18","Image":"connectwCode.png","TextColor":"&HFF000000","Uuid":"-942061234"},{"$Name":"Spacer","$Type":"Label","$Version":"4","HasMargins":"False","Height":"8","Uuid":"-882888941"},{"$Name":"ScanButton","$Type":"Button","$Version":"6","BackgroundColor":"&HFF00FF00","FontSize":"18","Image":"connectwQR.png","TextColor":"&HFFFFFFFF","Uuid":"875036558"}]},{"$Name":"IPContainer","$Type":"HorizontalArrangement","$Version":"3","AlignHorizontal":"3","Width":"-2","Uuid":"-907976471","$Components":[{"$Name":"Label4","$Type":"Label","$Version":"4","HasMargins":"False","Text":"Your IP Address is: ","Uuid":"-955739485"},{"$Name":"ipaddrlabel","$Type":"Label","$Version":"4","HasMargins":"False","Text":"Unknown","Uuid":"-1112644181"}]},{"$Name":"HorizontalArrangement3","$Type":"HorizontalArrangement","$Version":"3","AlignHorizontal":"3","Width":"-2","Uuid":"-2066763735","$Components":[{"$Name":"Label11","$Type":"Label","$Version":"4","HasMargins":"False","Text":"Version: ","Uuid":"-905541901"},{"$Name":"versionlabel","$Type":"Label","$Version":"4","HasMargins":"False","Text":"Unknown","Uuid":"1289286712"}]},{"$Name":"CheckBox1","$Type":"CheckBox","$Version":"2","Text":"Use Legacy Connection","Uuid":"-1087572524"},{"$Name":"PhoneStatus1","$Type":"PhoneStatus","$Version":"1","Uuid":"849809400"},{"$Name":"Web1","$Type":"Web","$Version":"5","Uuid":"-1876664126"},{"$Name":"BarcodeScanner1","$Type":"BarcodeScanner","$Version":"2","Uuid":"1874783275"},{"$Name":"Notifier1","$Type":"Notifier","$Version":"5","Uuid":"-30695151"}]},{"$Name":"TinyDB1","$Type":"TinyDB","$Version":"2","Uuid":"288495309"}]}}
|#
\ No newline at end of file
appinventor/aiplayapp/src/edu/mit/appinventor/aicompanion3/Screen1.yail
View file @ 41597f9b
......@@ -6,7 +6,7 @@ $Source $Yail
(require <com.google.youngandroid.runtime>)
(def (p$badversion ) (set-and-coerce-property! 'ErrorLabel 'Text "The version of App Inventor you are using is not compatible with this Companion app. " 'text))
(def (p$callrendezvous $code) (set-and-coerce-property! 'Web1 'Url (call-yail-primitive string-append (*list-for-runtime* "http://" (get-var g$rendezvousServer) "/rendezvous/" ) '(text text text ) "join") 'text)(call-component-method 'Web1 'PostText (*list-for-runtime* (call-component-method 'Web1 'BuildRequestData (*list-for-runtime* (call-yail-primitive make-yail-list (*list-for-runtime* (call-yail-primitive make-yail-list (*list-for-runtime* "key" (lexical-value $code) ) '(any any ) "make a list") (call-yail-primitive make-yail-list (*list-for-runtime* "ipaddr" (call-component-method 'PhoneStatus1 'GetWifiIpAddress (*list-for-runtime*) '()) ) '(any any ) "make a list") (call-yail-primitive make-yail-list (*list-for-runtime* "port" "9987" ) '(any any ) "make a list") (call-yail-primitive make-yail-list (*list-for-runtime* "webrtc" (call-yail-primitive yail-not (*list-for-runtime* (get-property 'CheckBox1 'Checked)) '(boolean) "not") ) '(any any ) "make a list") (call-yail-primitive make-yail-list (*list-for-runtime* "version" (call-component-method 'PhoneStatus1 'GetVersionName (*list-for-runtime*) '()) ) '(any any ) "make a list") (call-yail-primitive make-yail-list (*list-for-runtime* "api" (call-component-method 'PhoneStatus1 'SdkLevel (*list-for-runtime*) '()) ) '(any any ) "make a list") (call-yail-primitive make-yail-list (*list-for-runtime* "installer" (call-component-method 'PhoneStatus1 'GetInstaller (*list-for-runtime*) '()) ) '(any any ) "make a list") ) '(any any any any any any any ) "make a list")) '(list))) '(text)))
(def (p$callrendezvous $code) (set-and-coerce-property! 'Web1 'Url (call-yail-primitive string-append (*list-for-runtime* "http://" (get-var g$rendezvousServer) "/rendezvous/" ) '(text text text ) "join") 'text)(call-component-method 'Web1 'PostText (*list-for-runtime* (call-component-method 'Web1 'BuildRequestData (*list-for-runtime* (call-yail-primitive make-yail-list (*list-for-runtime* (call-yail-primitive make-yail-list (*list-for-runtime* "key" (lexical-value $code) ) '(any any ) "make a list") (call-yail-primitive make-yail-list (*list-for-runtime* "ipaddr" (call-component-method 'PhoneStatus1 'GetWifiIpAddress (*list-for-runtime*) '()) ) '(any any ) "make a list") (call-yail-primitive make-yail-list (*list-for-runtime* "port" "9987" ) '(any any ) "make a list") (call-yail-primitive make-yail-list (*list-for-runtime* "webrtc" (call-yail-primitive yail-not (*list-for-runtime* (get-property 'CheckBox1 'Checked)) '(boolean) "not") ) '(any any ) "make a list") (call-yail-primitive make-yail-list (*list-for-runtime* "version" (call-component-method 'PhoneStatus1 'GetVersionName (*list-for-runtime*) '()) ) '(any any ) "make a list") (call-yail-primitive make-yail-list (*list-for-runtime* "api" (call-component-method 'PhoneStatus1 'SdkLevel (*list-for-runtime*) '()) ) '(any any ) "make a list") (call-yail-primitive make-yail-list (*list-for-runtime* "installer" (call-component-method 'PhoneStatus1 'GetInstaller (*list-for-runtime*) '()) ) '(any any ) "make a list") (call-yail-primitive make-yail-list (*list-for-runtime* "aid" (call-component-method 'PhoneStatus1 'InstallationId (*list-for-runtime*) '()) ) '(any any ) "make a list") ) '(any any any any any any any any ) "make a list")) '(list))) '(text)))
(def (p$checkWiFi ) (if (call-yail-primitive yail-equal? (*list-for-runtime* 1 (call-yail-primitive string-starts-at (*list-for-runtime* (call-component-method 'PhoneStatus1 'GetWifiIpAddress (*list-for-runtime*) '()) "Error") '(text text) "starts at")) '(any any) "=") (begin (call-component-method 'Notifier1 'ShowChooseDialog (*list-for-runtime* "Your Device does not appear to have a WiFi Connection" "No WiFi" "Continue without WiFi" "Exit" #f) '(text text text text boolean)))))
(def (p$getRendezvousServer ) (call-component-method 'TinyDB1 'GetValue (*list-for-runtime* "rendezvousServer" (get-var g$rendezvousServer)) '(text any)))
(def (p$isAPK $input) (call-yail-primitive yail-equal? (*list-for-runtime* (call-yail-primitive string-starts-at (*list-for-runtime* (lexical-value $input) "http://") '(text text) "starts at") 1) '(any any) "="))
......@@ -38,10 +38,10 @@ $Source $Yail
(add-component Screen1 com.google.appinventor.components.runtime.VerticalArrangement SettingsPanel
(set-and-coerce-property! 'SettingsPanel 'AlignHorizontal 3 'number)
(set-and-coerce-property! 'SettingsPanel 'Width -2 'number)
(set-and-coerce-property! 'SettingsPanel 'Visible #f 'boolean)
(set-and-coerce-property! 'SettingsPanel 'Width -2 'number)
)
;;; settingsintro
......@@ -97,6 +97,11 @@ $Source $Yail
(define-event ResetRendezvousServer Click()(set-this-form)
((get-var p$resetRendezvousServer) )(set-and-coerce-property! 'SettingsPanel 'Visible #f 'boolean)(set-and-coerce-property! 'MainPanel 'Visible #t 'boolean))
;;; aidLabel
(add-component SettingsPanel com.google.appinventor.components.runtime.Label aidLabel
)
;;; MainPanel
(add-component Screen1 com.google.appinventor.components.runtime.VerticalArrangement MainPanel
......@@ -129,12 +134,12 @@ $Source $Yail
(add-component MainPanel com.google.appinventor.components.runtime.Label ErrorLabel
(set-and-coerce-property! 'ErrorLabel 'HasMargins #f 'boolean)
(set-and-coerce-property! 'ErrorLabel 'Width -2 'number)
(set-and-coerce-property! 'ErrorLabel 'TextAlignment 1 'number)
(set-and-coerce-property! 'ErrorLabel 'TextColor #xFFFF0000 'number)
(set-and-coerce-property! 'ErrorLabel 'Width -2 'number)
)
;;; PhonePanel
......@@ -225,14 +230,14 @@ $Source $Yail
(set-and-coerce-property! 'CodeBox 'FontTypeface 1 'number)
(set-and-coerce-property! 'CodeBox 'Width -2 'number)
(set-and-coerce-property! 'CodeBox 'Hint "Six Character Code" 'text)
(set-and-coerce-property! 'CodeBox 'MultiLine #t 'boolean)
(set-and-coerce-property! 'CodeBox 'TextAlignment 1 'number)
(set-and-coerce-property! 'CodeBox 'Width -2 'number)
)
;;; Label8
......@@ -361,7 +366,7 @@ $Source $Yail
)
(define-event PhoneStatus1 OnSettings()(set-this-form)
(set-and-coerce-property! 'MainPanel 'Visible #f 'boolean)(set-and-coerce-property! 'SettingsPanel 'Visible #t 'boolean)(set-and-coerce-property! 'rendezvoustextbox 'Text ((get-var p$getRendezvousServer) ) 'text))
(set-and-coerce-property! 'MainPanel 'Visible #f 'boolean)(set-and-coerce-property! 'SettingsPanel 'Visible #t 'boolean)(set-and-coerce-property! 'rendezvoustextbox 'Text ((get-var p$getRendezvousServer) ) 'text)(set-and-coerce-property! 'aidLabel 'Text (call-component-method 'PhoneStatus1 'InstallationId (*list-for-runtime*) '()) 'text))
;;; Web1
(add-component MainPanel com.google.appinventor.components.runtime.Web Web1
......
appinventor/components/src/com/google/appinventor/components/runtime/PhoneStatus.java
View file @ 41597f9b
......@@ -318,6 +318,11 @@ public class PhoneStatus extends AndroidNonvisibleComponent implements Component
}
}
@SimpleFunction(description = "Return the ACRA Installation ID")
public String InstallationId() {
return org.acra.util.Installation.id(Form.getActiveForm());
}
/* Static context way to get the useWebRTC flag */
public static boolean getUseWebRTC() {
return useWebRTC;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment