b5e736631a6995a592e2e42c86761fee73e61ff7
David Blume first commit

David Blume authored 4 years ago

1) function init()
David Blume Add test support for DIAL;...

David Blume authored 4 years ago

2)   m.top.ObserveField("pucidHash", "onUpdatePucidHash")
3) 
David Blume first commit

David Blume authored 4 years ago

4)   m.title = m.top.findNode("title")
5)   m.title.font.size=248
6)   m.title.color="0x62C7FF18"
7) 
8)   title_font_size = 34
9)   font_size = 32
10)   m.updates = m.top.findNode("updates")
11)   m.updates.font.size=font_size
12)   m.updates.color="0x52C7F8FF"
13)   m.updates.lineSpacing = 8
14) 
15)   m.updates_title = m.top.findNode("updates_title")
16)   m.updates_title.font.size=title_font_size
17)   m.updates_title.color="0x62E7FFFF"
18)   m.updates_title.text = "Launch Parameters"
19) 
20)   m.updates_lower = m.top.findNode("updates_lower")
21)   m.updates_lower.font.size=font_size
22)   m.updates_lower.color="0x52C7F8FF"
23)   m.updates_lower.text = ""
24)   m.updates_lower.lineSpacing = 8
25) 
26)   m.updates_lower_title = m.top.findNode("updates_lower_title")
27)   m.updates_lower_title.font.size=title_font_size
28)   m.updates_lower_title.color="0x62E7FFFF"
29)   m.updates_lower_title.text = "Events"
30) 
31)   m.updates_right = m.top.findNode("updates_right")
32)   m.updates_right.font.size=font_size
33)   m.updates_right.color="0x52C7F8FF"
34)   m.updates_right.lineSpacing = 8
35) 
36)   m.updates_right_title = m.top.findNode("updates_right_title")
37)   m.updates_right_title.font.size=title_font_size
38)   m.updates_right_title.color="0x62E7FFFF"
39)   m.updates_right_title.text = "Test Output"
40) 
41)   m.title_color = "0x20204080"
42)   m.title_focus_color = "0x4060B0A0"
43)   m.tl_rect = m.top.findNode("updates_title_rect")
44)   m.tl_rect.color = m.title_color
45)   m.bl_rect = m.top.findNode("updates_lower_title_rect")
46)   m.bl_rect.color = m.title_color
47)   m.r_rect = m.top.findNode("updates_right_title_rect")
48)   m.r_rect.color = m.title_color
49)   label_color = "0x00002080"
50)   r = m.top.findNode("updates_rect")
51)   r.color = label_color
52)   r = m.top.findNode("updates_lower_rect")
53)   r.color = label_color
54)   r = m.top.findNode("updates_right_rect")
55)   r.color = label_color
56) 
David Blume Remove some logging.

David Blume authored 4 years ago

57)   ' m.logger = CreateObject("roLogger")
David Blume Fix static analysis problem...

David Blume authored 4 years ago

58) 
David Blume first commit

David Blume authored 4 years ago

59)   m.myTask = CreateObject("roSGNode", "MyTask")
60)   m.myTask.ObserveField("updateText", "onUpdateText")
61)   m.myTask.ObserveField("updateTextLower", "onUpdateTextLower")
62)   m.myTask.control = "RUN"
63) 
David Blume Run the test code again wit...

David Blume authored 4 years ago

64)   m.testTask = CreateObject("roSGNode", "TestTask")
65)   m.testTask.ObserveField("updateText", "onUpdateTextRight")
David Blume Add test support for DIAL;...

David Blume authored 4 years ago

66)   ' Note m.top.pucidHash is not set at this point, so we can't set it for testTask either.
David Blume Run the test code again wit...

David Blume authored 4 years ago

67)   m.testTask.control = "RUN"
68) 
David Blume first commit

David Blume authored 4 years ago

69)   texttimer = m.top.findNode("textTimer")
70)   texttimer.observeField("fire", "timerUpdate")
71)   texttimer.control = "start"
72) 
73)   m.updates_lower_array = CreateObject("roArray", 10, true)
David Blume Run the test code again wit...

David Blume authored 4 years ago

74)   m.updates_right_array = CreateObject("roArray", 21, true)
David Blume first commit

David Blume authored 4 years ago

75) 
David Blume Run the test code again wit...

David Blume authored 4 years ago

76)   m.focus_rect = 1
David Blume first commit

David Blume authored 4 years ago

77)   doUpdateFocus()
78) 
79)   m.top.setFocus(true)
80) end function
81) 
David Blume Add test support for DIAL;...

David Blume authored 4 years ago

82) 
83) function onUpdatePucidHash() as void
84)     m.testTask.setField("pucidHash", m.top.pucidHash)
85) end function
86) 
87) 
David Blume first commit

David Blume authored 4 years ago

88) function onUpdateText() as void
89)    if m.updates.text.Len() = 0
90)        m.updates.text = m.myTask.updateText
91)    else
92)        m.updates.text = m.updates.text + chr(10) + m.myTask.updateText
93)    end if
David Blume Remove unused QR images; Ad...

