
on *:load:{
  set %entercmnd on
  echo -a * Commando on Connect cmnd caricato con successo.
}

alias cmnd { /dialog -m on.cmnd on.cmnd }

dialog on.cmnd {
  title "Comandi Alla Connessione   4 Angel Red Script"
  size -1 -1 490 160
  box "Comandi", 2, 10 10 470 88
  text "Imposta i comandi da eseguire alla connessione", 3, 42 30 300 20
  text "a = Abilita", 4, 410 30 90 20
  edit "", 77, 380 25 20 20
  edit "", 8, 42 58 415 20, autohs
  button "&OK", 40, 40 120 60 30, ok default
  button "&Cancella", 41, 110 120 65 30, cancel
  button "&Applica", 42, 185 120 60 30
}

on *:dialog:on.cmnd:init:0: {
  did -a on.cmnd 8 %cmnd1  
  did -a on.cmnd 77 %attivo1 
}

on *:dialog:on.cmnd:sclick:40:{
  set %cmnd1 $did(on.cmnd,8)

  set %attivo1 $did(on.cmnd,77)
}

on *:dialog:on.cmnd:sclick:42:{
  set %cmnd1 $did(on.cmnd,8)
  set %attivo1 $did(on.cmnd,77)
}

on *:connect:{ 
  if ( %cmnd1 != $null && %attivo1 == a ) { %cmnd1 }
}
