/ScriptServ

dialog pdx {
  title PDX
  size -1 -1 300 200

  icon 6, 0 0 300 150 , $pdx ,noborder, 12424
  icon 5, 0 100 300 50 , $pdx ,noborder, fade 255,255,200 15026540
  icon 7, 0 150 300 50 , $pdx ,noborder, fade 15026540 face

  icon 2,  10  20 280 115, $pdx, noborder, Testing of 9,1PDX
  icon 1,  50  40 215  40, $pdx, noborder, PDX supports 2m3I4R5C-codes and word-wrap
  icon 3,  50  75 200  38, $pdx, noborder, Testing PDX progressbar 4with backrounds (solid and faded)
  icon 4,  75  150 150  15  , $pdx, noborder, 0

}

alias testpdx {
  var %dname = pdx
  if ($dialog(%dname)) dialog -x %dname 

  ; Set active dialog and scriptfile
  pdx.init %dname $script

  ; Set default font, size and backgroundcolor (default arial / 10 / $rb(face) )
  pdx.font Verdana
  pdx.fontsize 11
  pdx.back 12424

  ; Apply text,box and tips
  pdx.text 1
  pdx.box 2
  pdx.tips 3
  pdx.progressbar 4

  ; Apply bg
  pdx.bg 5
  pdx.bg 6
  pdx.bg 7

  ; Open dialog
  dialog -m pdx %dname

}


on *:signal:pdx.init:{
  if ($1 == %pdx.active) {
    var %i 0
    while (%i <= 100) {

      ; Progressbar on ID 4, from 1 to 100
      pdid 4 progressbar %i

      ; Display percent on ID 1 as text
      pdid 1 text %i $+ %

      inc %i
    }

    ; Set ID 1 as text: Done
    pdid 1 text Done!

  }
}