David Blume authored 4 years ago

94)    print m.myTask.updateText
David Blume Remove some logging.

David Blume authored 4 years ago

95)    ' m.logger.logConsole("upperleft", [m.myTask.updateText])
David Blume first commit

David Blume authored 4 years ago

96) end function
97) 
David Blume Add test support for DIAL;...

David Blume authored 4 years ago

98) 
David Blume first commit

David Blume authored 4 years ago

99) function onUpdateTextLower() as void
100)    updateTextLower(m.myTask.updateTextLower)
101) end function
102) 
David Blume Add test support for DIAL;...

David Blume authored 4 years ago

103) 
David Blume first commit

David Blume authored 4 years ago

104) function updateTextLower(s as String) as void
105)     while m.updates_lower_array.Count() > 9
106)         m.updates_lower_array.Shift()
107)     end while
108)     m.updates_lower_array.Push(s)
109)     m.updates_lower.text = m.updates_lower_array.Join(chr(10))
David Blume Remove unused QR images; Ad...

David Blume authored 4 years ago

110)     print s
David Blume Remove some logging.

David Blume authored 4 years ago

111)     ' m.logger.logConsole("lowerleft", [s])
David Blume first commit

David Blume authored 4 years ago

112) end function
113) 
David Blume Add test support for DIAL;...

David Blume authored 4 years ago

114) 
David Blume first commit

David Blume authored 4 years ago

115) function onUpdateTextRight() as void
David Blume Run the test code again wit...

David Blume authored 4 years ago

116)    while m.updates_right_array.Count() > 20
117)        m.updates_right_array.Shift()
118)    end while
119)    m.updates_right_array.Push(m.testTask.updateText)
120)    m.updates_right.text = m.updates_right_array.Join(chr(10))
121)    print m.testTask.updateText
David Blume Remove some logging.

David Blume authored 4 years ago

122)    ' m.logger.logConsole("right", [m.testTask.updateText])
David Blume first commit

David Blume authored 4 years ago

123) end function
124) 
David Blume Add test support for DIAL;...

David Blume authored 4 years ago

125) 
David Blume first commit

David Blume authored 4 years ago

126) function onKeyEvent(key as String, press as Boolean) as Boolean
127)     handled = false
128)     if press then
David Blume Run the test code again wit...

David Blume authored 4 years ago

129)         if key = "back" then
David Blume first commit

David Blume authored 4 years ago

130)             handled = false
131)         else
132)             update_ui = false
David Blume Run the test code again wit...

David Blume authored 4 years ago

133)             if key = "OK" and (m.focus_rect = 1 or m.focus_rect = 2)
134)                 m.testTask.control = "RUN"
135)             elseif key = "up"
David Blume first commit

David Blume authored 4 years ago

136)                 if m.focus_rect = 2:
137)                     m.focus_rect = 1
138)                 elseif m.focus_rect = 3
139)                     m.focus_rect = 0
140)                     update_ui = true
141)                 endif
142)             elseif key = "right"
143)                 if m.focus_rect = 0:
144)                     m.focus_rect = 1
145)                     update_ui = true
146)                 elseif m.focus_rect = 3
147)                     m.focus_rect = 2
148)                     update_ui = true
149)                 endif
150)             elseif key = "down"
151)                 if m.focus_rect = 0:
152)                     m.focus_rect = 3
153)                     update_ui = true
154)                 elseif m.focus_rect = 1
155)                     m.focus_rect = 2
156)                 endif
157)             elseif key = "left"
158)                 if m.focus_rect = 1:
159)                     m.focus_rect = 0
160)                     update_ui = true
161)                 elseif m.focus_rect = 2
162)                     m.focus_rect = 3
163)                     update_ui = true
164)                 endif
165)             end if
166)             if update_ui
167)                 doUpdateFocus()
168)             endif
169)             dt = Mid(CreateObject("roDateTime").ToISOString(), 15, 5)
170)             updateTextLower(dt + " " + key)
171)             handled = true
172)         end if
173)     end if
174)     return handled
175) end function
176) 
David Blume Add test support for DIAL;...

David Blume authored 4 years ago

177) 
David Blume first commit

David Blume authored 4 years ago

178) sub doUpdateFocus()
179)     if m.focus_rect = 0
180)         m.tl_rect.color = m.title_focus_color
181)         m.bl_rect.color = m.title_color
182)         m.r_rect.color = m.title_color
183)     elseif m.focus_rect = 1 or m.focus_rect = 2
184)         m.tl_rect.color = m.title_color
185)         m.bl_rect.color = m.title_color
186)         m.r_rect.color = m.title_focus_color
187)     elseif m.focus_rect = 3
188)         m.tl_rect.color = m.title_color
189)         m.bl_rect.color = m.title_focus_color
190)         m.r_rect.color = m.title_color
191)     end if
192) end sub
193) 
David Blume Add test support for DIAL;...

David Blume authored 4 years ago

194)