WebApp: Just have a simple LU update...
This commit is contained in:
parent
0427513af8
commit
b1d6f361b6
31
WebApp.st
31
WebApp.st
|
@ -79,33 +79,12 @@ Iliad.ILWidget subclass: LUWidget [
|
|||
]
|
||||
]
|
||||
|
||||
Object subclass: PhoneNumber [
|
||||
| number |
|
||||
number [ ^ number ]
|
||||
number: aNumber [ number := aNumber ]
|
||||
]
|
||||
|
||||
Iliad.ILWidget subclass: CallWidget [
|
||||
createNumberWidget [
|
||||
| form |
|
||||
form := Iliad.ILFormula on: PhoneNumber new.
|
||||
(form inputOn: #number)
|
||||
labelContents: [:e | e span text: 'Number' ].
|
||||
^ form
|
||||
]
|
||||
|
||||
dial [
|
||||
self lightbox: ((self createNumberWidget)
|
||||
addMessage: [:e | e h2: 'Set the number'];
|
||||
yourself)
|
||||
onAnswer: [:item | item ifNotNil: [
|
||||
self placeCall: item number]]
|
||||
]
|
||||
|
||||
contents [
|
||||
^ [:e |
|
||||
e a text: 'Place a call';
|
||||
action: [ self dial ].
|
||||
^[:e |
|
||||
e form build: [:form |
|
||||
form input action: [:val | self placeCall: val].
|
||||
form button text: 'Call']
|
||||
]
|
||||
]
|
||||
|
||||
|
@ -165,8 +144,8 @@ Iliad.ILApplication subclass: GSMTestphoneApp [
|
|||
^ [:e |
|
||||
e build: self serverConfig.
|
||||
e build: self phoneConfig.
|
||||
e build: self call.
|
||||
e build: self lu.
|
||||
e build: self call.
|
||||
].
|
||||
]
|
||||
|
||||
|
|
Reference in New Issue