Forums Scripts & Popups list control help

alias lista {
  dialog -m lista lista
}


dialog lista {
  title "Dialog"
  size -1 -1 210 233
  option dbu
  list 1, 95 5 106 218
  button "Add", 2, 7 29 32 12
  button "Remove", 3, 8 48 33 13
  button "Modify", 4, 9 70 33 13
}

on *:dialog:lista:init:0:{ 
  loadbuf 0-100 -ro lista 1 $scriptdir\versions.txt
} 
on *:dialog:lista:sclick:1:{ 
  ;dunno what goes here...
} 

;Add
on *:dialog:lista:sclick:2: {
  //write $scriptdir\versions.txt $$?="text"
  loadbuf -ro lista 1 $scriptdir\versions.txt
}

;Remove
on *:dialog:lista:sclick:3: {
  if ($did == 1) { 
    //write $scriptdir\versions.txt $chr(32)
    loadbuf -ro lista 1 $scriptdir\versions.txt
  }
}

;Modify
on *:dialog:lista:sclick:4: {
;dunno what goes here
}

  

 alias lista {
  dialog -m lista lista
}

dialog lista {
  title "Dialog"
  size -1 -1 160 200
  option dbu
  list 1, 50 5 106 200
  button "Add", 2, 7 29 32 12
  button "Remove", 3, 7 48 33 13
  button "Modify", 4, 7 70 33 13
}

on *:dialog:lista:init:0: if ( $isfile($scriptdirversions.txt) ) loadbuf 0-100 -ro lista 1 $scriptdirversions.txt 

on *:dialog:lista:dclick:1: if ( $did(1).sel ) .timer_modif 1 0 _modif $v1


;Add

on *:dialog:lista:sclick:2: {
  write $scriptdirversions.txt $$?="text"
  loadbuf -ro lista 1 $scriptdirversions.txt
}



;Remove

on *:dialog:lista:sclick:3: {
  if ( $did(1).sel ) { 
    did -d lista 1 $v1
    saveload
  }
}



;Modify

on *:dialog:lista:sclick:4:  if ( $did(1).sel ) .timer_modif 1 0 _modif $v1

alias -l _modif {
  var %m = $input(Modify the text?,ye,Lista Modify,$did(lista, 1,$1))
  if ( $! ) {
    did -d lista 1 $1
    did -i lista 1 $1 $!
    saveload
  }
}

alias -l saveload {
  savebuf -o lista 1 $scriptdirversions.txt
  loadbuf -ro lista 1 $scriptdirversions.txt
}