Untitled

;image viewer and poster;
'made by kerst on irc.swiftirc.net;
;Beta version;
dialog view {
  title "Image viewer/uploader"
  size -1 -1 332 239
  option dbu
  icon 1, 10 7 310 219,
}
dialog imagev {
  title "Image Viewer/uploader"
  size -1 -1 152 56
  option dbu
  button "Browse", 4, 5 5 37 12
  edit "Location", 5, 47 4 98 13, autohs
  button "Add picture to gallery", 6, 5 21 59 12
  radio "Open with a window", 2, 78 43 60 10
  button "Open", 3, 67 21 31 12
  radio "Open with dialog icon", 1, 5 42 73 10
  button "Remove Gallery", 7, 103 21 42 12
}
on *:dialog:imagev:close:0: unset %line
on *:dialog:imagev:sclick:7: .remove locations.txt
on *:dialog:imagev:sclick:6: $iif($did(5) != location,write locations.txt $did(5),did -ra imagev 5 add a location)
on *:dialog:imagev:sclick:4: did -ra imagev 5 $sfile(*,Select your image)
on *:dialog:imagev:sclick:3:{
  if ($did(imagev,2).state) {
    window -p @imageviewer
    dialog -m kerst kerst
    drawpic @imageviewer 200 200 $qt($read(locations.txt,1))
    set %line 1
  }
  if ($did(imagev,1).state) {
    dialog -m view view
    dialog -m kerst kerst
    did -g view 1 $qt($read(locations.txt,1))
    set %line 1
  }
} 
dialog kerst {
  title "back, next pic, last pic"
  size 50 50 134 16
  option dbu
  button "<=", 1, 6 3 37 12
  button "=>", 5, 50 3 37 12
  button "close", 6, 95 3 37 12
}
on *:dialog:kerst:sclick:6:{ dialog -x kerst kerst 
  dialog -x view view
  window -c @imageviwer
}
on *:dialog:kerst:sclick:*:{ $iif($did == 5,inc %line,$iif(%line == 1,inc %line,dec %line))
  if ($did(imagev,2).state) {
    drawpic @imageviewer 200 200 $qt($read(locations.txt,%line))
  }
  if ($did(imagev,1).state) {
    dialog -x view view
    dialog -m view view
    did -g view 1 $qt($read(locations.txt,%line))
  }
}