alias tablesimv.set dialog -m tablesimv.set tablesimv.set
dialog tablesimv.set {
  title " "
  size -1 -1 118 60
  option dbu
  list 1, 5 5 10 15
  list 2, 14 5 10 15
  list 3, 23 5 10 15
  list 4, 31 5 10 15
  list 5, 40 5 10 15
  list 6, 49 5 10 15
  list 7, 58 5 10 15
  list 8, 67 5 10 15
  list 9, 76 5 10 15
  list 10, 85 5 10 15
  list 11, 94 5 10 15
  list 12, 103 5 10 15
  list 13, 5 14 10 15
  list 14, 14 14 10 15
  list 15, 23 14 10 15
  list 16, 31 14 10 15
  list 17, 40 14 10 15
  list 18, 49 14 10 15
  list 19, 58 14 10 15
  list 20, 67 14 10 15
  list 21, 76 14 10 15
  list 22, 85 14 10 15
  list 23, 94 14 10 15
  list 24, 103 14 10 15
  list 25, 5 23 10 15
  list 26, 14 23 10 15
  list 27, 23 23 10 15
  list 28, 31 23 10 15
  list 29, 40 23 10 15
  list 30, 49 23 10 15
  list 31, 58 23 10 15
  list 32, 67 23 10 15
  list 33, 76 23 10 15
  list 34, 85 23 10 15
  list 35, 94 23 10 15
  list 36, 103 23 10 15
  list 37, 5 32 10 15
  list 38, 14 32 10 15
  list 39, 23 32 10 15
  list 40, 31 32 10 15
  list 41, 40 32 10 15
  list 42, 49 32 10 15
  list 43, 58 32 10 15
  list 44, 67 32 10 15
  list 45, 76 32 10 15
  list 46, 85 32 10 15
  list 47, 94 32 10 15
  ;-----<  >-----
  button "", 100, 5 45 31 10
  button "", 101, 36 45 36 10
  button "", 102, 72 45 32 10, ok
}

on *:dialog:tablesimv.set:*:*: {
  if ($mouse.key & 1) {
    if ($dialog(tablesimv.set).active == $false) { dialog -v tablesimv.set tablesimv.set }
  }
  if ($devent == init) { 
    did -i $dname 1 1 $chr(1)
    did -i $dname 2 1 $chr(129) 
    did -i $dname 3 1 $chr(130)
    did -i $dname 4 1 $chr(131)
    did -i $dname 5 1 $chr(133)
    did -i $dname 6 1 $chr(134)
    did -i $dname 7 1 $chr(135)
    did -i $dname 8 1 $chr(136)
    did -i $dname 9 1 $chr(137)
    did -i $dname 10 1 $chr(138)
    did -i $dname 11 1 $chr(140)
    did -i $dname 12 1 $chr(141)
    did -i $dname 13 1 $chr(142)
    did -i $dname 14 1 $chr(143)
    did -i $dname 15 1 $chr(145)
    did -i $dname 16 1 $chr(146)
    did -i $dname 17 1 $chr(147)
    did -i $dname 18 1 $chr(148)
    did -i $dname 19 1 $chr(149)
    did -i $dname 20 1 $chr(153)
    did -i $dname 21 1 $chr(154)
    did -i $dname 22 1 $chr(156)
    did -i $dname 23 1 $chr(157)
    did -i $dname 24 1 $chr(158)
    did -i $dname 25 1 $chr(159)
    did -i $dname 26 1 $chr(161)
    did -i $dname 27 1 $chr(162)
    did -i $dname 28 1 $chr(163)
    did -i $dname 29 1 $chr(164)
    did -i $dname 30 1 $chr(165)
    did -i $dname 31 1 $chr(166)
    did -i $dname 32 1 $chr(167)
    did -i $dname 33 1 $chr(168)
    did -i $dname 34 1 $chr(169)
    did -i $dname 35 1 $chr(170)
    did -i $dname 36 1 $chr(172)
    did -i $dname 37 1 $chr(173)
    did -i $dname 38 1 $chr(174)
    did -i $dname 39 1 $chr(175)
    did -i $dname 40 1 $chr(176)
    did -i $dname 41 1 $chr(177)
    did -i $dname 42 1 $chr(180)
    did -i $dname 43 1 $chr(181)
    did -i $dname 44 1 $chr(182)
    did -i $dname 45 1 $chr(183)
    did -i $dname 46 1 $chr(187)
    did -i $dname 47 1 $chr(191)
  }
  if ($devent == sclick) {
    if ($did == 1) { did -u $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(1) }
    if ($did == 2) { did -u $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(129) }
    if ($did == 3) { did -u $dname 1,2,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(130) }
    if ($did == 4) { did -u $dname 1,2,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(131) }
    if ($did == 5) { did -u $dname 1,2,4,3,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(133) }
    if ($did == 6) { did -u $dname 1,2,4,3,5,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(134) }
    if ($did == 7) { did -u $dname 1,2,4,3,5,6,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(135) }
    if ($did == 8) { did -u $dname 1,2,4,3,5,6,7,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(136) }
    if ($did == 9) { did -u $dname 1,2,4,3,5,6,7,8,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(137) }
    if ($did == 10) { did -u $dname 1,2,4,3,5,6,7,8,9,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(138) }
    if ($did == 11) { did -u $dname 1,2,4,3,5,6,7,8,9,10,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(140) }
    if ($did == 12) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(141) }
    if ($did == 13) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(142) }
    if ($did == 14) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(143) }
    if ($did == 15) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(145) }
    if ($did == 16) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(146) }
    if ($did == 17) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(147) }
    if ($did == 18) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(148) }
    if ($did == 19) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(149) }
    if ($did == 20) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(153) }
    if ($did == 21) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(154) }
    if ($did == 22) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(156) }
    if ($did == 23) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(157) }
    if ($did == 24) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(158) }
    if ($did == 25) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(159) }
    if ($did == 26) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(161) }
    if ($did == 27) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(162) }
    if ($did == 28) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(163) }
    if ($did == 29) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(164) }
    if ($did == 30) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(165) }
    if ($did == 31) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(166) }
    if ($did == 32) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(167) }
    if ($did == 33) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,34,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(168) }
    if ($did == 34) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,35,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(169) }
    if ($did == 35) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,36,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(170) }
    if ($did == 36) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,37,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(172) }
    if ($did == 37) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,38,39,40,41,42,43,44,45,46,47 | set %simv $chr(173) }
    if ($did == 38) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,39,40,41,42,43,44,45,46,47 | set %simv $chr(174) }
    if ($did == 39) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,40,41,42,43,44,45,46,47 | set %simv $chr(175) }
    if ($did == 40) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,41,42,43,44,45,46,47 | set %simv $chr(176) }
    if ($did == 41) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,42,43,44,45,46,47 | set %simv $chr(177) }
    if ($did == 42) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,43,44,45,46,47 | set %simv $chr(180) }
    if ($did == 43) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,44,45,46,47 | set %simv $chr(181) }
    if ($did == 44) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,45,46,47 | set %simv $chr(182) }
    if ($did == 45) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,46,47 | set %simv $chr(183) }
    if ($did == 46) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,47 | set %simv $chr(187) }
    if ($did == 47) { did -u $dname 1,2,4,3,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46 | set %simv $chr(191) }
    if ($did == 100) { set %editbox $editbox($active) | set %editbox.text %editbox $+ %simv | editbox -a %editbox.text }
    if ($did == 101) { clipboard %simv }
  }
  set %editbox
  set %editbox.text
}
