dialog new_table {
title "New Project"
size -1 -1 120 185
option dbu
list 1, 5 5 110 70, size
list 2, 5 90 110 70, size
text "Perform Following Commands:", 3, 5 80 110 8
edit "", 4, 5 160 90 10
button "Add", 5, 95 160 20 10
button "Connect", 6, 35 172 45 10
}
on 1:DIALOG:new_table:INIT:*: {
var %s = 1
while ($server(%s)) {
/did $iif(%s == 1, -ca, -a) $dname 1 $server(%s)
/inc %s
}
/did -t $dname 5
}
on 1:DIALOG:new_table:DCLICK:1: {
/server -m $did($dname, 1).seltext
var %l = 1
while ($did($dname, 2, %l) != $null) {
/ [ $+ [ $ifmatch ] ]
/inc %l
}
}
on 1:DIALOG:new_table:DCLICK:2: {
/did -d $dname 2 $did($dname, 2).sel
}
on 1:DIALOG:new_table:SCLICK:5: {
if ($did($dname, 4) != $null) /did -a $dname 2 $ifmatch
/did -r $dname 4
}
on 1:DIALOG:new_Table:SCLICk:6: {
/server -m $did($dname, 1).seltext
var %l = 1
while ($did($dname, 2, %l) != $null) {
/ [ $+ [ $ifmatch ] ]
/inc %l
}
}