;-=-=-=-=-=-
; DeadLy Script - IMAGE
;-=-=-=-=-=-
dialog imagem {
  icon $icons(from)
  title Pictures viewer - $sc
  size 216 181 430 267
  text Shift+F7:, 110, 392 255 40 14
  text Folder:, 1, 13 13 35 13
  edit "", 2, 54 8 315 23, multi return
  button browse, 3, 377 8 43 23
  box Pictures in selected folder, 4, 8 44 158 214
  button Enlarge, 6, 175 235 81 21
  button Update list, 7, 259 235 81 21
  button Close, 8, 343 235 75 21, ok
  icon 10, 175 50 240 178
  list 11, 14 64 146 190, size vsbar sort
  text "" 12, 170 34 260 20, hide
}
on 1:dialog:imagem:init:*:{ did -a imagem 2 $hget(var,imgdir) | did -h imagem 10 | img.l }
on 1:dialog:imagem:sclick:*:{
  if $did = 3 { hadd var imgdir $$sdir="Select pictures folder"  | did -ra imagem 2 $hget(var,imgdir) | img.l }
  if $did = 7 { hadd var imgdir $did(2).text | img.l }
  if $did = 11 {
    did -v imagem 10
    did -g imagem 10 $shortfn($gettok($did(11).seltext,2,248))
    did -vra imagem 12 $nopath($gettok($did(11).seltext,2,248))
  }
  if $did = 6 { %tmpimg = $shortfn($gettok($did(11).seltext,2,248)) | dialog -ma imga imga }
}
alias img.l {
  did -r imagem 11
  var %tmp = $findfile($hget(var,imgdir),*.jpg,0,img.l2 $1-) 
  var %tmp = $findfile($hget(var,imgdir),*.png,0,img.l2 $1-) 
  var %tmp = $findfile($hget(var,imgdir),*.bmp,0,img.l2 $1-) 
}
alias img.l2 { if $dialog(imagem) { did -a imagem 11 $nopath($1-) $str($chr(160),50)                             $+ $1- }
}
dialog imga {
  icon $icons(from)
  title Enlarged
  size -1 -1 498 500
  option pixels
  icon 1, 5 5 490 490
  button Close, 3, 420 465 75 20, ok
}
on 1:dialog:imga:init:0:{
  if $exists(%tmpimg) {
    .did -g $dname 1 %tmpimg
    dialog -t imga $gettok($did(imagem,11).seltext,1,248)
    unset %tmpimg
  }
}
on 1:dialog:imagem:close:*:{ .unloads image }

;-=-=-=-=-=-
;-=-=-=-=-=-
