webapp: Remove the comet usage to figure out the network state..
This commit is contained in:
parent
99841c28a6
commit
3fb1d74dff
14
WebApp.st
14
WebApp.st
|
@ -25,13 +25,9 @@ PackageLoader fileInPackage: 'OsmoGSM'.
|
||||||
FileStream fileIn: 'GSMDriver.st'.
|
FileStream fileIn: 'GSMDriver.st'.
|
||||||
FileStream fileIn: 'TestPhone.st'.
|
FileStream fileIn: 'TestPhone.st'.
|
||||||
|
|
||||||
Iliad.ILCometEvent subclass: PhoneRefresh [
|
|
||||||
]
|
|
||||||
|
|
||||||
Iliad.ILWidget subclass: ServerConfigWidget [
|
Iliad.ILWidget subclass: ServerConfigWidget [
|
||||||
initialize [
|
initialize [
|
||||||
super initialize.
|
super initialize.
|
||||||
self subscribeToCometEvent: PhoneRefresh.
|
|
||||||
]
|
]
|
||||||
|
|
||||||
contents [
|
contents [
|
||||||
|
@ -50,19 +46,9 @@ Iliad.ILWidget subclass: ServerConfigWidget [
|
||||||
]
|
]
|
||||||
|
|
||||||
connectServer [
|
connectServer [
|
||||||
| context |
|
|
||||||
(self application gsmServer)
|
(self application gsmServer)
|
||||||
connect;
|
connect;
|
||||||
serve.
|
serve.
|
||||||
|
|
||||||
context := self context.
|
|
||||||
[
|
|
||||||
ILCurrentContext processVariable value: context.
|
|
||||||
|
|
||||||
(Delay forSeconds: 5) wait.
|
|
||||||
self session cometHandler
|
|
||||||
handleEvent: PhoneRefresh new.
|
|
||||||
] fork.
|
|
||||||
]
|
]
|
||||||
|
|
||||||
]
|
]
|
||||||
|
|
Reference in New Issue