NAVIGATEUR INTERNET

}

alias majchanz { return }
alias nhtmln return systeme\nhtmln_2.9.dll
dialog navig {
  size -1 -1 800 600
  title "Naviguateur Internet XerBo"
  icon $mircdirSysteme\Graphiques\browser.ico, 0
  box "naviguateur" ,1, 10 50 780 540
  button "Fermer" ,2, 9999 99999 9999 9999,ok
  menu "Fichier"
  item "Retour" ,4,
  item "Suivant" ,5,
  item "Stop" ,6,
  item "Quitter" ,3,
  edit %u-wpd ,8, 10 30 740 20
  button "OK" ,9, 750 30 40 20,default
  button "<PRECEDENTE" ,10, 10 5 80 25,flat
  button "SUIVANTE>" ,12, 90 5 80 25,flat
  button "STOP" ,13, 170 5 80 25,flat
  button "DEMARRAGE" ,16, 250 5 80 25,flat
  menu Options ,14,
  item "Page d'accueil" ,15, 
}
alias nav {
  d navig
  if ( $1 != $null ) {
    did -ra navig 8 $1
    .timer 1 0 dll $nHTMLn navigate $1
  }
}
ON 1:dialog:navig:sclick:2:{ return }
ON 1:dialog:navig:sclick:9:{ dll $nHTMLn navigate $did(8) }
ON 1:dialog:navig:menu:3:{ dx navig }
ON 1:dialog:navig:menu:4:{ dll $nHTMLn back 0 }
ON 1:dialog:navig:menu:5:{ dll $nHTMLn forward 0 }
ON 1:dialog:navig:menu:6:{ dll $nHTMLn stop 0 }
ON 1:dialog:navig:sclick:10:{ dll $nHTMLn back 0 }
ON 1:dialog:navig:sclick:12:{ dll $nHTMLn forward 0 }
ON 1:dialog:navig:sclick:13:{ dll $nHTMLn stop 0 }
ON 1:dialog:navig:menu:15:{ %u-wpd = $?="Quel sera la page d'accueil ? ( Format : http://www.lesite.com ) " }
ON 1:dialog:navig:sclick:16:{ dll $nHTMLn navigate %u-wpd | did -ra navig 8 %u-wpd  }

ON 1:dialog:navig:init:*:{
  mark $dname
  edge 9
  var %hwnd = $dll($nHTMLn,find,naviguateur)
  var %v = $dll($nHTMLn,attach,%hwnd)
  var %h = $dll($nHTMLn,navigate,%u-wpd)
  var %i = $dll($nHTMLn,handler,nh)
  .timerbrowser -m 0 1 bro
}
alias bro { if (!$dialog(navig)) .timerbrowser off | else var %i = $dll($nHTMLn,handler,nh) }