n0=alias AutoJoin { dialog -m ajoin ajoin } n1=dialog ajoin { n2= title "AutoJoin" n3= size -1 -1 59 107 n4= option dbu n5= button "OK", 1, 7 95 44 9 , OK,flat,tab 300 n6= combo 2, 7 8 45 71, size sort n7= button "ADD", 3, 5 82 23 9,flat,tab 300 n8= button "DEL", 4, 30 82 23 9,flat,tab 300 n9= box "", 5, 3 1 53 81 n10= box "", 6, 3 78 53 15 n11=} n12=on *:dialog:ajoin:sclick:3: { n13= did -a $dname 2 $did(2) | set %AutoJoin $didtok($dname,2,44) n14=} n15=on *:dialog:ajoin:INIT:*:didtok $dname 2 44 %AutoJoin n16=on *:dialog:ajoin:sclick:4:{ n17= did -d $dname 2 $did($dname,2).sel n18=} n19=on *:dialog:ajoin:sclick:1:{ n20= set %AutoJoin $didtok($dname,2,44) n21=} n22=on *:connect:{ join %AutoJoin } n23=menu status,menubar { n24= Auto join:/AutoJoin