Anonymous

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