From b1d6f361b645495ff9646db46736ac4bfb9c413e Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <zecke@selfish.org>
Date: Sat, 11 Dec 2010 12:33:44 +0100
Subject: [PATCH] WebApp: Just have a simple LU update...

---
 WebApp.st | 31 +++++--------------------------
 1 file changed, 5 insertions(+), 26 deletions(-)

diff --git a/WebApp.st b/WebApp.st
index 3b9c756..e4921c7 100644
--- a/WebApp.st
+++ b/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.
         ].
     ]