POPUPS GRAPHIQUE EN COULEUR SANS DLL

alias -l r1 { return $readini(popups2.ini,n,para,$1) }
alias -l r21 { return $gettok($readini(popups2.ini,n,texte,n $+ $1),1,58) }
alias -l r22 { return $gettok($readini(popups2.ini,n,texte,n $+ $1),2,58) }
alias -l w { writeini -n popups2.ini para $1 $2 }
alias -l ouvrir { 
  set %itr 1 
  $w(file,$1) 
  did -a popups 7 $1
  while ( %itr <= $lines($1) ) { did -a popups 6 $read($1,%itr) $crlf | inc %itr }
  did -a popups 10 $nopath($1)
}

dialog popups { 
  title "Popups Config"
  size -1 -1 400 300
  button "Sauvegarder", 4, 20 270 100 20 , ok ,flat
  edit "", 6, 20 20 350 250,  return, multi, vsbar
  edit "", 7,140 270 110 23, multi,
  button "Ouvrir", 8, 20 0 100 20 ,flat
  button "Help ?" ,9, 140 0 100 20,flat
  text ,10, 250 0 200 20
}

on *:dialog:popups:init:0: { $ouvrir($eval($r1(file),2)) }
on *:dialog:popups:sclick:4:{ 
  set %itr 1 
  unset %ligne
  if ($exists($did(7).text)) { .remove $did(7).text }
  while ( %itr <= $did(6).lines) { 
    if ( $gettok($did(6,%itr).text,0,58) != 2 ) && ( $did(6,%itr).text != $null ) { set %ligne %ligne %itr }
    write $did(7).text $did(6,%itr).text 
    inc %itr
  }
  $w(file,$did(7).text)
  if ( %ligne != $null ) { dialog -m erreur.p erreur.p }
}

on *:dialog:popups:edit:6:{  
  ;set %itr 1 
  ;while ( %itr <= $did(6).lines) { 
  ;  write $r1(file) $did(6,%itr).text
  ;  inc %itr
  ;}
}

on *:dialog:popups:sclick:8:{ did -r popups 6 | $ouvrir($sfile($mircdir,Choisit un fichier texte,Ok)) }
on *:dialog:popups:sclick:9:{ run aide-popups.txt }

dialog erreur.p { 
  title "Erreur Popups"
  size -1 -1 160 55
  text il manque '':'' a  la ligne %ligne ,1,20 10 150 20
  button "OK" ,2,20 30 100 20,flat,ok
}

on *:dialog:erreur.p:sclick:2:{ dialog -m popups popups }


alias lance.popup { 
  if ( $1 != $null ) {
    remini popups2.ini texte
    set %itr 1
    set %line 1
    while ( %itr <= $lines($1) ) { if ( $gettok($read($1,%itr),0,58) = 2 ) { writeini -n popups2.ini texte n $+ %line $read($1,%itr) | inc %line } | inc %itr }
  }
  $w(x,$mouse.x) 
  $w(y,$mouse.y)
  set %itr 1
  $w(mx,0)
  while ( $r21(%itr) != $null ) { if ( $len($r21(%itr)) > $r1(mx) ) { $w(mx,$ifmatch) } | inc %itr }
  $w(len,$calc(%itr -1))
  $w(mx,$calc($r1(mx) * 9 ))
  $w(my,$calc(17 * %itr ))
  $w(pos,0)
  if ( $window(@popups) != $null ) { window -c @popups }
  window -hkp +edfL @popups  
  window -a @popups $r1(x) $r1(y) $r1(mx) $r1(my)
  set %itr 0
  set %tir 1
  while ( %itr <= $r1(my) ) {
    if ( $r21(%tir) != $null ) { drawtext -r @popups $rgb(0,0,0) 5 %itr $ifmatch }
    inc %tir
    set %itr $calc( %itr + 18 )
    $w(pos,$r1(pos) %itr)
  }
}

menu @popups {
  mouse : {
    set %itr 1
    if ( $inrect($mouse.x,$mouse.y,0,$gettok($r1(pos),$r1(position),32) ,$r1(mx),18) = $true ) { halt }
    while ( %itr <= $gettok($r1(pos),0,32) ) {
      drawrect -cnrf @popups $rgb(255,255,255) 10 0 $gettok($r1(pos),%itr,32) $r1(mx) 18
      if ( $r21(%itr) != $null ) { drawtext -r @popups $rgb(0,0,0) 5  $gettok($r1(pos),%itr,32) $r21(%itr) }
      if ( $inrect($mouse.x,$mouse.y,0,$gettok($r1(pos),%itr,32) ,$r1(mx),18) = $true ) { 
        drawrect -cnrf @popups $rgb(0,100,200) 10 0 $gettok($r1(pos),%itr,32) $r1(mx) 18
        if ( $r21(%itr) != $null ) { drawtext -r @popups $rgb(0,0,0) 5 $gettok($r1(pos),%itr,32) $r21(%itr) }
        $w(position,%itr)
      }
      inc %itr
    }
  }
  sclick : { $eval($r22($r1(position)),2) | window -c $active }
  leave : { window -c @popups | unset %itr %tir %line }
}

on 1:keydown:@popups:13: { $eval($r22($r1(position)),2) | window -c $active }
on 1:keydown:@popups:38: { 
  if ( $r1(position) <= 1 ) {
    $w(position,$r1(len))
    drawrect -cnrf @popups $rgb(255,255,255) 10 0 $gettok($r1(pos),1,32) $r1(mx) 18
    drawtext -r @popups $rgb(0,0,0) 5 $gettok($r1(pos),1,32) $r21(1) 
    goto fin
  }
  drawrect -cnrf @popups $rgb(255,255,255) 10 0 $gettok($r1(pos),$r1(position),32) $r1(mx) 18
  if ( $r21($r1(position)) != $null ) { drawtext -r @popups $rgb(0,0,0) 5 $gettok($r1(pos),$r1(position),32) $ifmatch }
  $w(position,$calc($r1(position) -1))
  :fin
  drawrect -cnrf @popups $rgb(0,100,200) 10 0 $gettok($r1(pos),$r1(position),32) $r1(mx) 18
  if ( $r21($r1(position)) != $null ) { drawtext -r @popups $rgb(0,0,0) 5 $gettok($r1(pos),$r1(position),32) $ifmatch }
}

on 1:keydown:@popups:40: { 
  if ( $r1(position) > $r1(len) ) { 
    $w(position,1) 
    drawrect -cnrf @popups $rgb(255,255,255) 10 0 $gettok($r1(pos),1,32) $r1(mx) 18
    drawtext -r @popups $rgb(0,0,0) 5 $gettok($r1(pos),1,32) $r21(1) 
    goto fin
  }
  drawrect -cnrf @popups $rgb(255,255,255) 10 0 $gettok($r1(pos),$r1(position),32) $r1(mx) 18
  if ( $gettok(%tpopups,$r1(position),44) != $null ) { drawtext -r @popups $rgb(0,0,0) 5 $gettok($r1(pos),$r1(position),32) $ifmatch }
  $w(position,$calc($r1(position) +1))
  :fin
  drawrect -cnrf @popups $rgb(0,100,200) 10 0 $gettok($r1(pos),$r1(position),32) $r1(mx) 18
  if ( $r21($r1(position)) != $null ) { drawtext -r @popups $rgb(0,0,0) 5 $gettok($r1(pos),$r1(position),32) $ifmatch }
}