diff options
author | Holger Hans Peter Freyther <zecke@selfish.org> | 2010-12-11 12:33:44 +0100 |
---|---|---|
committer | Holger Hans Peter Freyther <zecke@selfish.org> | 2010-12-11 12:33:44 +0100 |
commit | b1d6f361b645495ff9646db46736ac4bfb9c413e (patch) | |
tree | bf9f2a0a5a87948d207152d2c6974437db5873fe | |
parent | 0427513af8d1cde8314ea08c56e95f76b31a84cd (diff) |
WebApp: Just have a simple LU update...
-rw-r--r-- | WebApp.st | 31 |
1 files changed, 5 insertions, 26 deletions
@@ -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. ]. ] |