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

on *:DIALOG:Timings:init:*: { /variable-it }

on *:DIALOG:Timings:sclick:4: { /dialog -x Timings Timings | /timer 1 4 dialog -ma image-slideshow-to-size image-slideshow-to-size }

alias -l finish-it-off { inc %a 1 | /set %teh-file $($+(%,file.,%a),2) | /dialog -x image-slideshow-to-size image-slideshow-to-size | /Fit-to-size-image-viewer-slideshow }

alias -l ohno.dialog-end { /timertime off }

on *:DIALOG:image-slideshow-to-size:init:*: { variable-it | timertime %file.0 %timing $iif(%a == %file.0,/ohno.dialog-end,/finish-it-off) }

alias -l /dialog-timing-method {
  $iif(%a == $null,set %a 1)
  timertime %file.0 %timing $iif(%a == %file.0,/ohno.dialog-end,/finish-it-off)
}

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
}
alias variable-it {
  var %i = 0
  while (%i < $ini(image-album.ini,files,0)) {
    inc %i
    /set %file. $+ %i $readini(image-album.ini,files,$ini(image-album.ini,files,%i))
  }
  /set %file.0 %i
}