mdxfile { return $+($scriptdir,dlls\,$1,.mdx) }
prevbmp {
  if ($dialog($1)) {
    var %w = $+(@sprev.,$1,.,$2)
    if (!$window(%w)) { ppwin $1- }
    drawrect -nf %w $color(back) 1 0 0 $window(%w).w $window(%w).h
    if ($6- != $null) { drawtext -npb %w $color($4) $color(back) $window($active).font 13 $5 1 $6- }
    drawdot %w
  }
}
ppwin {
  mdx SetControlMDX $1-2 Window > $mdxfile(dialog)
  var %w = $+(@sprev.,$1,.,$2)
  window -phf %w -1 -1 $window(-1).w $window(-1).h
  did -a $1-2 grab $window(%w).hwnd %w
}