Add ModelNumber form GetModelDetails
dblume

dblume commited on 2023-02-22 13:28:26
Showing 1 changed files, with 3 additions and 3 deletions.

... ...
@@ -36,7 +36,7 @@ function getDeviceInfo(deviceInfo as object) as Object
36 36
         return aa
37 37
     end if
38 38
     ' That did not work, so make a custom one.
39
-    aa["model"] = deviceInfo.GetModel()
39
+    aa["model"] = deviceInfo.GetModel() + " (" + deviceInfo.GetModelDetails()["ModelNumber"] + ")"
40 40
     mmrb = deviceInfo.GetOSVersion()  ' major minor revision build
41 41
     aa["firmware version"] = mmrb["major"]+"."+mmrb["minor"] +"."+mmrb["revision"]+" build "+mmrb["build"]
42 42
 
... ...
@@ -47,7 +47,7 @@ function executeTask() as void
47 47
 
48 48
     am = CreateObject("roAppManager")
49 49
     aaRunParams = am.GetRunParams()
50
-    for each key in aaRunParams
50
+    for each key in aaRunParams.Keys()
51 51
         val = aaRunParams[key]
52 52
         m.top.updateText = key + " = " + val.ToStr()
53 53
     end for
... ...
@@ -56,7 +56,7 @@ function executeTask() as void
56 56
     deviceInfo = CreateObject("roDeviceInfo")
57 57
     infoaa = getDeviceInfo(deviceInfo)
58 58
     if infoaa <> invalid:
59
-        for each key in infoaa
59
+        for each key in infoaa.Keys()
60 60
             val = infoaa[key]
61 61
             m.top.updateText = key + " = " + val.ToStr()
62 62
         end for
63 63