alias networks {
if ($dialog(networks)) dialog -a networks
else dialog -dmv networks networks
}
dialog -l networks {
title "Client Connections"
size -1 -1 280 150
option dbu
list 10, 11 19 41 89, sort
text " Networks", 5, 1 7 50 8, center
edit "", 3, 60 4 211 137, read multi vsbar
text "Example", 2, 5 123 50 8, center
menu "Item1", 1
}
on *:DIALOG:networks:init:0: {
var %n = 0, %nn = $scon(0)
while (%n < %nn) {
inc %n
scon %n
did -a networks 10 $network
scon -r
}
networks.load $scon(1).cid
}
on *:DIALOG:networks:sclick:10:{
var %cid = $did(networks,11,$did(networks,10,1).sel).text
if ($scid(%cid)) networks.load %cid
}
alias -l networks.load {
;$1=scid
if (!$scid($1)) return
scid $1
; Code to change right-side data here
scid -r
}