Untitled

menu * {
  .trivia dialog { /dialog -md trivia trivia }
}

dialog trivia {
  Title "Trivia beheer dialog" 
  size -1 -1 200 200 
  option dbu 
  list 2, 8 18 187 182, hsbar vsbar
  combo 1, 5 1 50 10, drop
  edit "Vraag", 3, 74 1 100 10, autohs
  button "OK", 4, 180 1 10 10
}
on *:dialog:trivia:init:0:{
  did -ac $dname 1 Add vraag
  did -a $dname 1 Edit vraag
  did -a $dname 1 Edit Antwoord
  did -a $dname 1 Edit bijde
  did -a $dname 1 Search
  var %x = 1
  while ($readini(trivia.ini,vraag,%x)) {
    /did -a $dname 2 %x $+ . $readini(trivia.ini,vraag,%x) + $readini(trivia.ini,ant,%x)
    inc %x
  }
  did -z $dname 2
}

on *:dialog:trivia:sclick:4:{ 
  if ($did(1).seltext == Search) { 
    var %x = $iif($did(2).sel != $did(2).lines,$calc($did(2).sel + 1),1)
    while (%x <= $did(2).lines) {
      if ($did(3) isin $did(trivia,2,%x)) { /did -c $dname 2 %x
      halt }
      inc %x
    }
  }
  if ($did(1).seltext == Add vraag) {
    set %vragen $did(2).lines
    inc %vragen
    writeini trivia.ini vraag %vragen $gettok($did(3),1,43) 
    writeini trivia.ini ant %vragen $gettok($did(3),2,43)
    did -a $dname 2 %vragen $+ . $did(3)
    /did -r $dname 3
  }
  if ($did(1).seltext == Edit vraag) {
    writeini trivia.ini vraag $did(2).sel $did(3)
    /did -r $dname 2
    var %x = 1
    while ($readini(trivia.ini,vraag,%x)) {
      /did -a $dname 2 %x $+ . $readini(trivia.ini,vraag,%x) + $readini(trivia.ini,ant,%x)
      inc %x
    }
    did -z $dname 2
  }
  if ($did(1).seltext == Edit Antwoord) {
    writeini trivia.ini ant $did(2).sel $did(3)
    /did -r $dname 2
    var %x = 1
    while ($readini(trivia.ini,vraag,%x)) {
      /did -a $dname 2 %x $+ . $readini(trivia.ini,vraag,%x) + $readini(trivia.ini,ant,%x)
      inc %x
    }
    did -z $dname 2
  }
  if ($did(1).seltext == Edit bijde) { 
    writeini trivia.ini vraag $did(2).sel $gettok($did(3),1,43) 
    writeini trivia.ini ant $did(2).sel $gettok($did(3),2,43)
    /did -r $dname 2
    var %x = 1
    while ($readini(trivia.ini,vraag,%x)) {
      /did -a $dname 2 %x $+ . $readini(trivia.ini,vraag,%x) + $readini(trivia.ini,ant,%x)
      inc %x
    }
    did -z $dname 2
  }
}