Element SDialog

BaseElements
  include 'OSDialog.inc'
EndBase

GlobalConst
  SDialog.Dialog equ GetSaveFileName

  macro SDialog.doExecute ClassName,Self,Parent,Link,EID,PID \{
    SDialog.doExecute0 ClassName,Self,Parent,Link,EID,PID \}

Create
  OPENFILENAME.Init Self,OFN_OVERWRITEPROMPT or OFN_PATHMUSTEXIST or OFN_HIDEREADONLY or OFN_EXPLORER

EndElement