smalltalk
/
osmo-st-testphone
Archived
1
0
Fork 0
Code Releases Activity

webapp: Move ProcedureWidget code to one place

This commit is contained in:
Holger Hans Peter Freyther 2012-03-23 14:56:45 +01:00
parent 3fb1d74dff
commit 5c31946735
1 changed files with 38 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

77
WebApp.st
View File

@ -106,8 +106,46 @@ Iliad.ILWidget subclass: ProcedureWidget [
self lightbox: (ErrorWidget initWith: aName, ' could not be started.')
]
]
showStatus: item on: form [
| status |
status := item isComplete
ifTrue: [
item mainProc success
ifTrue: [item mainProc name, ' completed with success']
ifFalse: [item mainProc name, ' completed with failure'].
]
ifFalse: [
item mainProc name, ' in-progress'
].
form text: status.
form button
text: 'Remove';
action: [self markDirty.
item isComplete
ifFalse: [
item sendClearRequest.
].
self session procedures remove: item.].
]
contents [
^ [:e | | procs |
e a
action: [self markDirty];
text: 'Refresh Procedures'.
procs := self session procedures.
procs do: [:each |
e form build: [:form |
self showStatus: each on: form.]
]
]
]
]
ProcedureWidget subclass: LUWidget [
contents [
^ [:e |
@ -150,45 +188,6 @@ ProcedureWidget subclass: USSDWidget [
]
]
Iliad.ILWidget subclass: ProcedureWidget [
showStatus: item on: form [
| status |
status := item isComplete
ifTrue: [
item mainProc success
ifTrue: [item mainProc name, ' completed with success']
ifFalse: [item mainProc name, ' completed with failure'].
]
ifFalse: [
item mainProc name, ' in-progress'
].
form text: status.
form button
text: 'Remove';
action: [self markDirty.
item isComplete
ifFalse: [
item sendClearRequest.
].
self session procedures remove: item.].
]
contents [
^ [:e | | procs |
e a
action: [self markDirty];
text: 'Refresh Procedures'.
procs := self session procedures.
procs do: [:each |
e form build: [:form |
self showStatus: each on: form.]
]
]
]
]
Iliad.ILSession subclass: GSMTestphoneSession [
| user gsmConfig procedures |