dialog Connections {
title "Connections"
size -1 -1 190 60
option dbu
button "Cancel", 1, 5 20 20 10, cancel
button "OK", 2, 5 35 20 10, ok
button "Save", 3, 5 50 20 10, default
text "Network", 4, 5 6 25 8
combo 5, 35 5 60 50, edit drop
text "Password", 6, 100 6 25 8
edit "", 7, 125 5 50 10
}
on *:dialog:Connections:init:*:{
did -a $dname 5 $network
}
on *:dialog:Connections:sclick:5:{
if $hget(Networks,$+($did($dname,5).seltext,.,Password)) {
did -ra $dname 7 $v1
}
}
on *:dialog:Connections:sclick:2,3:{
var %network = $iif($did($dname,5).seltext,$v1,$did($dname,5))
var %password = $did($dname,7)
.hadd -m Networks $+(%network,.,Password) %password
}