Anonymous

alias image-viewer-slideshow { /dialog -ma timings timings }

on *:DIALOG:Timings:sclick:4: { /dialog -x Timings Timings | /dialog -ma image-slideshow-to-size image-slideshow-to-size } ;opens the dialog

on *:DIALOG:image-slideshow-to-size:init:*: {
  var %i = 0 
  while (%i < $ini(image-album.ini,files,0)) { 
    inc %i 1
    /set %teh-file $readini(image-album.ini,files,$ini(image-album.ini,files,%i)) | /timer 1 $calc(%i * %timing) /dialog -x image-slideshow-to-size image-slideshow-to-size | /timer 1 6 /Fit-to-size-image-viewer-slideshow ;line sets the next file to variable closes the previous image and starts alias 
  } 
}
dialog Timings {
  title "Timings"
  size -1 -1 124 67
  option dbu
  edit "", 1, 37 30 50 10, autohs %timing
  text "Please insert the timings between the images in the slideshow you can exit without activating the slideshow through the cancel button", 2, 3 6 117 21
  button "Cancel", 3, 74 50 37 12, ok cancel
  button "Continue", 4, 12 50 37 12
}
dialog image-slideshow-to-size {
  title "image-viewer-to-size"
  size -1 -1 %width %height
  option pixels
  icon 1, 0 0 %width %height, %teh-file, 0, noborder
}
alias -l Fit-to-size-image-viewer-slideshow {
  if ($pic(%teh-file).height < 600) /set %height $pic(%teh-file).height
  else { /set %height 600 }
  if ($pic(%teh-file).width < 800) /set %width $pic(%teh-file).width
  else { /set %width 800 }
  /.timer 1 3 /dialog -ma image-slideshow-to-size image-slideshow-to-size
}