1
0
Fork 0

WebApp: Just have a simple LU update...

This commit is contained in:
Holger Hans Peter Freyther 2010-12-11 12:33:44 +01:00
parent 0427513af8
commit b1d6f361b6
1 changed files with 5 additions and 26 deletions

View File

@ -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.
].
]