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

webapp: Add a IMSI detach widget and drive the IMSI Deatch procedure

This commit is contained in:
Holger Hans Peter Freyther 2012-10-21 16:28:27 +02:00
parent 150dfba9c0
commit d96edc989b
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
WebApp.st
View File

@ -146,6 +146,22 @@ Iliad.ILWidget subclass: ProcedureWidget [
] ]
ProcedureWidget subclass: IMSIDetachWidget [
contents [
^ [:e |
e a
text: 'Start IMSI Detach';
action: [self doIMSIDetach]
]
]
doIMSIDetach [
self runProcedure: [
self application gsmServer
doIMSIDetach: self session gsmConfig] name: 'IMSI Detach'.
]
]
ProcedureWidget subclass: LUWidget [ ProcedureWidget subclass: LUWidget [
contents [ contents [
^ [:e | ^ [:e |
@ -204,7 +220,7 @@ Iliad.ILSession subclass: GSMTestphoneSession [
] ]
Iliad.ILApplication subclass: GSMTestphoneApp [ Iliad.ILApplication subclass: GSMTestphoneApp [
| config call lu serverConfig gsmServer procedureWidget ussd | | config call lu serverConfig gsmServer procedureWidget ussd imsiDetach |
GSMTestphoneApp class >> path [ ^ 'testphone' ] GSMTestphoneApp class >> path [ ^ 'testphone' ]
GSMTestphoneApp class >> initialize [ GSMTestphoneApp class >> initialize [
@ -231,6 +247,10 @@ Iliad.ILApplication subclass: GSMTestphoneApp [
^ call ifNil: [call := CallWidget new] ^ call ifNil: [call := CallWidget new]
] ]
imsiDetach [
^ imsiDetach ifNil: [imsiDetach := IMSIDetachWidget new].
]
lu [ lu [
^ lu ifNil: [lu := LUWidget new] ^ lu ifNil: [lu := LUWidget new]
] ]
@ -246,6 +266,7 @@ Iliad.ILApplication subclass: GSMTestphoneApp [
build: self cometConnection; build: self cometConnection;
build: self serverConfig; build: self serverConfig;
build: self phoneConfig; build: self phoneConfig;
build: self imsiDetach;
build: self lu; build: self lu;
build: self call; build: self call;
build: self ussd; build: self ussd;